Forum

Catégorie : Support
Forum : TI-82 STATS.fr
Vues : 941
Réponses : 3
Type : discussion
Etat : réponses autorisées
Avertissement :
Il s'agit d'une page optimisée pour la navigation mobile. Voir la page originale.

Problème programme

Philou88 le 11/06/2013 à 23:32
Bonjour à tous,

j'ai un petit soucis concernant un programme, et sur ma calculatrice la première ligne me dit qu'il y a une erreur et le curseur montre le "1"

Code
RecallGDB 1


Voici le programme (un peu long je sais..)

Code
ClrDraw
RecallGDB 1
ClrHome
DelVar X
Lbl 0
Text(16,27,"TI-PPPPPPPP
Text(24,41,"V 1.3
Text(35,20,"TTTTT     ENTRER
Text(57,55,"""  BBBBBBBB
Lbl 00
getKeyü ( ) X
If X=15 or X=72:Goto Á
If Xø105:Goto 00
Lbl 1
ClrDraw
DelVar X
ClrDraw
Line(ú ( ) 4.9,5,4.9,5
Line(ú ( ) 5,4.9,ú ( ) 5,3.8
Line(5,4.9,5,3.8
Line(ú ( ) 4.9,3.7,4.9,3.7
Line(ú ( ) 4.9,3.4,4.9,3.4
Line(ú ( ) 5,3.3,ú ( ) 5,ú ( ) 4.9
Line(5,3.3,5,ú ( ) 4.9
Line(ú ( ) 4.9,ú ( ) 5,4.9,ú ( ) 5
Line(3.2,ú ( ) 4.9,3.2,ú ( ) 3.9
Line(3.3,ú ( ) 3.7,4.9,ú ( ) 3.7
Pt-Off(5,ú ( ) 3.7
Pt-Off(3.2,ú ( ) 5
Text(1,8,"PHYSIQUE
Text(1,75,"V  1.3
Text(55,81,"EXT
Text(12,2,"1ú ( ) DDDDDD         
Text(19,2,"2ú ( ) MMMMMMMMM
Text(26,2,"3ú ( ) TTTTTTTT
Text(33,2,"4ú ( ) MMMMMMMM
Text(40,2,"5ú ( ) R.TTTTTTTTTTT
Text(47,2,"
Text(54,2,"
Lbl 11
getKeyü ( ) X
If X=92:Goto A
If X=93:Goto B
If X=94:Goto D
If X=82:Goto C
If X=83:Goto E
If X=84:Goto 11
If X=15:Goto Á:Goto 11
Lbl Á
ClrHome:AxesOn
ClrDraw:Stop




Lbl A
ClrDraw
DelVar X
Menu("    DDDDDD L.   ","RRRRRRRRRR",AA,"IIIIIIIIII",AB,"CCCCCCCCCCCC ",AC,"AAAAAAAAAAA",AD,"RRRRRR",AE,"RRRRRR",1,"QQQQQQQ",Á
Lbl AA
ClrDraw
Horizontal 5:Horizontal 3.7:Line(ú ( ) 5,5,ú ( ) 5,3.7:Line(5,5,5,3.7
Text(1,32,"RRRRRRRRRR
Text(10,3,"U = R.I
Text(10,50,"I = U/R
Text(17,3,"R = U/I
Horizontal ú ( ) .1:Line(ú ( ) 5,ú ( ) .1,ú ( ) 5,ú ( ) 1.4:Line(5,ú ( ) .1,5,ú ( ) 1.4
Text(33,32,"PPPPPPPPP
Horizontal ú ( ) 1.4
Text(42,5,"P = U.I
Text(49,10,"= R.IÜ
Text(56,10,"= UUÜ/R
Text(42,50,"Q = 0
Lbl AZ
Text(1,90,""
getKeyü ( ) X
If X=84 or X=105:Goto A
If X=15 or X=72:Goto Á
If X=34:Goto AB
If Xø26:Goto AZ
Lbl AY
ClrDraw
Horizontal 5:Horizontal 3.7:Line(ú ( ) 5,5,ú ( ) 5,3.7:Line(5,5,5,3.7
Text(1,17,"VVVVVV             
Text(10,3,""(() =  (()..(()
Text(17,3,""(() = U.ð(2)....(((+ÁÁ)
Text(24,5,""(() = I.ð(2)....(((+ÁÁ)
Lbl AX
Text(1,2,""
Text(1,90,""
getKeyü ( ) X
If X=15 or X=72:Goto Á
If X=84 or X=105:Goto A
If X=34:Goto AB
If X=24:Goto AA
If Xø26:Goto AX
ClrDraw
Horizontal 5:Horizontal 3.7:Line(ú ( ) 5,5,ú ( ) 5,3.7:Line(5,5,5,3.7
Text(1,40,"AAAAA
Text(10,3,"R =  .L/S
Text(17,8,"= L/((.S)
Text(25,1,""                 (S//)
Text(32,1,"S            ((Ü)
Text(39,1,""                ((..)
Text(46,1,"L             (()
Lbl AW
Text(1,2,""
getKeyü ( ) X
If X=84 or X=105:Goto A
If X=15 or X=72:Goto Á
If X=34:Goto AB
If Xø24:Goto AW:Goto AY


Lbl AB
ClrDraw
Horizontal 5:Horizontal 3.7:Line(ú ( ) 5,5,ú ( ) 5,3.7:Line(5,5,5,3.7
Text(1,27,"IIIIIIIIII
Text(10,3,"Uá = LL.I
Text(10,50,"I = Uá /LL
Text(17,6,"Z = LL       
Text(24,4,"FF = Ä/2
Horizontal ú ( ) .1:Line(ú ( ) 5,ú ( ) .1,ú ( ) 5,ú ( ) 1.4:Line(5,ú ( ) .1,5,ú ( ) 1.4
Text(33,32,"PPPPPPPPP
Horizontal ú ( ) 1.4
Text(42,5,"Q = Uá .I
Text(49,10,"= LLIÜ
Text(56,10,"= Uá Ü/LL
Text(42,50,"P = 0
Text(49,55,""" L       
Lbl AV
Text(1,90,""
getKeyü ( ) X
If X=15 or X=72:Goto Á
If X=84 or X=105:Goto A
If X=25:Goto AA
If X=34:Goto AC
If Xø26:Goto AV
Lbl AU
ClrDraw
Horizontal 5:Horizontal 3.7:Line(ú ( ) 5,5,ú ( ) 5,3.7:Line(5,5,5,3.7
Text(1,32,"CCCCCCCC
Text(11,0,"FFFFF               :
Text(18,5,"UU' = ZZ'.II'
Text(25,5,"ZZ' =  LL
Text(32,13,"= U....(ÁÁ)++U....(ÁÁ)
Text(41,0,"FFFFF         :
Text(48,5,"UU' = [U,ÁÁ]
Text(55,5,"ZZ'= [Z,ÁÁ-ÁÁ]
Lbl AT
Text(1,2,""
Text(1,90,""
getKeyü ( ) X
If X=15 or X=72:Goto Á
If X=84 or X=105:Goto A
If X=25:Goto AA
If X=34:Goto AC
If X=24:Goto AB
If Xø26:Goto AT
ClrDraw
DelVar X
Horizontal 5:Horizontal 3.7:Line(ú ( ) 5,5,ú ( ) 5,3.7:Line(5,5,5,3.7
Text(1,18,"VVVVVV             
Text(10,3,""(() = L...(()///
Lbl AS
Text(1,2,""
getKeyü ( ) X
If X=15 or X=72:Goto Á
If X=84 or X=105:Goto A
If X=34:Goto AC
If X=25:Goto AA
If Xø24:Goto AS:Goto AU


Lbl AC
ClrDraw
Horizontal 5:Horizontal 3.7:Line(ú ( ) 5,5,ú ( ) 5,3.7:Line(5,5,5,3.7
Text(1,25,"CCCCCCCCCCCC
Text(10,3,"UU = Z.I
Text(10,50,"I = UU.CC
Text(17,7,"Z = 1/CC       
Text(24,5,"FF = -Ä/2
Text(24,50,"" = C.UU
Horizontal ú ( ) .1:Line(ú ( ) 5,ú ( ) .1,ú ( ) 5,ú ( ) 1.4:Line(5,ú ( ) .1,5,ú ( ) 1.4
Text(33,32,"PPPPPPPPP
Horizontal ú ( ) 1.4
Text(42,5,"Q = ú ( ) UU.I
Text(49,10,"= ú ( ) IÜ/CC
Text(56,10,"= ú ( ) UUÜ.CC
Text(42,50,"P = 0
Lbl AR
Text(1,90,""
getKeyü ( ) X
If X=84 or X=105:Goto A
If X=15 or X=72:Goto Á
If X=25:Goto AB
If Xø26:Goto AR
ClrDraw
Lbl AQ
DelVar X:ClrDraw
Horizontal 5:Horizontal 3.7:Line(ú ( ) 5,5,ú ( ) 5,3.7:Line(5,5,5,3.7
Text(1,32,"CCCCCCCC
Text(11,0,"FFFFF               :
Text(18,5,"UU' = ZZ'.II'
Text(25,5,"ZZ' = ú ( ) ú ( ) /CC
Text(32,13,"= U....(ÁÁ)++U....(ÁÁ)
Text(41,0,"FFFFF         :
Text(48,5,"UU' = [U,ÁÁ]
Text(55,5,"ZZ'= [Z,ÁÁ-ÁÁ]
Lbl AP
Text(1,2,""
Text(1,90,""
getKeyü ( ) X
If X=84 or X=105:Goto A
If X=15 or X=72:Goto Á
If X=24:Goto AC
If X=25:Goto AB
If Xø26:Goto AP
ClrDraw
Horizontal 5:Horizontal 3.7:Line(ú ( ) 5,5,ú ( ) 5,3.7:Line(5,5,5,3.7
Text(1,17,"VVVVVV             
Text(10,3,""(() = C...(()///

Lbl AO
Text(1,2,""
getKeyü ( ) X
If X=84 or X=105:Goto A
If X=15 or X=72:Goto Á
If X=25:Goto AB
If Xø24:Goto AO:Goto AQ


Lbl AD
ClrDraw
DelVar X
Menu("   AAAAAAAAAAA  ","RL      ",SA,"RC      ",SB,"LC      ",SC,"RLC      ",SD,"",AD,"RRRRRR",A,"QQQQQQQ",Á
Lbl SA
ClrDraw
Horizontal 5:Horizontal 3.7:Line(ú ( ) 5,5,ú ( ) 5,3.7:Line(5,5,5,3.7
Text(1,35,"RL       
Text(10,3,"U = Z.I
Text(17,8,"= ð(UUÜ+UáÜ)
Text(10,50,"I = U/Z
Text(26,3,"Z = ð(RÜ+(LL)Ü)
Lbl YZ
Text(1,90,""
getKeyü ( ) X
If X=15 or X=72:Goto Á
If X=84 or X=105:Goto AD
If Xø26:Goto YZ

Lbl YY
ClrDraw
Horizontal 5:Horizontal 3.7:Line(ú ( ) 5,5,ú ( ) 5,3.7:Line(5,5,5,3.7
Text(1,32,"PPPPPPPPP
Text(10,5,"P = UU.I
Text(17,10,"= RIÜ
Text(24,10,"= UUÜ/R
Text(10,50,"Q = Uá .I
Text(17,55,"= LLIÜ
Text(24,55,"= UáÜ/LL
Text(33,3,""""(FF) = R/Z
Text(40,3,""""(FF) = LL/Z
Text(47,3,""""(FF) = LL/R = Uá /UU
Lbl YX
Text(1,2,""
Text(1,90,""
getKeyü ( ) X
If X=15 or X=72:Goto Á
If X=84 or X=105:Goto AD
If X=24:Goto SA
If Xø26:Goto YX
ClrDraw
Horizontal 5:Horizontal 3.7:Line(ú ( ) 5,5,ú ( ) 5,3.7:Line(5,5,5,3.7
Text(1,32,"CCCCCCCC
Text(10,3,"UU' = ZZ'.II'
Text(17,3,"ZZ' = R++LL
Text(24,10,"= Z....(FF)++.Z....(FF)
Horizontal ú ( ) .1:Line(ú ( ) 5,ú ( ) .1,ú ( ) 5,ú ( ) 1.4:Line(5,ú ( ) .1,5,ú ( ) 1.4
Text(33,18,"VVVVVV             
Horizontal ú ( ) 1.4
Text(42,3,""(() = R..(()+L...(()///
Lbl YW
Text(1,2,""
getKeyü ( ) X
If X=72 or X=15:Goto Á
If X=84 or X=105:Goto AD
If Xø24:Goto YW:Goto YY


Lbl SB
ClrDraw
DelVar X
Horizontal 5:Horizontal 3.7:Line(ú ( ) 5,5,ú ( ) 5,3.7:Line(5,5,5,3.7
Text(1,35,"RC       
Text(10,3,"U = Z.I
Text(17,8,"= ð(UUÜ+UUÜ)
Text(10,50,"I = U/Z
Text(26,3,"Z = ð(RÜ+(1/CC)Ü)
Lbl YV
Text(1,90,""
getKeyü ( ) X
If X=84 or X=105:Goto AD
If X=15 or X=72:Goto Á
If Xø26:Goto YV

Lbl YU
ClrDraw
Horizontal 5:Horizontal 3.7:Line(ú ( ) 5,5,ú ( ) 5,3.7:Line(5,5,5,3.7
Text(1,32,"PPPPPPPPP
Text(10,5,"P = UU.I
Text(17,10,"= R.IÜ
Text(24,10,"= UUÜ/R
Text(10,50,"Q = ú ( ) UU.I
Text(17,55,"= ú ( ) IÜ/CC
Text(24,55,"= ú ( ) UUÜ.CC
Text(33,3,""""(FF) = R/Z
Text(40,5,""""(FF) = 1/ZCC
Text(47,3,""""(FF) = 1/RCC
Lbl YT
Text(1,2,""
Text(1,90,""
getKeyü ( ) X
If X=15 or X=72:Goto Á
If X=84 or X=105:Goto AD
If X=24:Goto SB
If Xø26:Goto YT

ClrDraw
Horizontal 5:Horizontal 3.7:Line(ú ( ) 5,5,ú ( ) 5,3.7:Line(5,5,5,3.7
Text(1,32,"CCCCCCCC
Text(10,3,"UU' = ZZ'.II'
Text(17,3,"ZZ' = 11CC
Horizontal ú ( ) .1:Line(ú ( ) 5,ú ( ) .1,ú ( ) 5,ú ( ) 1.4:Line(5,ú ( ) .1,5,ú ( ) 1.4
Text(33,18,"VVVVVV             
Horizontal ú ( ) 1.4
Text(42,3,""(() = R..(()+UU++(()///
Lbl YS
Text(1,2,""
getKeyü ( ) X
If X=84 or X=105:Goto AD
If X=15 or X=72:Goto Á
If Xø24:Goto YS:Goto YU


Lbl SC
ClrDraw
DelVar X
Horizontal 5:Horizontal 3.7:Line(ú ( ) 5,5,ú ( ) 5,3.7:Line(5,5,5,3.7
Text(1,35,"LC       
Text(10,3,"U = Z.I
Text(17,8,"= ð(UáÜ+UUÜ)
Text(10,45,"I = U/Z
Text(26,3,"Z = ð(LLÜ+(1/CC)Ü)
Text(56,0,"FFFFFFFFF               
Lbl YR
Text(1,90,""
getKeyü ( ) X
If X=84 or X=105:Goto AD
If X=15 or X=72:Goto Á
If X=34:Goto YI
If Xø26:Goto YR

Lbl YQ
ClrDraw
Horizontal 5:Horizontal 3.7:Line(ú ( ) 5,5,ú ( ) 5,3.7:Line(5,5,5,3.7
Text(1,32,"PPPPPPPPP
Text(10,5,"P = 0
Text(17,8,""" L           
Text(10,50,"Q = Qá +QQ
Lbl YP
Text(1,2,""
Text(1,90,""
getKeyü ( ) X
If X=15 or X=72:Goto Á
If X=84 or X=105:Goto AD
If X=24:Goto SC
If Xø26:Goto YP

ClrDraw
Horizontal 5:Horizontal 3.7:Line(ú ( ) 5,5,ú ( ) 5,3.7:Line(5,5,5,3.7
Text(1,32,"CCCCCCCC
Horizontal ú ( ) .1:Line(ú ( ) 5,ú ( ) .1,ú ( ) 5,ú ( ) 1.4:Line(5,ú ( ) .1,5,ú ( ) 1.4
Text(33,18,"VVVVVV             
Horizontal ú ( ) 1.4
Text(42,3,""(() = L...(()///+UU
Lbl YO
Text(1,2,""
getKeyü ( ) X
If X=84 or X=105:Goto AD
If X=15 or X=72:Goto Á
If Xø24:Goto YO:Goto YQ


Lbl SD
ClrDraw
Horizontal 5:Horizontal 3.7:Line(ú ( ) 5,5,ú ( ) 5,3.7:Line(5,5,5,3.7
Text(1,32,"RLC       
Text(10,3,"U = Z.I
Text(10,45,"I = U/Z
Text(18,3,"Z = ð(RÜ+(LL-1/CC)Ü)
Text(25,3,""""(FF) = LL-1/RCC
Lbl YN
Text(1,90,""
getKeyü ( ) X
If X=84 or X=105:Goto AD
If X=15 or X=72:Goto Á
If Xø26:Goto YN

Lbl YM
DelVar X
ClrDraw
Horizontal 5:Horizontal 3.7:Line(ú ( ) 5,5,ú ( ) 5,3.7:Line(5,5,5,3.7
Text(1,32,"PPPPPPPPP
Text(10,5,"P = UU.I
Text(17,10,"= RIÜ
Text(24,10,"= UUÜ/R
Text(10,50,"Q = Qá+QQ
Lbl YL
Text(1,2,""
Text(1,90,""
getKeyü ( ) X
If X=84 or X=105:Goto AD
If X=15 or X=72:Goto Á
If X=24:Goto SD
If Xø26:Goto YL
Lbl YK
ClrDraw
Horizontal 5:Horizontal 3.7:Line(ú ( ) 5,5,ú ( ) 5,3.7:Line(5,5,5,3.7
Text(1,32,"CCCCCCCC
Text(10,3,"UU' = II'.ZZ'
Text(17,3,"ZZ' = R+1//CC++LL
Horizontal ú ( ) .1:Line(ú ( ) 5,ú ( ) .1,ú ( ) 5,ú ( ) 1.4:Line(5,ú ( ) .1,5,ú ( ) 1.4
Text(33,18,"VVVVVV             
Horizontal ú ( ) 1.4
Text(42,3,""(() = RR(()+UU+L...(()///
Lbl YJ
Text(1,2,""
Text(1,90,""
getKeyü ( ) X
If X=84 or X=105:Goto AD
If X=15 or X=72:Goto Á
If X=24:Goto YM
If Xø26:Goto YJ
Lbl YI
ClrDraw
Horizontal 5:Horizontal 3.7:Line(ú ( ) 5,5,ú ( ) 5,3.7:Line(5,5,5,3.7
Text(1,10,"FFFFFFFFF             
Text(10,6,"LL = 1/CC     FF = 0
Text(19,6,""Ð = 1/ð(LC)
Text(29,6,"FÐ = 1/(2Äð(LC))
Text(38,3,"CCCC                :
Text(46,6,"Q = Uá /U = UU/U
Text(53,11,"= LLÐ/R = 1/RCCÐ
If X=26:Goto YH
Lbl Y1
getKeyü ( ) X
Text(56,84,""
If X=84 or X=105:Goto AD
If X=15 or X=72:Goto Á
If Xø25:Goto Y1:Goto SC
Lbl YH
Text(1,2,""
getKeyü ( ) X
If X=84 or X=105:Goto AD
If X=15 or X=72:Goto Á
If Xø24:Goto YH:Goto YK


Lbl AE
DelVar X:ClrDraw
Menu("     RRRRRR     ","LLL ",PA,"PPPP         ",PB,"",AE,"",AE,"",AE,"RRRRRR",A,"QQQQQQQ",Á
Lbl PA
Horizontal 5:Horizontal ú ( ) 5:Vertical 5:Vertical ú ( ) 5:Horizontal 3.7
Text(1,23,"LLL    KKKKKKKKK
Text(10,3,"LLL           
Text(17,3,"LLL           
Horizontal 1
Text(26,25,"LLL    PPPPPPPP
Horizontal ú ( ) .3
Text(35,3,"I =     //R
Pause
ClrDraw:Goto AE
Lbl PB
ClrDraw
Line(ú ( ) 5,4,ú ( ) 4.7,4
Line(ú ( ) 4.7,4.5,ú ( ) 4.7,3.5
Text(3,8,"1
Line(ú ( ) 4.7,4.5,ú ( ) 3.5,4.5:Line(ú ( ) 4.7,3.5,ú ( ) 3.5,3.5
Line(ú ( ) 3.5,4.5,ú ( ) 3.5,3.5
Line(ú ( ) 3.5,4,ú ( ) 3,4
Line(ú ( ) 3,4,ú ( ) 3,3.2
Line(ú ( ) 3.25,3.2,ú ( ) 2.7,3.2
Line(ú ( ) 3.25,3.2,ú ( ) 3.25,1.8:Line(ú ( ) 2.7,3.27,ú ( ) 2.7,1.8
Line(ú ( ) 3.25,1.8,ú ( ) 2.7,1.8
Line(ú ( ) 3,1.8,ú ( ) 3,1.2
Line(ú ( ) 5,1,ú ( ) 3,1
Text(13,18,"2
Text(1,22,"A
Text(24,22,"B
Text(7,40,"PPPP         
Text(14,44,"""       
Text(36,10,"UUU = E.R2/(R1+R2)
Lbl PZ
Pt-Change(ú ( ) 3,4
Pt-Change(ú ( ) 3,1
Text(57,90,""
getKeyü ( ) X
If X=84 or X=105:Goto AE
If X=15 or X=72:Goto Á
If Xø26:Goto PZ
ClrDraw
Line(ú ( ) 5,4,ú ( ) 2,4
Line(ú ( ) 4,4,ú ( ) 4,3.2
Line(ú ( ) 4.4,3.2,ú ( ) 3.7,3.2
Line(ú ( ) 4.4,3.2,ú ( ) 4.4,1.7:Line(ú ( ) 3.7,3.2,ú ( ) 3.7,1.7
Line(ú ( ) 4.4,1.6,ú ( ) 3.7,1.6
Line(ú ( ) 4,1.6,ú ( ) 4,0
Line(ú ( ) 2,4,ú ( ) 2,3.2
Line(ú ( ) 2.3,3.2,ú ( ) 1.8,3.2
Line(ú ( ) 2.3,3.2,ú ( ) 2.3,1.7:Line(ú ( ) 1.7,3.2,ú ( ) 1.7,1.7
Line(ú ( ) 2.3,1.7,ú ( ) 1.8,1.7
Line(ú ( ) 2,1.7,ú ( ) 2,0
Line(ú ( ) 5,0,ú ( ) 2,0
Text(22,14,"I1
Text(22,33,"I2
Text(34,4,"I
Line(ú ( ) 4.3,.9,ú ( ) 3.8,.9:Line(ú ( ) 4.2,.8,ú ( ) 3.9,.8:Line(ú ( ) 2.2,.9,ú ( ) 1.8,.9:Line(ú ( ) 2.1,.8,ú ( ) 1.9,.8:Line(ú ( ) 4.5,.3,ú ( ) 4.5,ú ( ) .3:Line(ú ( ) 4.6,.2,ú ( ) 4.6,ú ( ) .2
Text(13,8,"1
Text(13,27,"2
Text(7,40,"PPPP         
Text(14,44,"""       
Text(40,14,"I1 = I.R2/(R1+R2)
Lbl PY
Text(57,2,""
getKeyü ( ) X
If X=84 or X=105:Goto AE
If X=15 or X=72:Goto Á
If Xø24:Goto PY
If X=24:Goto PB



Lbl B
ClrDraw
DelVar X
Menu("   MMMMMMMMM    ","PPPPPPPPPP",BA,"DDDDDDDDD",BB,"EEEEEEEE",BC,"RRRRRR",BE,"",B,"RRRRRR",1,"QQQQQQQ",Á

Lbl BA
ClrDraw
Horizontal 5:Horizontal 3.7:Line(ú ( ) 5,5,ú ( ) 5,3.7:Line(5,5,5,3.7
Text(1,22,"PPPPPPPPP       
Text(10,3,"P = <<(()> = <<(()..(()>
Text(17,8,"=UI....(FF)        W
Text(26,8,"= R.IÜ
Text(33,8,"= UÜ/R
Lbl BZ
Text(1,90,""
getKeyü ( ) X
If X=84 or X=105:Goto B
If X=15 or X=72:Goto Á
If Xø26:Goto BZ

Lbl BY
DelVar X:ClrDraw
Horizontal 5:Horizontal 3.7:Line(ú ( ) 5,5,ú ( ) 5,3.7:Line(5,5,5,3.7
Text(1,17,"PPPPPPPPP           
Text(10,3,"Q = UI....(FF)
Text(10,50,"""  VAR
Text(20,8,"= UÜ/L..          = -UÜ.CC
Text(27,8,"= LL.IÜ              = ú ( ) IÜ/CC
Text(37,8,"= P....(FF)
Lbl BX
Text(1,2,""
Text(1,90,""
getKeyü ( ) X
If X=84 or X=105:Goto B
If X=15 or X=72:Goto Á
If X=24:Goto BA
If Xø26:Goto BX

ClrDraw:DelVar X
Horizontal 5:Horizontal 3.7:Line(ú ( ) 5,5,ú ( ) 5,3.7:Line(5,5,5,3.7
Text(1,14,"PPPPPPPPP           
Text(10,3,"S = U.I
Text(10,50,"""  VA
Text(17,8,"= ð(PÜ+QÜ)
Lbl BW
Text(1,2,""
getKeyü ( ) X
If X=84 or X=105:Goto B
If X=15 or X=72:Goto Á
If Xø24:Goto BW:Goto BY


Lbl BB
ClrDraw
Horizontal 5:Horizontal 3.7:Line(ú ( ) 5,5,ú ( ) 5,3.7:Line(5,5,5,3.7
Text(1,33,""""""""""
Text(10,3,""""(FF) = P/S = R/Z
Text(17,5,""""(FF) = Q/S
Text(24,3,""""(FF) = Q/P = LL/R
Text(31,45,"= 1/RCC
Text(40,0,"C = P(((((FFF')----(FF)) / UÜ..
Text(48,3,"""""      (FFF') = 0.4
Lbl BV
getKeyü ( ) X
If X=84 or X=105:Goto B
If X=15 or X=72:Goto Á
Goto BV


Lbl BC
ClrDraw
Horizontal 5:Horizontal 3.7:Line(ú ( ) 5,5,ú ( ) 5,3.7:Line(5,5,5,3.7
Text(1,18,"VVVVVV             
Text(10,0,""(() =  (()..(()
Text(17,3,"= UI.[[[[(FF)----(222+FF)]
Text(26,0,""(() = Uð(2))))(((+ÁÁ)
Text(33,14,"= [U,ÁÁ]
Text(42,2,""(() = Ið(2))))(((+ÁÁ)
Text(49,14,"= [I,ÁÁ]
Lbl BT
Text(1,90,""
getKeyü ( ) X
If X=84 or X=105:Goto B
If X=15 or X=72:Goto Á
If Xø26:Goto BT

ClrDraw
Horizontal 5:Horizontal 3.7:Line(ú ( ) 5,5,ú ( ) 5,3.7:Line(5,5,5,3.7
Text(1,33,"CCCCCCCC
Text(10,3,"S = P++Q
Text(17,5,"= UI....(FF)++.UI....(FF)
Lbl BS
Text(1,2,""
getKeyü ( ) X
If X=84 or X=105:Goto B
If X=15 or X=72:Goto Á
If Xø24:Goto BS:Goto BC


Lbl BE
Horizontal 5:Horizontal 3.7:Line(ú ( ) 5,5,ú ( ) 5,3.7:Line(5,5,5,3.7
Text(1,34,"RRRRRR
Text(10,2,"MMMMMMM    BOUCHEROT :
Text(18,6,"P = P1+P2+...
Text(25,6,"Q = Q1+Q2+...
Text(32,6,"S = ð(PÜ+QÜ)
Pause
ClrDraw:Goto B


Lbl D
ClrDraw:DelVar X
Menu("    TTTTTTTT    ","CCCCCCCC  *",T,"CCCCCCCC   ",U,"EEEEEEEE",DA,"DDDDDDDDD",DB,"",D,"RRRRRR",1,"QQQQQQQ",Á

Lbl T
ClrDraw:DelVar X
Menu("   CCCCCCCC  *  ","PPPPPPPPP",TA,"CCCCCCC",TB,"TTTTTTT",TC,"AAAAA",TD,"",T,"RRRRRR",D,"QQQQQQQ",Á

Lbl TA
Horizontal 5:Horizontal 3.7:Line(ú ( ) 5,5,ú ( ) 5,3.7:Line(5,5,5,3.7
Text(1,28,"PPPPPPPPP   *
Text(10,0,"P1 = V1.I1....(FF1)  = P2=P3
Text(17,0,"Q1 = V1.I1....(FF1)    = Q2=Q3
Text(26,8,"PP = 3.P1 = 3VI....(FF)
Text(34,16,"= ð(3)UI....(FF)
Text(42,8,"QQ = 3.Q1 = 3VI....(FF)
Text(49,16,"= ð(3)UI....(FF)
Text(57,8,"SS = ð(PPÜ+QQÜ) = ð(3)UI
Lbl TZ
getKeyü ( ) X
If X=84 or X=105:Goto T
If X=15 or X=72:Goto Á
Goto TZ


Lbl TB
Horizontal 5:Horizontal 3.7:Line(ú ( ) 5,5,ú ( ) 5,3.7:Line(5,5,5,3.7
Text(1,26,"CCCCCCC      *
Text(10,3,""1(() =
Text(17,10,"Ið(2)....(((-FF)
Text(26,3,""2(() =
Text(33,10,"Ið(2)....(((-2Ä/3-FF)
Text(42,3,""3(() =
Text(49,10,"Ið(2)....(((-4Ä/3-FF)
Lbl TY
Text(1,86,">
getKeyü ( ) X
If X=84 or X=105:Goto T
If X=72:Goto Á
If Xø15:Goto TY
ClrDraw
Horizontal 5:Horizontal 3.7:Line(ú ( ) 5,5,ú ( ) 5,3.5:Line(5,5,5,3.7
Text(1,26,"CCCCCCC    *
Text(10,2,"I1 = P1/V




Lbl TN
Text(1,2,"<
getKeyü ( ) X
If X=105 or X=86:Goto T
If X=15:Goto Á
If X=11:Goto
Goto TN



Lbl TC
Horizontal 5:Horizontal 3.7:Line(ú ( ) 5,5,ú ( ) 5,3.7:Line(5,5,5,3.7
Text(1,23,"TTTTTTT         
Text(10,3,"V1(() = Vð(2)....((()
Text(17,3,"V2(() = Vð(2)....(((-2Ä/3))
Text(24,3,"V3(() = Vð(2)....(((-4Ä/3))
Text(33,0,"EE                     :
Text(41,3,"V11+V22+V33 = 0
Text(48,3,"V1 = (V,0ô)
Text(48,45,"V2 = (V,ú ( ) 120ô)
Text(55,3,"V3 = (V,ú ( ) 240ô)
Lbl TX
getKeyü ( ) X
If X=84 or X=105:Goto T
If X=15 or X=72:Goto Á
Goto TX


Lbl TD
Horizontal 5:Horizontal 3.7:Line(ú ( ) 5,5,ú ( ) 5,3.7:Line(5,5,5,3.7
Text(1,38,"AAAAA
Text(10,0,"R = 22/3
Text(18,3,"PP = 3RIÜ/2 = 33JÜ
Lbl TW
getKeyü ( ) X
If X=84 or X=105:Goto T
If X=15 or X=72:Goto Á
Goto TW



Lbl U
ClrDraw:DelVar X
Menu("   CCCCCCCC     ","PPPPPPPPP",UA,"CCCCCCC",UB,"TTTTTTT",UC,"AAAAA",UD,"",U,"RRRRRR",D,"QQQQQQQ",Á

Lbl UA
Horizontal 5:Horizontal 3.7:Line(ú ( ) 5,5,ú ( ) 5,3.7:Line(5,5,5,3.7
Text(1,28,"PPPPPPPPP   
Text(10,0,"P1 = U12.J12....(FF1) =P2=P3
Text(17,0,"Q1 = U12.J12....(FF1) =Q2=Q3
Text(25,2,"PP = 3.P1 = 3VJ....(FF)
Text(33,10,"= UIð(3)....(FF)
Text(41,2,"QQ = 3VJ....(FF)
Text(48,10,"= UIð(3)....(FF)
Text(56,2,"SS = ð(PPÜ+QQÜ) = UI.ð(3)
Lbl UZ
getKeyü ( ) X
If X=84 or X=105:Goto U
If X=15 or X=72:Goto Á
Goto UZ


Lbl UB
Horizontal 5:Horizontal 3.7:Line(ú ( ) 5,5,ú ( ) 5,3.7:Line(5,5,5,3.7
Text(1,26,"CCCCCCC       
Text(10,3,""1(() =  12(()--31(()
Text(17,3,""2(() =  23(()--13(()
Text(24,3,""3(() =  31(()--23(()
Lbl UY
getKeyü ( ) X
If X=84 or X=105:Goto U
If X=15 or X=72:Goto Á
Goto UY


Lbl UC
Horizontal 5:Horizontal 3.7:Line(ú ( ) 5,5,ú ( ) 5,3.7:Line(5,5,5,3.7
Text(1,17,"TTTTTTT           
Text(10,3,"U12 = V1-V2
Text(17,3,"U23 = V2-V3
Text(24,3,"U31 = V3-V1
Text(33,3,"QQQ                    ,
Text(40,0,"""                       
Text(47,0,"""""""""""""            .
Lbl UX
getKeyü ( ) X
If X=84 or X=105:Goto U
If X=15 or X=72:Goto Á
Goto UX


Lbl UD
Horizontal 5:Horizontal 3.7:Line(ú ( ) 5,5,ú ( ) 5,3.7:Line(5,5,5,3.7
Text(1,38,"AAAAA
Text(10,3,"U = V.ð(3)    I = J.ð(3)
Text(17,3,"
Lbl UW
getKeyü ( ) X
If X=84 or X=105:Goto U
If X=15 or X=72:Goto Á
Goto UW



Lbl DA
Horizontal 5:Horizontal 3.7:Line(ú ( ) 5,5,ú ( ) 5,3.7:Line(5,5,5,3.7
Text(1,18,"VVVVVV             
Text(10,3,"" = UI[[[[(()----(222++)]
Text(17,3,""(() = Ið(2))))(((+ÁÁ)
Text(24,3,""(() = Uð(2))))(((+ÁÁ)
Lbl DZ
getKeyü ( ) X
If X=84 or X=105:Goto D
If X=15 or X=72:Goto Á
Goto DZ


Lbl DB
ClrDraw
Horizontal 5:Horizontal 3.7:Line(ú ( ) 5,5,ú ( ) 5,3.7:Line(5,5,5,3.7
Text(1,33,""""""""""
Text(10,3,""""(() = P/S = R/Z
Text(17,5,""""(() = Q/S
Text(24,3,""""(() = Q/P = LL/R
Text(31,45,"= 1/RCC
Text(40,0,"C =P(((((((')----(())/3UÜ..
Text(48,3,"""""     (((') = 0.4
Lbl DY
getKeyü ( ) X
If X=84 or X=105:Goto D
If X=15 or X=72:Goto Á
Goto DY


Lbl C
ClrDraw:DelVar X
Menu("    MMMMMMMM    ","SySySySySySySySy",CA,"AAAAAAAAAA",CB,"C.CCCCCCC",CC,"PPP   PPP",CD,"",C,"RRRRRR",1,"QQQQQQQ",Á1
Lbl Á1

Pic6

Pic7
If X=84 or X=105:Goto C
ClrHome:AxesOn
ClrDraw:Stop


Lbl CA
Text(3,40,"BBBBB
Text(8,2,"P = F//
Text(15,2,"FFFF                 
Text(22,2,"N=CCCCCCCCCC /     
Text(29,2,"EPN = K.N.F..
Text(36,2,"U = ð(3).V
Text(43,2,"S = ð(3).UI
Text(50,2,"F = PP
Pause
ClrDraw:Goto C


Lbl CB
ClrDraw

Pic6:RecallPic 6
Text(0,60,"BBBBB
Text(8,38,"PP = UIð(3))))(Á)
Text(16,45,"PP = (3/2)RIÜ
Text(22,53,"= 33IÜ        *
Text(29,53,"= 33JÜ         
Text(36,45,"PPP = G.PPP
Text(43,45,""" = F/P
Text(50,45,"G = (((--)///
Lbl CZ
Text(57,90,""
getKeyü ( ) X
If X=15 or X=72 or X=84 or X=105:Goto Á1
If Xø26:Goto CZ
ClrDraw
RecallPic 6
Text(0,60,"A VVVV
Text(8,45,"PP = PPP + PP
Text(15,54,"= PP - PPPP
Text(22,45,"PP = PPP = 0
Lbl CY
Text(56,2,""
getKeyü ( ) X
If X=15 or X=72 or X=84 or X=105:Goto Á1
If Xø24:Goto CY:Goto CB


Lbl CC
ClrDraw:DelVar X

Pic7:RecallPic 7
Text(0,60,"BBBBB
Text(8,38,"E = K....
Text(15,38,"T = K...I
Text(22,38,"K = (1/2Ä)(P//)N
Text(32,37,"SI   III = CCC
Text(39,40,"=> E = KK'..
Text(46,49,"T = KK'.I
Lbl CX
Text(57,90,""
getKeyü ( ) X
If X=15 or X=72 or X=84 or X=105:Goto Á1
If Xø26:Goto CX
Lbl CW
ClrDraw:DelVar X
RecallPic 7
Text(0,60,"BBBBB
Text(8,40,"U = E+RI        M
Text(15,40,"U = E-RI        G
Text(23,40,"PP = UI           
Text(30,40,"PP = UI+PPP
Text(37,40,"PPP = RIÜ
Text(44,40,"PPP =   ...
Text(51,40,"PP = PPP+PPP
Text(57,49,"= (RR+RR)IÜ
Lbl CV
Text(57,2,""
Text(57,90,""
getKeyü ( ) X
If X=15 or X=72 or X=84 or X=105:Goto Á1
If X=24:Goto CC
If Xø26:Goto CV
ClrDraw
RecallPic 7
Text(0,60,"BBBBB
Text(8,45,"PPP = EI
Text(15,53,"= TTT..
Text(22,45,"PP = TP..
Text(29,45,"PP = TT..
Text(36,45,"" = PP/PP
Lbl CU
Text(57,2,""
getKeyü ( ) X
If X=15 or X=72 or X=84 or X=105:Goto Á1
If Xø24:Goto CU:Goto CW


Lbl CD
Pause


Lbl E
ClrDraw:0ü ( ) X
Text(0,90,">
Text(0,15,"RRRRRR TTTTTTTTTTTT
Text(8,0,"(E) :   (()))'++(()) =  (()
Text(16,0,"1/ EE          :
Text(24,5,"(EÐ):  (()))'++(() = 0
Text(31,0,"" =  (()//(()    F = ?
Text(38,0,"" = K..^(ú ( ) F)       CC:    = 1/F     

Lbl EB
getKeyü ( ) X
If X=72:Goto Á
If X=84 or X=105:Goto 1
If Xø26:Goto EB

Lbl EC
ClrDraw:0ü ( ) X
Text(0,0,"2/ SSS              :
Text(0,85,"< >
Text(8,0,""" = AA+B      ' = A
Text(15,0,"MMMMMM              (E)
Text(22,0,""(())))'++(())) =  (()
Text(29,0,"IIIIIIIIII  (()        ''''''
Text(36,0,""""""      ''''''
Lbl ED
getKeyü ( ) X
If X=72:Goto Á
If X=84 or X=105:Goto 1
If X=24:Goto E
If Xø26:Goto ED

ClrDraw
Text(0,0,"3/ CCCCCCCCCC :
Text(0,85,"<
Text(8,0,"SSS (E) :   (() = KK^(?)+++
Text(16,0,"K               ''''''''        .

Lbl EE
getKeyü ( ) X
If X=72:Goto Á
If X=84 or X=105:Goto 1
If Xø24:Goto EE:Goto EC


Merci d'avance pour vos réponses!
Philou88 le 11/06/2013 à 23:34
Désolé du double post, mais j'ai convertis ce programme depuis http://tiforge.info/ti_editor/ il y a surement des erreurs du à cette conversion non?..
linkakro le 12/06/2013 à 00:12
Il y a bien des erreurs de traductions, mais ce n'est pas catastrophique. Pas d'utf8, juste des mauvais ascii, cela reste lisible.
Et puis j'ai créé une liste pour gagner du temps dans ce cas là.

Tu dois indiquer le type d'erreur en plus de l'endroit pour qu'on réponde précisément aux problèmes.

RecallGDB sert à rappeler toutes les données des menus liés au graphique stockées dans une des 10 variables dédiées à cela : BDG ou GDB de 0 à 9. (GDB=GraphicDataBase=BDG=BaseDonnéesGraphique)
Si aucune BDG n'a été précédemment sauvegardée, cela plante avec une erreur indéfini/undefined

Ce RecallGDB n'a aucune utilité dans ce contexte je crois.
En toute logique il faudrait stocker (StoreGDB) au début pour la rappeller au moment de quitter le programme
Mais je n'ai pas trouvé de telle commande dans ce code.
Philou88 le 12/06/2013 à 00:22
D'accord c'est modifié !

Merci beaucoup!!!!!!
Avertissement :
Il s'agit d'une page optimisée pour la navigation mobile. Voir la page originale.