Sharp PC-1403 - Page 231

225
A v
c
(1
F cj 1
R r
x x - coord i na t e
y
y-coo rd i n ate
z z - c oo r d i na t e
• M EMOR Y C ONTENTS
300 B yt es
50 : C=ASN ( Z / R) : IF X> 0
LET F = A T N (Y / X ) : G OT O
80
60 : A = ( Y = 0 ) +SGN Y :IF X =0
LET F = A*A CS 0 : G OT O 8
0
7 0: F = ATN (Y / X ) +A• A C S - 1
80 : WAIT :PRI NT " r " :
PRINT R : PRI NT " T H ETA
" : PRINT C:PRI N T " P H I
' ':PPIHT F : EM D
90 : "B" : INPUT "r= " ; R
1 00 : INPUT "THETA= • ; c
11 0 : INPUT "PHI="; F
120 ~Y = R•COS c : x = Y *COS F:
Y = Y* S IN F : Z = R•SI N C
130~W A I T ~ PRINT " z ":
PRI NT X : PPINT •y• :
PR INT Y : PRINT " z" :
PRINT z :E ND
d e f i ned '' : E ND
• PROGRAM LIST
1(1 : ''A'' : I HP U T '' :t = '' ; :: <
20 : rnPUT ''•F' ·' ; ' i
3[1:rnPUT ' ' z= '' ;z
40:R=SQ R (X*X + Y*Y +Z * Z ) :
IF R=0 PA USE "r =0 U n