Sharp PC-1500 Applications Manual page 48
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-1
500.info
PROGRAM
EXPONENTIA
L
REGRESSION AND
PLOT
PROGRAM
NO.
3
TITLE
PS-B-2
[
Program List
I
[
Memory
Conte
nts
I
10:
"A"
:CLEAR
:
3 10: LJNE
(0,
-50)
-
(
WAIT
A:CLS
0,350 )-C-10,
34
A
3
20:
INPUT
"
N="
j
N
0)
-
(
0,350>-Cl0
B
b'
.
b
30
:
0
1M
X<N-
J)
1
YC
N
, 340
): LPRINT
..
-
I >:
E=
10"8:
G=C
.,.
..
c
Correlation
cocfriclcnt r
:o=-E
:F=O
320:GLCURSOR
(
-
15,
X·MAX
40:FOR I
=0TO
I
-
l 5)
: LPR
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
T
O
150
-
CJ+3,
K+3
), 0,
I
..,/
90:CLS
:
A$
=
"Y
<
1
'+
,B
I
STR$ (j+]
)+
' "
)=
360
:
NEX
T !
:COLOR
2
J
..,/
..
370
:J=-
Z:K =At
8"CJ*
100: PRJNT
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 coefficient
=X<l>
M:
IF i<'
I >350
114: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
)
:GOTO
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
120: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(
TIMATI
ON
x
~
";X
s
:!:XiY
l
>*Y
<J>:GO TO
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
170:
U=S-
N*X*Y
)/M
v
Syy
l80:V=R-Nt
Y*Y
44 5:
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-BtX>
-(J+3,
t<+3
), 0,
3
220:8,,EXP 9
,B
y
en yi, Y
225:COLOR
0
150
:
l
=!~
l
:
GO
T
O
110
z ..;
230:LPRJ
NT
"R=
''
;
C
4'0:
GLCURSOR (0,
-
l
240:LPRlNT
..
Q;::"
;
A
00>: TEXT
;
AS
..;
2S0:LPRJNT
"8
.::.";
8:
COLOR 0
X
data:
Estin1atcd
X
END
500:LPR JNT
"
*
ES I I
X
IN
-
11
260: "B": M =F /300
M
AT JON *"
YIN-
1)
Y
data:
Estimated
Y
270: lF
E>=0LET
Z'>2
Sl
0:FOR !=0TO
N-
1
..,/
S:L
=O/l75:GOIO
520:LPR
IN
T
"X.:
"
;X<
Jl
290
))
K
l
..,/
280
:
L=<O
+ABS E>/20
530:LPRJN
T
''Y="
j
V(
0:z=A8S
(/L+
5
j
>
290:GRAPH
:
510
: NEXT
J
GLCURSOR
<Z,-3
550:ENO
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>:LPRJN
T
""
I 187
..
Do not sale
this
PDF !!!
-
42
-
Advertisement
