Sharp PC-1403 Operation Manual page 242

236
A
X1
B Y1
c
v
0
X2
E
Y2
F
v
G
Discriminating condition (3)
H
P1X
I
P1Y
J P2X
K
P2Y
L
v
M
P
0
x
N
PoY
0
r1
p
r2
Q
Discriminating condition
(1)
A
Discriminating condi t ion
(2)
s
A
w
v
x
v
y
v
• MEMORY CONTENTS
663 Bytes
PRINT 'P2 ~=·;K:END
240:W=ACS (XISQR (X*X+Y*
Y)):IF 0>Y
LET
W=-W
250: RETU~:N
:r= ., ;
.J: '·'O ·-:•
I,_
· ; i = '';
I
' ' p
1
PRHH
230:
P~:HJT
~-·)
"'''•
.i..- ~
:i:.
160:IF ((R=-l)*(S}P))=l
LET ~1=~J+1:30
170:J=M+S*COS
W:K=N+S*
SIM ~l
180:M=M+SGN M*.005:N=N+
%M M:t<.005
190:H=H+SGM H•.005:I=I+
: 3 GN
I*.
005
200:J=J+SGN J:t<.005:K=K+
:3GN K:tc.
005
210:PRitH ''P0
x='';
IJSHHi
'' ttUttttltU.
tt:n: ., ;
M:
PRIMT ''P0 ·~=''Hl
C
E-t-D: G0:3UB 240
1 = . . .
;I] .
90:INPUT
·c2.our:1 IN~-
i=";R
100:INPUT
"LEFT:l RIGHT:
-1='' i
G
110:F=P+R*S:C=O+Q*S:H=D-
A:I=E-B:J=SQR
CH*H+I
*I):K=ACS
(H/J):IF 0
>I
LET
K=-1<
120:L=ACS
CCC*C+J*J-F*F)
/2/C/J)
130:N=K+G*L:M=A+C*COS
N:
N=B+C*SIN N:X=Q*(A-M
):Y=Q*(B-N):GOSIJB 24
0
140:IF ((Q=-1)*(S)0))=1
LET ~J=~J+ 180
150:H=M+S*COS W:I=N+S*
SIN
W:X=R•CD-M):Y=R*
1
::t:=''; A
20: INPUT
'·'C 1
·~=···;
B
30:
HJPIJT
'·' C l
r=···; 0
4~1:
IMPUT
')C2
r=
•.•;[I
50:
HJPUT
'· ' C2
·~=···; E
60: I
t·lPIJT
'·'(:2
r= •;
p
70: WPUT
'JR=='·'; S
:30: IMPUT
''CLOIJT:t
rn:-
• PROGRAM LIST