ÀâòîÀâòîìàòèçàöèÿÀðõèòåêòóðàÀñòðîíîìèÿÀóäèòÁèîëîãèÿÁóõãàëòåðèÿÂîåííîå äåëîÃåíåòèêàÃåîãðàôèÿÃåîëîãèÿÃîñóäàðñòâîÄîìÄðóãîåÆóðíàëèñòèêà è ÑÌÈÈçîáðåòàòåëüñòâîÈíîñòðàííûå ÿçûêèÈíôîðìàòèêàÈñêóññòâîÈñòîðèÿÊîìïüþòåðûÊóëèíàðèÿÊóëüòóðàËåêñèêîëîãèÿËèòåðàòóðàËîãèêàÌàðêåòèíãÌàòåìàòèêàÌàøèíîñòðîåíèåÌåäèöèíàÌåíåäæìåíòÌåòàëëû è ÑâàðêàÌåõàíèêàÌóçûêàÍàñåëåíèåÎáðàçîâàíèåÎõðàíà áåçîïàñíîñòè æèçíèÎõðàíà ÒðóäàÏåäàãîãèêàÏîëèòèêàÏðàâîÏðèáîðîñòðîåíèåÏðîãðàììèðîâàíèåÏðîèçâîäñòâîÏðîìûøëåííîñòüÏñèõîëîãèÿÐàäèîÐåãèëèÿÑâÿçüÑîöèîëîãèÿÑïîðòÑòàíäàðòèçàöèÿÑòðîèòåëüñòâîÒåõíîëîãèèÒîðãîâëÿÒóðèçìÔèçèêàÔèçèîëîãèÿÔèëîñîôèÿÔèíàíñûÕèìèÿÕîçÿéñòâîÖåííîîáðàçîâàíèå×åð÷åíèåÝêîëîãèÿÝêîíîìåòðèêàÝêîíîìèêàÝëåêòðîíèêàÞðèñïóíäåíêöèÿ

ÏÐÈËÎÆÅÍÈÅ 2. ÊÎÌÏÜÞÒÅÐÍÀß ÏÐÎÃÐÀÌÌÀ ÈÑÑËÅÄÎÂÀÍÈß ÐÀÑÏÐÅÄÅËÅÍÈß ÑËÓ×ÀÉÍÛÕ ÂÅËÈ×ÈÍ

×èòàéòå òàêæå:
  1. B. Îñíîâíûå ïðèíöèïû èññëåäîâàíèÿ èñòîðèè ýòè÷åñêèõ ó÷åíèé
  2. I. ÐÀÁÎ×Àß ÏÐÎÃÐÀÌÌÀ
  3. I. Ñëó÷àéíûå âåëè÷èíû ñ äèñêðåòíûì çàêîíîì ðàñïðåäåëåíèÿ (ò.å. ó ñëó÷àéíûõ âåëè÷èí êîíå÷íîå èëè ñ÷åòíîå ÷èñëî çíà÷åíèé)
  4. II. Îðãàíèçàöèÿ è ýòàïû ñòàòèñòè÷åñêîãî èññëåäîâàíèÿ
  5. IV. Îòíîñèòåëüíûå âåëè÷èíû, äèíàìè÷åñêèå ðÿäû
  6. Purple Moon — êîìïüþòåðíàÿ èãðà äëÿ äåâî÷åê
  7. V. Âàðèàöèîííûå ðÿäû, ñðåäíèå âåëè÷èíû, âàðèàáåëüíîñòü ïðèçíàêà
  8. V. Äëÿ äèñêðåòíî¿ âèïàäêîâî¿ âåëè÷èíè Õ, çàäàíî¿ ðÿäîì ðîçïîä³ëó, çíàéòè:
  9. V. ÏÐÎÃÐÀÌÌÀ ÑÎÐÅÂÍÎÂÀÍÈÉ
  10. VI. ÄÀËÜÍÅÉØÈÅ ÇÀÄÀ×È È ÏÓÒÈ ÈÑÑËÅÄÎÂÀÍÈß
  11. XIV. 7. Âèì³ðþâàííÿ åëåêòðîðóø³éíèõ ñèë. Çàñòîñóâàííÿ ìåòîäó âèì³ðþâàííÿ ÅÐÑ äëÿ âèçíà÷åííÿ ð³çíèõ ô³çèêî – õ³ì³÷íèõ âåëè÷èí
  12. À. Ñðåäíÿÿ êâàäðàòè÷åñêàÿ ïîãðåøíîñòü ôóíêöèè èçìåðåííûõ âåëè÷èí.

COLOR 7,0:CLS:LOCATE 2,60,0:COLOR 25,5,15:PRINT"ÂÊËÞ×ÈÒÅ ÏÐÈÍÒÅÐ"

2 COLOR 7,7,15:LOCATE 4:COLOR 0,7,15

3 PRINT TAB(27)" ÇÀÄÀ×À R N D";:PRINT SPC(37):PRINT TAB(26)" ";

4 COLOR 15,0,15:PRINT"ÊÀÔÅÐÀ";:COLOR 23,5,15:PRINT"*ÁÍÒÓ*";

5 COLOR 15,0,15:PRINT" ÎÀÏÄÄ ";:COLOR 7,7,15:PRINT SPC(35):COLOR 1,14

6 PRINT TAB(20)"ÈÑÑËÅÄÎÂÀÍÈÅ ÐÀÑÏÐÅÄÅËÅÍÈß ÑËÓ×ÀÉÍÛÕ";

7 PRINT TAB(80)" ";:PRINT TAB(33)"ÂÅËÈ×ÈÍ";

8 PRINT TAB(80)" ":DEFINT I-N

19 PRINT:COLOR 7,0,7

35 COLOR 1,6,14

IMAX=3

LOCATE 5,33,0:COLOR 7,5,15:PRINT"*ÁÍÒÓ*";

I=1

LOCATE 8,30,0:COLOR 25,4:PRINT"ÂÂÅÄÈÒÅ ÐÅÆÈÌ"

50 J=1

IF J=I THEN COLOR 4,11 ELSE COLOR 1,11

LOCATE 9,25,0:PRINT "╔════════════════════════╗"

LOCATE 10,25,0:PRINT"║ Ä È Ñ Ê Ð Å Ò Í Î Å ║"

LOCATE 11,25,0:PRINT"║ *ÐÀÑÏÐÅÄÅËÅÍÈÅ* ║"

LOCATE 12,25,0:PRINT"╚════════════════════════╝"

J=2

IF J=I THEN COLOR 4,11 ELSE COLOR 1,11

LOCATE 13,25,0:PRINT"╔════════════════════════╗"

LOCATE 14,25,0:PRINT"║ Í Å Ï Ð Å Ð Û Â Í Î Å ║"

LOCATE 15,25,0:PRINT"║ *ÐÀÑÏÐÅÄÅËÅÍÈÅ* ║"

LOCATE 16,25,0:PRINT"╚════════════════════════╝"

J=3

IF J=I THEN COLOR 4,11 ELSE COLOR 1,11

LOCATE 21,25,0:PRINT"╔════════════════════════╗"

LOCATE 22,25,0:PRINT"║ ** ÂÛÕÎÄ ** ║"

LOCATE 23,25,0:PRINT"╚════════════════════════╝"

95 AM$=INKEY$

IF LEN(AM$)=0 THEN 95

AM1$=RIGHT$(AM$,1)

IF ASC(AM1$)=80 THEN I=I+1:GOTO 100

IF ASC(AM1$)=72 THEN I=I-1:GOTO 100

IF ASC(AM1$)=13 GOTO 110

GOTO 95

100 IF I>IMAX THEN I=1

IF I<1 THEN I=IMAX

GOTO 50

110 COLOR 1,11

IF I=1 THEN SHELL "RNDD.EXE":GOTO 1

