10 REM ************ ΠΡΟΓΡΑΜΜΑ Π111 ************

20 REM * *

30 REM * Υπεργεωμετρική κατανομή *

40 REM * *

50 REM *******************************************

60 CLS

70 INPUT "Δώσε την τιμή του N=";N:PRINT

80 INPUT "Δώσε την τιμή του M=";M:PRINT

90 INPUT "Δώσε την τιμή του ν=";NS:PRINT

100 INPUT "Δώσε την τιμή του x=";X

110 L=M:K=X

120 GOSUB 370

130 T1=T

140 L=N-M:K=NS-X

150 GOSUB 370

160 T2=T

170 L=N:K=NS

180 GOSUB 370

190 T3=T

200 CLS:LOCATE 14:PRINT "Υπεργεωμετρική κατανομή= ";T1*T2/T3:PRINT

210 PRINT "Μέση τιμή= ";NS*M/N:PRINT

220 PRINT "Διασπορά= ";NS*M*(N-M)*(N-NS)/N/N/(N-1):PRINT

230 L=N-M:K=NS

240 GOSUB 370

250 T1=T

260 L=N:K=NS

270 GOSUB 370

280 T2=T

290 F0=T1/T2

300 S0=F0

310 FOR J=1 TO X

320 F0=(J-1-M)*(J-1-NS)*F0/J/(N-M-NS+J)

330 S0=S0+F0

340 NEXT J

350 PRINT "Συσσωρευμένη κατανομή= ";S0

360 END

370 T=1

380 IF K>L/2 THEN GOTO 430

390 FOR I=1 TO K

400 T=T*(L-K+I)/I

410 NEXT I

420 GOTO 470

430 REM

440 FOR I=1 TO L-K

450 T=T*(K+I)/I

460 NEXT I

470 RETURN