1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
|
% --- start of displayed preamble in the book ---
input makecirc;
initlatex("\usepackage{amsmath,amssymb}");
% --- end of displayed preamble in the book ---
defaultfont:="ptmr8r";
warningcheck:=0;
beginfig(1)
transistor.a(origin,pnp,0);junction.B(T.a.B,"B")(top);
junction.E(T.a.E,"E")(llft);junction.C(T.a.C,"C")(top);
resistor.C(T.a.C+(2cm,-5mm),normal,-90,"R_C","");
source.CC(R.C.r,DC,-90,"V_{CC}","");
resistor.B(T.a.B+(-2cm,0),normal,-90,"R_B","");
source.EE(R.B.r,DC,-90,"V_{BB}","");
capacitor.a(T.a.B+(-3cm,0),normal,-180,"C_a","");
junction.a(C.a.r+(-1cm,0),"")(top);
junction.b((xpart J.a,ypart S.EE.p-5mm),"")(bot);
wire(T.a.C,R.C.l,rlsq);wire(T.a.B,C.a.l,nsq);
wire(C.a.r,J.a,nsq);wireU(S.EE.p,S.CC.p,-5mm,udsq);
wire(J.b,S.EE.p+(0,-5mm),nsq);
wire(T.a.E,(xpart T.a.E,ypart S.EE.p-5mm),nsq);
current.E(T.a.E+(0,-1cm),90,"I_E","");current.C(T.a.C+(5mm,0),0,"I_C","");
current.B(J.B+(-5mm,0),-180,"I_B","");
ctext.lft(J.a,J.b,"$E_1$",witharrow);
wire(R.C.l,R.C.l+(1cm,0),nsq);wire(R.C.r,R.C.r+(1cm,0),nsq);
ctext.rt(R.C.l+(1cm,0),R.C.r+(1cm,0),"$E_2$",witharrow);
endfig;
end;
|