IF I=2 THEN SHELL"RNDN.EXE":GOTO 1

120 END

 

REM ÌÎÄÓËÜ ÈÑÑËÅÄÎÂÀÍÈß ÍÅÏÐÅÐÛÂÍÛÕ ÑËÓ×ÀÉÍÛÕ ÂÅËÈ×ÈÍ

2 COLOR 7,7,15:CLS:LOCATE 10:PRINT:COLOR 0,7,15

3 PRINT TAB(27)"Ç À Ä À × À R N D N":PRINT TAB(26)" ";

4 COLOR 23,0,15:PRINT"ÊÀÔÅÄÐÀ";:COLOR 23,5,15:PRINT" *ÁÍÒÓ*";

5 COLOR 15,0,15:PRINT" Î À Ï Ä Ä":PRINT:COLOR 1,14

6 PRINT TAB(21)"ÈÑÑËÅÄÎÂÀÍÈÅ ÐÀÑÏÐÅÄÅËÅÍÈß ÍÅÏÐÅÐÛÂÍÎÉ";

7 PRINT TAB(80)" ";:PRINT TAB(27)"ÑËÓ×ÀÉÍÎÉ ÂÅËÈ×ÈÍÛ";

8 PRINT TAB(80)" ":DEFINT I-N

9 COLOR 7,10,15

12 PRINT:COLOR 7,0,7

20 DIM A(1500),AA(1500)

22 OPEN"O",#3,"RNDNR.REZ"

25 COLOR 0,7

30 PRINT "ÂÂÅÄÅÍÛ ËÈ ÈÑÕÎÄÍÛÅ ÄÀÍÍÛÅ"

35 COLOR 15,0

40 PRINT "ÄÀ- 1, ÍÅÒ- 0":INPUT IR1

50 IF IR1=0 THEN 200

55 INPUT"ÑÏÅÖÈÔÈÊÀÖÈß ÔÀÉËÀ Ñ ÈÑÕÎÄÍÛÌÈ ÄÀÍÍÛÌÈ";IMF$

60 OPEN"I",#1,IMF$

65 INPUT #1,SI$

70 INPUT #1,NO

80 FOR I=1 TO NO:INPUT #1,A(I):NEXT I

90 CLOSE #1

100 CLS:PRINT" ¹ Ï/Ï ×ÈÑËÎ"

105 FOR I=1 TO NO:PRINT TAB(((I-1) MOD 4)*16+1)"│"I;USING"#####.####";A(I);

107 IF I MOD 4=0 THEN PRINT

110 NEXT I

115 COLOR 23,0

120 PRINT "ÒÐÅÁÓÅÒÑß ËÈ ÊÎÐÐÅÊÒÈÐÎÂÀÒÜ ÈÑÕÎÄÍÛÅ ÇÍÀ×ÅÍÈß"

130 PRINT "ÑËÓ×ÀÉÍÎÉ ÂÅËÈ×ÈÍÛ. ÄÀ- 1,ÍÅÒ- 0":INPUT IR0

135 COLOR 15,0

140 IF IR1=0 AND IR0=0 THEN 230

150 IF IR0=0 THEN 270

160 PRINT "ÏÎÐßÄÊÎÂÛÉ ÍÎÌÅÐ(Ñ×ÈÒÀß Ñ ÅÄÈÍÈÖÛ) ×ÈÑËÀ,ÏÎÄËÅÆÀÙÅÃÎ"

170 PRINT "ÈÇÌÅÍÅÍÈÞ":INPUT IS

175 PRINT "ÇÀÌÅÍßÒÜ ×ÈÑËÎ "A(IS)"?":INPUT IRR:IF IRR=0 THEN 120

180 IF IS<1 OR IS>NO THEN PRINT "ÂÛ ÄÎÏÓÑÒÈËÈ ÎØÈÁÊÓ":GOTO 160

190 PRINT "ÍÎÂÎÅ ×ÈÑËÎ":INPUT A(IS):IR1=0:GOTO 120

200 CLS:PRINT "ÂÂÅÄÈÒÅ ÈÑÕÎÄÍÛÅ ÄÀÍÍÛÅ":INPUT "ÍÀÈÌÅÍÎÂÀÍÈÅ ÄÀÍÍÛÕ";SI$

205 INPUT "ÐÀÇÌÅÐ ÂÛÁÎÐÊÈ";NO

210 PRINT "ÏÎÑËÅÄÎÂÀÒÅËÜÍÎ ×ÈÑËÀ ÂÛÁÎÐÊÈ"

220 FOR I=1 TO NO:PRINT I"-E":INPUT A(I):NEXT I:GOTO 100

230 IF IR1=1 THEN 232

231 INPUT"ÇÀÄÀÉÒÅ ÈÌß ÔÀÉËÀ ÄËß ÈÑÕÎÄÍÛÕ ÄÀÍÍÛÕ";IMF$

232 OPEN "O",#1,IMF$

235 WRITE #1,SI$

240 WRITE #1,NO

250 FOR I=1 TO NO:WRITE #1,A(I):NEXT I

260 CLOSE #1

270 DIM UB(3),FR(50),ST(50),X(50),P(50),PT(50),P1(50),IN(7)

280 DIM P9(50),XX(50),A1(500),PM(7),PS(7),Z$(7),Z1$(7),Z2$(7)

285 PRINT #3, TAB(10)"ÈÑÑËÅÄÎÂÀÍÈÅ ÐÀÑÏÐÅÄÅËÅÍÈß ÑËÓ×ÀÉÍÎÉ";

286 PRINT #3," ÂÅËÈ×ÈÍÛ":PRINT #3, TAB(10)"("SI$")"

290 Z$(1)="ÍÎÐÌÀËÜÍÎÅ":Z1$(1)="M":Z2$(1)="SIGMA"

300 Z$(2)="ËÎÃÍÎÐÌÀËÜÍÎÅ":Z1$(2)="LNU":Z2$(2)="SIGMA^2"

310 Z$(3)="ÐÅËÅß":Z1$(3)="SIGMA":Z2$(3)=""

320 Z$(4)="ÝÊÑÏÎÍÅÍÖÈÀËÜÍÎÅ":Z1$(4)="LAMBDA":Z2$(4)=""

330 Z$(5)="ÝÐËÀÍÃÀ":Z1$(5)="LAMBDA":Z2$(5)="K"

340 Z$(6)="ÂÅÉÁÓËËÀ":Z1$(6)="B":Z2$(6)="LAMBDA"

342 Z$(7)="ÐÀÂÍÎÌÅÐÍÎÅ":Z1$(7)="A":Z2$(7)="B"

345 Z7$=" ÐÀÑÏÐÅÄÅËÅÍÈÅ ÍÅ ÏÎÄÕÎÄÈÒ"

346 Z8$=" ÐÀÑÏÐÅÄÅËÅÍÈÅ "

347 F1$="-#.##^^^^":F2$="-#.##^^^^"

350 PRINT #3,:PRINT #3, TAB(5)"ÈÑÕÎÄÍÛÅ ÄÀÍÍÛÅ"

355 FOR I=1 TO NO:AA(I)=A(I):NEXT I:NF=NO:GOSUB 360:GOTO 410

360 N4=0

370 FOR I=1 TO NF

375 N4=N4+1:IF N4>8 THEN N4=1:PRINT #3,

380 PRINT #3,USING F1$;AA(I);

390 NEXT I

405 PRINT #3,:PRINT #3,:RETURN

410 ID=1

420 ID=2*ID

430 IF ID<=NO THEN 420

440 ID=INT((ID-1)/2!)

450 IF ID=0 THEN 580

460 FOR I1=1 TO NO-ID:J=I1

470 L=J+ID

480 IF A(L)>=A(J) THEN 510

490 XR=A(J):A(J)=A(L):A(L)=XR:J=J-ID

500 IF J>0 THEN 470

