Sharp PC-1500 Anwenderhandbuch Seite 58
Vorschau ausblenden
Andere Handbücher für PC-1500:
- Bedienungsanleitung (166 Seiten) ,
- Handbuch (224 Seiten)
Werbung
PROGRAMMNAME:
LOGISTISCHE
KURVE
ee
—— — ee
ee
ae
[ Programmlisting ]
18: "A":CLEAR :
WAIT @
2@: INPUT "DATA CL
OAD? (YAN) "5 AS
BOIIF ¢ag="¥")+¢9
$="N")<>1GOTO
20
40: IF
AsS="¥"GOTO -
138
3@: INPUT "N="50D; ".
K="5C
68:DIN
xX¢P-1), YCD
att a
7@:FOR 1=@TO D-1
BB: AS="KC"+FSTRE (
1+) +") ="%
PRINT A$;
98: INPUT X¢1)
1B@:CLS :AS="YC"4
STR$ (1+1)+")=
"PRINT A$}
118: INPUT YCID>
128:CLS !NEXT I
122: INPUT "DATA CS
AYE? CY/ND"3AS
124: 1F CA$="Y")4¢6A
$="N")<>1G0TO
122
126: IF A$="N"GOTO
158
127:PRINT #D,C
128: PRINT
#X¢¥), YC
*):GOTO
1528
130:
INPUT
#D,C
14@:DIM
X¢D-1);, Y¢D
—-1): INPUT
#x(¢x
23 ¥C*K)
158: X1=1008: X2=-X1
168:FOR
1=0@TO
D-1
178: 1F
X¢CID<x1LET
X1=X¢]>
18@:1F
XC 1) >x2LET
AZ=XCT)
2Z1B2Y=LN
CC7YCT)-1
PI E=E+RK
COI D2 FHP
+XC
ITI KXC I)
220:
G=G+Yi
H=H+X¢C 1)
KY:NEXT
I
234: B=DKF-EXE:
A=CF
*G-E%*H)
7B: B=C(D
*H-E¥G)7B
240: A=EXP
A: B=-B:
LPRINT
"A="5B:
LPRINT "M="3A
258: END
268: "B": CLEAR
:
WAIT
@: USING
27@:
INPUT
"DATA
CL
~
DADPCY"N3" 5 AS
288: IF
CAg="Y"ID+CA
$="N")<>1G0TO
278
.
298: 1F Ag="Y"GOTO
428
308:
INPUT
"N="3D:0
=INT
(073)
318:DIM
XCAK3-1),¥
CAX¥3S-153,; BC2)
320: FOR
C=1TO
3
33@:FOR
I=<¢C-1)*A
TO CkA-]
340: AS="YC"+STRE
¢
141)¢")5":
PRINT A$;
35@: INPUT YC1):XCI
- S1:CLS
360: BC(C-1)=B(C-1)+
azee
37@:NEXT I:NEXT C:
Z=1:0=3x*A
372: Y1=Y(O):Y2=¥(B
)
373: FOR
I=1TO
D-1
BSP4;1F
YCIS<YILET
Y1sycrIo
375: IF
YCIDSY2LET
Y2=YCI)
376: NEXT
I
378: IF
Ag="Y"GOTO
41g
388:
INPUT
"DATA
CS
AVE? CY/"NI"5 AS
398: 1F
CAS="Y"D4+CH
$="N")<¢>1G0TO
388
400: 1F Ag="N"GOTO
425
419:PRINT
#0,A:
PRINT
#X(¢CX), Y¢
*), BCX): GOTO
4
235
420:
INPUT
#D,;A:DIM
CD13
YCD-1);
B(2): INPUT
#X<£
*),
YOK),
BOK):
GOTO
372
425: %1=0:
X2=1*3kA-
1
430: C=A:B=¢(BC¢2)-B
C1ld)7
(BC 1)-BCB
IIIOCI/C)
GO
tees
PROGRAMMN-NR.
P5—B4
449: D1=BC-1:A=(B¢
@)-B¢1))x(B=1)
/¢O1xD1)
450; C=(B(Q)+D1 *A~¢
B-1))7C
468: C=1/C:A=-AXC:B
=-LN B
462:X1=-1/BXLN <<C
7Y¥1-1)70)
464:X2=-1/BXLN (CC
7¥2-1)70)
47@:LPRINT "A="3B
48@:LPRINT "M="3A
498:LPRINT "K="$C:
END
5@@:"C":GRAPH :U=1
@iW=-250:1F C<
@LET U=~2@:W=-
so
C O
S@5: IF X1>@LET X1=
r)
316: X3=X1:M=xX2-x3
920: N=M7188:L=C/17
3
330: GLCURSOR
(25, W
2: SORGN
54@:COLOR @:
GLCURSOR
¢-14,
VU>:LPRINT
"@"
S5@: LINE
¢-28, 8)-¢
175; @):LINE
(1
65, 18)-¢175, @)
-€165,
-18)_
568: GLCURSOR
(178,
U):LPRINT
"x"
570: 1F COsBLINE
(8
3 729)-(€8,
225):
LINE
¢-1@, 215)
~€@; 225)-(18, 2
15):GOTO
598
S8@: LINE
¢@; 25)-(2
37225):LINE
¢-
1Q; -215)-(¢@;
2
235)-¢€1@, -215)
SSBiLPRINT
"y":
COLOR
1: T=C/L
608:LINE
¢175,
T)-¢
~ 28; T+ LPRINT
kh"
61@:COLOR 2:0=-15:
S=OXN: P=(C7 (14
AXEXP
(-BxkS)))
7L
628: 1F O>=17SGOTO
6528
630: S=(0+5)
kN: Q=(C
"CI+AKEXP
(-BxX
SIL
Werbung
