Sharp PC-1500 Anwenderhandbuch Seite 48

PROGRAMMNAME:
[ Programmlisting ]
18: "Q": CLEAR :
WAIT @:CLS _
2@: INPUT ""N="5N
30:DIM X<N-1); YCN
~1)+E=1@48: G=E
:D=-E:F=D - :
48:FOR JI=@TO N-]
S@:CLS :Q$s"KC"4+
- STR$ (I#1)4")=
60:PRINT AS;
2B: INPUT X¢I):
GOTO 92
89:N=1:GOTO 150
99:CLS :Ag="YC"4
STR$ (141)4+")=
18@:PRINT A$;
11: PUT YCI): Y=
LN YC}
LIZ DsACIILET DB
=XC1)
114: 1F EXC IOLET E
=K CI)
116: 1F F<YCIDLET F
=7¥C1)
118: IF G<YC<J LET G
=¥C1)
120: 0=0+XC( 1): P=P+y
138: Q=0+X¢CI)XX¢1):
R=R+YXKY: S=S+X¢
LOeY
148: NEXT J
(158: X=OQ/N: Y=P/N
1608: T=Q-NXXxkKx
178: U=S-N¥XKXKY
180: U=R-NXYXY
.198:C=U/I ¢CTXKU)
220@: B=Ur/T
218: A=EXP (Y-BxXX)>
220: B=EXP 8B
229: COLOR 6B :
230: LPRINT ""R="5C
244: LPRINT "A="349
END
268: "BY; M=F 7308
2°06: 1F ES=OLET 2=2
9:L=D7175: G0TO
298" .°
@: 2=ABS EvL+5
290: GRAPH :
GLCURSOR (2,-3
58): SORGN
258: LPRINT "B=" Bi.
280:L=(D+ABS E)/22a—
308:LINE ¢(-2, @)-¢2
@8-2, B)~¢( 298-2
-10,-18)-(298-
23; @)-€289-Z-1B
> 18):LPRINT: "x
318: LINE (@, -5a)~<
B, 358)-(-18; 34
Q>-(8, 358-18
+ 348):LPRINT "
YW
32@:GLCURSOR ¢-15,
> -15):LPRINT "@
33@:COLOR 1:FOR [=
| TO N-1
340: J=XCIIZLiE K=¥C]
"27M
35@:LINE (J-3, K-3)
-~CJ+3, K+3); A, ]
2
36@:NEXT 1: COLOR 2
378: J=~-Z2: K=AKBOCI*K
LM
380: J1=J+2: 1F J>2@
8-2G0TO 4@2
398: K1=AXBACIIXKLD +
M: IF K1>358
GOTO :42a9 .
SIS:LINE CJ; KI-CJ]
93K1): JeJ1:K=K]
'GOTOQ 388
448: 1=@
410: 1F I>=NTHEN 47
B
420:CLS : INPUT "ES
TIMER X="; X¢1)
-GOTO 44a
43@:N=1:GQTO 472
449: J=XCI "Li YC I=
— AKBSXC]I:K=YCI
7M
4435: 1F K>35@60TO 4
68
490: LINE (J-3,; K-3)
-(J+3;, K+3), Qa, 3
3B
460: [=1+1: GOTO 41@
47@:GLCURSOR (@,-1
ABD: TEXT .
COLOR @
5@8:LPRINT "* AUSW
ERTUNG x"
518:FOR 1=8T0 N~1
520: LPRINT "X="; x¢
13: |
MD Se
S|z
—_ ; I paca
—S4Q:NEXT ]
558:END
PROGRAMM-NR. |
PSB 2 3
[ Speicherinhalt ]
Kortelationskoeffzient 1
X-MAX
X-MIN
: R
G | Y-MIN
L | X-Druck-Koeffizient
Y-Druck-Koeffizient
Anzahl der Koordinaten
iota tale
Mim < | 28
M
oa ay
M ES
1}| X-Daten: geschdtztes X
)} Y-Daten: geschatztes Y
339:LPRINT "Y="; V«
1D