510 NEXT I1

520 GOTO 440

580 PRINT #3, " ÍÀÈÌÅÍÜØÅÅ ÂÛÁÎÐÎ×ÍÎÅ ÇÍÀ×ÅÍÈÅ =";

585 PRINT #3, USING F1$;A(1)

590 PRINT #3, " ÍÀÈÁÎËÜØÅÅ ÂÛÁÎÐÎ×ÍÎÅ ÇÍÀ×ÅÍÈÅ =";

592 PRINT #3, USING F1$;A(NO)

595 A(1)=A(1)+1.E-36:A(NO)=A(NO)+1.E-36

596 UB(1)=A(1):UB(3)=A(NO)

597 FOR I=2 TO NO:IF A(I)=0 THEN A(I)=1.E-36:NEXT I

600 N8=CINT(1.44*LOG(NO)):N9=0

610 IF N8<4 THEN N8=4

620 PRINT " *ÐÅÊÎÌÅÍÄÓÅÌÎÅ ×ÈÑËÎ ÈÍÒÅÐÂÀËΠ"N8

630 GOTO 700

640 IF IR9=1 THEN 1090

650 PRINT"ÒÐÅÁÓÅÒÑß ÏÐÎÄÎËÆÈÒÜ ÐÀÑ×ÅÒÛ Ñ ÝÒÈÌÈ ÄÀÍÍÛÌÈ";

651 INPUT"(ÄÀ- 1,ÍÅÒ- 0)";N5

660 IF N5=0 THEN 3070

670 PRINT"*ÒÐÅÁÓÅÒÑß ÈÇÌÅÍßÒÜ ×ÈÑËÎ ÈÍÒÅÐÂÀËΠÈËÈ"

680 INPUT "*ÑÌÅÙÅÍÈÅ(ÄÀ- 1,ÍÅÒ- 0)";N7

690 IF N7=0 THEN 1160

700 INPUT " * ÂÂÅÄÈÒÅ ×ÈÑËÎ ÈÍÒÅÐÂÀËÎÂ";N

710 UB(2)=N+2

720 INPUT " *ÂÂÅÄÈÒÅ ÇÍÀ×ÅÍÈÅ ÑÌÅÙÅÍÈß";XM

730 GOSUB 2070

740 IF N9<>0 THEN 800

750 N9=1:V=ST(3)/ST(2)

760 PRINT #3, " ÌÀÒÅÌÀÒÈ×ÅÑÊÎÅ ÎÆÈÄÀÍÈÅ =";

765 PRINT #3, USING F1$;ST(2)

770 PRINT #3, " ÑÐÅÄÍÅÊÂÀÄÐÀÒÈ×ÅÑÊÎÅ ÎÒÊËÎÍÅÍÈÅ =";

775 PRINT #3, USING F1$;ST(3)

780 PRINT #3, " ÊÎÝÔÔÈÖÈÅÍÒ ÂÀÐÈÀÖÈÈ =";

785 PRINT #3, USING F1$;V

790 PRINT #3, " -------*****-------- "

800 PRINT #3, " ×ÈÑËÎ ÈÍÒÅÐÂÀËΠ="N

810 PRINT #3, " ÇÍÀ×ÅÍÈÅ ÑÌÅÙÅÍÈß =";

815 PRINT #3, USING F1$;XM

820 PT(1)=PT(1)*100

840 FOR I=1 TO N

850 P9(I+1)=PT(I+1):PT(I+1)=P9(I+1)*100:NEXT I

860 R=(UB(3)-UB(1))/(UB(2)-2)

870 FOR I=1 TO N:XI=I:X(I)=UB(1)+R*XI-R/2:NEXT I

880 PRINT #3,:PRINT #3, " ÑÅÐÅÄÈÍÛ ÈÍÒÅÐÂÀËÎÂ"

890 FOR I=1 TO N:AA(I)=X(I):NEXT I:NF=N:GOSUB 360

920 PRINT #3, " ÂÅÊÒÎÐ ÝÌÏÈÐÈ×ÅÑÊÈÕ ×ÀÑÒÎÒ "

930 FOR I=1 TO N:AA(I)=FR(I+1):NEXT I:NF=N:GOSUB 360

950 PRINT #3, " ÂÅÊÒÎÐ ÝÌÏÈÐÈ×ÅÑÊÈÕ ×ÀÑÒÎÑÒÅÉ"

960 FOR I=1 TO N:AA(I)=P9(I+1):NEXT I:NF=N:GOSUB 360

980 PRINT #3, TAB(15)"** X **":PRINT #3,

990 PRINT "ÒÐÅÁÓÅÒÑß ËÈ ÏÎÈÑÊ ÇÀÊÎÍÀ ÐÀÑÏÐÅÄÅËÅÍÈß ÏÎ ÌÀÊÑÈÌÓÌÓ"

1000 INPUT "ÇÍÀ×ÅÍÈß ÊÐÈÒÅÐÈß ÐÎÌÀÍÎÂÑÊÎÃÎ(ÄÀ- 1,ÍÅÒ- 0)";IR9

1010 IF IR9=0 THEN 1160

1020 PRINT#3,"┌────────┬───────────┬────────┬────────┐"

1025 PRINT#3,"│ │ │ │ │"

1030 PRINT#3,"│ÐÀÑÏÐÅ- │ ÏÀÐÀÌÅÒÐÛ │×ÈÑËÎ │ ÊÐÈÒÅÐÈÉ │"

1040 PRINT#3,"│ÄÅËÅÍÈÅ │ │ÑÒÅÏÅÍÅÉ │ ÐÎÌÀÍÎÂ- │"

1050 PRINT#3,"│ │ │ÑÂÎÁÎÄÛ │ ÑÊÎÃÎ │"

1060 PRINT#3,"└────────┴───────────┴────────┴────────┘"

1065 PRINT #3,

1070 MI=0:RM=1E+10

1080 MI=MI+1:ON MI GOTO 1290,1500,1590,1670,1750,1870,2061

1090 IF RK<RM THEN RM=RK:JM=MI

1100 PRINT #3, Z$(MI);TAB(18)Z1$(MI);"=";:PRINT #3, USING F1$;PM(MI);

1110 IF IN(MI)=1 THEN PRINT #3, " "Z2$(MI);"=";:PRINT #3, USING F1$;PS(MI);

1120 PRINT #3, TAB(50)NU;:PRINT #3, TAB(58)USING F1$;RK

1130 IF MI<7 THEN 1080

1140 N3=JM:IR9=0

1150 PRINT #3,:PRINT #3,:PRINT #3, "ÍÀÈËÓ×ØÅÅ ÏÎ ÊÐÈÒÅÐÈÞ ÐÎÌÀÍÎÂÑÊÎÃÎ - ";:GOTO 1250

1160 PRINT " * ÂÂÅÄÈÒÅ ÍÎÌÅÐ ÐÀÑÏÐÅÄÅËÅÍÈß;"

1170 PRINT

1180 PRINT " 1 - "Z$(1)

1190 PRINT " 2 - "Z$(2)

1200 PRINT " 3 - "Z$(3)

1210 PRINT " 4 - "Z$(4)

1220 PRINT " 5 - "Z$(5)

1230 PRINT " 6 - "Z$(6)

1235 PRINT " 7 - "Z$(7)

1240 INPUT N3

1250 ON N3 GOTO 1260,1500,1590,1670,1750,1870,2061

1260 PRINT #3,:PRINT #3, TAB(10)Z$(1);Z8$

1270 PRINT #3,:PRINT #3, TAB(5)Z1$(1)"=";:PRINT #3, USING F1$;ST(2)

1280 PRINT #3, TAB(5)Z2$(1)"=";:PRINT #3, USING F1$;ST(3)

1290 IN(1)=1:PM(1)=ST(2):PS(1)=ST(3):XW=(XX(1)-ST(2))/ST(3):GOSUB 2820

