ЭлБиб

1030 LPRINT

=■ == ............ = = ...-

= "

1050 LPRINT "=============="

1070 LPRINT TAB(5); ”N";TAB(12); "S";TAB(18); "D”; TAB(29); "(S-S)A2"

1090 LPRINT TAB(38); U(D-D)A2"; TAB(48); "(S-S) (D-D)"

1110 LPRINT "= ------- ---------- -------

1130 LPRINT "=============="

1150 Z11=0

1170 Z22=0

1180 Z33=0

1190 FOR 1=1 TON

1210 S=S+(Y(I)-(A+B * Х(1)))л2

1230 X1=S2/N:Y1=S3/N:Z1=(X(I)-X1

Y'2

1232 Z2=(Y(1)-Y1)A2

1234 Z3=(X(1)-X1) *(Y(I)-Y1)

1250 Z1=INT(Z1 * 10A2+.5)/10A2:Z2=INT(Z2 * 10A2+.5)/10A2

1252 Z3= INT(Z3 * 10A2+.5)/10A2

1270 Y1=INT(Y1 * 10A2+.5)/10A2:Xl=INT(Xl * 10A2+.5)/10A2

1290Z11=Z11+Z1

1310 Z22=Z22+Z2

1330Z33=Z33+Z3

1350 LPRINT TAB(5);I;TAB(12)pC(I);TAB(18);Y(I);TAB(29);Zl;

1370 LPRINT TAB(39);Z2;TAB(52);Z3

1390 NEXT I

1410 LPRINT

................----------------- ---------------------------

1412 LPRINT

1430 LPRINT TAB(12);X1 ;TAB(18);Y1;TAB(29);Z11;TAB(39);Z22;

1432 LPRINT TAB(52);Z33

1450 L P R I N T ....

................. ................................ ..... "

1452 LPRINT

1470 S=SQR(S / ( N-l))

1490 S=INT(S * 10A3+.5)/10A3

1510 LPRINT TAB(IO); "Среднее квадратичное отклонение S="; S

1530 R=D3/SQR (D1 * D4)

1550 R=INT(R* 10A3+.5)/10A3

1570 LPRINT TAB(10); "Коэффициент корреляции R=";R:

1590 LPRINT

------- :

— ..................

1600 LPRINT

....- -

1800 END

Электронная Научная СельскоХозяйственная Библиотека