% --- 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;