1300 FOR I=1 TO N:FO=FW

1310 XW=(XX(I+1)-ST(2))/ST(3):GOSUB 2820:P(I)=FW-FO:NEXT I

1320 NU=N-3

1330 IF IR9=1 THEN 1480

1340 PRINT #3,:PRINT #3, " ÂÅÊÒÎÐ ÒÅÎÐEÒÈ×ÅÑÊÈÕ ×ÀÑÒÎÑÒÅÉ"

1350 FOR I=1 TO N:AA(I)=P(I):NEXT I:NF=N:GOSUB 360

1360 INPUT"ÒÐÅÁÓÞÒÑß ËÈ ÃÐÀÔÈÊÈ ÐÀÑÏÐÅÄÅËÅÍÈß(ÄÀ- 1,ÍÅÒ- 0)";IR2

1370 IF IR2=0 THEN 1480

1380 PRINT #3,

1382 PRINT #3,"┌──────────────────────────────────────────────────>";

1385 PRINT #3,

1390 FOR I=1 TO N:P4=INT(P(I)*80)+1:P5=INT(PT(I+1)*80/100)+1

1400 IF P4<P5 THEN 1430

1410 IF P4>P5 THEN 1440

1411 PRINT #3,"│";

1412 FOR II=2 TO P4:PRINT #3,"░";:NEXT II:PRINT #3,

1413 PRINT #3,"│";

1414 FOR II=2 TO P4-1:PRINT #3,"░";:NEXT II

1420 PRINT #3,TAB(P4)"*"

1421 PRINT #3,"│";

1422 FOR II=2 TO P4:PRINT #3,"░";:NEXT II:PRINT #3,

1428 GOTO 1450

1430 PRINT #3,"│";

1431 FOR II=2 TO P5:PRINT #3,"░";:NEXT II:PRINT #3,

1432 IF P4<2 THEN 1434

1433 PRINT #3,"│";:FOR II=2 TO P4-1:PRINT #3,"░";:NEXT II

1434 PRINT #3,TAB(P4)"*";

1435 FOR II=P4+1 TO P5:PRINT #3,"░";:NEXT II

1437 PRINT #3,:PRINT #3,"│";

1438 FOR II=2 TO P5:PRINT #3,"░";:NEXT II:PRINT #3,

1439 GOTO 1450

1440 PRINT #3,"│";

1441 FOR II=2 TO P5:PRINT #3,"░";:NEXT II:PRINT #3,

1442 PRINT #3,"│";

1443 FOR II=2 TO P5:PRINT #3,"░";:NEXT II

1445 PRINT #3,TAB(P4)"*"

1446 PRINT #3,"│";

1447 FOR II=2 TO P5:PRINT #3,"░";:NEXT II:PRINT #3,

1450 NEXT I

1455 PRINT #3,"│"

1456 PRINT #3,"V"

1460 PRINT #3,"* -ÒÅÎÐÅÒÈ×ÅÑÊÎÅ ÐÀÑÏÐÅÄÅËÅÍÈÅ"

1480 GOSUB 2250

1490 GOTO 640

1500 IN(2)=1:SI=LOG((ST(3)/(ST(2)-XM))^2+1):SL=SQR(SI)

1510 YL=LOG(ST(2)-XM)-SI/2:IF IR9=1 THEN 1550

1520 PRINT #3,:PRINT #3, TAB(10)Z$(2);Z8$

1530 PRINT #3,:PRINT #3, TAB(5)Z1$(2)"=";USING F1$;YL

1540 PRINT #3, TAB(5)Z2$(2)"=";:PRINT #3, USING F1$;SI

1550 PM(2)=YL:PS(2)=SI:XW=(LOG(XX(1)-XM)-YL)/SL:GOSUB 2820

1560 FOR I=1 TO N:FO=FW

1570 XW=(LOG(XX(I+1)-XM)-YL)/SL:GOSUB 2820:P(I)=FW-FO:NEXT I

1580 GOTO 1320

1590 IN(3)=0:SG=(ST(2)-XM)/1.2533:IF IR9=1 THEN 1620

1600 PRINT #3,:PRINT #3, TAB(10)Z8$;Z$(3)

1610 PRINT #3,:PRINT #3, TAB(5)Z1$(3)"=";:PRINT #3, USING F1$;SG

1620 PM(3)=SG:XW=(XX(1)-XM):GOSUB 2890

1630 FOR I=1 TO N:FO=FW

1640 XW=(XX(I+1)-XM):GOSUB 2890:P(I)=FW-FO:NEXT I

1650 NU=N-2

1660 GOTO 1330

1670 PL=1/(ST(2)-XM):IN(4)=0:IX=1:PM(4)=PL:IF IR9=1 THEN 1700

1680 PRINT #3,:PRINT #3, TAB(10) Z$(4);Z8$

1690 PRINT #3,:PRINT #3, TAB(5)Z1$(4)"=";:PRINT #3, USING F1$;PL

1700 XW=XX(1)-XM:GOSUB 2920

1710 FOR I=1 TO N:FO=FW

1720 XW=XX(I+1)-XM:GOSUB 2920:P(I)=FW-FO:NEXT I

1730 IF IX=2 THEN 1320

1740 NU=N-2:GOTO 1330

1750 IF((ST(2)-XM)/ST(3))^2<85 THEN 1755

1752 PRINT #3, Z$(5),Z7$:IF IR9=0 THEN 1160 ELSE 1080

1755 K=CINT(((ST(2)-XM)/ST(3))^2)

1760 IF K=0 THEN K=1

1770 EL=K/(ST(2)-XM):IN(5)=1:PM(5)=EL:PS(5)=K:IF IR9=1 THEN 1810

1780 PRINT #3,:PRINT #3, TAB(10)Z8$;Z$(5)

1790 PRINT #3,:PRINT #3, TAB(5)"LAMBDA=";:PRINT #3, USING F1$;EL

1800 PRINT #3, TAB(5)"K="K

1810 KK=K-1

1820 IF KK=O THEN IX=2:PL=EL:GOTO 1700

1830 XW=XX(1)-XM:GOSUB 2950

1840 FOR I=1 TO N:FO=FW

1850 XW=XX(I+1)-XM:GOSUB 2950:P(I)=FW-FO:NEXT I

1860 GOTO 1320

1870 B=.3:E=.001:H=.4:GOSUB 1930

1875 IF LOG(((ST(2)-XM)/G3)^B)<85 THEN 1880

1877 PRINT #3, Z$(6),Z7$:IF IR9=0 THEN 1160 ELSE 1140

1880 F1=F:B=B+H:GOSUB 1930

1890 IF ABS(F)<ABS(F1) THEN 1875

1900 H=-H/4:IF ABS(H)>E/4 THEN 1875

1910 B=B+H/4:Z=1/B+1:GOSUB 1970

1920 WL=((ST(2)-XM)/G3)^B

1926 IF IR9=0 THEN 2000 ELSE 2030

1930 Z=2/B+1:GOSUB 1970

1940 G1=G3:Z=1/B+1:GOSUB 1970

1950 G2=G3:F=G1/G2/G2-1-(ST(3)/(ST(2)-XM))^2

1960 RETURN

1970 G3=EXP(-Z)*Z^Z*(1+1/12/Z+1/(288*Z^2)-.7/(288*Z^3))

1980 G3=SQR(6.28319/Z)*G3

1990 RETURN

2000 PRINT #3,:PRINT #3, TAB(10)Z8$;Z$(6)

2010 PRINT #3,:PRINT #3, " B=";:PRINT #3, USING F1$;B

2020 PRINT #3, " LAMBDA=";:PRINT #3, USING F1$;WL

2030 IN(6)=1:PM(6)=B:PS(6)=WL:XW=XX(1)-XM:GOSUB 3010

