Sharp PC-1500 - Page 17

A ll and more about Sharp PC-1500 at http://www.PC-1500.info
P1 ROGRAM M UTUAL CO NV ERSIONS BET W EE N RECTANGULAR
PROGRAM NO.
4
Tl TL E
COORO I NATES ANO P OLAR COO RDINATES
PS - A- 2
[ Program Li st ]
I Memory Contents ]
10:" A ": GO SU B 5 00
230 :W AIT : US ING :
.J
20:R =J<X :J X +Y :J Y)
PRINT
'' X='' ;X
A
30: IF R=0WAI T
:
232: PRINT ' 'Y = '' ; Y
B
US ING :PRINT
"
234: PRINT ''2:: "; 2
R=0 AN GLE UNOE
24
0: ENO
c
0
F IN EO" : ENO 5 00: INPUT ' 'X =" ;XJ "
0
40: GOSU B 700 Y= '' ; V
S0: C=ACS
<X ...- R> :J A Sl 0: USI NG :RE TU RN
E
60: t.I AI T
: USI NG
: 6 00 : INPU T
'' R.; ''; R
1
"
PRINT
"R=• i R
T HET A= ";C
F
"'
62: P RINT "THE TA :" 605: RETU RN
G
;c 61 0:USING : X= R"f COS
64:E NO C: Y= R :J COS C:
H
70: "9": GO SUB 600 R ETURN
I
7S: X= R:J COS C: Y=Rl
7
00 : A=< Y= 0>+SGN Y:
SIN
c
RET U RN
J
80:USING : PRINT
"
X=";USING
" tttttf
K
11 11 111111 .11 1111 "; x
L
8 3:USI NG :P RJ NT
"
'!' =" ;US ING "ll ttll S TA TUS 1
M
1111111111 .11 1111" ; y
655
N
BS: E NO
90: "C" :GO SUB 5 00
0
100: INP UT
'' Z=
11
; 2
p
J J0 :R=f< X'f:X+ Y -.Y +Z l
Zl
Q
I 2 0: IF
R=0
GOTO 30
130:C=ASN (2 ...- R>
R
r
14 0: IF X) 0L ET F=
s
A TN
<Y ...- x>: G OT O
180 T
150:GOSUB 7 00
u
1 60 : IF X= 0L ET
F
eA :r
ACS 0: G OTO
180
v
170:F=ATN <Y...- l< >+Al
A
CS -I
w
1 7S:WA JT
x
x
180:USI NG :PRINT
"
R="; R
y y
182:PRI NT
" THETA ="
z
; C
z
184:PR JNT
' 'PHI =
1
' ;
F
190: ENO
200: "0":GOSUB 60 0
20S: GO SUB 61 0
210:
INPUT '" PHl !: '';F
220: X=X :J COS F: Y: Yt
SIN F: Z=
R:t SJN
c
Do not sale th is PDF!!!
- II -