Sharp PC-1500 Anwenderhandbuch Seite 17

G M . TRANSFORMATION VON RECHTWINKLIGEN
PROGRAMMNAME KOORDINATEN UND POLARKOORDINATEN
PROGRAMM-NR.
P5—A—2 4
[ Programmlisting ] { Speicherinhalt ]
18: "A":GOSUB
58a
:"D".GOSUB
688
20:
R=J CX¥EKXF+YRY
;GOSUB
618
38: °F R=QWAIT
:
: INPUT
"PHI="3F
USING
:PRINT
"
:&X=x*KCOS
F:Y=Yx
R=@ WINKEL
NIC
SIN
F: 2=RXSIN
HT
DEF INIERT":
G
END
:WAIT
: USING
:
:GOSUB
788
PRINT "X="5%
>C=ACS
(X/RD*A
:PRINT
"Y="3Y
:WAIT
:USING
:
PRINT
"2="32
PRINT
"R="5R
> END
"THETA="
INPUT
'X="5%; "
Yo! 5 ¥
:
>USING
: RETURN
>"B"':GOSUB
680
INPUT
"R="3R, "
X=RKCOS
C: Y=R¥
THETA="3
SIN C
:USING :PRINT "
X=";USING "HHH
HAHAH. HHH GX
RETURN
:USING :X=R*COS
C:¥Y=R*COS C:
RETURN
>A=CYSB)+SGN Y:
RETURN
:USING :PRINT "
Y=";USING "###
HHHHH, HHHU GY
: END
:"C"; GOSUB 528
INPUT "2="32
R=J CXXX+YKY42%
2)
IF R=@8GOTO 32
C=ASN (27RD)
IF X>BLET F=
ATN ¢¥Y7K): GOTO
188
GOSUB 78
IF X=@6LET F=AX
ACS @:GOTO 184
F=ATN CY7XI+A*K
Acs =)
WAIT
USING :PRINT "
=a'sR
PRINT ""THETA="
3C
PRINT "PHI="5
END
STATUS }
pes
EB
ie
ca
oe
Os
ae
J
Es
Ss
BEBE