2040 FOR I=1 TO N:FO=FW

2050 XW=XX(I+1)-XM:GOSUB 3010:P(I)=FW-FO:NEXT I

2060 GOTO 1320

2061 IN(7)=1:A=ST(2)-SQR(3)*(ST(3)):B=ST(2)+SQR(3)*(ST(3)):IF IR9=1 THEN 2065

2062 PRINT #3,:PRINT #3, TAB(10)Z$(7);Z8$

2063 PRINT #3,:PRINT #3, TAB(5)Z1$(7)"=";:PRINT #3, USING F1$;A

2064 PRINT #3, TAB(5)Z2$(7)"=";:PRINT #3, USING F1$;B

2065 PM(7)=A:PS(7)=B

2066 FOR I=1 TO N

2067 P(I)=1/N:NEXT I

2069 GOTO 1320

2070 N=UB(2)-2:R=(UB(3)-UB(1))/(UB(2)-2)

2080 FOR I=1 TO N:XI=I:XX(I)=UB(1)+R*(XI-1)

2090 FR(I+1)=0!:NEXT I

2100 XX(N+1)=UB(3)

2110 II=1:J=0:A(NO+1)=1E+30:VN=NO

2120 J=J+1

2130 I=II

2140 IF A(I)>XX(J+1) THEN 2170

2150 FR(J+1)=FR(J+1)+1

2160 I=I+1:GOTO 2140

2170 II=I:IF II>NO THEN 2180 ELSE 2120

2180 FOR I=1 TO N:PT(I+1)=FR(I+1)/VN:NEXT I

2190 SS=0:ST(2)=0:I=1

2200 IF A(I)<XX(1) OR A(I)>XX(N+1) THEN 2220

2210 ST(2)=ST(2)+A(I)/VN:SS=SS+A(I)^2/VN

2220 I=I+1:IF I<= NO THEN 2200

2230 ST(3)=SQR(VN/(VN-1)*(SS-ST(2)^2))

2240 RETURN

2250 FOR I=1 TO N:P1(I)=P(I):P9(I+1)=PT(I+1):NEXT I

2260 N1=N:N11=NU:NN=N-N11+1:SM=P1(1)*NO:SQ=0

2270 I=2:L1=0

2280 IF N-L1<=NN THEN 2330

2290 IF SM>=5 THEN 2330

2300 SM=SM+P1(I)*NO

2310 I=I+1:L1=L1+1

2320 GOTO 2280

2330 SM=P1(N)*NO

2340 I=0:L2=0

2350 IF N-L1-L2<=NN GOTO 2380

2360 IF SM>=5 GOTO 2380

2370 L2=L2+1:I=I+1:SM=SM+P1(N-I)*NO:GOTO 2350

2380 IF L1=0 THEN 2440

2390 FOR I=1 TO L1:PT(2)=PT(2)+PT(I+2)

2400 P(1)=P(1)+P(I+1):NEXT I

2410 N=N-L1

2420 FOR I=2 TO N:PT(I+1)=PT(I+1+L1)

2430 P(I)=P(I+L1):NEXT I

2440 IF L2=0 THEN 2480

2445 N=N-L2

2450 FOR I=1 TO L2:PT(N+1)=PT(N+1)+PT(N+1+I)

2460 P(N)=P(N)+P(N+I):NEXT I

2480 FOR I=1 TO N

2485 IF P(I)<1E-33 THEN SQ=9.999999E+33:GOTO 2495

2490 SQ=SQ+((P(I)-PT(I+1)/100)^2)/P(I)

2495 NEXT I

2500 SQ=SQ*NO

2510 NU=N11-L2-L1

2520 RK=(SQ-NU)/SQR(2*NU)

2530 IF IR9=1 THEN 2600

2540 PRINT #3,:PRINT #3, " ÂÅÊÒÎÐ ÒÅÎÐÅÒÈ×ÅÑÊÈÕ ×ÀÑÒÎÑÒÅÉ C"

2550 PRINT #3, " ÎÁÜÅÄÈÍÅÍÈÅÌ ÈÍÒÅÐÂÀËÎÂ ÍÀ ÊÎÍÖÀÕ"

2560 FOR I=1 TO N:AA(I)=P(I):NEXT I:NF=N:GOSUB 360

2570 PRINT #3,:PRINT #3, " ÇÍÀ×ÅÍÈÅ ÕÈ-ÊÂÀÄÐÀÒ =";:

2575 PRINT #3, USING F1$;SQ

2580 PRINT #3, " ×ÈÑËÎ ÑÒÅÏÅÍÅÉ ÑÂÎÁÎÄÛ ="NU

2590 PRINT #3, " ÇÍÀ×ÅÍÈÅ ÊÐÈÒÅÐÈß ÐÎÌÀÍÎÂÑÊÎÃÎ =";

2595 PRINT #3, USING F2$;RK

2600 N=N1

2610 FOR I=1 TO N:PT(I+1)=P9(I+1)

2620 P(I)=P1(I):NEXT I

2630 IF IR9=1 THEN 3060

2640 INPUT "ÒÐÅÁÓÅÒÑß ËÈ ÐÀÑ×ÅÒ ÊÐÈÒÅÐÈß ÌÈÇÅÑÀ(ÄÀ- 1,ÍÅÒ- 0)";IR3

2650 IF IR3=0 THEN 3060

2660 SW=0:I2=0:A1(0)=1E-38

2670 I2=I2+1

2680 IF I2>NO THEN 3040

2690 ON N3 GOSUB 2740,2760,2780,2780,2780,2780

2700 IF A1(I2)=A1(I2-1) THEN GOSUB 2800:GOTO 2670

2710 XW=A1(I2)

2720 ON N3 GOSUB 2820,2820,2890,2920,2950,3010

2730 GOSUB 2800:GOTO 2670

2740 FOR I=1 TO NO:A1(I)=(A(I)-ST(2))/ST(3):NEXT I

2750 RETURN

2760 FOR I=1 TO NO:A1(I)=(LOG(A(I)-XM)-YL)/SL:NEXT I

2770 RETURN

2780 FOR I=1 TO NO:A1(I)=A(I)-XM:NEXT I

2790 RETURN

2800 IF FW=>1 THEN FW=.999999

2805 IF FW<=0 THEN FW=1E-36

2808 SW=SW+(2*I2-1)*LOG(FW)+(2*NO-2*I2+1)*LOG(1-FW)

2810 RETURN

2820 C1=.049867347#:C2=.021141006#:C3=3.277626E-03

2830 C4=3.8004E-05:C5=4.8891E-05:C6=5.383E-06

2840 IF XW>0 THEN 2860

2850 XW=ABS(XW):GOSUB 2860:FW=1!-FW:GOTO 2880

2860 FW=1+C1*XW+C2*XW^2+C3*XW^3+C4*XW^4+C5*XW^5+C6*XW^6

2870 IF FW>230. THEN FW=1. ELSE FW=1!-FW^(-16!)/2.

2880 RETURN

2890 IF ((XW/SG)^2/2)>85 THEN FW=1!:GOTO 2910

2900 FW=1!-EXP(-((XW/SG)^2/2)):GOTO 2910

2910 RETURN

2920 IF PL*XW>85! THEN FW=1!:GOTO 2940

2930 FW=1!-EXP(-PL*XW):GOTO 2940

2940 RETURN

2950 IF EL*XW>80! THEN FW=1!:GOTO 3000

2960 VL=1!:VE=1!

2970 FOR M=1 TO KK

2980 VL=VL*EL*XW/M:VE=VE+VL:NEXT M

2990 FW=1!-EXP(-EL*XW)*VE

3000 RETURN

3010 IF XM^B/WL>85! THEN FW=1!:GOTO 3030

3020 FW=1!-EXP(-XW^B/WL):GOTO 3030

3030 RETURN

3040 W2=-NO-1/NO*SW

