%Header Record Format:MCS1 Type Number:0 File Name:A Option Name:Variable Communication SW:0 Capacity:18 Data Type:VM %Data Record Value : 1 0 %End %Header Record Format:MCS1 Type Number:0 File Name:B Option Name:Variable Communication SW:0 Capacity:18 Data Type:VM %Data Record Value : 1 0 %End %Header Record Format:MCS1 Type Number:0 File Name:C Option Name:Variable Communication SW:0 Capacity:18 Data Type:VM %Data Record Value : 1 4 %End %Header Record Format:MCS1 Type Number:0 File Name:D Option Name:Variable Communication SW:0 Capacity:18 Data Type:VM %Data Record Value : 1 2 %End %Header Record Format:MCS1 Type Number:0 File Name:E Option Name:Variable Communication SW:0 Capacity:18 Data Type:VM %Data Record Value : 1 1 %End %Header Record Format:MCS1 Type Number:0 File Name:F Option Name:Variable Communication SW:0 Capacity:18 Data Type:VM %Data Record Value : 1 4 %End %Header Record Format:MCS1 Type Number:0 File Name:G Option Name:Variable Communication SW:0 Capacity:18 Data Type:VM %Data Record Value : 1 0 %End %Header Record Format:MCS1 Type Number:0 File Name:H Option Name:Variable Communication SW:0 Capacity:18 Data Type:VM %Data Record Value : 1 0 %End %Header Record Format:MCS1 Type Number:0 File Name:I Option Name:Variable Communication SW:0 Capacity:18 Data Type:VM %Data Record Value : 1 5\EE1 %End %Header Record Format:MCS1 Type Number:0 File Name:J Option Name:Variable Communication SW:0 Capacity:18 Data Type:VM %Data Record Value : 1 4.16823253933395\EE1 %End %Header Record Format:MCS1 Type Number:0 File Name:K Option Name:Variable Communication SW:0 Capacity:18 Data Type:VM %Data Record Value : 1 2 %End %Header Record Format:MCS1 Type Number:0 File Name:L Option Name:Variable Communication SW:0 Capacity:18 Data Type:VM %Data Record Value : 1 4.87534666313272\EE1 %End %Header Record Format:MCS1 Type Number:0 File Name:M Option Name:Variable Communication SW:0 Capacity:18 Data Type:VM %Data Record Value : 1 1 %End %Header Record Format:MCS1 Type Number:0 File Name:N Option Name:Variable Communication SW:0 Capacity:18 Data Type:VM %Data Record Value : 1 1.33 %End %Header Record Format:MCS1 Type Number:0 File Name:O Option Name:Variable Communication SW:0 Capacity:18 Data Type:VM %Data Record Value : 1 0 %End %Header Record Format:MCS1 Type Number:0 File Name:P Option Name:Variable Communication SW:0 Capacity:18 Data Type:VM %Data Record Value : 1 0 %End %Header Record Format:MCS1 Type Number:0 File Name:Q Option Name:Variable Communication SW:0 Capacity:18 Data Type:VM %Data Record Value : 1 2 %End %Header Record Format:MCS1 Type Number:0 File Name:R Option Name:Variable Communication SW:0 Capacity:18 Data Type:VM %Data Record Value : 1 3 %End %Header Record Format:MCS1 Type Number:0 File Name:S Option Name:Variable Communication SW:0 Capacity:18 Data Type:VM %Data Record Value : 1 5\EE1 %End %Header Record Format:MCS1 Type Number:0 File Name:T Option Name:Variable Communication SW:0 Capacity:18 Data Type:VM %Data Record Value : 1 2.60930972304348\EE3 %End %Header Record Format:MCS1 Type Number:0 File Name:U Option Name:Variable Communication SW:0 Capacity:18 Data Type:VM %Data Record Value : 1 1\EE1 %End %Header Record Format:MCS1 Type Number:0 File Name:V Option Name:Variable Communication SW:0 Capacity:18 Data Type:VM %Data Record Value : 1 4.13\EE2 %End %Header Record Format:MCS1 Type Number:0 File Name:W Option Name:Variable Communication SW:0 Capacity:18 Data Type:VM %Data Record Value : 1 1.5707963267949\EE2 %End %Header Record Format:MCS1 Type Number:0 File Name:X Option Name:Variable Communication SW:0 Capacity:18 Data Type:VM %Data Record Value : 1 1.27\EE2 %End %Header Record Format:MCS1 Type Number:0 File Name:Y Option Name:Variable Communication SW:0 Capacity:18 Data Type:VM %Data Record Value : 1 1.6258\EE4 %End %Header Record Format:MCS1 Type Number:0 File Name:Z Option Name:Variable Communication SW:0 Capacity:18 Data Type:VM %Data Record Value : 1 1 %End %Header Record Format:MCS1 Type Number:0 File Name:\r Option Name:Variable Communication SW:0 Capacity:18 Data Type:VM %Data Record Value : 1 0 %End %Header Record Format:MCS1 Type Number:0 File Name:\theta Option Name:Variable Communication SW:0 Capacity:18 Data Type:VM %Data Record Value : 1 3 %End %Header Record Format:MCS1 Type Number:4 File Name:FMEM1 Option Name: Communication SW:0 Capacity:19 Data Type:FM %Data Record Essaye plus tard %End %Header Record Format:MCS1 Type Number:4 File Name:FMEM2 Option Name: Communication SW:0 Capacity:18 Data Type:FM %Data Record Essaye encore %End %Header Record Format:MCS1 Type Number:4 File Name:FMEM3 Option Name: Communication SW:0 Capacity:16 Data Type:FM %Data Record Pas d'avis %End %Header Record Format:MCS1 Type Number:4 File Name:FMEM4 Option Name: Communication SW:0 Capacity:19 Data Type:FM %Data Record C'est ton destin %End %Header Record Format:MCS1 Type Number:4 File Name:FMEM5 Option Name: Communication SW:0 Capacity:22 Data Type:FM %Data Record Le sort en est jet\Tptch %End %Header Record Format:MCS1 Type Number:4 File Name:FMEM6 Option Name: Communication SW:0 Capacity:21 Data Type:FM %Data Record Une chance sur deux %End %Header Record Format:MCS1 Type Number:4 File Name:FMEM7 Option Name: Communication SW:0 Capacity:20 Data Type:FM %Data Record Repose ta question %End %Header Record Format:MCS1 Type Number:4 File Name:FMEM8 Option Name: Communication SW:0 Capacity:20 Data Type:FM %Data Record D'apr\Tmaxs moi oui %End %Header Record Format:MCS1 Type Number:4 File Name:FMEM9 Option Name: Communication SW:0 Capacity:18 Data Type:FM %Data Record C'est certain %End %Header Record Format:MCS1 Type Number:4 File Name:FMEM10 Option Name: Communication SW:0 Capacity:19 Data Type:FM %Data Record Oui absolument %End %Header Record Format:MCS1 Type Number:4 File Name:FMEM11 Option Name: Communication SW:0 Capacity:21 Data Type:FM %Data Record Compte l\Xmax\(-)dessus %End %Header Record Format:MCS1 Type Number:4 File Name:FMEM12 Option Name: Communication SW:0 Capacity:20 Data Type:FM %Data Record Sans aucun doute %End %Header Record Format:MCS1 Type Number:4 File Name:FMEM13 Option Name: Communication SW:0 Capacity:19 Data Type:FM %Data Record Tr\Tmaxs probable %End %Header Record Format:MCS1 Type Number:4 File Name:FMEM14 Option Name: Communication SW:0 Capacity:13 Data Type:FM %Data Record Oui %End %Header Record Format:MCS1 Type Number:4 File Name:FMEM15 Option Name: Communication SW:0 Capacity:20 Data Type:FM %Data Record C'est bien parti %End %Header Record Format:MCS1 Type Number:4 File Name:FMEM16 Option Name: Communication SW:0 Capacity:16 Data Type:FM %Data Record C'est NON %End %Header Record Format:MCS1 Type Number:4 File Name:FMEM17 Option Name: Communication SW:0 Capacity:18 Data Type:FM %Data Record Peu probable %End %Header Record Format:MCS1 Type Number:4 File Name:FMEM18 Option Name: Communication SW:0 Capacity:19 Data Type:FM %Data Record Faut pas r\Xfctver %End %Header Record Format:MCS1 Type Number:4 File Name:FMEM19 Option Name: Communication SW:0 Capacity:18 Data Type:FM %Data Record N'y compte pas %End %Header Record Format:MCS1 Type Number:4 File Name:FMEM20 Option Name: Communication SW:0 Capacity:16 Data Type:FM %Data Record Impossible %End %Header Record Format:MCS1 Type Number:1 File Name:2~DEGRE Option Name: Communication SW:0 Capacity:5072 Data Type:PG %Data Record Password: BaseN:0 \ClrText:\Norm 2 \AxesOff:\LabelOff \BG-None:\DerivOn ""\->\Y 2:""\->\Y 3 \ViewWindow 1,127,0,1,63,0:\Cls "R\Tptchsolution de l'" "\Tptchquation Ax\Meanx+Bx+C=0" \ClrList 3\->\Dim \List1:3\->\Dim \List2 "Entrer les coef ..." "A"?\->\List1[1] \List1[1]\->A A=0\=>1\->A \If A<0 \Then \(-)A\->A:1\->S \Else 0\->S \IfEnd \Int A\<>A\=>1+S\->S \Int A=0\=>1+S\->S \While \Int A\<>A 10A\->A \WhileEnd S+1+\Int \log A\->\List2[1] "B"?\->\List1[2] \List1[2]\->A A=0\=>1\->A \If A<0 \Then \(-)A\->A:1\->S \Else 0\->S \IfEnd \Int A\<>A\=>1+S\->S \Int A=0\=>1+S\->S \While \Int A\<>A 10A\->A \WhileEnd S+1+\Int \log A\->\List2[2] "C"?\->\List1[3] \List1[3]\->A A=0\=>1\->A \If A<0 \Then \(-)A\->A:1\->S \Else 0\->S \IfEnd \Int A\<>A\=>1+S\->S \Int A=0\=>1+S\->S \While \Int A\<>A 10A\->A \WhileEnd S+1+\Int \log A\->\List2[3] \Text 1,1,\List1[1] \Text 1,4\List2[1]+1,"x\Meanx+" \Text 1,4\List2[1]+13,\List1[2] \Text 1,4\List2[1]+13+4\List2[2]+1,"x+" \Text 1,4\List2[1]+22+4\List2[2],\List1[3] \Text 1,4\List2[1]+22+4\List2[2]+4\List2[3],"=0" "\List1[1]X\x^2+\List1[2]X+\List1[3]"\->\Y 1 \Text 7,1,"C=" \Text 7,9,\List1[2] \Text 7,9+4\List2[2],"\Meanx-4*" \Text 7,4\List2[2]+26,\List1[1] \Text 7,4\List2[2]+27+4\List2[1],"*" \Text 7,4\List2[2]+27+4\List2[1]+4,\List1[3] \Text 13,1,"C=" \List1[2]^2-4\List1[1]*\List1[3]\->D \Text 13,9,D \If D<0 \Then \Text 19,1,"Pas de solution reelle" \Text 25,1,"La parabole ne coupe pas" \Text 31,1,"l'axe des abscisses." \Text 37,1,"Pas de factorisation." \Text 50,1,"[EXE] pour la suite"\Disp\Cls \List1[1]>0\=>\Text 1,1,"Coordonnees du minimum" \List1[1]<0\=>\Text 1,1,"Coordonnees du maximum" \Text 7,1,"de la parabole :" \Text 13,1,"(" \(-).5*\List1[2]/\List1[1]\->T T\->A A=0\=>1\->A \If A<0 \Then \(-)A\->A:1\->S \Else 0\->S \IfEnd \Int A\<>A\=>1+S\->S \Int A=0\=>1+S\->S \While \Int A\<>A 10A\->A \WhileEnd S+1+\Int \log A\->U \Text 13,6,T \Text 13,8+4U,";" \Y 1(T)\->A A=0\=>1\->A \If A<0 \Then \(-)A\->A:1\->S \Else 0\->S \IfEnd \Int A\<>A\=>1+S\->S \Int A=0\=>1+S\->S \While \Int A\<>A 10A\->A \WhileEnd S+1+\Int \log A\->W \Text 13,13+4U,\Y 1(T) \Text 13,14+4U+4W,")" \Text 21,1,"[EXE] pour continuer"\Disp\Cls \Text 1,1,"Tableau de variation:" \Horizontal 56 \Text 11,11,"x -\infinity +\infinity" \Text 11,70,T \Horizontal 45 \Text 23,5,"f(x) -\infinity +\infinity" \List1[1]>0\=>\F-Line 43,42,65,35 \List1[1]>0\=>\F-Line 90,35,110,42 \List1[1]<0\=>\F-Line 43,35,65,42 \List1[1]<0\=>\F-Line 90,42,110,35 \Text 23,70,\Y 1(T) \Horizontal 33 \Text 35,4,"signe" \Horizontal 21 \List1[1]>0\=>\Text 35,70,"+" \List1[1]<0\=>\Text 35,70,"-" \Horizontal 9 \Text 47,4,"f'(x)" \List1[1]>0\=>\Text 47,45,"- +" \List1[1]<0\=>\Text 47,45,"+ -" \Text 47,70,"0" \F-Line 1,9,1,56 \F-Line 25,9,25,56 \F-Line 127,9,127,56\Disp\ClrGraph T-2\->\Xmin T+2\->\Xmax \List1[1]>0\=>0\->\Ymin \List1[1]<0\=>0\->\Ymax \Goto1 \Else \If D=0 \Then \Text 20,1,"Une solution unique" \Text 26,1,"X=\(-)" \Text 26,13,\List1[2] \Text 26,13+4\List2[2],"\slash2*" \Text 26,13+4\List2[2]+13,\List1[1] \Text 32,1,"X=" \(-).5*\List1[2]/\List1[1]\->T T\->A A=0\=>1\->A \If A<0 \Then \(-)A\->A:1\->S \Else 0\->S \IfEnd \Int A\<>A\=>1+S\->S \Int A=0\=>1+S\->S \While \Int A\<>A 10A\->A \WhileEnd S+1+\Int \log A\->U \Text 32,10,T \Text 39,1,"Forme factorisee:" \Text 45,1,\List1[1] \Text 45,1+4\List2[1],"*(x-" \Text 45,1+4\List2[1]+17,T \Text 45,1+4\List2[1]+17+4U,")\x^2" \Text 55,1,"[EXE] pour continuer"\Disp\Cls \List1[1]>0\=>\Text 1,1,"Coordonnees du minimum" \List1[1]<0\=>\Text 1,1,"Coordonnees du maximum" \Text 7,1,"de la parabole" \Text 13,1,"(" \(-).5*\List1[2]/\List1[1]\->T T\->A A=0\=>1\->A \If A<0 \Then \(-)A\->A:1\->S \Else 0\->S \IfEnd \Int A\<>A\=>1+S\->S \Int A=0\=>1+S\->S \While \Int A\<>A 10A\->A \WhileEnd S+1+\Int \log A\->U \Text 13,6,T \Text 13,8+4U,";" \Y 1(T)\->A A=0\=>1\->A \If A<0 \Then \(-)A\->A:1\->S \Else 0\->S \IfEnd \Int A\<>A\=>1+S\->S \Int A=0\=>1+S\->S \While \Int A\<>A 10A\->A \WhileEnd S+1+\Int \log A\->W \Text 13,13+4U,\Y 1(T) \Text 13,14+4U+4W,")" \Text 21,1,"[EXE] pour continuer"\Disp\Cls \Text 1,1,"Tableau de variation:" \Horizontal 56 \Text 11,11,"x -\infinity +\infinity" \Text 11,70,T \Horizontal 45 \Text 23,5,"f(x) -\infinity +\infinity" \List1[1]>0\=>\F-Line 43,42,65,35 \List1[1]>0\=>\F-Line 90,35,110,42 \List1[1]<0\=>\F-Line 43,35,65,42 \List1[1]<0\=>\F-Line 90,42,110,35 \Text 23,70,"0" \Horizontal 33 \Text 35,4,"signe" \Horizontal 21 \List1[1]>0\=>\Text 35,35,"+ 0 +" \List1[1]<0\=>\Text 35,35,"- 0 -" \Horizontal 9 \Text 47,4,"f'(x)" \List1[1]>0\=>\Text 47,35,"- +" \List1[1]<0\=>\Text 47,35,"+ -" \Text 47,70,"0" \F-Line 1,9,1,56 \F-Line 25,9,25,56 \F-Line 127,9,127,56\Disp\ClrGraph T-2\->\Xmin T+2\->\Xmax \List1[1]>0\=>\(-).5\->\Ymin \List1[1]<0\=>.5\->\Ymax \Goto1 \Else \If D>0 \Then \Text 19,1,"Deux solutions" \Text 25,1,"X1=(\(-)" \Text 25,21,\List1[2] \Text 25,21+4\List2[2],"-\sqrt" \Text 25,21+4\List2[2]+9,D D\->A A=0\=>1\->A \If A<0 \Then \(-)A\->A:1\->S \Else 0\->S \IfEnd \Int A\<>A\=>1+S\->S \Int A=0\=>1+S\->S \While \Int A\<>A 10A\->A \WhileEnd S+1+\Int \log A\->E \Text 25,21+4\List2[2]+9+4E,")\slash(2*" \Text 25,21+4\List2[2]+13+4E+17,\List1[1] \Text 25,21+4\List2[2]+13+4E+17+4\List2[1],")" \Text 31,1,"X1=" (\(-)\List1[2]-\sqrtD)/2\List1[1]\->L L\->A A=0\=>1\->A \If A<0 \Then \(-)A\->A:1\->S \Else 0\->S \IfEnd \Int A\<>A\=>1+S\->S \Int A=0\=>1+S\->S \While \Int A\<>A 10A\->A \WhileEnd S+1+\Int \log A\->M \If M>5 \Then \Fix 2 5\->M \IfEnd \Text 31,13,L \Text 37,1,"X2=(\(-)" \Text 37,21,\List1[2] \Text 37,21+4\List2[2],"+\sqrt" \Text 37,21+4\List2[2]+9,D \Text 37,21+4\List2[2]+9+4E,")\slash(2*" \Text 37,51+4\List2[2]+4E,\List1[1] \Text 37,51+4\List2[2]+4E+4\List2[1],")" \Text 43,1,"X2=" (\(-)\List1[2]+\sqrtD)/2\List1[1]\->R R\->A A=0\=>1\->A \If A<0 \Then \(-)A\->A:1\->S \Else 0\->S \IfEnd \Int A\<>A\=>1+S\->S \Int A=0\=>1+S\->S \While \Int A\<>A 10A\->A \WhileEnd S+1+\Int \log A\->N \If N>5 \Then \Fix 2 5\->N \IfEnd \Text 43,13,R \Text 49,1,"Forme factorisee:" \Text 55,1,\List1[1] \Text 55,1+4\List2[1],"*(x-" \Text 55,1+4\List2[1]+17,L \Text 55,1+4\List2[1]+17+4M,")*(x-" \Text 55,4\List2[1]+4M+39,R \Text 55,4\List2[1]+4M+39+4N,")" \If L>R \Then L\->Z:R\->L:Z\->R \IfEnd \Text 55,110,"[EXE]"\Disp\Cls \List1[1]>0\=>\Text 1,1,"Coordonnees du minimum" \List1[1]<0\=>\Text 1,1,"Coordonnees du maximum" \Text 7,1,"de la parabole" \Text 14,1,"(" .5(L+R)\->T T\->A A=0\=>1\->A \If A<0 \Then \(-)A\->A:1\->S \Else 0\->S \IfEnd \Int A\<>A\=>1+S\->S \Int A=0\=>1+S\->S \While \Int A\<>A 10A\->A \WhileEnd S+1+\Int \log A\->U \Text 14,6,T \Text 14,8+4U,";" \Y 1(T)\->A A=0\=>1\->A \If A<0 \Then \(-)A\->A:1\->S \Else 0\->S \IfEnd \Int A\<>A\=>1+S\->S \Int A=0\=>1+S\->S \While \Int A\<>A 10A\->A \WhileEnd S+1+\Int \log A\->W \Text 14,13+4U,\Y 1(T) \Text 14,13+4U+4W,")" \Text 25,1,"[EXE] pour continuer"\Disp\Cls \Text 1,1,"Tableau de variation:" \Horizontal 56 \Text 11,11,"x -\infinity +\infinity" \Text 11,45,L \Text 11,100,R \Text 11,65,T \Horizontal 45 \Text 23,4,"f(x) -\infinity +\infinity" \If \List1[1]>0 \Then \F-Line 40,42,60,35 \F-Line 90,35,110,42 \Else \F-Line 40,35,60,42 \F-Line 90,42,110,35 \IfEnd \Text 23,50,"0" \Text 23,100,"0" \Text 23,65,\Y 1((L+R)/2) \Horizontal 33 \Text 35,3,"signe" \Horizontal 21 \List1[1]>0\=>\Text 35,30,"+ 0 - 0 +" \List1[1]<0\=>\Text 35,30,"- 0 + 0 -" \Horizontal 9 \Text 47,3,"f'(x)" \List1[1]>0\=>\Text 47,30,"- +" \List1[1]<0\=>\Text 47,30,"+ -" \Text 47,70,"0" \F-Line 1,9,1,56 \F-Line 22,9,22,56 \F-Line 127,9,127,56\Disp\ClrGraph L-2\->\Xmin R+2\->\Xmax \List 1[1]>0\=>\Y 1((L+R)/2)-.5\->\Ymin \List1[1]<0\=>\Y 1((L+R)/2)+.5\->\Ymax \IfEnd \Lbl 1 \Norm 2 \AxesOn \LabelOn \DrawGraph \@00\nano\@00%\@00 %End %Header Record Format:MCS1 Type Number:1 File Name:3D Option Name: Communication SW:0 Capacity:202 Data Type:PG %Data Record Password: BaseN:0 \AxesOff:\BG-None \LabelOff:\FuncOff \Cls \ViewWindow 1,127,0,1,63,0 \@F78F\F-Line 35,30,125,30 \@F78F\F-Line 35,30,35,60 \@F78F\F-Line 35,30,10,5 \Do 0\->A~F "X"?\->A "Y"?\->B "Z"?\->C \Int (35+5A-.71C*5)\->E \Int (30+5B-.71C*5)\->F \PlotOn 35+5A,30+5B \PlotOn E,F-5B \PlotOn E-5A,F \PlotOn E,F\Disp \LpWhile \Getkey\<>47 \@00 %End %Header Record Format:MCS1 Type Number:1 File Name:8~BALL Option Name: Communication SW:0 Capacity:1067 Data Type:PG %Data Record Password: BaseN:0 \FuncOff " Essaye plus tard"\->\fn1 " Essaye encore"\->\fn2 " Pas d'avis"\->\fn3 " C'est ton destin"\->\fn4 " Le sort en est jet\Tptch"\->\fn5 " Une chance sur deux"\->\fn6 " Repose ta question"\->\fn7 " D'apr\Tmaxs moi oui"\->\fn8 " C'est certain"\->\fn9 " Oui absolument"\->\fn10 " Compte l\Xmax\(-)dessus"\->\fn11 " Sans aucun doute"\->\fn12 " Tr\Tmaxs probable"\->\fn13 " Oui"\->\fn14 " C'est bien parti"\->\fn15 " C'est NON"\->\fn16 " Peu probable"\->\fn17 " Faut pas r\Xfctver"\->\fn18 " N'y compte pas"\->\fn19 " Impossible"\->\fn20 \Lbl 0 \Int (20\Ran#+1)\->I I=1\=>\@F937\fn1,\@F93F1) I=2\=>\@F937\fn2,\@F93F1) I=3\=>\@F937\fn3,\@F93F1) I=4\=>\@F937\fn4,\@F93F1) I=5\=>\@F937\fn5,\@F93F1) I=6\=>\@F937\fn6,\@F93F1) I=7\=>\@F937\fn7,\@F93F1) I=8\=>\@F937\fn8,\@F93F1) I=9\=>\@F937\fn9,\@F93F1) I=10\=>\@F937\fn10,\@F93F1) I=11\=>\@F937\fn11,\@F93F1) I=12\=>\@F937\fn12,\@F93F1) I=13\=>\@F937\fn13,\@F93F1) I=14\=>\@F937\fn14,\@F93F1) I=15\=>\@F937\fn15,\@F93F1) I=16\=>\@F937\fn16,\@F93F1) I=17\=>\@F937\fn17,\@F93F1) I=18\=>\@F937\fn18,\@F93F1) I=19\=>\@F937\fn19,\@F93F1) I=20\=>\@F937\fn20,\@F93F1) \ClrText "":"":"":"" \Locate 2,2,"Pense \Xmax ta qestion" \Locate 2,3,"et appuie sur [EXE]"\Disp\For 1\->A \To 300:\Next \ClrText \Locate 1,2,\@F93F1 \Locate 1,3,"_____________________" \Locate 7,5,"Encore ?" \Locate 6,6,"Oui [EXE]" \Locate 6,7,"Non [EXIT]" \Do \Getkey=31\=>\Goto0 \Getkey=47\=>\Goto1 \LpWhile 1 \Lbl 1 \ClrText \@00 %End %Header Record Format:MCS1 Type Number:1 File Name:ACIDBASE Option Name: Communication SW:0 Capacity:509 Data Type:PG %Data Record Password: BaseN:0 \Lbl 0 \@F79E"Concentration Acide","Concent massique",1,"[C molaire]",2,"Calcul pH",3,"Calcul [OH\(-)]",4,"[H\RndO\Eox]=10^\(-)pH",5 \Lbl 1 "La concentration" "massique (g\slashl)" "" "Cm = masse\slashVolume" "masse (g)"?\->M "volume (l)"?\->V M/V\Disp"(g\slashl)"\Disp\Goto0 \Lbl 2 \ClrText "La concentration" "Molaire (mol\slashl)" "[C] = n\slashv" "nb moles (mol)"?\->N "volume (l)"?\->V N/V "(mol\slashl)"\Disp\Goto0 \Lbl 3 \Fix 1 "concentration molaire" "[H\RndO\Eox] (mol\slashL)"?\->A \(-)\log A\Disp\Goto6 \Stop \Lbl 4 \ClrText "[H\Rnd0\Eox]"?\->A \Lbl 6 \Norm 2 "[OH\(-)]" (10^\(-)14)/A\Disp"(mol\slashl)"\Disp\Goto0 \Lbl 5 "pH= "?\->P "[H\Rnd0\Eox]= " 10^(\(-)P)\Disp"(mol\slashl)"\Disp\Goto0 \@00\nano\@00%\@00\milli\@00\@00 %End %Header Record Format:MCS1 Type Number:1 File Name:ACOUSTIC Option Name: Communication SW:0 Capacity:1062 Data Type:PG %Data Record Password: BaseN:0 \Lbl 0 \ClrText 0\->A~Z \@F79E" Acoustique","I=P\slashS (W\slashm\x^2)",1,"I\Cls.R\Cls\x^2=I\@D2.R\@D2\x^2",2,"N=10.\log (I\slashI\r)",3,"N=10.\log I+120",4,"longueur d'onde",5,"fr\Tptchquence",6 \Lbl 1 "P: puissance (W)"?\->P "Calcul de la surface" "sph\Tptchrique S=4\PiR\x^2" "R: distance (m)"?\->R "I=P\slash(4\PiR\x^2)" "I(W\slashm\x^2)=" P/(4\PiR\x^2)\Disp\Goto0 \Lbl 2 "permet de calculer" "la distance R\@D2(m)"\Disp"I\Cls= "?\->I "R\Cls(m)= "?\->R "I\@D2= "?\->J "R\@D2(m)= " \sqrt(IR\x^2/J)\Disp\Goto0 \Lbl 3 "I=Intensit\Tptch sonore" "avec I\r=10\Cor\Meanx W\slashm\x^2" \Lbl 4 "I(W\slashm\x^2)= "?\->I "N(dB)=" 120+10*\log I\Disp\Goto0 \Lbl 5 "C=C\Tptchl\Tptchrit\Tptch son (m\slashs)" "Exemples :" "C(air)= 340 m\slashs" "C(eau)= 1500 m\slashs" " " "C(m\slashs)= "?\->C \ClrText "[1] \List->Mat(=C\Q1t" "[2] \List->Mat(=C\slashf" \Do \Do \Getkey\->E \LpWhile E=0 \If E=72 \Then \Goto7 \IfEnd \If E=62 \Then "f= "?\->F "\List->Mat((m)= " C/F\Disp\Goto0 \IfEnd \LpWhile E\<>72\ And E\<>62 \Lbl 6 "F(Hz)=1\slashT" "vous avez T:" "[1] en secondes" "[2] en millisecondes" \Do \Do \Getkey\->G \LpWhile G=0 \If G=72 \Then "T(s)= "?\->T "f(Hz)= " \Locate 8,7,1/T\Disp\Goto0 \IfEnd \If G=62 \Then "T(ms)= "?\->T "f(Hz)= " \Locate 8,7,1000/T\Disp\Goto0 \IfEnd \LpWhile G\<>72\ And G\<>62 \Lbl 7 \While \Getkey \WhileEnd \ClrText "vous avez T:" "[1] en secondes" "[2] en millisecondes" \Do \Do \Getkey\->H \LpWhile H=0 \If H=72 \Then "T(s)= "?\->T "\List->Mat((m)= " CT\Disp\Goto0 \IfEnd \If H=62 \Then "T(ms)= "?\->T "\List->Mat((m)= " .001CT\Disp\Goto0 \IfEnd \LpWhile H\<>72\ And H\<>62 \@00\nano\@00%\@00\milli\@00%E\@00p\milli\@00 %End %Header Record Format:MCS1 Type Number:1 File Name:ALCANES Option Name: Communication SW:0 Capacity:1203 Data Type:PG %Data Record Password: BaseN:0 \AxesOff:\LabelOff:\Cls \BG-None: "Equilibrage des" "r\Tptchactions de com\(-)" "\(-)bustion des Alcanes" " " " by FABCVLR" " PLANETE CASIO "\->\@F93F1 \Do \Locate 1,7,"[EXE] pour continuer" \Locate 2,6,\@F93F1 \@F93D\@F93F1,1)\->\@F93F1 \For 1\->B \To 80 \Next \LpWhile \Getkey\<>31 \ClrText \@F79E"Volume molaire:"," 22,4 l\slashmol \Xmax 0\Deg>C",B," 24 l\slashmol \Xmax 20\Deg>C",C \Lbl B:22.4\->V:\GotoD \Lbl C:24\->V \Lbl D \@F79E"Votre alcane est un :","alcane inconnu",T,"m\Tptchthane CH\Dec",E,"\Tptchthane C\@D2H\Bin",F,"propane C\RndH\@D8",G,"butane C\DecH\Cls\Pi",H,"Page suivante",S \Lbl S \@F79E"Page suivante","pentane C\HexH\Cls\@D2",I,"hexane C\BinH\Cls\Dec",J,"heptane C\OctH\Cls\Bin",K,"octane C\@D8H\Cls\@D8",L,"RETOUR",D \Lbl E:1\->N:\GotoQ \Lbl F:2\->N:\GotoQ \Lbl G:3\->N:\GotoQ \Lbl H:4\->N:\GotoQ \Lbl I:5\->N:\GotoQ \Lbl J:6\->N:\GotoQ \Lbl K:7\->N:\GotoQ \Lbl L:8\->N:\GotoQ \Lbl T: "nombre de carbones"?\->N \Lbl Q (3N+1)/2\->F \If \Frac F\<>0 \Then 2\->A \GotoA \Else 1\->A \Lbl A \ViewWindow 1,127,0,1,63,0 \Text 1,1,A \Text 1,6,"C" \Text 1,10,N \Text 1,18,"H" \Text 1,23,2N+2 \Text 1,32,"+" \Text 1,38,A(3N+1)/2 \Text 1,50,"O\@D2 \F Start" \Text 1,68,AN \Text 1,77,"CO\@D2 +" \Text 1,99,AN+A \Text 1,109,"H\@D2O" \Text 9,1,"------ nombre de moles ------" \Text 17,7,A \Text 17,36,A(3N+1)/2 \Text 17,65,AN \Text 17,97,AN+A \Text 24,1,"--- volume de gaz en litres ---" \Text 33,7,AV \Text 33,36,AV(3N+1)/2 \Text 33,65,AVN \Text 33,97,AV(N+1) \Text 42,1,"------ masse en grammes ------" \Text 50,7,A(12N+(2N+2)) \Text 50,21,"+" \Text 50,36,32A(3N+1)/2 \Text 50,50,"=" \Text 50,65,44AN \Text 50,81,"+" \Text 50,97,18A(N+1) \@00 \nano\@00%\@00\milli\@00%E\@00-\milli\@00%En\@00\Mega\@00%E\@00 %End %Header Record Format:MCS1 Type Number:1 File Name:ANGLE Option Name: Communication SW:0 Capacity:426 Data Type:PG %Data Record Password: BaseN:0 \ClrText:\ClrList 0\->A:0\->B:\Deg "Ce programme est plus" \Locate 1,2,"efficace pour un "angle inf\Tptchrieur \Xmax 60\Deg>" "" "[EXE] pour continuer"\Disp\ClrText "angle \Xmax tracer"?\->A \For 1\->I \To 10 I\tan A\->\List1[I] \@7F86.1\Int 10\List1[I],0)\->\List2[I] \atan (\List2[I]/I)\->\List3[I] 100\Abs (A-\List3[I])/\Abs A\->\List4[I] \List4[I]\<=\Min(\List4)\=>I\->B \Next "":"":"" \Locate 1,3,"nombre de carreaux \Locate 1,4,"en horizontal \Locate 15,4,B "" \Locate 1,5,"en vertical \Locate 15,5,\List2[B] \Locate 1,6,"erreur \Locate 8,6,\@7F86\List4[B],2) \Locate 12,6,"% \Locate 15,6,\@7F86.01A\List4[B],1) \Locate 19,6,"\Deg>" \@00 %End %Header Record Format:MCS1 Type Number:1 File Name:CALORIES Option Name: Communication SW:0 Capacity:754 Data Type:PG %Data Record Password: BaseN:0 'by fabrice cuveller 'sur Plan\Tmaxte Casio.fr \Lbl 0 \ViewWindow 1,127,0,1,63,0 0\->E \ClrText \@F79E"Calorim\Tptchtrie","Conversions",A,"Capacit\Tptch C",B,"Quantit\Tptch Q",C \Lbl A \@F79E"\Tptchchelle temp\Tptchrature"," \Deg>C \F Result\F Start \Deg>F",1," \Deg>C \F Result\F Start \Deg>K",2," \Deg>C \F Result\F Start \Deg>Rank",3," \Deg>C \F Result\F Start \Deg>R\Tptchaumur",4," Retour",0 \Lbl 1 "Temperature "?\->T T\@E7\Disp\@7F57\@E7\->\DispT\@E7\->\@7F57\@E7\Disp\Disp\Goto0 \Lbl 2 \Lbl 3 \Lbl 4 \Lbl B "Capacit\Tptch massique" "thermique Q(Joules)" " " "Entrez masse en kg"?\->M \ClrText "Entrer la diff\Tptchrence" "de temp\Tptchrature (\Deg>C)"?\->D \ClrText "[1] Entrer C(J\slashkg\slash\Deg>C)" " " "[2] Lire la valeur C" " dans un tableau" \While \ Not E \Getkey\->E \WhileEnd \If E=72 \Then \ClrText "C (J\slashkg\slash\Deg>C)"?\->C "Q (Joules)=" MDC\Disp\Goto0 \Else \If E=62 \Then \ClrGraph \IfEnd \Text 1,5,"Al 897 Mg 1023" \Text 8,5,"Ag 235 " \Text 15,5,"N\Sumy1040 " \Text 22,5,"C 709 " \Text 29,5,"Cu 385 " \Text 36,5,"Sn 228 " \Text 43,5,"Fe 449 "\Disp \Lbl C "Quantit\Tptch Q"\Disp \@00 %End %Header Record Format:MCS1 Type Number:1 File Name:COMPTAGE Option Name: Communication SW:0 Capacity:97 Data Type:PG %Data Record Password: BaseN:0 ?\->A A=0\=>1\->A \If A<0 \Then \(-)A\->A:1\->S \Else 0\->S \IfEnd \Int A\<>A\=>1+S\->S \Int A=0\=>1+S\->S \While \Int A\<>A 10A\->A \WhileEnd S+1+\Int \log A\->N\Disp\@00 %End %Header Record Format:MCS1 Type Number:1 File Name:CONTAGE Option Name: Communication SW:0 Capacity:68 Data Type:PG %Data Record Password: BaseN:0 ?\->A A<0\->S \Abs A+\ Not A\->A \Int A\<>A\ Or \ Not \Int A\=>\Isz S \While \Frac A 10A\->A \WhileEnd S+1+\Int \log A\->N\Disp\@00 %End %Header Record Format:MCS1 Type Number:1 File Name:CONVFRAC Option Name: Communication SW:0 Capacity:174 Data Type:PG %Data Record Password: BaseN:0 ?\->Y \Abs Y\->X \Int X\->Z 1*10^-8\->T Z\->P 1\->Q \If \Abs (X-Z)\<=T\ Or \Abs (X-Z)\<=TX \Then \Goto2 \IfEnd 1\->G Z\->H 0\->E 1\->F \Do 1/(X-Z)\->X \Int X\->Z HZ+G\->P H\->G P\->H FZ+E\->Q F\->E Q\->F \LpWhile \Abs (\Abs Y-P/Q)>T \Lbl 2 \If Y<0 \Then -P\->P \IfEnd P\ab/cQ \@00 %End %Header Record Format:MCS1 Type Number:1 File Name:DEVELOPT Option Name: Communication SW:0 Capacity:89 Data Type:PG %Data Record Password: BaseN:0 "ENTRER X\Deg>"?\->\theta \theta*\Pi/180\->A \Rad "\sin \Mat " \sin A "" A-(A^3)/3!+(A^5)/5!-(A^7)/7!+(A^9)/9!\Disp0\@00 %End %Header Record Format:MCS1 Type Number:1 File Name:EXGETKEY Option Name: Communication SW:0 Capacity:51 Data Type:PG %Data Record Password: BaseN:0 0\->C \While C\<>47 0\->C \While C=0 \Getkey\->C \WhileEnd \Locate 5,5,C \WhileEnd \@00 %End %Header Record Format:MCS1 Type Number:1 File Name:FRACTION Option Name: Communication SW:0 Capacity:77 Data Type:PG %Data Record Password: BaseN:0 ?\->N 0\->I 0\->A 1\->B \While B\<>A \Isz I NI\->B \Int B\->A \WhileEnd B\Disp" ___" I\Disp\@00 %End %Header Record Format:MCS1 Type Number:1 File Name:JOUR~J Option Name: Communication SW:0 Capacity:1841 Data Type:PG %Data Record Password: BaseN:0 [[0,1,2,3,\(-)1,4,5][6,7,\(-)1,8,9,10,11][\(-)1,12,13,14,15,\(-)1,16][17,18,19,\(-)1,20,21,22][23,\(-)1,24,25,26,27,\(-)1][28,29,30,31,\(-)1,32,33][34,35,\(-)1,36,37,38,39][\(-)1,40,41,42,43,\(-)1,44][45,46,47,\(-)1,48,49,50][51,\(-)1,52,53,54,55,\(-)1][56,57,58,59,\(-)1,60,61][62,63,\(-)1,64,65,66,67][\(-)1,68,69,70,71,\(-)1,72][73,74,75,\(-)1,76,77,78][79,\(-)1,80,81,82,83,\(-)1][84,85,86,87,\(-)1,88,89][90,91,\(-)1,92,93,94,95][\(-)1,96,97,98,99,\(-)1,\(-)1]]\->\Mat A [[0,7,14,17,21][1,8,15.1,\(-)1,\(-)1][2,9,18,22,\(-)1][3,10,\(-)1,\(-)1,\(-)1][4,11,15.2,19,23][5,12,16,20,24][6,13,\(-)1,\(-)1,\(-)1]]\->\Mat B [[7,7,1,2,3,4,5][5,6,7,1,2,3,4][4,5,6,7,1,2,3][3,4,5,6,7,1,2][2,3,4,5,6,7,1][1,2,3,4,5,6,7][7,1,2,3,4,5,6]]\->\Mat C [[1,4,4,7,2,5,7,3,6,1,4,6,7,3][2,5,5,1,3,6,1,4,7,2,5,7,1,4][3,6,6,2,4,7,2,5,1,3,6,1,2,5][4,7,7,3,5,1,3,6,2,4,7,2,3,6][5,1,1,4,6,2,4,7,3,5,1,3,4,7][6,2,2,5,7,3,5,1,4,6,2,4,5,1][7,3,3,6,1,4,6,2,5,7,3,5,6,2]]\->\Mat D [[7,1,2,3,4,5,6,7,1,2,3,4,5,6,7,1,2,3,4,5,6,7,1,2,3,4,5,6,7,1,2][1,2,3,4,5,6,7,1,2,3,4,5,6,7,1,2,3,4,5,6,7,1,2,3,4,5,6,7,1,2,3][2,3,4,5,6,7,1,2,3,4,5,6,7,1,2,3,4,5,6,7,1,2,3,4,5,6,7,1,2,3,4][3,4,5,6,7,1,2,3,4,5,6,7,1,2,3,4,5,6,7,1,2,3,4,5,6,7,1,2,3,4,5][4,5,6,7,1,2,3,4,5,6,7,1,2,3,4,5,6,7,1,2,3,4,5,6,7,1,2,3,4,5,6][5,6,7,1,2,3,4,5,6,7,1,2,3,4,5,6,7,1,2,3,4,5,6,7,1,2,3,4,5,6,7][6,7,1,2,3,4,5,6,7,1,2,3,4,5,6,7,1,2,3,4,5,6,7,1,2,3,4,5,6,7,1]]\->\Mat E \Cls "":"":"":"":"":"" \Locate 1,1,"Ce programme trouve" \Locate 1,2,"le jour de la semaine" \Locate 1,3,"qui correspond \Xmax la" \Locate 1,4,"date choisie," \Locate 1,5,"post\Tptchrieure \Xmax 1583." \Locate 1,6,"Version 1.1"\Disp\ClrText "Ann\Tptche "?\->A \Int .01A\->S 100\Frac .01A\->Q "Mois "?\->M "Jour "?\->J \If A<1583 \Then "Ce programme ne" "g\Tmaxre que les dates" "post\Tptchrieures \Xmax 1583" \Stop \IfEnd \For 1\->K \To 18 \For 1\->L \To 7 \Mat A[K,L]=Q\=>L\->R \Next \Next \Frac (Q/4)=0\ And (M=1\ Or M=2)\=>M+12\->M \For 1\->N \To 7 \For 1\->O \To 5 \Mat B[N,O]=S\=>N\->T \Next \Next \Mat C[T,R]\->B \Mat D[B,M]\->C \Mat E[C,J]\->D D=1\=>"Lundi" D=2\=>"Mardi" D=3\=>"Mercredi" D=4\=>"Jeudi" D=5\=>"Vendredi" D=6\=>"Samedi" D=7\=>"Dimanche" \ClrMat \@00 %End %Header Record Format:MCS1 Type Number:1 File Name:LENTILLE Option Name: Communication SW:0 Capacity:2009 Data Type:PG %Data Record Password: BaseN:0 \ClrGraph \ClrText \AxesOff \LabelOff "Programme de calcul" " des lentilles" " convergentes" " " "par FABCVLR" "Plan\Tmaxte\(-)Casio.com\slashfr"\Disp\ClrText "Les longueurs sont" "en centim\Tmaxtres et" "en mesures Alg\Tptchbri\(-)" "\(-)ques."\Disp\ClrText "formule conjugaison"\Disp" _1_ - _1_ = _1_" " OA' OA OF'" " "\Disp" OA'= ____1____" " _1_ + _1_" " OF' OA"\Disp\ClrText "OA:distance lentille" "objet (en cm)." " " "OA n\Tptchgatif, l'objet" "se trouve avant la" "lentille"\Disp\ClrText "OA positif l'objet" "est apr\Tmaxs." " " "OA (cm)= "?\->A \If A<0 \Then "L'objet est r\Tptchel"\Disp\Else "L'objet est virtuel"\Disp\IfEnd \ClrText "Vous connaissez" "[1] la vergence" "[2] la focale"?\->Z \If Z=1 \Then "Vergence (diotries)" "C(\*Row+ ) "?\->V \Abs 100/V\->B "La focale OF=f(cm)" B\Disp\GotoA \Else \If Z=2 \Then "focale OF'=f(cm) "?\->B \Abs B\->B \IfEnd \Lbl A \If A=\(-)B \Then \ClrText "L'image se forme \Xmax" "l'infini car les" "rayons \Tptchmergeants" "sont parall\Tmaxles"\Disp" " "Taille de l'objet" "AB (cm)"?\->D "EXE pour graphique"\Disp\ClrGraph \ViewWindow \(-)1.1B,2.1B,1,\(-)2.1D,2.1D,1 \@F78C\F-Line \(-)1.1B,0,2.1B,0 \@F78D\F-Line 0,2D,0,\(-)2D \@F78D\F-Line \(-)B,0,\(-)B,D \@F78F\F-Line \(-)B,D,2B,\(-)2D \@F78F\F-Line \(-)B,D,0,D \@F78F\F-Line 0,D,2B,\(-)D \Stop \Else 1/((1/B)+(1/A))\->C \IfEnd "position de l'image," "OA'= ":C\Disp"formule grandissement"\Disp"_A'B'_ = _OA'_" " AB OA"\Disp" " "A'B' = _OA'*_AB_" " OA"\Disp"Taille de l'objet" "AB (cm)= "?\->D \If D>0 \Then "Objet droit" \Else "Objet invers\Tptch" \IfEnd (C/A)*D\->E "Hauteur A'B'=":E\DispE/D\->F "\*Row = A'B'\slashAB =":F\Disp\If A<\(-)B \Then "l'image est r\Tptchelle"\Disp\ClrText "C'est le cas du" "projecteur de" "diapositives" "EXE pour graphique"\Disp\ClrGraph \ViewWindow 1.1A,1.1C,0,1.1E,1.1D,0 \@F78F\F-Line A,D,0,D \@F78F\F-Line 0,D,C,E \@F78F\F-Line A,D,C,E \@F78F\F-Line A,D,0,E \@F78F\F-Line 0,E,C,E \@F78C\F-Line A,0,C,0 \@F78E\F-Line C,0,C,E \@F78D\F-Line A,0,A,D \@F78D\F-Line 0,1.1D,0,1.1E \Else \If A>\(-)B\ And A<0 \Then "L'image est virtuelle"\Disp"Cas d'une loupe" "ou de lunettes" "d'hyperm\Tptchtrope." "EXE pour graphique"\Disp\ClrGraph \ViewWindow 1.1C,1.1B,0,\(-)1,1.1E,0 \@F78D\F-Line A,0,A,D \@F78E\F-Line C,0,C,E \@F78F\F-Line A,D,0,D \@F78F\F-Line C,E,0,0 \@F78F\F-Line C,E,B,0 \@F78C\F-Line C,0,B,0 \@F78D\F-Line 0,0,0,E/2 \Else \If A>B \Then "Objet virtuel"\Disp"Cas des lunettes" "de myope" "EXE pour graphique"\Disp\ClrGraph \ViewWindow \(-)1.1B,1.1A,0,\(-)1.1E,1.1D,0 \@F78C\F-Line \(-)1.1B,0,1.1A,0 \@F78D\F-Line 0,D,0,\(-)E \@F78D\F-Line C,0,C,E \@F78E\F-Line A,0,A,D \@F78F\F-Line \(-)C,\(-)E,A,D \@F78F\F-Line \(-)B,0,0,E \@F78F\F-Line 0,E,C,E \@F78F\F-Line \(-)C,D,0,D \@F78F\F-Line 0,D,B,0 \@F78F\F-Line 0,E,A,D \@F78F\F-Line 0,D,A,D \Stop \IfEnd \@00 %End %Header Record Format:MCS1 Type Number:1 File Name:MCU Option Name: Communication SW:0 Capacity:1009 Data Type:PG %Data Record Password: BaseN:0 'by fabrice cuveller \Lbl G \ClrText \@F79E" \(-)= Conversion =\(-)","N(tr\slashmin)\->V(m\slashs)",A,"\@7F58(rad\slashs)\->V(m\slashs)",C,"V(m\slashs)\->N(tr\slashmin)",B,"\@7F58(rad\slashs\->N(tr\slashmin",F,"V(m\slashs)\->\@7F58(rad\slashs)",D,"N(tr\slashmin\->\@7F58(rad\slashs",E \Lbl A "[ V=2\PiRN\slash60 ]" "N(tr\slashmin)= "?\->N \Locate 11,2,N \Locate 1,3,"R(m)=":?\->R \Locate 6,3,R "":2\PiRN/60\->V \Locate 1,4,"V(m\slashs)=" \Locate 1,5,"[EXE] pour continuer" \Locate 8,4,V\Disp\GotoG \Lbl B "[ N=60V\slash2\PiR ]" "V(m\slashs)= "?\->V \Locate 8,2,V \Locate 1,3,"R(m)=":?\->R "":\Locate 6,3,R 60V/(2\PiR)\->N \Locate 1,4,"N(tr\slashmin)=" \Locate 1,5,"[EXE] pour continuer" \Locate 11,4,N\Disp\GotoG \Lbl C "[ V=R*\@7F58 ]" "\@7F58(rad\slashs)= "?\->W \Locate 10,2,W \Locate 1,3,"R(m)= ":?\->R \Locate 6,3,R RW\->V "" \Locate 1,5,"[EXE] pour continuer" \Locate 1,4,"V(m\slashs)=" \Locate 8,4,V\Disp\GotoG \Lbl D "[ \@7F58=V\slashR ]" "V(m\slashs)= "?\->V \Locate 8,2,V \Locate 1,3,"R(m)=":?\->R "":\Locate 6,3,R V/R\->W \Locate 1,5,"[EXE] pour continuer" \Locate 1,4,"\@7F58(rad\slashs)=" \Locate 10,4,W\Disp\GotoG \Lbl E "[ \@7F58=2\PiN\slash60 ]" "N(tr\slashmin)= "?\->N \Locate 11,2,N 2\PiN/60\->W 2N/60\->S \Locate 1,3,"\@7F58(rad\slashs)=" "":"":"" \Locate 1,5,"[EXE] pour continuer" \Locate 10,3,W \Locate 1,4,"\@7F58=\Pi*" \Locate 5,4,S\Disp\GotoG \Lbl F "[ N=60\@7F58\slash2\Pi ]" "\@7F58(rad\slashs)= "?\->W \Locate 10,2,W 60W/2\Pi\->N "":"":\Locate 1,4,"[EXE] pour continuer" \Locate 1,3,"N(tr\slashmin)=" \Locate 11,3,N\Disp\GotoG \@00 %End %Header Record Format:MCS1 Type Number:1 File Name:PROBAS Option Name: Communication SW:0 Capacity:5002 Data Type:PG %Data Record Password: BaseN:0 \Lbl Z \Norm 2 \AxesOff:\LabelOff \BG-None:\DerivOn \ViewWindow 1,127,0,1,63,0 \Cls:\ClrText \@F79E" Probabilit\Tptchs","Rappels de cours",A,"Formules\slashCalculs",B \Lbl A \@F79E" Rappels de cours","Les Permutations",C,"Les Arrangements",D,"Les Combinaisons",E,"L'Esp\Tptchrance",F,"Definitions",G,"Les Lois",H,"Retour",Z '\(-)\(-)\(-)\(-)\(-)LE COURS\(-)\(-)\(-)\(-)\(-) \Lbl C \Text 1,1,"Une permutation d'un ensemble \Text 7,1,"d'elements est une disposition \Text 13,1,"ordonnee de tous les elements \Text 19,1,"de cet ensemble. \Text 25,1,"Deux permutations d'un meme \Text 31,1,"ensemble se distinguent par \Text 37,1,"l'ordre de leurs elements. \Horizontal 18 \Text 49,1,"Ex: les Permutations de {1,2,3}= \Text 56,1,"(123)(132)(213)(231)(312)(321)=6"\Disp\Cls \Text 1,1,"Tous les elements de l'ensem\(-) \Text 7,1,"\(-)ble sont utilises, il n'y a pas \Text 13,1,"de remise. \Text 19,1,"Le nomre de Permutations \Text 25,1,"possibles d'un ensemble de \Intg \Text 31,1,"elements est egal a \Text 38,1,"\Intg !mark=(\Intg \(-)1)*(\Intg \(-)2)*...*3*2*1 \Text 45,1,"\Intg !mark se dit factorielle n \Horizontal 12 \Text 55,1,"Ex: 3!mark = 3*2*1 = 6"\Disp\Cls \Text 1,1,"On utilise les Permutations \Text 7,1,"pour calculer le nombre \Text 13,1,"d'anagrammes d'un mot \Text 19,1,"Ex: CHIEN, mot de 5 lettres \Text 25,1,"donnera 5!mark=120 anagrammes \Text 31,1,"dont certains ont un sens \Text 37,1,"comme NICHE ou CHINE !mark \Text 43,1,"Et 117 autres qui ne veulent \Text 49,1,"rien dire..."\Disp\GotoZ \Lbl D \Cls \Text 1,1,"L'Arrangement d'un ensemble \Text 7,1,"d'elements est une disposition \Text 13,1,"ordonnee d'un certain nombre \Text 19,1,"d'elements de cet ensemble. \Text 25,1,"Deux Arrangements se distin\(-) \Text 31,1,"\(-)guent par l'ordre de leurs \Text 37,1,"elements. \Horizontal 21 \Text 45,1,"Ex: dans l'ensemble {A,B,C} \Text 51,1,"on trouve (A,B) et (B,A) qui \Text 57,1,"sont 2 Arrangements differents"\Disp\Cls \Text 1,1,"On peut utiliser A(n,k) \Text 7,1,"avec n=nombre d'elements \Text 13,1,"dans l'ensemble et k=nombre \Text 19,1,"d'elements selectionnes. \Horizontal 38 \Text 28,1,"Ex: pour calculer le nombre \Text 34,1,"de tierces gagnants pour \Text 40,1,"18 chevaux partants, on aura \Text 46,1,"A(18,3)=18!mark\slash(8\(-)3)!mark = 4 896 \Text 52,1,"soit 1 chance sur 5 000 \Text 58,1,"d'avoir le ticket gagnant !mark"\Disp\GotoZ \Lbl E \Cls \Text 1,1,"La Combinaison d'un ensemble \Text 7,1,"d'elements est une disposition \Text 13,1,"non ordonnee d'un certain \Text 19,1,"nombre d'elements de cet \Text 25,1,"ensemble. \Text 31,1,"Dans une combinaison, on ne \Text 37,1,"tient pas compte de l'ordre \Text 43,1,"des elements selectionnes. \Text 49,1,"Cela correspond au tirage \Text 55,1,"d'un LOTO."\Disp\Cls \Text 1,1,"Contrairement au tierce \Text 7,1,"l'ordre des Numeros n'a pas \Text 13,1,"d'importance. \Text 19,1,"Cela donne moins de cas \Text 25,1,"possibles que dans un \Text 31,1,"Arrangement. \Text 37,1,"Dans l'ensemble {A,B,C}, \Text 43,1,"(A,B) et (B,A) forment une \Text 49,1,"Combinaison."\Disp\Cls \Text 1,1,"On peut utiliser C(n,k) \Text 7,1,"avec n=nombre d'elements \Text 13,1,"dans l'ensemble et k=nombre \Text 19,1,"d'elements selectionnes. \Horizontal 38 \Text 28,1,"Ex: pour calculer le nombre \Text 34,1,"de combinaisons gagnantes \Text 40,1,"a 6 Numeros du LOTO, soit \Text 46,1,"C(49,6)=49!mark\slash6!mark*(49\(-)6)!mark=13983816 \Text 52,1,"1 chance sur 14 millions \Text 58,1,"d'avoir les 6 bons Numeros !mark"\Disp\GotoZ \Lbl F \Cls \Text 1,1,"L'Esperance E(*) correspond au \Text 7,1,"calcul du Gain connaissant \Text 13,1,"les probabilites des evenements \Text 19,1,"et les gains ou les pertes \Text 25,1,"associes. \Horizontal 32 \Text 34,1,"Ex: pour un tirage de De, \Text 40,1,"Le joueur gagne 10 Euros s'il \Text 46,1,"obtient un 6, mais il perd 3 \Text 52,1,"Euros dans les autres cas, \Text 58,1,"E(x)=1\slash6*(10)+5\slash6*(\(-)3)= \(-)0.83"\Disp\Cls \Text 1,1,"Le joueur peut etre chanceux \Text 7,1,"et remporter les 10 Euros des \Text 13,1,"le premier tirage mais a long \Text 19,1,"terme, il ne peut que perdre \Text 25,1,"de l'argent. \Text 31,1,"Il ne devrait pas jouer a ce \Text 37,1,"jeu !mark"\Disp\GotoZ \Lbl G \Cls \Text 1,1,"L'Univers est l'ensemble de \Text 7,1,"tous les evenemets ou issues. \Text 16,1,"L'evenement est un resultat \Text 22,1,"possible d'une experience \Text 28,1,"aleatoire. \Text 37,1,"Une Probabilite est comprise \Text 43,1,"entre 0 et 1 et correspond \Text 49,1,"au nombre de cas favorables \Text 55,1,"sur le nombre de cas possibles."\Disp\GotoZ \Lbl H \Cls \@F79E"LOI de Probabilites","LOI Binomiale",I,"LOI Normale",J,"LOI de Poisson",K,"Variance",L,"Ecart type",M,"Retour",Z \Lbl I \Prog "PROB~BIN" \GotoZ \Lbl J \Prog "PROB~GAU" \GotoZ \Lbl K \Prog "PROB~POI" \GotoZ \Lbl L \GotoZ \Lbl M \GotoZ '\(-)\(-)\(-)LES CALCULS\(-)\(-)\(-) \Lbl B \@F79E"Calculs probabilit\Tptchs","\@7F9B Permutation n!mark",1,"A(n,k)",B,"\@7F9B sans remise",2,"\@7F9B avec remise",3,"C(n,k)",B,"\@7F9B sans remise",4,"\@7F9B avec remise",5,"Retour",Z \Lbl 1 \ClrText "Nb \Tptchl\Tptchments = "?\->N " ":"" \Locate 15,1,N \Locate 1,2,"on aura n!mark= \Locate 12,2,N! \Locate 1,3,"Permutations"\Disp\GotoZ \Lbl 2 \Cls "Arrangement" " sans remise"\Disp\ClrText "Nb \Tptchl\Tptchments n="?\->N "":"" \Locate 15,1,N \Locate 1,2,"Nb \Tptchl. s\Tptchlect. k=" ?\->K \Locate 18,2,K \Locate 1,3,N!/(N-K)! \Locate 1,5," " \Locate 1,6," " \Locate 1,4,"possibilit\Tptchs"\Disp\GotoZ \Lbl 3 \Cls "Arrangement" " avec remise"\Disp\ClrText "Nb \Tptchl\Tptchments n="?\->N "":"" \Locate 15,1,N \Locate 1,2,"Nb \Tptchl. s\Tptchlect. k=" ?\->K \Locate 18,2,K \Locate 1,3,N^K \Locate 1,5," " \Locate 1,6," " \Locate 1,4,"possibilit\Tptchs"\Disp\GotoZ \Lbl 4 \Cls "Combinaison" " sans remise"\Disp\ClrText "Nb \Tptchl\Tptchments n="?\->N "":"" \Locate 15,1,N \Locate 1,2,"Nb \Tptchl. s\Tptchlect. k=" ?\->K \Locate 18,2,K \Locate 1,3,N!/(K!*(N-K)!) \Locate 1,5," " \Locate 1,6," " \Locate 1,4,"possibilit\Tptchs"\Disp\GotoZ \Lbl 5 \Cls "Combinaison" " avec remise"\Disp\ClrText "Nb \Tptchl\Tptchments n="?\->N "":"" \Locate 15,1,N \Locate 1,2,"Nb \Tptchl. s\Tptchlect. k=" ?\->K \Locate 18,2,K \Locate 1,3,(N+K-1)!/(K!*(N-1)!) \Locate 1,5," " \Locate 1,6," " \Locate 1,4,"possibilit\Tptchs"\Disp\GotoZ \@00\nano\@00%\@00 %End %Header Record Format:MCS1 Type Number:1 File Name:PROB~BIN Option Name: Communication SW:0 Capacity:50 Data Type:PG %Data Record Password: BaseN:0 "LOI BINOMIALE" "sous\(-)programme 1"\Disp \Return \@00 %End %Header Record Format:MCS1 Type Number:1 File Name:PROB~GAU Option Name: Communication SW:0 Capacity:269 Data Type:PG %Data Record Password: BaseN:0 "Loi Normale ou" "Loi de Gauss" "" " \(-)(x\(-)E)\Meanx" "f(x)=__1__e 2\List \Meanx" " \List \sqrt(2\Pi)"\Disp"E=Esp\Tptchrance "?\->E "\List =\Tptchcart\(-)type"?\->S \ClrText "Insertion de l'" "\Tptchquation dans \Y 1"\Disp"(1/(S\sqrt(2\Pi)))\e^x\(-)((X-E)\x^2/(2S\x^2))"\->\Y 1 ""\->\Y 2:""\->\Y 3 ""\->\Y 4:""\->\Y 5 \ClrGraph \AxesOn:\LabelOn \DrawGraph \ZoomAuto \FuncOn \Return \@00\@00 %End %Header Record Format:MCS1 Type Number:1 File Name:PROB~POI Option Name: Communication SW:0 Capacity:51 Data Type:PG %Data Record Password: BaseN:0 "LOI de Poisson" "sous\(-)programme 3"\Disp \Return \@00 %End %Header Record Format:MCS1 Type Number:1 File Name:SOLUCE Option Name: Communication SW:0 Capacity:272 Data Type:PG %Data Record Password: BaseN:0 \ClrText \ClrGraph \AxesOn \CoordOn \LabelOn "coordonnees de A" "Xa"?\->A "Ya"?\->B "angle du vecteur"?\->I "A+T\cos I"\->\Xt 1 "B+T\sin I"\->\Yt 1 "coordonnees de B" "Xb"?\->C "Yb"?\->D "angle du vecteur"?\->J "C+T\cos J"\->\Xt 2 "D+T\sin J"\->\Yt 2 A+\cos I(\sin J(C-A)-\cos J(D-B))/(\sin J\cos I-\cos J\sin I)\->Q B+\sin I(\sin J(C-A)-\cos J(D-B))/(\sin J\cos I-\cos J\sin I)\->R Q\DispR\Disp\DrawGraph \ZoomAuto \@00 %End %Header Record Format:MCS1 Type Number:1 File Name:STATS Option Name: Communication SW:0 Capacity:284 Data Type:PG %Data Record Password: BaseN:0 \Lbl Z \ClrText "Programme d'aide \Xmax" "la construction de" "tableaux statistiques"\Disp"Entrez le nombre de" "classes "?\->N \BG-None:\DerivOn \LabelOff:\AxesOff \ViewWindow 1,127,0,1,63,0:\Cls \Vertical 1 \Text 1,3,"1234567890123456789012345678901" \Text 8,3,"2" \Text 15,3,"3" \Text 22,3,"4" \Text 29,3,"5" \Text 36,3,"6" \Text 43,3,"7" \Text 50,3,"8" \Text 57,3,"9"\Disp\Cls \@00 %End %Header Record Format:MCS1 Type Number:1 File Name:SUITES Option Name: Communication SW:0 Capacity:4940 Data Type:PG %Data Record Password: BaseN:0 \Lbl Z \ClrText \AxesOff:\LabelOff \Norm 2 \ViewWindow 1,127,0,1,63,0 "Programme de calcul" " pour les suites" " arithm\Tptchtiques et" " g\Tptchom\Tptchtriques" " by FABCVLR" \Locate 1,7,"sur planet\(-)casio.fr" \For 1\->I \To 21 \Locate I,6,"\R a2" \For 1\->J \To 40 \Next \Next \ClrText \@F79E"suite du type:","U\@E7n+1=U\@E7n+r",A,"U\@E7n+1=U\@E7n*q",B,"U\@E7n+1=q*U\@E7n+r",C '------------------- \Lbl A \Cls \Text 1,1,"Suite Arithmetique \Text 7,1,"du type: Un+1=Un+r \Text 13,1,"de raison r= \For 1\->I \To 800 \Next \Lbl 0 "Entrez la raison r"?\->R \Text 13,51,R \For 1\->I \To 1000 \Next \@F79E"le premier terme","U\Pi",D,"U\Cls",E \Lbl D "U\Pi= "?\->U \Text 19,1,"U\Pi=" \Text 19,13,U \Text 25,1,"U\@E7n=U\Pi+n*r" \For 1\->I \To 1\kilo \Next "Entrez le rang"?\->N U+NR\->V .5(N+1)*(2U+NR)\->S U>0\=>4*(1+\Int \log U)\->C U=0\=>4\->C U<0\=>4*(1+\Int \log \Abs U)+4\->C \Frac U\<>0\=>C+12\->C V>0\=>4*(1+\Int \log V)\->D V=0\=>4\->D V<0\=>4*(1+\Int \log \Abs V)+4\->D \Frac V\<>0\=>D+12\->D 4*(1+\Int \log N)\->E R>0\=>4*(1+\Int \log R)\->F R<0\=>4*(1+\Int \log \Abs R)+4\->F R=0\=>\Goto0 \Frac R\<>0\=>F+12\->F \Text 31,1,"U \Text 31,5,N \Text 31,5+E,"= \Text 31,9+E,U \Text 31,9+E+C,"+ \Text 31,13+E+C,N \Text 31,13+2E+C,"* \Text 31,17+2E+C,R \Text 31,17+2E+C+F,"= \Text 31,21+2E+C+F,V \Text 37,1,"S\@E7n=U\Pi+U\Cls+ ... +U\@E7n \Text 43,1,"S\@E7n=(n+1)*(U\Pi+U\@E7n)\slash2 \Text 49,1,"S \Text 49,5,N \Text 49,5+E,"=( \Text 49,12+E,N \Text 49,12+2E,"+1)*( \Text 49,31+2E,U \Text 49,31+2E+C,"+ \Text 49,35+2E+C,V \Text 49,35+2E+C+D,")\slash2 \Text 55,1,"S \Text 55,5,N \Text 55,5+E,"= \Text 55,9+E,S \Stop \Lbl E "U\Cls= "?\->U \Text 19,1,"U1= \Text 19,13,U \Text 25,1,"U\@E7n=U\Cls+(n-1)*r \For 1\->I \To 1\kilo \Next "Entrez le rang"?\->N U+(N-1)*R\->V .5N*(2U+(N-1)*R)\->S U>0\=>4*(1+\Int \log U)\->C U=0\=>4\->C U<0\=>4*(1+\Int \log \Abs U)+4\->C \Frac U\<>0\=>C+12\->C V>0\=>4*(1+\Int \log V)\->D V=0\=>4\->D V<0\=>4*(1+\Int \log \Abs V)+4\->D \Frac V\<>0\=>D+12\->D 4*(1+\Int \log N)\->E R>0\=>4*(1+\Int \log R)\->F R=0\=>\Goto0 R<0\=>4*(1+\Int \log \Abs R)+4\->F \Frac R\<>0\=>F+12\->F \Text 31,1,"U \Text 31,5,N \Text 31,5+E,"= \Text 31,9+E,U \Text 31,9+E+C,"+( \Text 31,16+E+C,N \Text 31,16+2E+C,"-1)* \Text 31,32+2E+C,R \Text 31,32+2E+C+F,"= \Text 31,36+2E+C+F,V \Text 37,1,"S\@E7n=U\Cls+U\@D2+ ... +U\@E7n \Text 43,1,"S\@E7n=n*(U\Cls+U\@E7n)\slash2 \Text 49,1,"S \Text 49,5,N \Text 49,5+E,"= \Text 49,9+E,N \Text 49,9+2E,"*( \Text 49,16+2E,U \Text 49,16+2E+C,"+ \Text 49,20+2E+C,V \Text 49,20+2E+C+D,")\slash2 \Text 55,1,"S \Text 55,5,N \Text 55,5+E,"= \Text 55,9+E,S \Stop '------------------- \Lbl B \Cls \Text 1,1,"Suite Geometrique" \Text 7,1,"du type: Un+1=Un*q" \Text 13,1,"de raison q=" \For 1\->I \To 800 \Next \Lbl 1 "Entrez la raison q="?\->Q \Text 13,50,Q \For 1\->I \To 1000 \Next \@F79E"le premier terme","U\Pi",F,"U\Cls",G \Lbl F "U\Pi="?\->U \Text 19,1,"U\Pi=" \Text 19,13,U \Text 25,1,"U\@E7n=U\Pi*q^n" \For 1\->I \To 1000 \Next "Entrez le rang"?\->N U*(Q^(N+1)-1)/(Q-1)\->S U*Q^N\->V U>0\=>4*(1+\Int \log U)\->C U=0\=>4\->C U<0\=>4*(1+\Int \log \Abs U)+4\->C \Frac U\<>0\=>C+12\->C V>0\=>4*(1+\Int \log V)\->D V=0\=>4\->D V<0\=>4*(1+\Int \log \Abs V)+4\->D \Frac V\<>0\=>D+12\->D 4*(1+\Int \log N)\->E Q>0\=>4*(1+\Int \log Q)\->F Q=0\=>\Goto1 Q<0\=>4*(1+\Int \log \Abs Q)+4\->F \Frac Q\<>0\=>F+12\->F \Text 31,1,"U" \Text 31,5,N \Text 31,5+E,"=" \Text 31,9+E,U \Text 31,9+E+C,"*" \Text 31,13+E+C,Q \Text 31,13+E+C+F,"^" \Text 31,17+E+C+F,N \Text 31,17+2E+C+F,"=" \Text 31,21+2E+C+F,V \Text 37,1,"S\@E7n=U\Pi+U\Cls+ ... +U\@E7n" \Text 43,1,"S\@E7n=U\Pi*(q^(n+1)-1)\slash(q-1)" \Text 49,1,"S" \Text 49,5,N \Text 49,5+E,"=(" \Text 49,12+E,U \Text 49,12+E+C,"*(" \Text 49,19+E+C,Q \Text 49,19+E+C+F,"^(" \Text 49,26+E+C+F,N \Text 49,26+2E+C+F,"+1)-1)\slash(" \Text 49,55+2E+C+F,Q \Text 49,55+2E+C+2F,"-1)" \Text 55,1,"S" \Text 55,5,N \Text 55,5+E,"=" \Text 55,9+E,S \Stop \Lbl G "U\Cls="?\->U \Text 19,1,"U1=" \Text 19,15,U \Text 25,1,"U\@E7n=U\Cls*q^(n-1)" \For 1\->I \To 1000 \Next "Entrez le rang"?\->N U*(Q^N-1)/(Q-1)\->S U*Q^(N-1)\->V U>0\=>4*(1+\Int \log U)\->C U=0\=>4\->C U<0\=>4*(1+\Int \log \Abs U)+4\->C \Frac U\<>0\=>C+12\->C V>0\=>4*(1+\Int \log V)\->D V=0\=>4\->D V<0\=>4*(1+\Int \log \Abs V)+4\->D \Frac V\<>0\=>D+12\->D 4*(1+\Int \log N)\->E Q>0\=>4*(1+\Int \log Q)\->F Q=0\=>\Goto1 Q<0\=>4*(1+\Int \log \Abs Q)+4\->F \Frac Q\<>0\=>F+12\->F \Text 31,1,"U" \Text 31,5,N \Text 31,5+E,"=" \Text 31,9+E,U \Text 31,9+E+C,"*q^(" \Text 31,24+E+C,N \Text 31,24+2E+C,"-1)=" \Text 31,40+2E+C,V \Text 37,1,"S\@E7n=U\Cls+U\@D2+ ... +U\@E7n" \Text 43,1,"S\@E7n=U\Cls*(q^\@E7n-1)\slash(q-1)" \Text 49,1,"S" \Text 49,5,N \Text 49,5+E,"=" \Text 49,9+E,U \Text 49,9+E+C,"*(" \Text 49,16+E+C,Q \Text 49,16+E+C+F,"^(" \Text 49,23+E+C+F,N \Text 49,23+2E+C+F,"-1)\slash(" \Text 49,42+2E+C+F,Q \Text 49,42+2E+C+2F,"-1)" \Text 55,1,"S" \Text 55,5,N \Text 55,5+E,"=" \Text 55,9+E,S \Stop '------------------- \Lbl C \Cls \Text 1,1,"Suite Arithmetico\(-)geometrique" \Text 7,1,"du type: Un+1=q*Un+r" \For 1\->I \To 800 \Next "Entrez q="?\->Q Q\->\theta ""\->\@F93F20 \theta<0\=>"\(-)"\->\@F93F20 \Abs \theta\->\theta \Int \log (\theta+\ Not \theta\->\r 0\->W \Frac \theta \While \Frac \Ans \Dsz W 10\Ans \WhileEnd \For \r\->V \To W \Step \(-)1 10\Frac (.1\Int (\theta\10^x\(-)V V=\(-)1\=>\@F93F20+"."\->\@F93F20 \@F93F20+\@F936"0123456789",\Ans+1,1)\->\@F93F20 \Next Q=1\=>\GotoB "Entrez r="?\->R R=0\=>\GotoA R\->\theta ""\->\@F93F19 \theta<0\=>"\(-)"\->\@F93F19 \Abs \theta\->\theta \Int \log (\theta+\ Not \theta\->\r 0\->W \Frac \theta \While \Frac \Ans \Dsz W 10\Ans \WhileEnd \For \r\->V \To W \Step \(-)1 10\Frac (.1\Int (\theta\10^x\(-)V V=\(-)1\=>\@F93F19+"."\->\@F93F19 \@F93F19+\@F936"0123456789",\Ans+1,1)\->\@F93F19 \Next \Text 7,1,"du type: Un+1="+\@F93F20+"*Un+"+\@F93F19 \Text 13,1,"avec q="+\@F93F20+" et r="+\@F93F19 \Text 19,1,"calcul du point fixe" \Text 25,1,"L=r\slash(1-q)="+\@F93F19+"\slash(1-"+\@F93F20+")=" R/(1-Q)\->L \Text 25,62+4\@F931\@F93F20)+4\@F931\@F93F19),L \Text 31,1,"suite auxiliaire Wn=Un+" \Text 31,90,\(-)L\Disp\@F79E"le premier terme","U\Pi",S,"U\Cls",T \Lbl S \ClrText "U\Pi= "?\->U \Text 37,1,"U\Pi=" \Text 37,13,U "rang n= "?\->N \Text 43,1,"Un=(U0-r\slash(1-q)*q^n+r\slash(1-q)" (U-R/(1-Q))*Q^N+R/(1-Q)\->V \Text 49,1,"U" \Text 49,5,N \Text 49,13,"=" \Text 49,17,V\Disp\Cls (U-R/(1-Q))*(1-Q^(N+1))/(1-Q)+(N+1)R/(1-Q)\->S \Text 4,1,"Sn= (U0- r ) 1-q (n+1).r \Text 1,73,"n+1 \Text 8,52,"* \Text 8,86,"+ \Text 13,1," 1-q 1-q 1-q \F-Line 34,54,43,54 \F-Line 60,54,73,54 \F-Line 93,54,118,54 \Text 19,1,"S" \Text 19,5,N \Text 19,13,"=" \Text 19,17,S \Stop \Lbl T \ClrText "U\Cls= "?\->U \Text 37,1,"U\Cls=" \Text 37,13,U "rang n= "?\->N \Text 43,1,"Un=(U1-R\slash(1-Q)*Q^n\(-)1+R\slash(1-Q)" (U-R/(1-Q))*(Q^(N-1))+R/(1-Q)\->V \Text 49,1,"U" \Text 49,5,N \Text 49,13,"=" \Text 49,17,V\Disp\Cls (U-R/(1-Q))*(1-Q^(N))/(1-Q)+(N)R/(1-Q)\->S \Text 4,1,"Sn= (U1- r ) 1-q n.r \Text 1,73,"n \Text 8,52,"* \Text 8,80,"+ \Text 13,1," 1-q 1-q 1-q \F-Line 34,54,43,54 \F-Line 60,54,73,54 \F-Line 88,54,100,54 \Text 19,1,"S" \Text 19,5,N \Text 19,13,"=" \Text 19,17,S \Stop \@00\@00\nano\@00%\@00\milli\@00%E\@00S\milli\@00%En\@00\Mega\@00%End\@00S\Mega\@00%En\@00 %End %Header Record Format:MCS1 Type Number:1 File Name:TABLEAU Option Name: Communication SW:0 Capacity:423 Data Type:PG %Data Record Password: BaseN:0 \AxesOff:\BG-None \LabelOff \FuncOff \Cls \ViewWindow 1,127,0,1,63,0 \@F78D\F-Line 1,1,127,1 \@F78C\F-Line 1,1,1,45 \@F78D\F-Line 127,1,127,63 \@F78C\F-Line 25,63,127,63 \Vertical 24 \Vertical 42 \Vertical 63 \Vertical 84 \Vertical 105 \Horizontal 16 \Horizontal 31 \Horizontal 46 \Text 8,33,"0 \Text 8,50,"30 \Text 8,72,"45 \Text 8,90,"60 \Text 8,112,"90 \Text 24,8,"Sin \Text 38,8,"Cos \Text 54,8,"Tan \Text 24,33,"0 \Text 38,32,"1 \Text 54,33,"0 \Text 24,45,"1\slash2 \Text 38,45,"\sqrt3\slash2 \Text 54,45,"\sqrt3\slash3 \Text 24,66,"\sqrt2\slash2 \Text 38,66,"\sqrt2\slash2 \Text 54,74,"1 \Text 24,87,"\sqrt3\slash2 \Text 38,89,"1\slash2 \Text 54,89,"\sqrt3 \Text 24,114,"1 \Text 38,114,"0 \Text 54,114,"\infinity \@00 %End %Header Record Format:MCS1 Type Number:1 File Name:TANGENTE Option Name: Communication SW:0 Capacity:1419 Data Type:PG %Data Record Password: BaseN:0 \ClrText \BG-None:\DerivOn \LabelOff:\AxesOff \ViewWindow 1,127,0,1,63,0:\Cls ""\->\@F93F1 "Calcul de l'\Tptchquation de la Tangente en I" "d'une courbe." "" "Entrez la fonction" "f(x)= "?\->\@F93F1 \@F93F1\->\Y 1 \Text 1,1,"f(x)="+\@F93F1\Disp\ClrText "abscisse du point de tangence I\@E7x="?\->I I\->X I\->\theta ""\->\@F93F20 \theta<0\=>"\(-)"\->\@F93F20 \Abs \theta\->\theta \Int \log (\theta+\ Not \theta\->\r 0\->W \Frac \theta \While \Frac \Ans \Dsz W 10\Ans \WhileEnd \For \r\->V \To W \Step \(-)1 10\Frac (.1\Int (\theta\10^x\(-)V V=\(-)1\=>\@F93F20+"."\->\@F93F20 \@F93F20+\@F936"0123456789",\Ans+1,1)\->\@F93F20 \Next \Text 8,1,"abscisse point de tangence="+\@F93F20 \@F938\@F93F1)\->J J\->\theta ""\->\@F93F19 \theta<0\=>"\(-)"\->\@F93F19 \Abs \theta\->\theta \Int \log (\theta+\ Not \theta\->\r 0\->W \Frac \theta \While \Frac \Ans \Dsz W 10\Ans \WhileEnd \For \r\->V \To W \Step \(-)1 10\Frac (.1\Int (\theta\10^x\(-)V V=\(-)1\=>\@F93F19+"."\->\@F93F19 \@F93F19+\@F936"0123456789",\Ans+1,1)\->\@F93F19 \Next \Text 15,1,"ordonnee f("+\@F93F20+")="+\@F93F19 \Text 22,1,"coordonnees I("+\@F93F20+";"+\@F93F19+")"\Disp\Text 29,1,"Calcul du nombre derive de la" \Text 36,1,"fonction pour le meme abscisse" \d/dx(\Y 1,I)\->A A\->\theta ""\->\@F93F18 \theta<0\=>"\(-)"\->\@F93F18 \Abs \theta\->\theta \Int \log (\theta+\ Not \theta\->\r 0\->W \Frac \theta \While \Frac \Ans \Dsz W 10\Ans \WhileEnd \For \r\->V \To W \Step \(-)1 10\Frac (.1\Int (\theta\10^x\(-)V V=\(-)1\=>\@F93F18+"."\->\@F93F18 \@F93F18+\@F936"0123456789",\Ans+1,1)\->\@F93F18 \Next \Text 43,1,"f'("+\@F93F20+")="+\@F93F18 \Text 49,1,"C'est le coefficient directeur" \Text 56,1,"de la tangente d'equation"\Disp\ClrGraph \Text 1,1,"y="+\@F93F18+"x+b" \Text 8,1,"Calcul de b:" \Text 15,1,"On remplace x et y par les" \Text 22,1,"coordonnees de I dans cette" \Text 29,1,"equation" \Text 36,1,\@F93F19+"="+\@F93F18+"*"+\@F93F20+"+b" \Y 1(I)-A*I\->B B\->\theta ""\->\@F93F17 \theta<0\=>"\(-)"\->\@F93F17 \Abs \theta\->\theta \Int \log (\theta+\ Not \theta\->\r 0\->W \Frac \theta \While \Frac \Ans \Dsz W 10\Ans \WhileEnd \For \r\->V \To W \Step \(-)1 10\Frac (.1\Int (\theta\10^x\(-)V V=\(-)1\=>\@F93F17+"."\->\@F93F18 \@F93F17+\@F936"0123456789",\Ans+1,1)\->\@F93F17 \Next \Text 43,1,"b="+\@F93F17 \Text 49,1,"L'eqation de la tangente est" \Text 56,1,"y="+\@F93F18+"x+"+\@F93F17\Disp\ClrText:\ClrGraph \AxesOn:\LabelOn \@F93F18+"X+"+\@F93F17\->\Y 2 \DrawGraph \ZoomAuto \@00 %End %Header Record Format:MCS1 Type Number:1 File Name:TRA~PUI Option Name: Communication SW:0 Capacity:1701 Data Type:PG %Data Record Password: BaseN:0 \Lbl Z \ClrText \@F79E"Travail & Puissance","Travail Force",1,"Travail Couple",2,"Puissance Force",3,"Puissance Couple",4,"W(Joule)\F StartP(Watt)",5,"Rendement \Dim ",6 \Lbl 1 \ClrText "W = Force * distance" "W = F * d.\cos \Mat " "" " F\H Start" "[]\@7F54)\Mat []" " \@7C\F Result---d---\F Start\@7C"\Disp\ClrText "F(Newton)= "?\->F \Locate 12,1,F \Locate 1,3," " \Locate 1,2,"d(m\Tmaxtre)=" ?\->D \Locate 10,2,D \Locate 1,3,"Angle(Force,distance)" \Locate 1,4," " ?\->\theta \Locate 1,4,"\Mat = " \Locate 5,4,\theta F*D*\cos \theta\->W \Locate 1,5,"W(J)=" \Locate 6,5,W \Locate 1,6," "\Disp\GotoZ \Lbl 2 \ClrText "W=C*\theta" "C (N.m)="?\->C \Locate 9,2,C \Locate 1,3,"\Fill( [1]\@7F9B Rad, [2]\@7F9B \Deg>" ?\->\r \If \r=2 \Then \Locate 1,3,"\theta(\Deg>)= " ?\->A \Locate 8,4,A \Locate 1,4,"\theta(Rad)=" A\Pi/180\->A \Locate 8,4,A \GotoD \Else \If \r\<>1 \Then \GotoZ \IfEnd \Locate 1,3,"\Fill((Rad)= " ?\->A \Locate 8,3,A \Lbl D \Locate 1,4,"W(J)=" \Locate 6,4,CA \Locate 1,5," " \Locate 1,6," " \Locate 1,7," "\Disp\GotoZ \Lbl 3 "P = Force * vitesse" "Force (Newton) "?\->F "Vitesse (m\slashs) "?\->V "Puissance (Watt)=" FV\Disp\GotoZ \Lbl 4 "P= Couple * \@7F58" "C (N.m)= "?\->C "\@7F58 (Rad\slashs)= "?\->W "P(Watt)=" CW\Disp\GotoZ \Lbl 5 "P=W\slasht" "W (Joule) "?\->W "t(seconde) "?\->T "P(Watt)=" W/T\Disp\GotoZ \Lbl 6 \@F79E"Calcul de rendement","Puis. Absorb\Tptche",A,"Puissance Utile",B,"Rendement \Dim ",C \Lbl A \ClrText "Puissance absorb\Tptche:" "=Puissance consomm\Tptche" "" ""\Disp\ClrText "Pa = Pu \slash \Dim "\Disp"Pu (Watt)= " ?\->P \Locate 12,2,P \Locate 1,4," " \Lbl N \Locate 1,3,"\Dim = " ?\->N N>1\=>\GotoN \Locate 5,3,N \Locate 1,5," " \Locate 1,6," " \Locate 1,4,"Pa (Watt)=" \Locate 12,4,P/N\Disp\GotoZ \Lbl B \ClrText "Puissance Utile:" "=Puissance M\Tptchcanique"\Disp\ClrText "" \Locate 1,1,"P Absorb\Tptche=" ?\->T \Locate 12,1,T \Locate 1,3," " \Locate 1,2,"\Dim = " \Lbl R ?\->N N>1\=>\GotoR \Locate 5,2,N \Locate 1,4," " \Locate 1,5," " \Locate 1,3,"Pu = " \Locate 6,3,NT\Disp\GotoZ \Lbl C \ClrText "Rendement \Dim (\Xfctta):" "\Dim = Pu\slashPa" "\Dim \<=1 !mark"\Disp\ClrText "P Utile = " ?\->P \Locate 1,3," " \Locate 11,1,P \Locate 1,3," " \Locate 1,2,"P Absorb\Tptche =" ?\->T \If T

Pa !mark"\Disp\GotoC \IfEnd \Locate 14,2,T \Locate 1,4," " \Locate 1,5," " \Locate 1,3,"\Dim = " \Locate 5,3,P/T\Disp\GotoZ \@00 %End %Header Record Format:MCS1 Type Number:1 File Name:TRIGO Option Name: Communication SW:0 Capacity:1358 Data Type:PG %Data Record Password: BaseN:0 " Attention !mark!mark!mark!mark" "Le triangle doit \Xfcttre rectangle"\Disp\ClrText \Deg \@F79E"On recherche:","Un c\RightYmaxt\Tptch",1,"Un angle",2,"Quitter",0 \Lbl 1 \ClrText \@F79E"On cherche:","l'Adjacent",A,"l'Oppos\Tptch",B,"l'Hypot\Tptchnuse",C,"Quitter",0 \Lbl A \ClrText \@F79E"On conna\D pitcht:","Oppos\Tptch+hypot\Tptchn",D,"Hypoth\Tptchn+angle",E,"Angle et oppos\Tptch",F,"Quitter",0 \Lbl D \ClrText "\-> Phythagore"\Disp"Oppos\Tptch"?\->C "Hypot\Tptchnuse"?\->D "Adjacent:" \sqrt(D\x^2-C\x^2)\->E\Disp\Return \Lbl E "Hypot\Tptchnuse"?\->B "Angle"?\->A "Adjacent:" B*\cos (A)\->C\Disp\Return \Lbl F "Oppos\Tptch"?\->C "Angle"?\->D "Adjacent:" C/\tan (D)\Disp\Return \Lbl B \ClrText \@F79E"On conna\D pitcht:","Adjacent+hypoth\Tptchnuse",F,"Adjacent et angle",G,"Hypoth\Tptchnuse+angle",H,"Quitter",0 \Lbl F \ClrText "\-> Pythagore"\Disp"Adjacent"?\->C "Hypot\Tptchnuse"?\->D "Oppos\Tptch:" \sqrt(D\x^2-C\x^2) \Return \Lbl G \ClrText "Adjacent"?\->C "Angle"?\->D "Oppos\Tptch:" C*\tan D\Disp\Return \Lbl H \ClrText "Hypot\Tptchnuse"?\->C "Angle"?\->D "Oppos\Tptch:" C*\sin D\Disp\Return \Lbl C \ClrText \@F79E"On conna\D pitcht:","Adjacent+Oppos\Tptch",I,"Adjacent et angle",J,"Oppos\Tptch et angle",K,"Quitter",0 \Lbl I \ClrText "Adjacent"?\->C "Oppos\Tptch"?\->D "Hypot\Tptchnuse:" \sqrt(C\x^2+D\x^2)\->E\Disp\Return \Lbl J \ClrText "Adjacent"?\->C "Angle"?\->D "Hypot\Tptchnuse:" C/\cos (D)\Disp\Return \Lbl K \ClrText "Oppos\Tptch"?\->C "Angle"?\->D "Hypoth\Tptchnuse:" C/\sin (D)\Disp\Return \Lbl 2 \ClrText \@F79E"On connait:","Adj et oppos\Tptch",V,"Adjacent et hypo",W,"Opp et hypot\Tptchnuse",X,"Quitter",0 \Lbl V \ClrText "Adjacent"?\->A "Oppos\Tptch"?\->O \atan (O/A)\->B\Disp" Degr\Tptch"\Disp\GotoZ \Lbl W \ClrText "Adjacent"?\->A "Hypot\Tptchnuse"?\->H \acos (A/H)\->B\Disp" Degr\Tptch"\Disp\GotoZ \Lbl X \ClrText "Adjacent"?\->A "Oppos\Tptch"?\->O \atan (O/A)\->B\Disp" Degr\Tptch"\Disp\Lbl 0 \Stop\@00 %End %Header Record Format:MCS1 Type Number:1 File Name:TRILISTE Option Name: Communication SW:0 Capacity:363 Data Type:PG %Data Record Password: BaseN:0 \ClrGraph "XA "?\->A "YA "?\->B "XB "?\->C "YB "?\->D "XC "?\->E "YC "?\->F "XI "?\->I "YI "?\->J {A,B,E,I}\->\List 1 {B,D,F,J}\->\List 2 \SortA(\List 1) \SortA(\List 2) \Lbl 1 \List 1[1]-5\->\Xmin \List 1[4]\->\Xmax \List 2[1]-5\->\Ymin \List 2[4]\->\Ymax \Plot A,B \Plot C,D \Plot E,F \Plot I,J \@F78F\F-Line A,B,I,J \@F78F\F-Line C,D,I,J \@F78F\F-Line E,F,I,J {A,C,E}\->\List 3 {B,D,F}\->\List 4 \SortA(\List 3) \SortA(\List 4) \Min(\List 3)\->T \Max(\List 3)\->V \Min(\List 4)\->U \Max(\List 4)\->W \@F78C\F-Line T,U,V,U \@F78C\F-Line V,U,V,W \@F78C\F-Line V,W,T,W \@F78C\F-Line T,W,T,U \@00 %End %Header Record Format:MCS1 Type Number:1 File Name:VAR2STR Option Name: Communication SW:0 Capacity:179 Data Type:PG %Data Record Password: BaseN:0 ?\->\theta ""\->\@F93F20 \theta<0\=>"\(-)"\->\@F93F20 \Abs \theta\->\theta \Int \log (\theta+\ Not \theta\->\r 0\->W \Frac \theta \While \Frac \Ans \Dsz W 10\Ans \WhileEnd \For \r\->V \To W \Step \(-)1 10\Frac (.1\Int (\theta\10^x\(-)V V=\(-)1\=>\@F93F20+"."\->\@F93F20 \@F93F20+\@F936"0123456789",\Ans+1,1)\->\@F93F20 \Next \Locate 1,3,"SOIT "+\@F93F20+" \acos " \@00 %End %Header Record Format:MCS1 Type Number:1 File Name:VECTEUR Option Name: Communication SW:0 Capacity:1925 Data Type:PG %Data Record Password: BaseN:0 \Lbl 0 \ClrText \Deg \@F79E"Calcul vectoriel","composante point",1,"Norme",2,"milieu",3,"Produit Scalaire",4,"Prod. Vectoriel",5,"vecteur unitaire",6 \Lbl 1 "Calcul composantes" " -\->" "du VECTEUR AB \Xmax" "partir de 2 points"\Disp\ClrText "coordonn\Tptches du pt A" "ENTRER X\@E7A"?\->A "ENTRER Y\@E7A"?\->B "ENTRER Z\@E7A"?\->C "coordonn\Tptches du pt B" "ENTRER X\@E7B"?\->D "ENTRER Y\@E7B"?\->E "ENTRER Z\@E7B"?\->F D-A\->I E-B\->J F-C\->K \ClrText \Locate 1,2,"-\F Start" \Locate 5,2,"\@7C" \Locate 7,2,I \Locate 1,3,"AB =" \Locate 5,3,"\@7C" \Locate 7,3,J \Locate 5,4,"\@7C" \Locate 7,4,K\Disp\Goto0 \Lbl 3 "Entrer coordonn\Tptches" "des points A(X\@E7A,Y\@E7A)" "et B(X\@E7B,Y\@E7B) pour le" "segment AB" " "\Disp"ENTRER X\@E7A"?\->A "ENTRER Y\@E7A"?\->B "ENTRER X\@E7B"?\->C "ENTRER Y\@E7B"?\->D (A+C)/2\->G (B+D)/2\->H "COORDONNEES MILIEU" "Xmilieu=(X\@E7A+X\@E7B)\slash2=" G\Disp"Ymilieu=(Y\@E7A+Y\@E7B)\slash2=" H\Disp\Goto0 \Lbl 2 \ClrGraph \Locate 11,2,"\F Start" \Locate 1,3,"norme de \St Fdfu\St Fdf"\Disp\ClrText "ENTRER Ux"?\->E "ENTRER Uy"?\->F "Entrer Uz"?\->G \ClrText \Locate 2,2,"\->" \Locate 1,3,"\St Fdfu\St Fdf= \sqrt(U\@E7x\x^2+U\@E7y\x^2+U\@E7z\x^2)" \Locate 2,4,"\->" \Locate 1,5,"\St Fdfu\St Fdf= \sqrt" \Locate 7,5,E\x^2+F\x^2+G\x^2 \Locate 2,6,"\->" \Locate 1,7,"\St Fdfu\St Fdf=" \Locate 7,7,\sqrt(E\x^2+F\x^2+G\x^2)\Disp\Goto0 \Lbl 4 \ClrText "Prod scalaire" "\-> \->" "u \R a0 v = a"\Disp" \-> \->" "si a=0 alors u \Chi2 v"\Disp\ClrText "VECTEUR u" "ENTRER U\@E7X"?\->A "ENTRER U\@E7Y"?\->B "ENTRER U\@E7Z"?\->C \ClrText "VECTEUR v" "ENTRER V\@E7X"?\->D "ENTRER V\@E7Y"?\->E "ENTRER V\@E7Z"?\->F \ClrText \Locate 1,1,"\F Start \F Start" \Locate 1,2,"u \R a0 v = " AD+BE+CF\->S \Locate 9,2,S \Locate 2,3,"\F Start" \Locate 1,4,"\St Fdfu\St Fdf= " \sqrt(A\x^2+B\x^2+C\x^2)\->U \Locate 7,4,U \Locate 2,5,"\F Start" \Locate 1,6,"\St Fdfv\St Fdf= " \sqrt(D\x^2+E\x^2+F\x^2)\->V \Locate 7,6,V \Locate 1,7,"Angle =" \Locate 9,7,\acos (S/(UV)) \Stop \Lbl 5 \ClrText "Prod vectoriel" "U \@7FCF V = W"\Disp\ClrText "VECTEUR u" "U\@E7X= "?\->A "U\@E7Y= "?\->B "U\@E7Z= "?\->C \ClrText "VECTEUR v" "V\@E7X= "?\->D "V\@E7Y= "?\->E "V\@E7Z= "?\->F \ClrText \Locate 1,1,"\F Start" \Locate 5,1,"\@7C" BF-CE\->L \Locate 7,1,L \Locate 1,2,"W =" CD-AF\->M \Locate 5,2,"\@7C" \Locate 7,2,M \Locate 5,3,"\@7C" AE-BD\->N \Locate 7,3,N \Locate 1,5,"\St Fdfw\St Fdf= " \Locate 7,5,\sqrt(L\x^2+M\x^2+N\x^2) \Lbl 6 \ClrText "VECTEUR u" "U\@E7X= "?\->A "U\@E7Y= "?\->B "U\@E7Z= "?\->C A\x^2+B\x^2+C\x^2\->S \ClrText "-\F Start \F Start \@7CU\rx" "u\r =_U_ = \@7CU\ry" " \St FdfU\St Fdf \@7CU\rz"\Disp\ClrText \Locate 10,1,"\@7C\Dec>" \Locate 1,2,"-\F Start \F Start \@7C\sqrt" \Locate 1,3,"u\r= \Dec>U\Dec> =\@7C\Dec>" \Locate 1,5," \@7C\Dec>" \Locate 5,4,"\sqrt" \Locate 6,4,S \Locate 10,4,"\@7C\sqrt" \Locate 12,1,A \Locate 12,3,B \Locate 12,5,C \Locate 10,6,"\@7C\sqrt" \Locate 12,2,S \Locate 12,4,S \Locate 12,6,S \@00\nano\@00%\@00\milli\@00%E\@00 %End %Header Record Format:MCS1 Type Number:1 File Name:REFRACT\@5C Option Name:theta Communication SW:0 Capacity:936 Data Type:PG %Data Record Password: BaseN:0 \Deg:\AxesOff \LabelOff:\ClrGraph \ViewWindow \(-)3.3,3.3,0,\(-)1.6,1.6,0 \ClrText \Locate 1,1,"_____Formulaire_____" \Locate 1,2,"Loi de la r\Tptchfraction" \Locate 1,3,"i\Sumy=sin\Cor(n\Cls.\sin i\Cls\slashn\Sumy)" \Locate 1,4,"---------------------" \Locate 1,5,"Angle Limite de" \Locate 1,6,"r\Tptchfraction \List->Mat(:" \Locate 1,7,"\List->Mat( = sin\Cor(n\Sumy\slashn\Cls)" \Do:\Getkey:\LpWhile \Ans\<>31 \ClrText "" \Locate 1,1,"Indice du milieu d'o\RightTmax" "l'on vient: n\Cls= "?\->N \ClrText "Indice du milieu o\RightTmax" "l'on va: n\Sumy="?\->M \ClrText "angle d'incidence i\Cls"?\->I \ClrText \If M>N \Then 1\->D \GotoB \Else "":"" \Locate 1,1,"L'angle limite" \asin (M/N)\->L \Locate 1,2,"\List->Mat(=" "" \Locate 3,2,L\Disp\If I>L \Then "" \Locate 1,3,"R\Tptchflexion totale" "" \Locate 1,4,"i\Sumy = i\Cls =" \Locate 10,4,I\Disp\@F78F\Vertical 0 \@F78D\Horizontal 0 \F-Line \(-)1.6*\sin I,1.6*\cos I,0,0 \F-Line 0,0,1.6*\sin I,1.6*\cos I \@F78E\F-Line \(-)1.6*\sin L,1.6*\cos L,0,0 \Text 7,58,"\List->Mat(" \Text 1,5,"n1=" \Text 1,20,N \Text 56,5,"n2=" \Text 56,20,M \Else \ClrText "" \Locate 1,1,"\List->Mat(=" \Locate 3,1,L\Disp"":"" \@F78E\F-Line \(-)1.6*\sin L,1.6*\cos L,0,0 2\->D \Lbl B "":"":"" \Locate 1,D,"R\Tptchfraction" \Locate 1,D+1,"i\Sumy=" (\asin ((N*\sin I)/M))\->J \Locate 4,D+1,J\Disp\@F78F\Vertical 0 \@F78D\Horizontal 0 \F-Line \(-)1.6*\sin I,1.6*\cos I,0,0 \F-Line 0,0,1.6*\sin J,\(-)1.6*\cos J \Text 5,58,"i1" \Text 1,5,"n1=" \Text 1,20,N \Text 56,66,"i2" \Text 56,5,"n2=" \Text 56,20,M\Disp \@00.\nano\@00%\@00\milli\@00%E\@00\@00\milli\@00 %End %Header Record Format:MCS1 Type Number:254 File Name:RANGE Option Name:Y=Data Communication SW:0 Capacity:27 Data Type:TR %Data Record T-Start 1\EE1 T-End 2\EE1 T-Pitch 1 %End %Header Record Format:MCS1 Type Number:2 File Name:1 Option Name:Y=Data Communication SW:0 Capacity:25 Data Type:GF %Data Record GraphType:108 SelectInfo:0 ColorInfo:2 \List1[1]X\x^2+\List1[2]X+\List1[3] %End %Header Record Format:MCS1 Type Number:5 File Name:VWIN Option Name:Y=Data Communication SW:0 Capacity:297 Data Type:WD %Data Record Xmin -3.3 Xmax 3.3 Xscale 0 Xdot 5.23809523809524\EE-2 Ymin -1.6 Ymax 1.6 Yscale 0 Tthetamin 0 Tthetamax 3.6\EE2 Tthetaptch 3.6 XdotDual 1.06451612903226\EE-1 %End %Header Record Format:MCS1 Type Number:5 File Name:FACTOR Option Name:Y=DATA Communication SW:0 Capacity:28 Data Type:GFA %Data Record Xfact 2 Yfact 2 %End