% --- start of displayed preamble in the book --- input makecirc; initlatex(""); % --- end of displayed preamble in the book --- defaultfont:="ptmr8r"; warningcheck:=0; beginfig(1) resistor.a(origin,normal,90,"R","10\ohm"); centerto.A(R.a.l,R.a.r,2cm,ind); inductor.a(A,Up,90,"L",""); z1=(xpart L.a.r, ypart R.a.r); centreof.B(R.a.r,z1,cap); capacitor.a(c.B,normal,phi.B,"C",""); wire(R.a.r,C.a.l,udsq);wire(C.a.r,L.a.r,rlsq); wire(L.a.l,R.a.l,udsq); endfig; end;