summaryrefslogtreecommitdiff
path: root/info/examples/lgc2/4-5-8.mp
diff options
context:
space:
mode:
Diffstat (limited to 'info/examples/lgc2/4-5-8.mp')
-rw-r--r--info/examples/lgc2/4-5-8.mp23
1 files changed, 23 insertions, 0 deletions
diff --git a/info/examples/lgc2/4-5-8.mp b/info/examples/lgc2/4-5-8.mp
new file mode 100644
index 0000000000..13a6dd5a64
--- /dev/null
+++ b/info/examples/lgc2/4-5-8.mp
@@ -0,0 +1,23 @@
+% --- 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)
+source.a(origin,AC,90,"v","");
+junction.a(S.a.p+(3cm,1cm),"")(top);
+diode.a(J.a,normal,-45,pinA,"D_1","");
+diode.b(D.a.K,normal,-135,pinK,"D_2","");
+diode.c(D.b.A,normal,135,pinK,"D_3","");
+diode.d(D.c.A,normal,45,pinA,"D_4","");
+junction.b(D.b.A,"")(bot);
+centerto.A(S.a.n,S.a.p)(5cm,imp);
+impedance.a(A,90,"Z_L","");
+wireU(S.a.p,D.a.A,1.5cm,udsq);
+wireU(S.a.n,D.b.A,-1.5cm,udsq);
+wire(D.a.K,Z.a.r,rlsq);
+wire(Z.a.l,Z.a.l+(0,-4mm),nsq);
+wireU(Z.a.l+(0,-4mm),D.d.A,-4cm,rlsq);
+endfig;
+end;