summaryrefslogtreecommitdiff
path: root/Master/texmf-dist/doc/latex/circuit-macros/examples/dpv/ThreeDPV.m4
diff options
context:
space:
mode:
Diffstat (limited to 'Master/texmf-dist/doc/latex/circuit-macros/examples/dpv/ThreeDPV.m4')
-rw-r--r--Master/texmf-dist/doc/latex/circuit-macros/examples/dpv/ThreeDPV.m447
1 files changed, 47 insertions, 0 deletions
diff --git a/Master/texmf-dist/doc/latex/circuit-macros/examples/dpv/ThreeDPV.m4 b/Master/texmf-dist/doc/latex/circuit-macros/examples/dpv/ThreeDPV.m4
new file mode 100644
index 00000000000..7f2311d0ea8
--- /dev/null
+++ b/Master/texmf-dist/doc/latex/circuit-macros/examples/dpv/ThreeDPV.m4
@@ -0,0 +1,47 @@
+.PS
+# ThreeDPV.m4: three-phase oscillator
+cct_init(svg_font(sans-serif,11bp__))
+
+define(`section',`[ I: Here
+ resistor(right elen_*0.75); llabel(,R/2)
+T: dot
+ line down dimen_/2 then right_ dimen_/4
+ Amp: opamp(,,,,,{
+ rgbfill(0.9*255,0.6*255,0.1*255,line to N then to E then to S then to Here)
+ "-" at In1 ljust
+ "+" at In2 ljust }
+ ) with .In1 at Here
+ line left dimen_/4 from Amp.In2 then down dimen_/4; G: ground(,,)
+ resistor(from T to (Amp.Out,T)); llabel(,R)
+O: dot
+ { arrow up dimen_*0.5 then right dimen_/4 up dimen_/4
+ "`$1'" above }
+ line to Amp.Out
+ dot(at T+(dimen_/4,0)); line up dimen_*0.6
+ capacitor(right_ Amp.Out.x-Here.x-dimen_/4,C); llabel(,2C)
+ line to (Here,T); dot
+ ]')
+
+A: section(svg_symbol(0&`#'176;))
+B: section(svg_symbol(120&`#'176;)) with .I at A.O
+C: section(svg_symbol(-120&`#'176;)) with .I at B.O
+ move right 22pt__ from C.O
+
+ ground(at (A.I,A.G)+(dimen_/3,0),,)
+P:potentiometer(down_ dimen_/2,,0.75,dimen_/2) with .End at Here
+ line from P.Start to (A.I,P.Start); dot
+ resistor(up_ dimen_*0.75 from P.T1)
+ line to A.T
+
+ dot(at B.Amp.Out+(dimen_/3,0)); { "svg_it(V`'svg_sub(c))" at last [].n above }
+ resistor(down_ dimen_*0.75)
+ { dot; line right (C.T.x-Here.x)/2
+ reversed(`diode',up_ dimen_)
+ line to C.T }
+ resistor(down_ dimen_*0.75)
+ dot
+ line from C.O right dimen_/4 then down C.O.y-Here.y then to (A.I,Here) \
+ then to A.I
+
+ command "</g>" # end font
+.PE