CIRRLC.BASկ /0:0:1:0:5:  9000(# 50,0;"ELECTRONICA DE 2-FP-1  ALEAsoft" (2,4;"PULSE LA OPCION DESEADA";4,7;"0-INSTRUCIONES.";5,7;"1-RLC serie.";6,7;"4-Volver al BASIC." 20:i$= 3i$="0"8000@ 4i$="1"1000 5 i$="4" < 502  "R?";r'"C?";c'"L?";l'"Xc?";xc'"Xl?";xl'"Xr?";xr'"Z?";z'"F?";f'"I?";i';"Vt";vt'"Va?";va'"Vc?";vc'"Vl?";vl'"Vr?";vr'"Pt?";pt'"Pa?";pa'"Pc?";pc'"Pl?";pl'"Pr?";pr'"?(angulo de desfase)";fi'"cos (Factor de potencia)?";fp a=110 ,4,5;"ESPERE MIENTRAS CALCULO" =c=0f0xc0c=1/(2**f*xc) 5l=0f0xl0c=xl/(2**f) )r=0va0i0r=va/i 5r=0va0pa0r=(va^2)/pa >xc=0 f0c0xc=1/(2**f*c) +xc=0vc0i0xc=vc/i 7xc=0vc0pc0xc=(vc^2)/pc 3xl=0f0l0xl=2**f*l +xl=0vl0i0xl=vl/i 7xl=0vl0pl0xl=(vl^2)/pl 3xr=0xc0xl0xc>xlxr=xc-xl +xr=0vr0i0xr=vr/i 7xr=0vr0pr0xr=(vr^2)/pr $3xr=0xc0xl0xc+i=0pl<0vl0i=pl/vl ?+i=0pc<0vc0i=pc/vc B fi=0fp0fi=fp L)va=0i0r0va=r*i V+vc=0i0xc0vc=xc*i `+vl=0i0xl0vl=xl*i j+vr=0i0xr0vr=xr*i t+pa=0i0va0pa=va*i ~+pc=0i0vc0pc=vc*i +pl=0i0vl0pl=vl*i +pr=0i0vr0pr=vr*i +pt=0i0vt0pt=vt*i a ޸: "R=";r'"C=";c'"L=";l'"Xc=";xc'"Xl=";xl'"Xr=";xr'"Z=";z'"F=";f'"I=";i';"Vt=";vt'"Va=";va'"Vc=";vc'"Vl=";vl'"Vr=";vr'"Pt=";pt'"Pa=";pa'"Pc=";pc'"Pl=";pl'"Pr=";pr'"=";fi'"COS =";fp &144,88X:64@,0 xlxcvl>vc144,120x:0,-480:144,88X:480,16:0,-16:0,16:-480,0 53,20;" ";4,20;" " 148,152:16,0:164,136:16,0:180,152:16,0:196,136:0,-3 '148,133:480,0 $Da=12:148,152,a:148,133,a:a .xl>xcpl>pcvl>vc6,16 ;"Xl";8,16;"Xr";12 ,16;"Xc";8,24;"Z";11 ,24;"R I",1;10 ,22;"" 8xlxc=0 f0c0xc=1/(2**f*c) +xc=0vc0i0xc=vc/i 7xc=0vc0pc0xc=(vc^2)/pc 3xl=0f0l0xl=2**f*l +xl=0vl0i0xl=vl/i 7xl=0vl0pl0xl=(vl^2)/pl 3xr=0xc0xl0xc>xlxr=xc-xl +xr=0vr0i0xr=vr/i 7xr=0vr0pr0xr=(vr^2)/pr $3xr=0xc0xl0xc+i=0pl<0vl0i=pl/vl ?+i=0pc<0vc0i=pc/vc B fi=0fp0fi=fp L)va=0i0r0va=r*i V+vc=0i0xc0vc=xc*i `+vl=0i0xl0vl=xl*i j+vr=0i0xr0vr=xr*i t+pa=0i0va0pa=va*i ~+pc=0i0vc0pc=vc*i +pl=0i0vl0pl=vl*i +pr=0i0vr0pr=vr*i +pt=0i0vt0pt=vt*i a ޸: "R=";r'"C=";c'"L=";l'"Xc=";xc'"Xl=";xl'"Xr=";xr'"Z=";z'"F=";f'"I=";i';"Vt=";vt'"Va=";va'"Vc=";vc'"Vl=";vl'"Vr=";vr'"Pt=";pt'"Pa=";pa'"Pc=";pc'"Pl=";pl'"Pr=";pr'"=";fi'"COS =";fp &144,88X:64@,0 xlxcvl>vc144,120x:0,-480:144,88X:480,16:0,-16:0,16:-480,0 53,20;" ";4,20;" " 148,152:16,0:164,136:16,0:180,152:16,0:196,136:0,-3 '148,133:480,0 $Da=12:148,152,a:148,133,a:a .xl>xcpl>pcvl>vc6,16 ;"Xl";8,16;"Xr";12 ,16;"Xc";8,24;"Z";11 ,24;"R I",1;10 ,22;"" 8xl