summaryrefslogtreecommitdiff
path: root/Master/texmf-dist/doc/latex/circuit-macros/examples/extras/OneLine.m4
diff options
context:
space:
mode:
Diffstat (limited to 'Master/texmf-dist/doc/latex/circuit-macros/examples/extras/OneLine.m4')
-rw-r--r--Master/texmf-dist/doc/latex/circuit-macros/examples/extras/OneLine.m467
1 files changed, 67 insertions, 0 deletions
diff --git a/Master/texmf-dist/doc/latex/circuit-macros/examples/extras/OneLine.m4 b/Master/texmf-dist/doc/latex/circuit-macros/examples/extras/OneLine.m4
new file mode 100644
index 00000000000..7b451b366aa
--- /dev/null
+++ b/Master/texmf-dist/doc/latex/circuit-macros/examples/extras/OneLine.m4
@@ -0,0 +1,67 @@
+.PS
+# OneLine.m4
+# https://tex.stackexchange.com/questions/191598/electric-network-one-line-diagrams/325717#325717
+cct_init
+include(libSLD.m4)
+First: [
+ xgap = 0.6
+ dim1 = 1; dim2 = 0.75 ; dim3=0.5
+ X: box fill_(0.9) wid 1 "Xingu" "\SI{500}{\kV}"
+ { "$R_0=\SI{1,682}{\ohm}$" at X.sw below ljust }
+ sl_transformer(right_ dim2,type=S); rlabel(,\SI{18}{\percent},)
+ {[Ysymbol;Ysymbol(at last []+(last [].wid,0))] with .s at last [].n+(0,2bp__)}
+ { B1: line thick 3*linethick up 0.4 with .c at Here
+ "$s$" wid 0.1 ht 0.1 above }
+ { arrow right 0.2 from last line.c+(0.1,-0.1) }
+ { "$I^s$" at last line.start below }
+ line right 3.0 "$l=\SI{2600}{\km}$" wid 0.1 ht 0.1 above
+ { B2: line thick 3*linethick up 0.4 with .c at Here; "$r$" above }
+ sl_transformer(right_ dim2,type=S); rlabel(,\SI{18}{\percent},)
+ {[Ysymbol;Ysymbol(at last []+(last [].wid,0))] with .s at last [].n+(0,2bp__)}
+ NI: box fill_(0.9) wid 1 "Nova Igua\c{c}u" "\SI{500}{\kV}"
+ "$Z_0=a+b$" at NI.sw below ljust
+ RELE: box wid dimen_/2 ht dimen_/2 with .w at B1+(0.6,0.3)
+ line left 0.15 from 1/4 between RELE.nw and RELE.sw; "$V^s$" rjust
+ line left 0.15 from 3/4 between RELE.nw and RELE.sw; "$I^s$" rjust
+ ]
+Second: [
+ lstem = dimen_*3/4
+ asep = dimen_/3
+ sl_grid(U,lgth=dimen_;wdth=dimen_)
+ sl_transformer(down_ dimen_*7/4,type=S;name=Tr)
+ llabel(,"$\SI{400}{kVA}$" ljust "$\SI{4}{\percent}$" ljust,,,Tr)
+ Bus: sl_busbar(right_ dimen_*12, 5) with .P3 at Here
+#
+define(`loadstring',`[ L: line invis down_ dimen_*5
+ line from L.start down_ L.len/4; dot
+ { arrow <-> down_ last line.len at last line+(asep,0) "\sf $5 m" ljust }
+ { sl_load(left_ lstem); "\sf $1" at Head.w rjust }
+ { r_text(90,`\sf\scriptsize NAYY 4x150 mm$^2$', at Here+(-7bp__,0)) }
+ line down_ L.len/4; dot
+ { arrow <-> down_ last line.len at last line+(asep,0) "\sf $6 m" ljust }
+ { sl_load(left_ lstem); "\sf $2" at Head.w rjust }
+ { box wid dimen_/3 ht dimen_/3 at Here }
+ line down_ L.len/8-3bp__
+ { ACsymbol(at Here+(0,-3bp__),,,2:RA) }
+ line down_ L.len/8+3bp__ from last line.end chop 6bp__ chop 0; dot
+ ifelse(`$7',,,
+ `{ arrow <-> up_ L.len/4 from Here+(asep,0) "\sf $7 m" ljust }')
+ { sl_load(left_ lstem); "\sf $3" at Head.w rjust }
+ line down_ L.len/4; dot
+ { arrow <-> down_ last line.len at last line+(asep,0) "\sf $8 m" ljust }
+ { sl_load(left_ lstem); Q:"\sf $4" at Head.w rjust }
+ { box wid dimen_/3 ht dimen_/3 at Here } ]')
+#
+ loadstring(1,2,27,28, 21,21,,21) with .L.start at Bus.P1
+ move left_ 13bp__ from last [].Q
+ loadstring(1,2,15,16, 29,29,,29) with .L.start at Bus.P2
+ loadstring(1,2, 8, 9, 40,40,,40) with .L.start at Bus.P3
+ loadstring(1,2, 3, 4, 64,64,64,64) with .L.start at Bus.P4
+ line down_ last [].L.len/2 from Bus.P5; dot
+ { r_text(90,`\sf\scriptsize NAYY 4x150 mm$^2$', at last line.c+(-7bp__,0)) }
+ { arrow <-> down_ last line.len at last line+(asep,0)
+ "\sf 102 m" wid 30.4 bp__ ljust at last arrow }
+ { sl_load(left_ lstem)}
+ ] with .nw at First.sw+(0,-dimen_/2)
+#showbox_
+.PE