Sharp PC-1500 Applications Manual page 44
Hide thumbs
Also See for PC-1500:
- Technical reference manual (182 pages) ,
- Instruction manual (169 pages) ,
- Service manual (37 pages)
Advertisement
All
and
more about Sharp PC-1500 at http:/lwww.PC-1500.info
PROGRAM
TITLE
COR
RELATION
COEFF ICI ENT.
LINEAR
REGRESS
ION
AND PLOT
I
Program List
]
10:
"A"
:CLEAR
20:0JM
X<9>,
Y<9>
30:FOR 8
=JTO 10
40
:
X<B- l>=0:Y(8-J
>=0
50: NEXT
8
60:N=0
70:FOR 8
=1
TO
10
80:
INPUT
"X"
";X<8
-]):GOTO
95
90
:GOTO
120
95:
INPUT
"Y"
"
i
Y(B
-
1)
100:N=N+l
JJ0:NEXTB
120:ENO
130:
"S"
:
1=0:J
=0:K=
0:L=0:M=0
140:
P=J0AC98>: 0=-P
:
R=P: O=O
150:FOR 8
=1TO
N
155:2=8-
J
160: l=l+X
<Z>
170 :J=J+Y<Z>
180
:K=K+X
<2>*XC2>
190:L=L•X
<Z>*Y< Z>
200:M=M+Y<2>*YC2)
210:
IF P>X<
Z> LET
P
=x<Z
>
220:
IF
O<X<Z>LET
0
=X
<Z
>
23
0: IF
R>Y<Z>LET R
=Y<Z
>
240:
IF
O<Y<Z>LE
T
0
=
Y <Z>
250:
NEX
T 8
260:
I=J/N: J
=J/N
270:K=K-N*
l*l
280:
L=L-
N*ll:J
290: .M=M-
N*J
*
J
305:H=J
<K*M>
307:H=L/H
310:COLOR 0:LPRIN1
"COVARIANCE
=",
L/(N-1)
320:LPR1NT
"CORREL
AT
ION=", H
330: U'RI
NT
"
REGRES
S.
COEFF."
Do
not sale
this
PDF !!!
340:S=L/K: T=J
-
S*I
350:LPRINT
"A•
";S
360:LPRINT
"8
='';1
362: LPR l
NT
'
"
'!'MEAN
~
..
364: LPRJNT
"X='';
I
365:LPR
INT
''Y=
'';
J
370:ENO
500:
"0"
:
GRAPM
5
J0:A=<O
-Pl/200
520
:8=<Q-
Rl
/
350
530: C=<J-P)/A
540:0~<R-J)/
8
550: GLCURSOR
<C,0>
560:<;0RGN
570:Xl=-<
J-P)/A
:
YI
•0
580:X2 =<0-ll
/A:
Y2
=
0
590:GQSU8 900
600:LINE
<X2-
J0,Y2
-
10)-(X2,Y2>
605:LINE
<X2,
Y2>-<
X2-
I 0,
Y2• 10
>
6J0:LPRJN
T
"><
''
620
:
LJNE
CX2-J0
,Y2
+23>-
cx2,
't'2+
23
)
630:X
J=0:YJ=-
<J-R>
/8
640:X2=0:Y2=<0-
J)/
B
650:GOSU8 900
660:LlNE
CX2
-
J0,Y
2
-
J0>-
CX2, Y2)
665:LI NE
C
X2,Y2>
-<
X2+J0,Y2-
10)
670:LPRINT
"
y"
680:LINE
<X2+
10,Y2
>-(
X2+20,
Y2)
690:FOR
E=
ITO
N
700:
X•<X<E-J>
- ll/A
:Y•
(Y
(
E-
!>-J)/
8
7J0:
GOSUB 920
720:NEXT E
730:
XJ
=-
<l
-P
l/A:Yl
a
((S*P+T>
-J>/8
740:X2•
<0-J)/A:Y2=
<<S* O+T
)
-
J)/8
-
38
-
PROGRAM
NO.
PS-
B-1
750:
COLOR
2
760:GOSUB
900
770:N=I
780:
INPUT.
"EST
!MAT
ION=";
X<N-1)
:
GOTO 800
790:GOTO 840
000:YCN-l>
=S*X<N-I
>+T
8J0:x=<X<N-
J)
-
J
)/A
:
Y
=<YCN
-
1>-J)/
B
820:LINE
<X-1,Y-
J>
- <X+2,
Y+2>,
0,
3
,
B
830:N=N+l :GOTO 780
84
0:
GLCURSOR
<-<
l-
P)/A,
-
(J-R)
/ 8-
20>
B45:TEXT
850:
IF N=IENO
860:COLOR
0 :LPRJN
T
"
*EST !MAT
ION'S
''
870:FQR W
aJTO N-
1
880:LPRINT "X="; X<
W-1
>
890!LPRINT ''Y=
''; Y<
W-1
>
895:NEXT W
B96:END
900:LJNE
<XJ,YJ>
-<
X2,Y2)
s10:RETURN
S20:
LJ
NE <X,Y>-<X+
2,
Y+2), 0,
J,
8
930:RETURN
STATUS
I
1468
3
Advertisement
