J'ai trouvé dans un vieux document ces lignes de code pour créer un micrologiciel de calcul statistique. Je n'ai jamais été dans le dur en programmation mais je souhaiterais le faire fonctionner.
Savez vous de quel langage il s'agit ? et avec quel logiciel je peux l'exploiter / utiliser ?
10 DIM Y (50) 20 PRINT 30 PRINT "ESTIMATION D'UNE POPULATION" 40 CALCUL DE LA CAPTURE TOTALE T 50 PRINT 60 PRINT 70 PRINT "NOM DU SITE" 80 INPUTS$ 90 PRINT 100 PRINT "DONNEZ LA DATE " 110 INPUT 0$ 120 PRINT 130 PRINT "DONNEZ LA SURFACE" 140 INPUT A 150 PRINT 160 PRINT "ESPËCE ÉTUDIÉE" 170 INPUT F$ 180 PRINT 190 PRINT "COMBIEN ?" 200 INPUT K 210 T=O 220 S=O 230 U=1 240 N=O 250 PRINT 260 PRINT "TAPEZ LE NOMBRE" 270 FOR 1=1 TO K 280 INPUT Y(l) 290 T=T + Y(l) 300 S=S + (K - I)*Y(I) 310 NEXT 1 320 SOLUTION DE L'ÉQUATION 330 M$="okB" 340 FOR N=T TO 10000 350 U=1 360 FOR 1=1 TO K 370 U=U*(((K*N)-S-T+ 1+ (K-1))/((K*N)-S+ 2+ (K-1))) 380 NEXT 1 390 U=(N + 1 )*U/(N-T + 1) 400 IF U < 1 THEN 420 410 NEXT N 420 PRINT "U< 1 A L'ITÉRATION NUMÉRO", N 430 D=T /(K*N-S) 440 Q1=1-D 450 E=2*SQR(N*(N-T)*T /((T*T)-N*(N-T)*((K*D) ~ 2)/Q1 )) 460 PRINT 470 PRINT 480 PRINT "RÉSULTATS" 490 PRINT" " 500 PRINT 510 PRINT S$, D$ 520 PRINT 530 PRINT "ESPÈCE ÉTUDIÉ : ";F$ 540 PRINT" " 550 PRINT 560 PRINT "NOMBRE CAPTURÉS" 570 PRINT "--------------- 580 FOR 1=1 TO K 590 PRINT " ",Y(I) 600 NEXT 1 610 PRINT 620 PRINT "AIRE TOTALE ÉCHANTILLONNÉE M2 = ";A 630 PRINT "NOMBRE SUCCESSIVES";K 640 PRINT "TOTAL DES POISSONS CAPTURÉS";T 650 .Pal NT "DENSITÉ MINIMUM PAR MÈTRE CARRÉ=";T 1 A 660 PRINT "ESTIMATION PAR LA MÉTHODE DE CARLE ET STRUB N = ";N 670 PRINT "INTERVALLE DE CONFIANCE A 5% = +, -";E 680 PRINT "DENSITÉ ESTIMÉE AU MÈTRE CARRÉ= ";NIA 690. PRINT "INTERVALLE DE CONFIANCE DE LA DENSITÉ A 5% = ";E/ A 700 PRINT "----" 710 PRINT 720 PRINT "QUE SOUHAITEZ-VOUS MAINTENANT?" 730 PRINT "A- UN AUTRE CALCUL SUR LE MËME SITE, MËME DATE" 740 PRINT "B- UNE SORTIE DE CES RÉSULTATS SUR IMPRIMANTE" 750 PRINT "D - FIN DE CALCULS" 760 INPUT Q$ 170 IF Q$="A" THEN 160 780 IF Q$="B"THEN 810 790 :IF. Q$="D'' THEN 1050 8OO GOTO 730 810 LPRINT 820 .LPRINT S$, D$ 830 LPRINT 840 LPRINT "ESPÈCE ÉTUDIÉ;";F$ S5èi LPRINT" " 860 LP.RINT 870 LPRINT "NOMBRE DE" 8SO LPRINT "-------------- 890 FOR 1=1 TO K 900 LP~INT " ",Y(I) 910 NEXT 1 920 LPRINT 940 LPRINT "AIRE TOTALE ÉCHANTILLONNÉE M2 = ";A 950 LPRINT "NOMBRE DE ";K 960 LPRINT "TOTAL CAPTURÉS";T S70 LPRINT "DENSITÉ MINIMUM PAR MÈTRE CARRÉ= ";T/A 980 LPRINT "ESTIMATION PAR LA MÉTHODE DE ";MS;"=";N 990 LPRINT "INTERVALLE DE CONFIANCE A 5% = + - E 1000 LPRINT "DENSITÉ ESTIMÉE AU MÈTRE CARRÉ= NIA 1010 LPRINT "INTERVALLE DE CONFIANCE DE LA DENSITÉ A 5% = "';E/A 1020 LPRINT .. __ _ 1030 LPRINT 1040 GOTO 710 1050 END
