PLUS3DOS4A@> 9900& )g(25) :p(12 ) :r(25) !:i=125 :r(i) :i 10 ,11 ,12 ,13 ,15,16,18,20,22,24,27,30,33!,36$,39',43+,47/,513,568,62>,68D,75K,82R,91[,100d 'l :l>0i=1l :p(i) :i l9 ,9999',1310,1810,2510 ,2810 ,3010 ,3310 ,3800,4010 *i=120 :g(i)=9999 ':i 'l :l>0i=1l :g(i) :i (20,1200,1000,1300,1700,1500,1800,2300,2700 ,2800 ,2900T ,3000 ,2400` ,2500 ,3200 ,3300 ,3500 ,3600,3600,3900<,4000 2Zvk=.65 &fff:tpar=10  :jtemp=25 :dmin=1e-7 iV:d=2 :pn=1 <6p(a`,b)=1/((1/a)+(1/b)) F"v(av)=vk+(.026 {T*(a)) K*z(a=vzna)=vzn+((a-izman)*rz/1000) P<9000 (#:"Routine number=";rn :rn<19999' ZG"Routine ";rn;" selected." :g(rn) :jtemp25"J temp.=";jtemp _0 :80P d#d; "hFE=";hfe,"ICmA=";icma n#d;"R1=";r1,"V1=";v1 x#d;"R2=";r2,"V2=";v2 #d;"R3=";r3,"V3=";v3 #d;"R4=";r4,"V4=";v4 1#d;"Vbe=";vbe,"Vce=";vce,"Vces=";vces,"VS=";vs,  a"VS=";vs :"hFE=";hfe :beta=1+(1/hfe) :"Vces=";vces :vces0vces=.2~L  "Av=";av :"ICmA=";icma :170 :"R3=";r3 :pn=2 :r30r3=(vs-vces)*1000/(icma*beta*2*(1+(.5/av))) \re=26/icma :r4=(r3/av)-re :r4<.1}Lr4=0 :re=r3/av :icma=26/re : (iema=icma*beta :v3=r3*iema/1000 r2=0 :v2=0 v4=r4*iema/1000 %vce=vs-v3-v4 :vce>vces1070. $evbe=v(iema) :v3=vs-vbe-v4-vces :icma=v3*1000/(r3*beta) :r4<0.1}Lav=r3*icma/26 ) 1010 .1ze=hfe*(r4+re) :vbe=v(iema) :v1=vs-v3-v4-vbe 8Lr1=(v1*hfe*1000)/icma :rin=1/(((av+1)/r1)+(1/ze)) B:#d;"*** AMP-3R-DES-6P ***" L$100 d:#d;"Av=";av,"Rin=";rin V U"ICmA=";icma :170 :"V3=";v3 :pn=2 :v30v3=(vs-vces)/2 r2=0 :v2=0 5v3<(vs-vces)/2v4=vs-v3-v3-vces :1230 #v3=(vs-vces)/2 :v4=0 1vce=v3+vces :re=26/icma :iema=icma*beta ?r3=v3*1000/iema :r4=v4*1000/iema :av=r3/(r4+re) 1ze=hfe*(r4+re) :vbe=v(iema) :v1=vs-v3-v4-vbe Lr1=(v1*hfe*1000)/icma :rin=1/(((av+1)/r1)+(1/ze)) :#d;"*** AMP-3R-DES-5P ***" $100 d:#d;"Av=";av,"Rin=";rin   9"R1=";r1 :"R3=";r3 :"R4=";r4 :170 :pn=2 r2=0 :v2=0 (/z=r3+r4+(r1/(hfe+1)) :v=v(1000) 2?k1=(vs-v)/z :k2=.026{T/z :ie=vs*.4L/r3 :c=0 <imax=(vs-vces)/(r3+r4) F'newie=k1-(k2*(ie)) :die=(ie-newie) Pdie99c1410 d%ie=(ie+newie)/2 :c=c+1 nie1000#d;"$$$ SATURATED $$$"  ܏"Av=";av :"ICmA=";icma :170 :"R3=";r3 :pn=3 :r30r3=(vs-vces)*1000/(icma*beta*2*(1+(.5/av))) Zre=26/icma :r4=(r3/av)-re :r4<.1}Lr4=0 :re=r3/av :icma=26/re (iema=icma*beta :v3=r3*icma/1000 v4=r4*iema/1000 %vce=vs-v3-v4 :vce>vces1600@ y20,1;"Possible saturation, ICmA being reduced!" :icma =icma* .99 }p:r4<.1}Lav=r3*icma/26  1510 @+ze=hfe*(r4+re) :vbe=v(iema) :v2=v4+vbe J/r2=(v2*hfe*1000)/(tpar*icma) :v1=vs-v2 TKr1=(v1*hfe*1000)/((tpar+1)*icma) :z=p(r1,r2) :rin=p(z,ze) ^:#d;"*** AMP-4R-DES-6P ***" h3100 d:#d;"Av=";av,"Rin=";rin,"T par.=";tpar r U"ICmA=";icma :170 :"V3=";v3 :pn=3 :v30v3=(vs-vces)/2 5v3<(vs-vces)/2v4=vs-v3-v3-vces :1730 #v3=(vs-vces)/2 :v4=0 8vce=v3+vces :re=26/icma :r3=v3*1000/icma 8iema=icma*beta :r4=v4*1000/iema :av=r3/(r4+re) +ze=hfe*(r4+re) :vbe=v(iema) :v2=v4+vbe /r2=(v2*hfe*1000)/(tpar*icma) :v1=vs-v2 Kr1=(v1*hfe*1000)/((tpar+1)*icma) :z=p(r1,r2) :rin=p(z,ze) :#d;"*** AMP-4R-DES-5P ***" 3100 d:#d;"Av=";av,"Rin=";rin,"T par.=";tpar  D"R1=";r1 :"R2=";r2 :"R3=";r3 :"R4=";r4 :170 :pn=3 fz4=r4*beta :c=0 :k0=r1/(r1+r2) :imax=beta*1000*((vs-vces)/(r3+z4)) :ir1r2=vs/(r1+r2) r4=02010 &Tz2=r2/(1+(1/tpar)) :v2=(z2*vs)/(r1+z2) :v4=v2-vk :v40v4=vk 0iema=1000*v4/r4 ::icma=iema/beta :vbe=v(iema) :ib=icma/(hfe*1000) D7i2=ir1r2-(k0*ib) :v2=r2*i2 :v4=v2-vbe :c=c+1 N2newiema=1000*v4/r4 :diema=(iema-newiema) Xnewiema99c1920 v*iema=(iema+newiema)/2 :1850: .iema=(iema+newiema)/2 :icma=iema/beta =v4=r4*iema/1000 :vbe=v(iema) :v2=v4+vbe :v1=vs-v2 3re=26/icma :ze=hfe*(r4+re) :av=r3/(r4+re) Cv3=r3*icma/1000 :vce=vs-v3-v4 :z=p(r1,r2) :rin=p(z,ze) :#d;"### AMP-4R-VAL-7P ###" >100 d:#d;"Vce=";vce,"Av=";av,"Rin=";rin,"T par.=";tpar "After ";c;" iterations." *c>1000#d;"$$$ SATURATED $$$"  2210 =ibmax=imax/(beta*1000*hfe) :v2=r2*(ir1r2-(k0*ibmax)) vbe=v(imax) @v2vbeiema=imax :icma=iema/beta :c=1001 :1930 *vvb=2200 :2040 :2190 @ibmin=dmin/hfe :dib=1000*ibmin :l=(ibmax/dib)+1  i=1l  ib=i*dib :vvb vb < v2180  lib=ib-dib :dib=dib/100d *j=1100d 4ib=lib+(j*dib) :vvb >vb < v2170z Hlib=ib-dib :dib=dib/10 Rk=110 \ib=lib+(k*dib) :vvb fvb > vc=i+j+k : p%19,0;i;" ";j;" ";k :k z20,0;i;" ";j :j 21,0;i :i  c=i+j+k : Qvbe=(vbe+v)/2 :iema=((vbe-vk)/.026{T) :icma=iema/beta :1930 6v=r2*(ir1r2-(k0*ib)) :vb=v(beta*hfe*1000*ib)  ("dB=";db :n=10 ^(db/20) : )"Z=";z :"N=";n :n12220 1db=20*(n)/2.302585093 ]:pn=1 3r1=z :r4=z :r2=z*(n-1) :r3=z/(n-1) $(:#d;"*** BRIDGED.T.ATT-4R-DES-2P ***" .?#d;"Z=";z,"N=";n,"dB=";db,"R1=";r1,"R2=";r2,"R3=";r3,"R4=";r4 8 `2"ICmA=";icma :"Rs=";rs :170 :pn=4 j3r2=0 :v2=0 :r3=0 :v3=0 t2re=26/icma :iema=icma*beta :vbe=v(iema) ~?v4=(vs-vces)/2 :r4=v4*1000/iema :ze=hfe*(r4+re) Jv1=vs-v4-vbe :r1=v1*1000*hfe/icma :av=r4/(r4+re) :rin=p(r1,ze) 4z=p(rin,rs) :rout=1/((hfe/z)+(1/r4)) :#d;"*** EMFOL-2R-DES-5P ***" :100 d:#d;"Av=";av,"Rs=";rs,"Rin=";rin,"Rout=";rout  9"R1=";r1 :"R4=";r4 :"Rs=";rs :170 :pn=4 3r2=0 :v2=0 :r3=0 :v3=0 Iimax=(vs-vces)/r4 :ibmax=imax/(beta*hfe) :vvb=2600 ( :2040 Picma=ib*hfe*1000 :iema=icma*beta :v4=r4*iema/1000 :vbe=v(iema) 2v1=vs-vbe-v4 :re=26/icma :ze=hfe*(r4+re) .av=r4/(r4+re) :rin=p(r1,ze) :z=p(rin,rs) %rout=1/((hfe/z)+(1/r4)) :#d;"### EMFOL-2R-VAL-6P ###" :100 d:#d;"Av=";av,"Rs=";rs,"Rin=";rin,"Rout=";rout "After ";c;" iterations." : (8v=vs-(r1*ib) :icma=ib*hfe*1000 :iema=icma*beta 22v4=r4*iema/1000 :vbe=v(iema) :vb=v4+vbe < 2"ICmA=";icma :"Rs=";rs :170 :pn=5 Ire=26/icma :iema=icma*beta :vbe=v(iema) :v4=(vs-vces)/2 9r4=v4*1000/iema :rin=hfe*(r4+re) :av=r4/(r4+re) Oib=icma/(hfe*1000) :r3=vbe*5/(tpar*ib) :v3=r3*ib :v2=v3+vbe+v4 8r2=v2/(tpar*ib) :v1=vs-v2 :r1=v1/((tpar+1)*ib) 2rout=1/((hfe/rs)+(1/r4)) :vce=vs-v4 $:#d;"*** B-S.EMFOL-4R-DES-5P ***" I100 d:#d;"Av=";av,"Rs=";rs,"Rin=";rin,"Rout=";rout,"T par.=";tpar  O"R1=";r1 :"R2=";r2 :"R3=";r3 :"R4=";r4 :"Rs=";rs :170 :pn=5 nk0=r1/(r1+r2) :ir1r2=vs/(r1+r2) :iemax=(vs-vces)/r4 :ibmax=iemax/(beta*hfe) :vvb=2880 @ :2040 cicma=ib*hfe*1000 :iema=icma*beta :vbe=v(iema) :re=26/icma :v4=r4*iema/1000 8rin=hfe*(r4+re) :av=r4/(r4+re) :vce=vs-v4 :v3=r3*ib @v2=v3+vbe+v4 :v1=vs-v2 :rout=1/((hfe/rs)+(1/r4)) "$:#d;"### B-S.EMFOL-4R-VAL-8P ###" ,I100 d:#d;"Av=";av,"Rs=";rs,"Rin=";rin,"Rout=";rout,"T par.=";tpar 6"After ";c;" iterations." : @>ie=ib*beta*hfe :v4=r4*ie :vbe=v(ie*1000) :v3=r3*ib J%vb=v3+vbe+v4 :v=r2*(ir1r2-(k0*ib)) O T2"ICmA=";icma :"Rs=";rs :170 :pn=6 ^Ire=26/icma :iema=icma*beta :vbe=v(iema) :v4=(vs-vces)/2 hYr4=v4*1000/iema :ibma=icma/hfe :v3=v4+vbe :iema2=ibma*((2*tpar)+1) rVicma2=iema2/beta :vbe2=v(iema2) :vce=vs-v4 :r3=v3*1000/(2*tpar*ibma) |Pre2=26/icma2 :v2=vbe2+v3 :r2=v2*hfe*1000/(tpar*icma2) :v1=vs-v2 Pr1=v1*hfe*1000/((tpar+1)*icma2) :z=p(r1,r2) :ze=hfe*hfe*(r4+re) 3ze2=hfe*(r3+re2) :zin=p(z,ze) :rin=p(zin,ze2) Vz0=p(z,rs) :rout=1/((hfe*hfe/z0)+(1/r4)) :av=r4*r3/((r4+re)*(r3+re2)) :#d;"*** DARPR-4R-DES-5P ***" X100 d:#d;"Av=";av,"Rs=";rs,"Rin=";rin,"Rout=";rout,"ICmA2=";icma2,"T par.=";tpar  O"R1=";r1 :"R2=";r2 :"R3=";r3 :"R4=";r4 :"Rs=";rs :170 :pn=6 „k0=r1/(r1+r2) :ir1r2=vs/(r1+r2) :iemax=(vs-vces)/r4 :dib=1000*dmin :l=(iemax/dib)+1 :vvb=3100  :2050 Riema=ib*1000 :icma=iema/beta :vbe=v(iema) :re=26/icma :v4=r4*ib Yv3=v4+vbe :ib=icma/(hfe*1000) :iema2=1000*((v3/r3)+ib) :icma2=iema2/beta Kvbe2=v(iema2) :re2=26/icma2 :v2=v3+vbe2 :v1=vs-v2 :z=p(r1,r2) Bze=hfe*hfe*(r4+re) :ze2=hfe*(r3+re2) :zin=p(z,ze) :vce=vs-v4 hav=r4*r3/((r4+re)*(r3+re2)) :rin=p(zin,ze2) :z0=p(z,rs) :rout=1/((hfe*hfe/z0)+(1/r4)) :#d;"### DARPR-4R-VAL-8P ###" X100 d:#d;"Av=";av,"Rs=";rs,"Rin=";rin,"Rout=";rout,"ICmA2=";icma2,"T par.=";tpar "After ";c;" iterations." : Lv4=r4*ib :vbe=v(ib*1000) :ie=ib/(beta*hfe) :v3=v4+vbe :i3=v3/r3 &_ie2=ie+i3 :vbe2=v(ie2*1000) :ib2=ie2/(beta*hfe) :vb=v3+vbe2 :v=r2*(ir1r2-(k0*ib2)) 0 2"ICmA=";icma :"Rs=";rs :170 :pn=7 Ire=26/icma :iema=icma*beta :vbe=v(iema) :v4=(vs-vces)/2 Dr4=v4*1000/iema :ze=hfe*(r4+re) :av=r4/(r4+re) :v2=vbe+v4 Zr2=v2*hfe*1000/(tpar*icma) :v1=vs-v2 :r1=v1*hfe*1000/((tpar+1)*icma) *z=p(r1,r2) :rin=p(z,ze) :z0=p(z,rs) Lrout=1/((hfe/z0)+(1/r4)) :vce=vs-v4 :r3=0 :v3=0 :#d;"*** EMFOL-3R-DES-5P ***" I100 d:#d;"Av=";av,"Rs=";rs,"Rin=";rin,"Rout=";rout,"T par.=";tpar  D"R1=";r1 :"R2=";r2 :"R4=";r4 :"Rs=";rs :170 :pn=7 Sir1r2=vs/(r1+r2) :k0=r1/(r1+r2) :z=r2/(1+(1/tpar)) :v2=vs*z/(r1+z) Dv4=v2-vk :c=0 :r3=0 :v3=0 :v40v4=vk iema=1000*v4/r4 Micma=iema/beta :vbe=v(iema) :ib=icma/(hfe*1000) :i2=ir1r2-(k0*ib) Wv2=r2*i2 :v4=v2-vbe :newiema=1000*v4/r4 :c=c+1 :diema=(iema-newiema) #diema99c33804 **iema=(iema+newiema)/2 :3340 4Uiema=(iema+newiema)/2 :icma=iema/beta :v4=r4*iema/1000 :vbe=v(iema) >Fv2=v4+vbe :v1=vs-v2 :vce=vs-v4 :re=26/icma :ze=hfe*(r4+re) H:av=r4/(r4+re) :z=p(r1,r2) :rin=p(z,ze) :z0=p(z,rs) R&rout=1/((hfe/z0)+(1/r4)) \ :#d;"### EMFOL-3R-VAL-7P ###" fI100 d:#d;"Av=";av,"Rs=";rs,"Rin=";rin,"Rout=";rout,"T par.=";tpar p"After ";c;" iterations." z "Z=";z :pn=8 "N=";n :n12220 Kdb=20*(n)/2.302585093 ]:r1=z*(n+1)/(n-1) :r3=r1 /r2=z*((n*n)-1)/(2*n) :r4=0 !:#d;"*** PI.ATT-3R-DES-2P ***" 3"Z=";z,"N=";n,"dB=";db,"R1=";r1,"R2=";r2,"R3=";r3  $j=1 :rn=18j=2 r=r1 :3700 t:r1=r $r=r2 :3700 t:r2=r .r=r3 :3700 t:r3=r 8r=r4 :3700 t:r4=r Bp(pn) t-m=.01 z# =:r<.1}Lr=0 :r, : ~>i=09  :r>10 ^im=10 ^(i-1) :i i=124j 'rl=r(i)*m :ru=r(i+j)*m :rrlr, : r>ru3760 (dl=r-rl :du=ru-r :r=ru :dlDKR[d l &fffpa temmiiVd 0fdetGce~L̶h.ema]sr1rvT{bmapbisuYbisuYvbmic p_@ic p_@eN(vh j-"id* Rcemvoxsmv+MxP<hȪdmOC;c8=rl i  Cr4=p(r3,z) :z0=p(r1,(r2+r4)) :v1=z0/(z+z0) :v2=v1