1 files changed, 26 insertions, 0 deletions
diff --git a/info/examples/lgc2/4-5-6.mp b/info/examples/lgc2/4-5-6.mp
new file mode 100644
index 0000000000..ad3d8ea926
--- /dev/null
+++ b/info/examples/lgc2/4-5-6.mp
@@ -0,0 +1,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;