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"
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!
|