3050 PRINT #3, " ÇÍÀ×ÅÍÈÅ ÊÐÈÒÅÐÈß ÌÈÇÅÑÀ =";

3055 PRINT #3, USING F1$;W2

3060 RETURN

3070 INPUT"ÒÐÅÁÓÅÒÑß ÏÐÎÄÎËÆÈÒÜ ÐÀÑ×ÅÒÛ Ñ ÄÐÓÃÈÌÈ ÄÀÍÍÛÌÈ";IR1

3080 IF IR1<>1 THEN 3095

3085 ERASE A,AA,UB,FR,ST,X,P,PT,P1,IN,P9,XX,A1,PM,PS,Z$,Z1$,Z2$

3095 COLOR 25,5,15:PRINT " ÐÅÇÓËÜÒÀÒÛ ÐÀÑ×ÅÒÀ  ÔÀÉËÅ RNDN.REZ"

3096 PRINT " ÈÑÕÎÄÍÛÅ ÄÀÍÍÛÅ ÄËß ÏÎÂÒÎÐÍÎÃÎ ÐÀÑ×ÅÒÀ  ÔÀÉËÅ "IMF$

3097 BBB$=INKEY$

3098 IF LEN(BBB$)=0 THEN 3097

3099 RUN"RND.EXE"

3100 END

 

REM ÌÎÄÓËÜ ÈÑÑËÅÄÎÂÀÍÈß ÄÈÊÐÅÒÍÛÕ ÑËÓ×ÀÉÍÛÕ ÂÅËÈ×ÈÍ

2 COLOR 7,7,15:CLS:LOCATE 10:PRINT:COLOR 0,7,15

3 PRINT TAB(27)"Ç À Ä À × À R N D D":PRINT TAB(26)" ";

4 COLOR 15,0,15:PRINT"ÊÀÔÅÄÐÀ";:COLOR 23,5,15:PRINT" *ÁÍÒÓ*";

5 COLOR 15,0,15:PRINT" Î À Ï Ä Ä":PRINT:COLOR 1,14

6 PRINT TAB(21)"ÈÑÑËÅÄÎÂÀÍÈÅ ÐÀÑÏÐÅÄÅËÅÍÈß ÄÈÑÊÐÅÒÍÎÉ";

7 PRINT TAB(80)" ";:PRINT TAB(27)"ÑËÓ×ÀÉÍÎÉ ÂÅËÈ×ÈÍÛ";

8 PRINT TAB(80)" ":DEFINT I-N

9 COLOR 7,10,15: PRINT:COLOR 7,0,7

20 DIM JA(100),NA(100)

25 COLOR 0,7:OPEN"O",#3,"RNDDR.REZ"

30 PRINT "ÂÂÅÄÅÍÛ ËÈ ÈÑÕÎÄÍÛÅ ÄÀÍÍÛÅ"

35 COLOR 15,0

40 PRINT "ÄÀ- 1, ÍÅÒ- 0":INPUT IR1

50 IF IR1=0 THEN 200

55 INPUT"ÑÏÅÖÈÔÈÊÀÖÈß ÔÀÉËÀ Ñ ÈÑÕÎÄÍÛÌÈ ÄÀÍÍÛÌÈ ",IMF$

60 OPEN"I",#1,IMF$

65 INPUT #1,SI$

70 INPUT #1,NO

80 FOR I=1 TO NO:INPUT #1,JA(I),NA(I):NEXT I

90 CLOSE #1

100 CLS:PRINT"ÏÎÐßÄÊÎÂ. N ÂÅËÈ×ÈÍÀ ×ÈÑËÎ ÇÍÀ×ÅÍÈÉ"

110 FOR I=1 TO NO:PRINT I,JA(I),NA(I):NEXT I

115 COLOR 23,0

120 PRINT "ÒÐÅÁÓÅÒÑß ËÈ ÊÎÐÐÅÊÒÈÐÎÂÀÒÜ ÈÑÕÎÄÍÛÅ ÄÀÍÍÛÅ"

130 PRINT " ÄÀ- 1,ÍÅÒ- 0":INPUT IR0

135 COLOR 15,0

140 IF IR1=0 AND IR0=0 THEN 230

150 IF IR0=0 THEN 270

160 PRINT "ÏÎÐßÄÊÎÂÛÉ ÍÎÌÅÐ(Ñ×ÈÒÀß Ñ ÅÄÈÍÈÖÛ) ×ÈÑÅË,ÏÎÄËÅÆÀÙÈÕ"

170 PRINT "ÈÇÌÅÍÅÍÈÞ":INPUT IS

175 PRINT "ÇÀÌÅÍßÒÜ ×ÈÑËÀ "JA(IS)," ",NA(IS):INPUT IRR:IF IRR=0 THEN 120

180 IF IS<1 OR IS>NO THEN PRINT "ÂÛ ÄÎÏÓÑÒÈËÈ ÎØÈÁÊÓ":BEEP:GOTO 160

190 PRINT "ÍÎÂÎÅ ×ÈÑËÎ":INPUT JA(IS),NA(IS):IR1=0:GOTO 120

200 CLS: PRINT "ÂÂÅÄÈÒÅ ÈÑÕÎÄÍÛÅ ÄÀÍÍÛÅ":INPUT "ÍÀÈÌÅÍÎÂÀÍÈÅ ÄÀÍÍÛÕ";SI$

205 INPUT "×ÈÑËÎ ÃÐÓÏÏ ÇÍÀ×ÅÍÈÉ ÑËÓ×ÀÉÍÎÉ ÂÅËÈ×ÈÍÛ";NO

210 PRINT "ÏÎÑËÅÄÎÂÀÒÅËÜÍÎ ×ÅÐÅÇ ÇÀÏßÒÓÞ ÇÍÀ×ÅÍÈÅ ÑËÓ×ÀÉÍÎÉ ÂÅËÈ×ÈÍÛ"

215 PRINT "È ×ÈÑËÎ ÍÀÁËÞÄÅÍÈÉ"

220 FOR I=1 TO NO:PRINT I"-ß ÏÀÐÀ":INPUT JA(I),NA(I):NEXT I:GOTO 100

230 IF IR1=1 THEN 232

231 INPUT"ÇÀÄÀÉÒÅ ÑÏÅÖÈÔÈÊÀÖÈÞ ÔÀÉËÀ ÄËß ÈÑÕÎÄÍÛÕ ÄÀÍÍÛÕ";IMF$

232 OPEN "O",#1,IMF$

235 WRITE #1,SI$

240 WRITE #1,NO

250 FOR I=1 TO NO:WRITE #1,JA(I),NA(I):NEXT I

260 CLOSE #1

270 DIM IUB(3),ST(3),P(100),P8(100),P0(100),BJ(100)

280 DIM P9(100),JR(100),PM(4),PS(4),Z$(4),Z1$(4)

281 NNS=0:SNN=0.:NNA=0:FOR I=1 TO NO:NNS=NNS+JA(I)*NA(I)

283 NNA=NNA+NA(I):SNN=SNN+JA(I)^2*NA(I):NEXT I

285 PRINT #3, TAB(10)"ÈÑÑËÅÄÎÂÀÍÈÅ ÐÀÑÏÐÅÄÅËÅÍÈß ÄÈÑÊÐÅÒÍÎÉ ÑËÓ×ÀÉÍÎÉ ÂÅËÈ×ÈÍÛ"

286 PRINT #3, TAB(10)"("SI$")"

290 Z$(1)="ÁÈÍÎÌÈÀËÜÍÎÅ":Z1$(1)="PB"

300 Z$(2)="ÏÓÀÑÑÎÍÀ":Z1$(2)="AP"

310 Z$(3)="ÃÅÎÌÅÒÐÈ×ÅÑÊÎÅ(ÔÀÐÐÈ) (0...N)":Z1$(3)="PG"

