diff options
author | Karl Berry <karl@freefriends.org> | 2023-03-11 21:14:53 +0000 |
---|---|---|
committer | Karl Berry <karl@freefriends.org> | 2023-03-11 21:14:53 +0000 |
commit | 3c87631320d19f79abd7239fa752454978f37ce6 (patch) | |
tree | a1d11272a60372dd97c71ddc782c4b582299de82 /Master/texmf-dist/doc/latex/circuit-macros/examples/extras/Resolver.m4 | |
parent | b07ff8c82713eb8f4a519d581381555700235e46 (diff) |
circuit-macros (11mar23) (branch)
git-svn-id: svn://tug.org/texlive/branches/branch2022.final@66556 c570f23f-e606-0410-a88d-b1316a301751
Diffstat (limited to 'Master/texmf-dist/doc/latex/circuit-macros/examples/extras/Resolver.m4')
-rw-r--r-- | Master/texmf-dist/doc/latex/circuit-macros/examples/extras/Resolver.m4 | 49 |
1 files changed, 49 insertions, 0 deletions
diff --git a/Master/texmf-dist/doc/latex/circuit-macros/examples/extras/Resolver.m4 b/Master/texmf-dist/doc/latex/circuit-macros/examples/extras/Resolver.m4 new file mode 100644 index 00000000000..b6ca93047a7 --- /dev/null +++ b/Master/texmf-dist/doc/latex/circuit-macros/examples/extras/Resolver.m4 @@ -0,0 +1,49 @@ +.PS +# `Resolver.m4' +cct_init +s_init(tst) +sinclude(tst.dim) + +iflatex(`latexcommand({\scriptsize\sf)') + +[ +linewid = linewid*1.25 +define(`dotrad_',dotrad_/2) + + T1: transformer(down_ dimen_/2) + line left from T1.P1; dot; move left 15bp__ "RH" + line left from T1.P2; dot; "RL" rjust + "Rotor ($r$)" at T1.TP rjust + line right_ dimen_*3/4 from T1.S2 + C: Here + phi = 35 + move right_ 0.1 from T1.S1; move from C to C+(Rect_(0.1,90+phi)) + Q: Intersect_(last move,2nd last move) + Lr: inductor(from Q to C) + S1: line from T1.S1 to Q + A: C+(Rect_(dimen_*0.9,90+phi)) + thinlines_ + line dashed from Q to A chop 2bp__ chop 0 + "Rotor shaft" at last line.end rjust "angle" rjust "" rjust + line dashed from C up_ dimen_*0.9 chop 2bp__ chop 0 + arcd(C,dimen_*0.85,90,90+phi) -> + thicklines_ + f_box($\phi$) at C+(Rect_(dimen_*0.85,90+phi/2)) + + d = distance(T1.P1,T1.P2) + Ls: inductor(up_ d from C+(d/2,0)) + line right_ from Ls.end + D2: dot; "S2" ljust + line from Ls.start to (D2,Ls.start); dot; "S4" ljust + "$Kr\cos(\phi)$" at 0.5 between last "" and 2nd last "" + Lq: inductor(right_ d at (Lr,(C+(0,-d/3)))) + line from Lq.end down_ d/4 + K: Here; corner; line to (D2,K); dot; "S3" ljust + line from Lq.start down_ d*5/4 + L: Here; corner; line to (D2,L); dot; "S1" ljust + "$Kr\sin(\phi)$" at 0.5 between last "" and 2nd last "" +] +"Resolver essentials" at last [].s below + +iflatex(`latexcommand(})') +.PE |