%Header Record Format:TXT Communication SW:0 Data Type:PG Capacity:1778 File Name:[STATIS] Group Name: Password: Option1:NL Option2: Option3: Option4: %Data Record \ClrText " STATISTIC TOOLS V 1.2 BY CLEM27 " \Do \ClrText " STATISTIC TOOLS :" \Locate 1,2,"---------------------":\Locate 3,3,"PONDERER" \Locate 3,4,"DEPONDERER" \Locate 3,5,"CREAT CLASS" \Locate 3,6,"DECILE" \Locate 3,7,"EXIT" \Locate 1,3,"\->" 3\->P \Do \If \Getkey=28\ And P>3:\Then \Locate 1,P," ":P-1\->P:\Locate 1,P,"\->":\IfEnd \If \Getkey=37\ And P<7:\Then \Locate 1,P," ":P+1\->P:\Locate 1,P,"\->":\IfEnd \LpWhile \Getkey\<>31 \If P=7:\Then \ClrText:"ALL MODIFICATION IS ALLOWED FOR THE ALGORYTHMES GOOD BYE clement.raux@free.fr PRESS AC\slashON":\Stop:\IfEnd \If P=3:\Then \ClrText:\Locate 1,1,"THIS ALGORYTHME DELE-":\Locate 1,2,"TE LIST 2 AND 3 AND":\Locate 1,3,"TRY THE LIST 1.":\Locate 1,4,"THE VALUES MUST TO BE":\Locate 1,5,"IN LIST 1.":\Locate 1,6,"PRESS EXE TO EXECUTE":\Locate 1,7,"OR EXIT TO LEAVE":\Do:\If \Getkey=47:\Then \ClrText:\Stop:\IfEnd:\LpWhile \Getkey\<>31:\Prog "~PONDERE":3\->P:\IfEnd \If P=4:\Then \ClrText:\Locate 1,1,"THIS ALGORYTHME RUN":\Locate 1,2,"WITH LIST 2 FOR THE":\Locate 1,3,"VALUE AND LIST 3 FOR":\Locate 1,4,"THE COEFF, AND DELETE":\Locate 1,5,"THE LIST 1 TO WRITE.":\Locate 1,6,"PRESS EXE TO EXECUTE":\Locate 1,7,"OR EXIT TO LEAVE":\Do:\If \Getkey=47:\Then \ClrText:\Stop:\IfEnd:\LpWhile \Getkey\<>31:\Prog "~DEPONDE":4\->P:\IfEnd \If P=5:\Then \ClrText:\Locate 1,1,"PRESS F1 TO CREAT THE":\Locate 1,2,"INTERVAL OR EXE":\Locate 1,3,"TO CLASS THE VALUE":\Locate 1,4,"IN THE INTERVAL":\Do:\Getkey:\LpWhile \Ans\<>31\ And \Ans\<>79:\If \Ans=79:\Then \ClrText:"NOW, YOU CREAT THE INTERVAL FOR THE MODULE CLASS":"VALUE OF START"?\->A:"VALUE OF END"?\->B:"STEP"?\->C:\Seq(X,X,A,B,C)\->\List 2:\ClrText:\IfEnd:\Locate 1,1,"TO USE THIS ALGORY-":\Locate 1,2,"THME, YOU MUST WRITE":\Locate 1,3,"INTERVALLE IN LIST 2.":\Locate 1,4,"LIST 1 IS YOUR LIST":\Locate 1,5,"OF VALUE,LIST3~5 DEL.":\Locate 1,6,"PRESS EXE TO EXECUTE":\Locate 1,7,"OR EXIT TO LEAVE":\Do:\If \Getkey=47:\Then \ClrText:\Stop:\IfEnd:\LpWhile \Getkey\<>31:\Prog "~CLASSE":5\->P:\IfEnd \If P=6:\Then \ClrText:\Locate 1,1,"THIS ALGORYTHME USE":\Locate 1,2,"LIST 1 JUST FOR READ":\Locate 1,3,"THE VALUE. THIS ALGO":\Locate 1,4,"DON'T DELETE LIST":\Locate 1,6,"PRESS EXE TO EXECUTE":\Locate 1,7,"OR EXIT TO LEAVE":\Do:\If \Getkey=47:\Then \ClrText:\Stop:\IfEnd:\LpWhile \Getkey\<>31:\Prog "~DECILE":6\->P:\IfEnd \LpWhile 1=1 %End %Header Record Format:TXT Communication SW:0 Data Type:PG Capacity:208 File Name:~CLASSE Group Name: Password: Option1:NL Option2: Option3: Option4: %Data Record \ClrText \Locate 5,4,"CHARGEMENT..." \SortA(\List 1) \SortA(\List 2) \Dim \List 1\->D \Dim \List 2\->E E\->\Dim \List 3 E-1\->F \For 1\->X \To D \For 1\->Y \To F \If \List 1[X]\>=\List 2[Y]\ And \List 1[X]<\List 2[Y+1]:\Then \List 3[Y]+1\->\List 3[Y]:\Break:\IfEnd \Next \Next E\->\Dim \List 4 \For 1\->A \To E-1 (\List 2[A]+\List 2[A+1])/2\->\List 4[A] \Next \ClrText \Return %End %Header Record Format:TXT Communication SW:0 Data Type:PG Capacity:366 File Name:~DECILE Group Name: Password: Option1:NL Option2: Option3: Option4: %Data Record \ClrText \Locate 5,4,"CHARGEMENT..." \SortA(\List 1) \Dim \List 1\->D \Cuml \Percent \List 1\->\List 2 \For 1\->X \To D \If X=D:\Then \List 1[X]\->F:\Break:\IfEnd \If \List 2[X]\<=10\ And \List 2[X+1]>10:\Then \If (\List 1[X+1]-\List 1[X])/2+\List 1[X]\>=10:\Then \List 1[X]\->E:\Else \List 1[X+1]\->E:\IfEnd:\IfEnd \If \List 2[X]\<=90\ And \List 2[X+1]>90:\Then \If (\List 1[X+1]-\List 1[X])/2+\List 1[X]\<=90:\Then \List 1[X]\->F:\Else \List 1[X+1]\->F:\IfEnd:\Break:\IfEnd \Next \ClrText " LES DECILES :" \Locate 1,3,"D1=" \Locate 1,5,"D9=" \Locate 4,3,E \Locate 4,5,F \Locate 6,7,"PRESS EXE" \Do \LpWhile \Getkey\<>31 \Return %End %Header Record Format:TXT Communication SW:0 Data Type:PG Capacity:172 File Name:~DEPONDE Group Name: Password: Option1:NL Option2: Option3: Option4: %Data Record \ClrText \Locate 5,4,"CHARGEMENT..." \Sum \List 3\->A \If A>255\ Or A\<=0\ Or \Dim \List 2\<>\Dim \List 3:\Then \Locate 5,4,"DIM ERROR ":\Stop:\IfEnd A\->\Dim \List 1 \Dim \List 3\->D 0\->B \For 1\->X \To D \For 1\->Y \To \List 3[X] B+1\->B \List 2[X]\->\List 1[B] \Next \Next \ClrText \Return %End %Header Record Format:TXT Communication SW:0 Data Type:PG Capacity:598 File Name:~PONDERE Group Name: Password: Option1:NL Option2: Option3: Option4: %Data Record 'V 2.0 \Dim \List 1\->D \ClrText \Locate 5,4,"CHARGEMENT..." \Locate 1,1,"clement.raux@free.fr" \Locate 7,7,"BY CLEM27" \Locate 1,2,"TRIEUR DE LISTE V2.11" \Locate 1,5,"******" \SortA(\List 1) 0\->A 0\->E 0\->B \For 1\->X \To D \Do A+1\->A \If A>D:\Then E+1\->E:0\->B:X\->A:\Break:\IfEnd \If X\<>1:\Then \If \List 1[X-1]=\List 1[X]:\Then X\->A:0\->B:\Break:\IfEnd:\IfEnd \If \List 1[X]=\List 1[A]:\Then B+1\->B:\Else E+1\->E:0\->B:X\->A:\Break:\IfEnd \LpWhile 1=1 \Next \Locate 7,5,"*******" \Int (E+1/2)\->E E\->\Dim \List 2 E\->\Dim \List 3 0\->A 0\->B 0\->E \For 1\->X \To D \Do A+1\->A \If A>D:\Then E+1\->E:\List 1[X]\->\List 2[E]:B\->\List 3[E]:0\->B:X\->A:\Break:\IfEnd \If X\<>1:\Then \If \List 1[X-1]=\List 1[X]:\Then X\->A:0\->B:\Break:\IfEnd:\IfEnd \If \List 1[X]=\List 1[A]:\Then B+1\->B:\Else E+1\->E:\List 1[X]\->\List 2[E]:B\->\List 3[E]:0\->B:X\->A:\Break:\IfEnd \LpWhile 1=1 \Next \Locate 14,5,"********" \Locate 6,7," PRESS EXE" \Do \LpWhile \Getkey\<>31 \Return %End