Sharp PC-1500 - Page 48

All an d more about Sharp PC - 150 0 at http:/l www . PC-1 50 0.in fo
PR OGRA M
EXPO
NENT IAL REGRESS I ON AND PLO T
PR OGRA M NO .
3
TITLE
PS -B-2
[ Program List I
[ Memory Con te nts I
10: "A " :CL EA R :
31 0: LJN E
(0, -50) - (
WAIT
A:CLS
0,3 50 )-C-10 , 34
A 3
20: INP UT "N =" j N 0) - ( 0,350>-Cl0
B
b' . b
30: 01M X<N - J)
1
YC N , 340 ): L PRINT
..
- I >: E= 10"8: G=C
.,. ..
c C orr elation cocfriclc nt r
:o= -E :F =O
320:GLCURSOR (- 15,
X·M AX
40:FOR I =0 TO I - l 5) : L PR JNT
'"0
D
50:CLS
: A$ = "X( .. _.
..
E
X.MlN
.1TR$
(J+l) +" ):
330:COLOR I :FOR
I=
..
0TO N-l
F
Y
0
MAX
60:PRlNT A$; 340:J = X<J)/L:K = Y<l
G
Y- MIN
70 : INPUT X< I >: ) / M
GOTO 90
350:LINE U - 3, K- 3)
H
80: N=l :GO TO
150
- CJ+3, K+3 ), 0, I
..,/
90 :CLS : A$= "Y <
1
'+ ,B
I
ST R$
(j+] )+ '" )= 360: NEX T ! :C OLOR
2
J
..,/
..
370 :J =- Z:K=At8"CJ*
100: P RJNT
A$ j
L)/M
K
..,/
I J0: INPUT Y<J >:Y=
380 : J l: J+2: IF J>20
LN Y(J)
0-ZGOTO 400
L
X print coefficient
112: IF O<X< I >LET
0
390!Kl = A*B" <J I*L >/
M Y print coeffi ci ent
=X<l>
M: IF i<' I >350
1 14:1F
E >X< I >LET
E
GOTO 400 N No. of coordinates
=XCJ)
395 : LINE <J,K >- <J J
0
l:Xi
I
J6: IF F<Y< I )L ET
F
,K!) : J=Jl:K =K l
=Y<J )
:G
OT O 380 p
1;Y
11 B: l F G<Y< I > LET
G
400: !=0
"£X'i
:Y( l) 410: IF I >= NTHEN
q?
Q
12 0:0:0 + X<l >: P=P+Y 0
R
J;Y'
J30:0= 0+X(l>*XCJ ) :
420:CLS
: INPUT '" ES
R=R+Y *Y:S=S+X(
TIM ATI ON x ~ ";X
s
:!:XiY
l >*Y
<J>:GOTO 440
140:N(XT
I
430:N=l : GO TO 470
T Sxx
l 50:X=O/N:Y=P/N
4 4 0: J ~X < l )/ L : Y ( l ) •
u
Sxy
160: T =0-N*X*X
A*B "X< l >: K= Y< l
17
0: U=S -N*X*Y
)/M v Syy
l80:V=R- Nt Y*Y
445: l • K>350GOT O 4
w
l90:C= U/J < T*V >
60
200 :8 =U/ T 450:L INE
<J- 3, K- 3>
x x
2 10:A=EXP (Y -Bt X>
-(J+3 , t< +3 ), 0, 3
220 :8 ,, EXP 9
,B
y
en yi, Y
225:COLOR 0
150:
l =!~ l : GO TO 110
z
..;
230 :L PRJ NT
"R='' ; C
4 '0 : GLCURSOR
(0, - l
240:LPRlNT
.. Q;::" ; A
00>: T EXT
;
AS
..;
2S0:LPRJNT "8 .::."; 8: CO L OR 0
X
data: Estin1atcd X
END
50 0:LPRJ NT
"* ES I I
X IN- 11
2 60: "B": M=F /300
M AT J ON *" YIN- 1)
Y data : Estimated Y
270: lF E> = 0LET Z '>2
Sl 0:F OR != 0TO N- 1
..,/
S:L =O/l75:GOIO
520:LPR IN T
"X.: " ;X<
Jl
290
))
Kl ..,/
280:L =<O + ABS E>/20
530 :L PR JN T
''Y=" j V(
0:z =A8 S (/L+ 5 j >
290:G RAP H
: 510:N EXT J
GLCUR SOR <Z ,- 3
55 0 :E NO
50>
:SORGN
300 : LINE
< -Z , 0> -<2
00 -Z,0>- <200 -2
- 10, - l 0>- <200-
STATUS l
z, 0> - <200- Z -10
, l 0>:LPRJNT
""
I 187
..
Do not sale this PDF !!!
- 42 -