Sharp PC-1500 Applications Manual page 17
Hide thumbs
Also See for PC-1500:
- Technical reference manual (182 pages) ,
- Instruction manual (169 pages) ,
- Service manual (37 pages)
Advertisement
All
and more about Sharp PC-1500
at
http://www.PC-1500.info
P1
R OGRAM
M
UTUAL CONVERSIONS
BETW
EE
N RECTANGULAR
PROGRAM
NO.
4
Tl TL
E
COORO INATES ANO POLAR
COORDINATES
PS- A-
2
[
Program List ]
I
Memory
Contents
]
10:"A":
G
OSUB 500
230 :WAIT
:
US
ING
:
.J
20:R=J< X:JX+Y:JY)
PRINT
''
X='' ;X
A
30: IF R=0WAI
T
:
232:
PRINT
''Y=
''
;
Y
B
US
ING :
PRI NT
"
234
:
PRINT
''
2::
";
2
R=0
ANGLE
UN
OE
24
0:
ENO
c
0
F INEO"
:
ENO
500:
INPUT
''X="
;XJ
"
0
40: GOSUB
700
Y=
''
; V
S0:
C=ACS
<X
...-R>:JA
Sl
0:
USI
NG :RETURN
E
60: t.IAI
T
:
USI NG
:
600: INPU
T
''
R.;
'';
R
1
"
PRIN
T
"R=• i R
THETA=
";C
F
"'
62: PRINT
"
THE T
A:"
605:
RET
URN
G
;c
61
0
:USI NG :
X=R"fCO
S
64:ENO
C: Y=R:JCOS C:
H
70: "9
"
:
G OSUB 600
RETURN
I
7S:
X=R:JCOS C:
Y=Rl
700:
A=<
Y=0>+SGN Y:
S IN
c
RETURN
J
80:USING
:
PRINT "
X=";USING
"tttttf
K
11
11
111111
.11
1111
";
x
L
83:USI NG : PRJ
NT
"
'!'="
;US
ING
"ll
ttll
STA
TUS
1
M
1111111111
.11
1111"
;
y
655
N
BS:
ENO
90
:
"C"
:GOSUB 500
0
100:
INPUT
''
Z=
11
;
2
p
J J0
:R=f<
X'f:X+Y-.Y+Zl
Zl
Q
I
20:
IF
R=0GOTO 30
130
:C=A
SN
(
2...-
R>
R
r
140:
IF
X)
0L
ET
F=
s
ATN <Y...-
x>: GOT
O
180
T
150:GOSUB 700
u
160:
IF X=0L ET
F
eA:r
ACS 0:
G
OTO 180
v
170:F=ATN
<Y...-
l< >+Al
ACS
-I
w
17S:WA
J
T
x
x
180:USI
NG :PRI NT "
R="
;
R
y
y
182:PRI NT
" THETA="
z
;
C
z
184:PRJNT
''PHI
=
1
'
;
F
190:
ENO
200: "0":GOSUB
600
20S: GOSUB
61
0
210
: INPUT
'"
PHl
!:
'';F
220: X=X:JCOS F:
Y:
Y
t
S IN F
: Z=R:tSJN
c
Do
not sale this PDF!!!
-
II
-
Advertisement
