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
|
% --- 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)
junction.a(origin,"1b")(lft);junction.b((0,4cm),"1a")(lft);
resistor.a((1cm,4cm),normal,0,"R_1","0,82\ohm");
inductor.a(R.a.r,Up,0,"X_{L1}","0,92 H");
centerto.A(J.a,J.b,4cm,res);
resistor.b(A,normal,90,"G_{\phi}","0,41\ohm");
centerto.B(J.a,J.b,7cm,ind);
inductor.b(B,Down,90,"B_{\phi}","2,24 H");
inductor.c(L.a.r+(3.6cm,0),Up,0,"X'_{L2}","0,9 H");
resistor.c(L.c.r,normal,0,"R'_2","0,8\ohm");
junction.c(R.c.r+(1cm,0),"2a")(rt);
junction.d(R.c.r+(1cm,-4cm),"2b")(rt);
wire(J.a,J.d,nsq);wire(J.b,R.a.l,nsq);
wireU(R.b.r,L.b.r,3mm,udsq);wireU(R.b.l,L.b.l,-3mm,udsq);
wire(L.a.r,(5.5cm,ypart R.b.r + 3mm),rlsq);
wire((5.5cm,ypart R.b.l - 3mm),(5.5cm,0),nsq);
wire(R.c.r,J.c,nsq);wire(L.c.l,(5cm,ypart L.c.l),nsq);
ctext(J.a,J.b,"$V_1$",noarrow);ctext(J.c,J.d,"$V'_2$",noarrow);
endfig;
end;
|