320 Z$(4)="ÃÅÎÌÅÒÐÈ×ÅÑÊÎÅ(ÔÀÐÐÈ) (1...N)":Z1$(4)="PG"

345 Z7$=" ÐÀÑÏÐÅÄÅËÅÍÈÅ ÍÅ ÏÎÄÕÎÄÈÒ"

346 Z8$=" ÐÀÑÏÐÅÄÅËÅÍÈÅ "

347 F$=".###^^^^":F1$="-.###^^^^"

350 PRINT #3,:PRINT #3, TAB(5)"ÈÑÕÎÄÍÛÅ ÄÀÍÍÛÅ"

360 N4=INT(NO/8!):N5=NO-N4*8

370 FOR J=1 TO N4

380 FOR I=8*J-7 TO 8*J:PRINT #3, TAB(9*I-72*J+64) JA(I);:NEXT I

385 FOR I=8*J-7 TO 8*J:PRINT #3, TAB(9*I-72*J+64) NA(I);:NEXT I

390 PRINT #3,:NEXT J

400 FOR I=8*N4+1 TO NO:PRINT #3, TAB(9*I-72*N4-8) JA(I);:NEXT I

405 FOR I=8*N4+1 TO NO:PRINT #3, TAB(9*I-72*N4-8) NA(I);:NEXT I

406 PRINT #3,

410 ID=1

420 ID=2*ID

430 IF ID<=NO THEN 420

440 ID=INT((ID-1)/2!)

450 IF ID=0 THEN 530

460 FOR I1=1 TO NO-ID:J=I1

470 L=J+ID

480 IF JA(L)>=JA(J) THEN 510

490 IX=JA(J):IX1=NA(J):JA(J)=JA(L):NA(J)=NA(L):JA(L)=IX:NA(L)=IX1:J=J-ID

500 IF J>0 THEN 470

510 NEXT I1

520 GOTO 440

530 IUB(1)=JA(1):IUB(3)=JA(NO):N=IUB(3)-IUB(1)+1

535 JR(1)=NA(1)

540 II=0:FOR I=2 TO NO

542 IF JA(I-1)+1=JA(I) THEN JR(I+II)=NA(I):GOTO 560

545 JR(I+II)=0:II=II+1:JR(I+II)=NA(I)

560 NEXT I

570 FOR I=1 TO N:JA(I)=IUB(1)-1+I:NA(I)=JR(I):NEXT I

580 PRINT #3, " ÍÀÈÌÅÍÜØÅÅ ÂÛÁÎÐÎ×ÍÎÅ ÇÍÀ×ÅÍÈÅ =";

585 PRINT #3, JA(1)

590 PRINT #3, " ÍÀÈÁÎËÜØÅÅ ÂÛÁÎÐÎ×ÍÎÅ ÇÍÀ×ÅÍÈÅ =";

592 PRINT #3, JA(NO)

630 GOTO 742

640 INPUT"ÏÐÎÄÎËÆÈÒÜ ÐÀÑ×ÅÒÛ Ñ ÝÒÈÌÈ ÄÀÍÍÛÌÈ(ÄÀ- 1,ÍÅÒ- 0)";N5

660 IF N5=0 THEN 3070 ELSE 980

742 ST(2)=NNS/NNA:ST(3)=SQR((SNN-NNA*ST(2)^2)/(NNA-1))

750 N9=1:V=ST(3)/ST(2)

760 PRINT #3, " ÌÀÒÅÌÀÒÈ×ÅÑÊÎÅ ÎÆÈÄÀÍÈÅ =";

765 PRINT #3, USING F$;ST(2)

770 PRINT #3, " ÑÐÅÄÍÅÊÂÀÄÐÀÒÈ×ÅÑÊÎÅ ÎÒÊËÎÍÅÍÈÅ =";

775 PRINT #3, USING F$;ST(3)

780 PRINT #3, " ÊÎÝÔÔÈÖÈÅÍÒ ÂÀÐÈÀÖÈÈ =";

785 PRINT #3, USING F$;V: PRINT #3, " -------*****-------- "

880 PRINT #3,:PRINT #3, " ÇÍÀ×ÅÍÈß ÏÅÐÅÌÅÍÍÎÉ"

885 NF=N:FOR I= 1 TO N:BJ(I)=JA(I):NEXT I:GOSUB 890:GOTO 950

890 N4=INT(NF/8):N5=NF-N4*8:FOR J=1 TO N4

900 FOR I=8*J-7 TO 8*J:PRINT #3, TAB(9*I-72*J+64)USING F$;BJ(I);:NEXT I

910 PRINT #3,:NEXT J

920 FOR I=8*N4+1 TO NF:PRINT #3, TAB(9*I-72*N4-8)USING F$;BJ(I);:NEXT I

930 PRINT #3,:PRINT #3,:RETURN

950 PRINT #3, " ÂÅÊÒÎÐ ÝÌÏÈÐÈ×ÅÑÊÈÕ ×ÀÑÒOCTEÉ"

960 FOR I=1 TO N:P9(I)=NA(I)/NNA:BJ(I)=P9(I):NEXT I:NF=N:GOSUB 890

980 PRINT #3, TAB(15)"** X **"

1160 PRINT " * ÂÂÅÄÈÒÅ ÍÎÌÅÐ ÐÀÑÏÐÅÄÅËÅÍÈß"

1170 PRINT: PRINT " 1 - "Z$(1): PRINT " 2 - "Z$(2): PRINT " 3 - "Z$(3): PRINT " 4 - "Z$(4)

1240 INPUT N3

1250 ON N3 GOTO 1260,1500,1590,1680

1260 NW=NNA'INPUT" ÂÂÅÄÈÒÅ ×ÈÑËÎ ÈÑÏÛÒÀÍÈÉ (ÐÀÇÌÅÐ ÂÛÁÎÐÊÈ)";NW

1265 PRINT #3,:PRINT #3, TAB(10)Z$(1),Z8$

1270 PB=ST(2)/NW:PRINT #3,:PRINT #3, TAB(5)Z1$(1)"=";:PRINT #3, USING F$;PB

1300 FOR I=1 TO N

1310 K=JA(I):GOSUB 2820:P(I)=PT:NEXT I

1320 NU=N-2

1340 PRINT #3,:PRINT #3, " ÂÅÊÒÎÐ ÒÅÎÐEÒÈ×ÅÑÊÈÕ ×ÀÑÒÎÑÒÅÉ":PRINT #3,

1350 FOR I=1 TO N:BJ(I)=P(I):NEXT I:NF=N:GOSUB 890

1360 INPUT"ÒÐÅÁÓÞÒÑß ËÈ ÃÐÀÔÈÊÈ ÐÀÑÏÐÅÄÅËÅÍÈß(ÄÀ- 1,ÍÅÒ- 0)";IR2

1370 IF IR2=0 THEN 1480

1380 PRINT #3,:PRINT #3,:FOR I=2 TO 50:PRINT #3, TAB(I)"-";:NEXT I:PRINT #3,

1390 FOR I=1 TO N:P4=INT(P(I)*72):P5=INT(P9(I)*72)

1400 IF P4<P5 THEN 1430

1410 IF P4>P5 THEN 1440

1420 PRINT #3,"I";TAB(P4)"$":GOTO 1450

1430 PRINT #3,"I";TAB(P4)"+";TAB(P5)"#":GOTO 1450

1440 PRINT #3,"I";TAB(P5)"#";TAB(P4)"+"

1450 PRINT #3,"I":NEXT I:PRINT #3,

1460 PRINT #3,"+ -ÒÅÎÐÅÒ.ÐÀÑÏÐÅÄÅËÅÍÈÅ, # -ÝÌÏÈÐÈ×ÅÑÊÎÅ ÐÀÑÏÐÅÄÅËÅÍÈÅ,";

