-
Notifications
You must be signed in to change notification settings - Fork 0
Expand file tree
/
Copy pathDE50B.BAS
More file actions
119 lines (119 loc) · 5.1 KB
/
DE50B.BAS
File metadata and controls
119 lines (119 loc) · 5.1 KB
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
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
99
100
101
102
103
104
105
106
107
108
109
110
111
112
113
114
115
116
117
118
119
0 SCREEN 2:SCREEN 0,0,0:KEY OFF:COLOR 14:CLS
10 LK#=.4342944758723107#
12 PRINT " Une CREATION de DARCHE YOANN"
15 LOCATE 6,33:PRINT "Edition "
16 PRINT
17 LOCATE ,15:PRINT "Û Û ÛÛÛÛÛ Û ÛÛÛ Û ÛÛÛÛÛ Û ÛÛÛÛÛ Û Û"
18 LOCATE ,15:PRINT "Û Û Û Û Û Û Û Û Û Û ÛÛ ÛÛ"
19 LOCATE ,15:PRINT "Û Û Û Û Û Û ÛÛ Û Û Û Û Û"
20 LOCATE ,15:PRINT "ÛÛÛÛÛ ÛÛÛ Û Û Û ÛÛ Û ÛÛÛ Û Û"
21 LOCATE ,15:PRINT "Û Û Û Û Û Û ÛÛ Û Û Û Û"
22 LOCATE ,15:PRINT "Û Û Û Û Û Û Û ÛÛ Û Û Û Û"
23 LOCATE ,15:PRINT "Û Û ÛÛÛÛÛ ÛÛÛÛÛ ÛÛÛ Û ÛÛÛÛÛ Û ÛÛÛÛÛ Û Û"
24 PRINT
25 LOCATE ,28:PRINT "ÛÛÛÛ ÛÛÛÛÛ ÛÛÛÛÛ ÛÛÛ "
26 LOCATE ,28:PRINT "Û Û Û Û Û Û"
27 LOCATE ,28:PRINT "Û Û ÛÛÛ ÛÛÛÛ Û Û"
28 LOCATE ,28:PRINT "Û Û Û Û Û Û"
29 LOCATE ,28:PRINT "ÛÛÛÛ ÛÛÛÛÛ ÛÛÛÛ ÛÛÛ "
999 A$=INPUT$(1)
1000 SCREEN 2:SCREEN 0,0,0
1010 COLOR 10:CLS:KEY OFF
1020 PRINT :PRINT " LITCHFIELD et WILCOXON"
1030 PRINT
1040 INPUT "Produit : ",PRODUIT$
1050 INPUT "Voie : ",VOIE$
1060 INPUT "Pr‚ventif: ",PREVE$
1070 INPUT "EspŠce : ",ESPE$
1080 INPUT "DATE : ",DAT$
1090 INPUT "TEST : ",TEST$
1100 CLS
1110 PRINT :PRINT " LITCHFIELD et WILCOXON"
1120 PRINT :PRINT
1130 K=1:DIM D(20,3)
1134 IF K>=16 THEN 1200
1135 LOCATE 10:PRINT "TEST nø";K
1136 LOCATE 11:PRINT SPACE$(40)
1140 LOCATE 11:INPUT "Dose mg/kg :",D:POI=LOG(D)*LK#:GOSUB 60000:D(K,1)=W
1146 COLOR 12:LOCATE 11:PRINT SPACE$(40)
1150 LOCATE 12:INPUT "Nombre d'animaux :",D(K,2)
1156 COLOR 13:LOCATE 13:PRINT SPACE$(40)
1160 LOCATE 13:INPUT "% R‚el :",D(K,3)
1170 LOCATE 14:PRINT " ENCORE O/N ":A$=INPUT$(1)
1180 IF A$="n" OR A$="N" THEN 1190 ELSE K=K+1:GOTO 1134
1190 GOSUB 4000
1200 FOR I=1 TO K :N=N+D(I,2):NEXT
1210 FOR I=1 TO K:Y=Y+D(I,3):NEXT
1220 FOR I=1 TO K:X=X+D(I,1):NEXT
1230 FOR I=1 TO K:XY=XY+(D(I,1)*D(I,3)):NEXT
1240 FOR I=1 TO K:X2=X2+(D(I,1)^2):NEXT
1250 FOR I=1 TO K:Y2=Y2+(D(I,3)^2):NEXT
1260 B=(K*XY-X*Y)/(K*X2-X^2)
1270 A=(Y-B*X)/K
1280 Q=(16-A)/B:GOSUB 40000:D16=W:W=0
1290 Q=(50-A)/B:GOSUB 40000:D50=W:W=0
1291 Q=(84-A)/B:GOSUB 40000:D84=W:W=0
1300 S=(D84/D50+D50/D16)/2:POI=S:GOSUB 60000:S=POI
1301 FOR I=1 TO K
1310 IF D(I,3)>=16 AND D(I,3)<=84 THEN N1=N1+D(I,2)
1320 NEXT
1330 POI=SQR(N1):GOSUB 60000:N2=POI:POI=2.77/N2:GOSUB 60000:EX=POI:POI=S^EX:GOSUB 60000:F=POI
1410 POI=D50/F:GOSUB 60000:LCI=POI:POI=D50*F:GOSUB 60000:LCS=POI
1420 CLS:COLOR 13
1430 PRINT " LITCHFIELD et WILCOXON"
1440 PRINT
1500 LOCATE 3,1:PRINT "Produit :";PRODUIT$
1510 LOCATE 4,1:PRINT "Voie :";VOIE$
1520 LOCATE 5,1:PRINT "Preventif:";PREVE$
1530 LOCATE 6,1:PRINT "EspŠce :";ESPE$
1540 LOCATE 6,40:PRINT "TEST :";TEST$
1550 LOCATE 3,40:PRINT "DATE :";DAT$
1560 LOCATE 8,1:PRINT " Dose en mg/kg Nombre d'animaux Pourcentage "
1570 LOCATE 18,1
1571 PRINT " D16 D50 D84 S EX F"
1572 LOCATE 19,6:PRINT D16;:LOCATE ,18:PRINT D50;:LOCATE ,30:PRINT D84;:LOCATE ,40:PRINT S;:LOCATE ,48:PRINT EX;:LOCATE ,57:PRINT F
1573 LOCATE 20,1:PRINT "-------------------------------------------------------------------------------"
1574 LOCATE 21,1:PRINT " LCI DE50 LCS "
1575 LOCATE 22,21:PRINT LCI:LOCATE 22,38:PRINT D50:LOCATE 22,53:PRINT LCS
1576 LOCATE 23,1:PRINT "-------------------------------------------------------------------------------"
1580 LOCATE 9:FOR I=1 TO K:LOCATE ,2:PRINT D(I,1);:LOCATE ,24:PRINT D(I,2);:LOCATE ,50:PRINT D(I,3):NEXT
1999 A$=INPUT$(1):CLS
2000 PRINT :PRINT " X ESTIME POUR Y DONNE ET INVERSE "
2010 PRINT :PRINT
2011 PRINT " 1- Y DONNE 2- X DONNE":A$=INPUT$(1)
2012 IF A$="1" THEN 3000 ELSE 2020
2020 INPUT " DOSE ",DX:POI=LOG(DX)*LK#:GOSUB 60000:DX=POI
2030 RE=A+DX*B:PRINT "Estimation ...>>>:";RE
2040 PRINT :PRINT "Encore [O/N]..":A$=INPUT$(1)
2050 IF A$="n" OR A$="N" THEN 2060 ELSE CLS:GOTO 2000
2060 PRINT " <R>eprise du programme ou <A>bandon ....!!! ":A$=INPUT$(1)
2070 IF A$="r" OR A$="R" THEN RUN
2080 IF A$<>"a" AND A$<>"A" THEN BEEP:GOTO 2060 ELSE 50000
3000 INPUT " POURCENTAGE : ",DX
3010 RE=(DX-A)/B:Q=RE:GOSUB 40000:RE=W:PRINT "Estimation ...>>>:";RE
3020 PRINT :PRINT "Encore [O/N]..":A$=INPUT$(1)
3030 IF A$="n" OR A$="N" THEN 2060 ELSE CLS:GOTO 2000
4000 CLS
4010 PRINT " Correction ."
4015 PRINT " Y / X"," 1"," 2"," 3"
4020 FOR I=1 TO K
4030 PRINT I,D(I,1),D(I,2),D(I,3):NEXT
4040 PRINT " Correct O/N":A$=INPUT$(1)
4050 IF A$="o" OR A$="O" THEN RETURN
4060 INPUT " X,Y :",X,Y
4065 PRINT "Ancienne Valeur :";D(Y,X)
4070 INPUT "Nouvelle Valeur : ",VA
4080 D(Y,X)=VA :X=0:Y=0:VA=0:GOTO 4000
40000 POI=10^Q:GOSUB 60000:RETURN
50000 CLS
50010 PRINT "xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx"
50020 PRINT " save <fichier>,p
59999 REM NEW
60000 W=POI:IF W=INT(W) THEN RETURN
60010 F1$=STR$(W):W1=INT(W):F2$=STR$(W1)
60020 F1=LEN(F1$):F2=LEN(F2$)
60030 F1$=RIGHT$(F1$,F1-1):F2$=RIGHT$(F2$,F2-1)
60040 IF F2$<>"0" THEN F1$=RIGHT$(F1$,F1-(1+F2)) ELSE F1$=RIGHT$(F1$,F1-2)
60050 F1$=LEFT$(F1$,2):F$=F2$+"."+F1$:W=VAL(F$):POI=W:F1$="":F2$="":F$="":F1=0:F2=0
60060 RETURN