Sharp PC-1500 Applications Manual page 108

All and more about Sharp PC-1500 at http://www.PC-1500.info
PROGRAM
GRAPH GENERATION
I
PROGRAM NO.
4
T I T L E
(BAND OR C IRCLE GRAPH) PS-D-8
[ Program List ]
[ Memory Contents
I
500:xt=R*SJN
c:v1~
A
R*COS C:RETURN
650: IF K >3LET
K= I
B
655:JF K= I GOSUB 70
Circle and band graph
0 c
660: IF
K=2GOSUB 75
selection code
0
665: IF K= 3GOSUB 70 D
0:GOSUB
750
e
690 :RETURN
700:P=T:FOR O=llO
F
Angle (1)
60
G
Angle (2)
705:P=P-5
710: IF P<=WGOTO 74
0
H
Total item value
715 :1F 0-INT
(Q/2)
I
Loop counter
* 2 "'0LINE
<S, P
>
J
Loop counter
- <U, P), 0, L:
GOTO 725 Pattern selection in
720 :LJ NE
( u,
p) - (
s,
K
P), 0 , L
graph
725: NEX T 0
L
Pen color code
7 40: RETURN
750:P : S:F'OR
O= I TO M
Loop counter
50
N Total ratio
75 5:P=P->5
750 : I > P>=UGOTO 79
0
Loop counter
0
p
..;
765 :1 F 0- IN[
(Q/2)
~2 =0L INE <P, T >
Q
..;
-< P, W), 0
1
L:
R
..;
GOTO 7 75
7/0:LlNE <P, W> - <P,
s
Band graph X-axis (I)
T), 0
1
L
Band graph Y-axis ( I )
7/S:NEXT 0
T
790:RETURN
u
v
Band graph X-axis (2)
w
Band graph Y-axis (2)
SiATUS I
x
..;
1772
..;
y
z
OS
Display character
editing
""""'
..•
Item name
8S90J • I
Alphabet
A(Q)
Item value
X1
X-axis
Yl
Y·axis
Do not sale this PDF !!!
- 102-