AMPLEC.BAS  hÿ /Ú0:Ù7:ç0:Ü1:Û0:û  í1000è 5õ¬0,0;" 1992 ALEAsoft corporation Plc." Lõ¬2,0;" CALCULO DE AMPLIFICADOR DE E.C. CLASE A" (2î"Elegir transistor o Introducir datos (E/I)";Êa$ 27úa$(1)="e"Åa$(1)="E"Ëí1200°:ì70F <-úa$(1)É"i"Ëú a$(1)É"I"Ëì40( Fî"Vcc:";vcc:î"Potencia:";p:î"Hef:";b:î"silicio/germanio(S/G)";Êa$:ñvbe=0.7€3333:úa$(1)="g"Åa$(1)="G"Ëñvbe=0.3™™™ Pî"%Vcc=Ve(norm. 15):";pve Zî"%Re=Xc(norm. 10):";pxc dî"I2=X*Ib(norm. X=10)X=";x nî"F=(norm 1000)";f xñic=p/(vcc/2) ‚ ñrc=(vcc/2)/ic:ñpc=vcc*ic Œ ñib=ic/b – ñie=ib+ic  ñve=(pve*vcc)/100d ªñre=ve/ie:ñpe=2*ve*ie ´ñxc=(pxc*re)/100d ¾ñce=1/(2*§*f*xc) È ñv2=ve+vbe Ò ñv1=vcc-v2 Ü ñi2=x*ib æ ñi1=i2+ib ðñr1=v1/i1:ñp1=2*v1*i1 úñr2=v2/i2:ñp2=2*v2*i2 õ"Rc=";rc;"ohm","Prc=";pc;"W" õ"Re=";re;"ohm","Pre=";pe;"W" õ"R1=";r1;"ohm","Pr1=";p1;"w" "õ"R2=";r2;"ohm","Pr2=";p2;"w" ,õ"Ce=";ce/(1e-6m7½);"uF" 68õ#0;" PULSE UNA TECLA PARA CONTINUAR ":ò0:÷ è)ñn=11 :én$(n,7):éa(n,4) òOå:ëb=1Ìn:ãn$(B),a(B,1),a(B,2),a(B,3),a(B,4):ób:þ ü.ä"BD137",60<,175¯,0.7€3333,8 4ä"BC107b",45-,300,,0.7€3333,300e-3™™š 4ä"BC548b",30,300,,0.7€3333,500e-3€ 0ä"BD140",160 ,200È,.7€3333,200È $.ä"BC178b",30,200È,.7€3333,3 ..ä"BC327",502,200È,.7€3333,40( 8.ä"BD137",60<,200È,.7€3333,90Z B-ä"BC149",30,200È,.7€3333,3 L.ä"AC128",32 ,200È,.3™™™,.2~LÌÌÌ V1ä"2N3055",100d,200È,.7€3333,100d `1ä"2N2120",120x,200È,.7€3333,120x °õ"NOMBRE Vcc Hef TIPO POT." µëB =1ÌN €õN$(B);" ";A(B,1);­12 ;A(B,2);" ";("GE."Æa(b,3)=.3™™™);("SI."Æa(b,3)=.7€3333);" ";A(B,4) óB (þ o