10 REM *********** ΠΡΟΓΡΑΜΜΑ
Π115 ************
20 REM * *
30 REM * Κατανομή t του Student *
40 REM
*
*
50 REM
******************************************
60 CLS
70
EPS=.0000005
80 DIM
X(24),W(24)
90 INPUT
"Σταθερά t=";TI:PRINT
100 INPUT "Βαθμοί
ελευθερίας ν=";NI
110
PI=2*SQR(ATN(1))
120 IF
INT(NI/2)*2=NI THEN GOTO 160
130
NC=(NI-1)/2
140
GOSUB 380
150 GOTO
180
160
NC=NI/2
170
GOSUB 240
180
GOSUB 510
190
Q0=NI
200
Q=SQR(Q0)
210
AL=G*SUM/PI/Q
220
PRINT "Η κατανομή student ";"A(";TI;"│";NI;")=";
230 END
240 REM Υποπρόγραμμα
250 G=1
260 IF
NC=0 THEN GOTO 340
270 IF
NC=1 THEN GOTO 360
280 G=.5
290 FOR
I=2 TO NC
300
G=G*(2*I-1)/2/(I-1)
310 NEXT
I
320
G=G*PI
330
RETURN
340 G=PI
350
RETURN
360
G=.5*PI
370
RETURN
380 REM
390 IF
NC=0 THEN GOTO 470
400 IF
NC=1 THEN GOTO 490
410 G=1
420 FOR
I=1 TO NC
430
G=G*2*I/(2*I-1)
440 NEXT
I
450
G=G/PI
460
RETURN
470
G=1/PI
480
RETURN
490
G=2/PI
500 RETURN
510 REM Το πρόγραμμα αυτό
υπολογίζει ολοκληρώματα
520 REM με πεπερασμένα άκρα
ολοκλήρωσης
530 REM με τη σύνθετη μέθοδο
του Gauss
540 DEF
FNF(NI,T)=(1+T*T/NI)^(-.5*(1+NI))
550 REM Διάβασε δεδομένα
560 FOR
I=1 TO 24
570 READ
X(I),W(I)
580 NEXT
I
590
B=TI:A=-B
600 K=0
610
TEMP=0
620
N=2^K
630
H=(B-A)/N
640
AH=A-.5*H
650
SUM=0
660 FOR
J=1 TO N
670 XJ=J*H
680 FOR
I=1 TO 24
690
R=.5*H*X(I)
700
Y1=AH+R+XJ
710
Y2=AH-R+XJ
720
SUM=SUM+W(I)*(FNF(NI,Y1)+FNF(NI,Y2))
730 NEXT
I
740 NEXT
J
750
SUM=.5*H*SUM
760 IF
ABS(SUM-TEMP)<EPS THEN RETURN
770
K=K+1
780 IF
K=6 THEN RETURN
790
TEMP=SUM
800 GOTO
620
810 DATA
.0323801709628694,.0647376968126839
820 DATA
.0970046992094627,.0644661644359501
830 DATA
.1612223560688917,.0639242385846482
840 DATA
.2247637903946891,.0631141922862540
850 DATA
.2873624873554556,.0620394231598927
860 DATA
.3487558862921607,.0607044391658939
870 DATA
.4086864819907167,.0591148396983956
880 DATA
.4669029047509584,.0572772921004032
890 DATA
.5231609747222330,.0551995036999842
900 DATA
.5772247260839727,.0528901894851937
910 DATA
.6288673967765136,.0503590355538545
920 DATA
.6778723796326639,.0476166584924905
930 DATA
.7240341309238147,.0446745608566943
940 DATA
.7671590325157403,.0415450829434647
950 DATA
.8070662040294426,.0382413510658307
960 DATA
.8435882616243935,.0347772225647704
970 DATA
.8765720202742479,.0311672278327981
980 DATA
.9058791367155697,.0274265097083569
990 DATA
.9313866907065543,.0235707608393244
1000
DATA .9529877031604309,.0196161604573555
1010
DATA .9705915925462472,.0155793157229438
1020
DATA .9841245837228269,.0114772345792346
1030 DATA
.9935301722663508,.0073275539012763
1040 DATA
.9987710072524261,.0031533460523058