Radio Shack TRS-80 PC-3 Owner's Manual page 248

- - - - - - - - - - - - - - - - -
PROGRAM LIST
10: "A'": CLEAR : WAIT 0
20:INPUT "NO. OF DATA="
; P
WEIGHTS=2?";A
40:IF A=2 DIM
X(P-l):
GO TO 70
50:IF A=l DIM X(P-1),F(
P-1): GO TO 70
60:GOTO 30
70:FOR 1=0 TO P-1
80:B$="X("+ STR$ (I+1)+
85: PAUSE B$: INPUT
:x: (
I)
: GOTO 100
'30: GOTl] 85
100:IF A=2 GOTO 150
120:B$="F(Y+ STR$ (1+1)+
")="
130:PAUSE B$: INPUT F(I)
: GOTO 150
140:GOTO 130
150:
~;E:X:T
I: END
200:"B": WAIT :I=0
210:B$="X("+ STR$ (I+1)+
")=" :J=1: PRINT B$; X
(I)
230:IF A=l LET B$="F(Y+
STR$ (I+1)+")=":
PRINT B$;F(I):J=2
240:I=I+1
250:IF I=P END
255:GOTO 210
260: "CY: PAUSE B$: IF
LEFT$ (B$,l)="X"
INPUT "REVISION YALU
E=";X(I): GOTO 290
270:IF LEFT$ (B$,!)="F"
INPUT "REVISION YALU
E=";F(I): GOTO 290
280:GOTO 250
290:IF J=l GOTO 230
291:GOTO 210
300:"D":N=0:T=0:S=0: FOR
I=0 TO P-1:X=X(I)
305:F=1: IF A=l LET F=F(
I)
310:N=N+F:T=T+F*X:S=S+F*
X*X:
NE~:T
I
400:WAIT :X=T/N:Q=(S-N*X
253
*X /(N-l):S=,fQ:
PR NT YTOTAL SUM=";T
RINT "MEAN VALUE=
"
.
,
410: R N "YARIANCE=";Q:
R N
"STD. DEV.=":
R N S: END
643