Quel langage et logiciel utiliser ? [Fermé]

Signaler
Messages postés
1
Date d'inscription
mardi 28 octobre 2014
Statut
Membre
Dernière intervention
28 octobre 2014
-
Bonjour,

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


Merci