Sharp PC-1403 Operation Manual page 231

225
A
v
c
(1
F
cj1
R r
x
x-coordinate
y
y-coordinate
z
z-coordinate
• MEMORY CONTENTS
300 Bytes
50:C=ASN (Z/R):IF
X>0
LET F=ATN (Y/X):GOTO
80
60:A=(Y=0)+SGN Y:IF X=0
LET F=A*ACS 0:GOTO 8
0
70:F=ATN (Y/X)+A•ACS -1
80:WAIT :PRINT
"r":
PRINT R:PRINT "THETA
":PRINT C:PRINT "PHI
'':PPIHT F:EMD
90:"B":INPUT "r=";R
100:INPUT
"THETA=•;c
110:INPUT "PHI=";F
120~Y=R•COS c:x=Y*COS F:
Y=Y*SIN F:Z=R•SIN C
130~WAIT ~PRINT "z":
PRINT X:PPINT •y•:
PRINT Y:PRINT "z":
PRINT
z:END
d
e
f i ned'':
END
• PROGRAM LIST
1(1:
''A'': I HPUT '':t='';
::<
20: rnPUT
''•F'·' ;
'i
3[1:rnPUT
' ' z='';z
40:R=SQR (X*X+Y*Y+Z*Z):
IF R=0 PAUSE "r=0 Un