1470 PRINT #3," $ -ÏÐÈ ÑÎÂÏÀÄÅÍÈÈ"

1480 GOSUB 2250

1490 GOTO 640

1500 PRINT #3,:PRINT #3, TAB(10)Z8$,Z$(2)

1530 AP=ST(2):PRINT #3,:PRINT #3, TAB(5)Z1$(2)"=";USING F$;AP

1560 FOR I=1 TO N

1570 K=JA(I):GOSUB 2850:P(I)=PT:NEXT I

1580 GOTO 1320

1590 PRINT #3,:PRINT #3, TAB(10)Z8$,Z$(3)

1610 PG=1/ST(2):PRINT #3,:PRINT #3, TAB(5)Z1$(3)"=";USING F$;PG

1630 FOR I=1 TO N

1640 K=JA(I):GOSUB 2890:P(I)=PT:NEXT I

1660 GOTO 1320

1680 PRINT #3,:PRINT #3, TAB(10)Z8$,Z$(4)

1690 PG=1/ST(2):PRINT #3,:PRINT #3, TAB(5)Z1$(3)"=";USING F$;PG

1710 FOR I=1 TO N

1720 K=JA(I):GOSUB 2920:P(I)=PT:NEXT I

1740 GOTO 1320

2250 FOR I=1 TO N:P8(I)=P9(I):PO(I)=P(I):NEXT I

2260 N1=N:N11=NU:NN=N-N11+1:SM=P9(1)*NNA:SQ=0.

2270 I=2:L1=0

2280 IF N-L1<=NN THEN 2330

2290 IF SM>=5 THEN 2330

2300 SM=SM+P9(I)*NNA

2310 I=I+1:L1=L1+1

2320 GOTO 2280

2330 SM=P9(N)*NNA

2340 I=0:L2=0

2350 IF N-L1-L2<=NN GOTO 2380

2360 IF SM>=5 GOTO 2380

2370 L2=L2+1:I=I+1:SM=SM+P9(N-I)*NNA:GOTO 2350

2380 IF L1=0 THEN 2440

2390 FOR I=1 TO L1:P8(1)=P8(1)+P8(I+1)

2400 PO(1)=PO(1)+PO(I+1):NEXT I

2410 N=N-L1

2420 FOR I=2 TO N:P8(I)=P8(I+L1)

2430 PO(I)=PO(I+L1):NEXT I

2440 IF L2=0 THEN 2480

2445 N=N-L2

2450 FOR I=1 TO L2:P8(N)=P8(N)+P8(N+I)

2460 PO(N)=PO(N)+PO(N+I):NEXT I

2480 FOR I=1 TO N

2485 IF PO(I)<1E-36 THEN SQ=1.E+36:GOTO 2495

2490 SQ=SQ+((PO(I)-P8(I))^2)/PO(I)

2495 NEXT I

2500 SQ=SQ*NNA

2510 NU=N11-L2-L1

2520 RK=(SQ-NU)/SQR(2*NU)

2540 PRINT #3,:PRINT #3,:PRINT #3, " ÂÅÊÒÎÐ ÒÅÎÐÅÒÈ×ÅÑÊÈÕ ×ÀÑÒÎÑÒÅÉ C"

2550 PRINT #3, " ÎÁÜÅÄÈÍÅÍÈÅÌ ÈÍÒÅÐÂÀËÎÂ ÍÀ ÊÎÍÖÀÕ"

2560 FOR I=1 TO N:BJ(I)=PO(I):NEXT I:NF=N:PRINT #3,:GOSUB 890

2570 PRINT #3,:PRINT #3,:PRINT #3, " ÇÍÀ×ÅÍÈÅ ÕÈ-ÊÂÀÄÐÀÒ =";:

2575 PRINT #3, USING F$;SQ

2580 PRINT #3, " ×ÈÑËÎ ÑÒÅÏÅÍÅÉ ÑÂÎÁÎÄÛ ="NU

2590 PRINT #3, " ÇÍÀ×ÅÍÈÅ ÊÐÈÒÅÐÈß ÐÎÌÀÍÎÂÑÊÎÃÎ =";

2595 PRINT #3, USING F1$;RK

2600 N=N1

2640 INPUT "ÒÐÅÁÓÅÒÑß ËÈ ÐÀÑ×ÅÒ ÊÐÈÒÅÐÈß ÌÈÇÅÑÀ(ÄÀ- 1,ÍÅÒ- 0)";IR3

2650 IF IR3=0 THEN 3060

2660 SW=0.:I2=0:FT=0.:FO=0.

2670 I2=I2+1

2680 IF I2>N THEN 3040

2700 FT=FT+P(I2):IF FT<=0 THEN FT=1.E-36

2705 IF FT>=1. THEN FT=.999999

2800 FO=FO+P9(I2):IF FO<=0. THEN FO=1.E-36

2805 IF FO>=1. THEN FO=.999999

2806 SW=SW+(FO-FT)^2/(FT*(1-FT))

2810 GOTO 2670

2820 PI=1.:FOR J=1 TO K:PI=PI*(NW+1-J)/J:NEXT J:PT=PI*PB^K*(1.-PB)^(NW-K)

2830 RETURN

2850 FOR J=0 TO K:IF J=0 THEN PI=1. ELSE PI=PI*J

2885 NEXT J

2860 PT=AP^K/PI*EXP(-AP)

2880 RETURN

2890 PT=PG*(1.-PG)^K

2910 RETURN

2920 PT=PG/(1.-PG)*(1.-PG)^K

2940 RETURN

3040 'W2=-NO-1/NO*SW

3050 PRINT #3, " ÇÍÀ×ÅÍÈÅ ÊÐÈÒÅÐÈß ÌÈÇÅÑÀ =";

3055 PRINT #3, USING F$;SW

3060 RETURN

3070 PRINT"ÏÐÎÄÎËÆÈÒÜ ÐÀÑ×ÅÒÛ Ñ ÄÐÓÃÈÌÈ ÄÀÍÍÛÌÈ(ÄÀ- 1,ÍÅÒ- 0"

3075 INPUT N5

3080 IF N5<>1 THEN 3095

3085 ERASE JA,NA,IUB,ST,P,P8,PO,BJ,P9,JR,PM,PS,S$,Z1$

3090 GOTO 19

3095 COLOR 25,5,15:PRINT " ÐÅÇÓËÜÒÀÒÛ ÐÀÑ×ÅÒÀ  ÔÀÉËÅ RNDD.REZ"

3096 PRINT " ÈÑÕÎÄÍÛÅ ÄÀÍÍÛÅ ÄËß ÏÎÂÒÎÐÍÎÃÎ ÐÀÑ×ÅÒÀ  ÔÀÉËÅ "IMF$

3097 BBB$=INKEY$

3098 IF LEN(BBB$)=0 THEN 3097

3099 RUN"RND.EXE"

3100 END


1 | 2 | 3 | 4 | 5 | 6 | 7 | 8 | 9 | 10 | 11 | 12 | 13 | 14 | 15 | 16 | 17 | 18 | 19 | 20 | 21 | 22 | 23 | 24 | 25 | 26 | 27 | 28 | 29 | 30 | 31 | 32 | 33 | 34 | 35 | 36 | 37 | 38 | 39 | 40 | 41 | 42 | 43 | 44 | 45 | 46 | 47 | 48 | 49 | 50 | 51 | 52 | 53 | 54 |

Ïîèñê ïî ñàéòó:



Âñå ìàòåðèàëû ïðåäñòàâëåííûå íà ñàéòå èñêëþ÷èòåëüíî ñ öåëüþ îçíàêîìëåíèÿ ÷èòàòåëÿìè è íå ïðåñëåäóþò êîììåð÷åñêèõ öåëåé èëè íàðóøåíèå àâòîðñêèõ ïðàâ. Ñòóäàëë.Îðã (0.086 ñåê.)