Sharp PC-1500 - Page 207

All and more about Sharp PC-1 500 at http://www.PC-1500.info
PROGRAM
COMP UT ER GRA PH ICS
PROGR AM NO .
2
T I TLE
P 5-F - 4
I Key Operation Procedure I
Step No Input Display Remarks
1 I OIF I
[!]
NO. OF TRIANGLllS =-
2 30 I £NTE• I A NG LE =
3
10 l_! NTER I
INCREMENT • -
4 3.5 I EHTER J
>
Primou1
1
(oul [!]
NO. OF TRIANGLES =-
2
35 I fHTER I
ANGLE =
3 20 I ENTER I INCREMENT =-
4
3 I fHTE A I
>
Prin1out
I Program List ] [ Memory Contents I
l 0: " A" : GRAPH
.
A .
RANDOM
ln crc111cn1 (input)
2 0:GLCURSOR ( J 2 0,
K
-200 >: SORGN
L
30: lNPUT
"N O. OF
M
T RlAN GL ES =" iN
No . of Triangles
40: INPUT
"AN GLE="
N
; S (input)
50 : JNPUT "I NCR EME
0
NT = ";K
60:T= - S:R =5
p
70 :fQ R
l =lTO N
Q
75:COL OR
(RNO 4- 1
)
R
Increment (Calcula·
80 :R=R+K:T ~T+S ted va lue)
90: Xl =R*SlN
T:Yl=
s
Angle (input)
R*COS T
100:X2=R*SlN
< T+60
Angle (Calculated
): Y2=R *C OS
( , ..
T
value)
60)
110: L lNE
( 0, 0)-( XJ
Xl Graph ic X-coordino1 c I
, Y l )-<X2, Y2 >- <
Yl Craphte Y ..coo rc i na re I
0, 0)
X2 Cr ap l tic X
0
coo rd ina te 2
120:NfXT
l
l 30:E ND
Y2
(;raph ic Y·C C>O rd i 11 are 2
STATUS
l
246
Do not sale this PDF !!!
- 201