summaryrefslogtreecommitdiff
path: root/Master/texmf-dist/tex/latex/eltex/eltex1.tex
diff options
context:
space:
mode:
authorKarl Berry <karl@freefriends.org>2009-06-24 16:47:56 +0000
committerKarl Berry <karl@freefriends.org>2009-06-24 16:47:56 +0000
commit16219cfd92706d277d2e3363716e656d66bd7d75 (patch)
tree667d1cae291b1384d80e04c3beb3c6ae602f9f28 /Master/texmf-dist/tex/latex/eltex/eltex1.tex
parentc68f9012130bdc604769e59229abefc28ac1cf04 (diff)
new latex package eltex (23jun09)
git-svn-id: svn://tug.org/texlive/trunk@13945 c570f23f-e606-0410-a88d-b1316a301751
Diffstat (limited to 'Master/texmf-dist/tex/latex/eltex/eltex1.tex')
-rw-r--r--Master/texmf-dist/tex/latex/eltex/eltex1.tex829
1 files changed, 829 insertions, 0 deletions
diff --git a/Master/texmf-dist/tex/latex/eltex/eltex1.tex b/Master/texmf-dist/tex/latex/eltex/eltex1.tex
new file mode 100644
index 00000000000..d2a9f82220f
--- /dev/null
+++ b/Master/texmf-dist/tex/latex/eltex/eltex1.tex
@@ -0,0 +1,829 @@
+%%%%%%%%%%% accordingly the CSN IEC 617-1 to 11 (1993-1995) %%%%%%%%
+%%%%%%%%%%% Libor Gajdosik 2009 eltex version 2.0 %%%%%%%%%%%%%
+
+\unitlength=1mm
+%%%%%%%%grid -generating help grid 10x10mm to simplify orientation%%%%%%
+\newcommand{\grid}[2]{
+\linethickness{0.1mm}
+\unitlength=10mm
+ \newcounter{sloupec}
+ \setcounter{sloupec}{10}
+\put(0,0){\line(0,1){#2}}
+\multiput(1,0)(1,0){#1}{\line(0,1){#2}}
+\multiput(0.7,-0.5)(1,0){#1}{\arabic{sloupec}\addtocounter{sloupec}{10}}
+ \setcounter{sloupec}{10}
+\multiput(0.6,#2)(1,0){#1}{\makebox(0.7,0.6)
+ {\arabic{sloupec}\addtocounter{sloupec}{10}}}
+ \newcounter{radek}
+ \put(-0.3,-0.3){\arabic{radek}}
+ \setcounter{radek}{10}
+\put(0,0){\line(1,0){#1}}
+\multiput(0,1)(0,1){#2}{\line(1,0){#1}}
+\multiput(-0.8,0.7)(0,1){#2}{\makebox(0.7,0.5)[r]
+ {\arabic{radek}\addtocounter{radek}{10}}}
+ \setcounter{radek}{10}
+\multiput(#1,0.6)(0,1){#2}{\makebox(0.7,0.6)[r]
+ {\arabic{radek}\addtocounter{radek}{10}}}
+\thicklines
+\unitlength=1mm
+}
+%%%%basic pasive devices (source, resistor, capacitor, inductor)%%%%
+%horizontal voltage source
+\newcommand{\hsourcev}{
+\put(0,0){\line(1,0){30}}
+\put(15,0){\circle{10}}
+}
+%vertical voltage source
+\newcommand{\vsourcev}{
+\put(0,0){\line(0,1){30}}
+``\put(0,15){\circle{10}}
+}
+%horizontal current source
+\newcommand{\hsourcec}{
+\put(0,0){\line(1,0){10}}
+\put(15,-5){\line(0,1){10}}
+\put(15,0){\circle{10}}
+\put(20,0){\line(1,0){10}}
+}
+%vertical current source
+\newcommand{\vsourcec}{
+\put(0,0){\line(0,1){10}}
+\put(5,15){\line(-1,0){10}}
+\put(0,15){\circle{10}}
+\put(0,20){\line(0,1){10}}
+}
+\newcommand{\hhsourcev}{
+\put(0,0){\line(1,0){20}}
+\put(10,0){\circle{10}}
+}
+%vertical voltage source
+\newcommand{\vvsourcev}{
+\put(0,0){\line(0,1){20}}
+\put(0,10){\circle{10}}
+}
+%diagonal voltage source
+\newcommand{\dsourcev}[1]{
+\ifx#1U %source up right oriented
+ \put(0,0){\line(1,1){20}}
+ \put(10,10){\circle{10}}
+\else \ifx#1D %source down right oriented
+ \put(0,0){\line(1,-1){20}}
+ \put(10,-10){\circle{10}}
+\fi \fi
+}
+%horizontal current source
+\newcommand{\hhsourcec}{
+\put(0,0){\line(1,0){5}}
+\put(10,-5){\line(0,1){10}}
+\put(10,0){\circle{10}}
+\put(15,0){\line(1,0){5}}
+}
+%vertical current source
+\newcommand{\vvsourcec}{
+\put(0,0){\line(0,1){5}}
+\put(5,10){\line(-1,0){10}}
+\put(0,10){\circle{10}}
+\put(0,15){\line(0,1){5}}
+}
+%diagonal current source
+\newcommand{\dsourcec}[1]{
+\ifx#1U %source up right oriented
+ \put(0,0){\line(1,1){6.5}}
+ \put(6.5,13.5){\line(1,-1){7}}
+ \put(10,10){\circle{10}}
+ \put(13.5,13.5){\line(1,1){6.5}}
+\else \ifx#1D %source down right oriented
+ \put(0,0){\line(1,-1){6.5}}
+ \put(13.5,-6.5){\line(-1,-1){7}}
+ \put(10,-10){\circle{10}}
+ \put(13.5,-13.5){\line(1,-1){6.5}}
+\fi \fi
+}
+%horizontal rezistor
+\newcommand{\hhrez}[1]{
+\put(0,0){\line(1,0){5}}
+\put(5,-2){\framebox(10,4){}\put(0,2){\line(1,0){5}}}
+\ifnum#1=1 % rez. adjustable by tool (medium pin down oriented)
+\put(8,-6){\line(1,3){4}}
+\put(10,7){\line(3,-1){4}}
+\else \ifnum#1=2 % rez. adjustable by tool (medium pin up oriented)
+\put(8,6){\line(1,-3){4}}
+\put(10,-7){\line(3,1){4}}
+\else \ifnum#1=3 % rez. adjustable by tool (medium pin shortly
+ %conected)
+\put(8,6){\line(1,-3){4}}
+\put(10,-7){\line(3,1){4}}
+\put(8,6){\line(-1,0){5}}
+\put(3,6){\line(0,-1){6}}
+\put(3,0){\node}
+\else \ifnum#1=4 % rez. adjustable (medium pin down oriented)
+\put(6,-4){\vector(1,1){9}}
+\else \ifnum#1=5 % rez. adjustable (medium pin up oriented)
+\put(6,4){\vector(1,-1){9}}
+\else \ifnum#1=6 % rez. adjustable (medium pin shortly conected)
+\put(8,6){\vector(1,-3){4}}
+\put(8,6){\line(-1,0){5}}
+\put(3,6){\line(0,-1){6}}
+\put(3,0){\node}
+\else \ifnum#1=7 %nonlinearly dependent
+\put(6,-4){\line(1,1){8}}
+\put(3,-4){\line(1,0){3}}
+
+
+\fi \fi \fi \fi \fi \fi \fi
+ }
+%vertical rezistor
+\newcommand{\vvrez}[1]{
+\put(0,0){\line(0,1){5}}
+\put(-2,5){\framebox(4,10){}\put(-2,10){\line(0,1){5}}}
+\ifnum#1=1 % rez. adjustable by tool (medium pin left oriented)
+\put(-6,8){\line(3,1){12}}
+\put(5,14){\line(1,-2){2}}
+\else \ifnum#1=2 % rez. adjustable by tool (medium pin right oriented)
+\put(-6,12){\line(3,-1){12}}
+\put(-7,10){\line(1,2){2}}
+\else \ifnum#1=3 % rez. adjustable by tool (medium pin shortly
+ %conected)
+\put(-6,7){\line(3,1){12}}
+\put(5,13){\line(1,-2){2}}
+\put(-6,7){\line(0,-1){4}}
+\put(-6,3){\line(1,0){6}}
+\put(0,3){\node}
+\else \ifnum#1=4 % rez. adjustable (medium pin left oriented)
+\put(-4,6){\vector(1,1){9}}
+\else \ifnum#1=5 % rez. adjustable (medium pin right oriented)
+\put(4,6){\vector(-1,1){9}}
+\else \ifnum#1=6 % rez. adjustable (medium pin shortly conected)
+\put(-6,8){\vector(3,1){12}}
+\put(-6,8){\line(0,-1){5}}
+\put(-6,3){\line(1,0){6}}
+\put(0,3){\node}
+\else \ifnum#1=7
+\put(-4,6){\line(1,1){8}}
+\put(4,14){\line(1,0){3}}
+
+\fi \fi \fi \fi \fi \fi \fi
+ }
+%diagonal rezistor
+\newcommand{\drez}[2]{
+\ifx#1U % up left oriented
+\put(0,0){\line(1,1){7}\put(2.2,5.2){\line(-1,1){4}}
+\put(-1.9,9){\line(1,1){7}}\put(2.2,5){\line(1,1){7}}
+\put(9,12){\line(-1,1){4}}\put(7,14){\line(1,1){6}}}
+ \ifnum#2=1 % rez. adjustable by tool (medium pin left oriented)
+\put(2,10){\line(1,0){16}}
+\put(18,12){\line(0,-1){4}}
+ \fi \ifnum#2=2 % rez. adjustable by tool (medium pin right oriented)
+\put(2,10){\line(1,0){16}}
+\put(2,12){\line(0,-1){4}}
+ \fi \ifnum#2=3 % rez. adjustable by tool (medium pin shortly
+ %conected)
+\put(2,10){\line(1,0){16}}
+\put(18,12){\line(0,-1){4}}
+\put(2,10){\line(0,-1){4}}
+\put(2,6){\line(1,0){4}}
+\put(6,6){\node}
+ \fi \ifnum#2=4 % rez. adjustable (medium pin left oriented)
+\put(2,10){\vector(1,0){16}}
+ \fi \ifnum#2=5 % rez. adjustable (medium pin right oriented)
+\put(18,10){\vector(-1,0){16}}
+ \fi \ifnum#2=6 % rez. adjustable (medium pin shortly conected)
+\put(2,10){\vector(1,0){16}}
+\put(2,10){\line(0,-1){4}}
+\put(2,6){\line(1,0){4}}
+\put(6,6){\node}
+ \fi \ifnum#2=7
+\put(2,10){\line(1,0){16}}
+\put(18,10){\line(1,1){4}}
+ \fi \fi
+
+\ifx#1D %down right oriented
+\put(0,0){\line(1,-1){7}\put(-1.9,-9){\line(1,1){4}}
+\put(2,-4.9){\line(1,-1){7}}\put(-1.9,-9){\line(1,-1){7}}}
+\put(12,-16){\line(1,1){4}\put(-2,2){\line(1,-1){6}}}
+ \ifnum#2=1 % rez. adjustable by tool (medium pin left oriented)
+\put(2,-10){\line(1,0){16}}
+\put(18,-8){\line(0,-1){4}}
+ \else \ifnum#2=2 % rez. adjustable by tool (medium pin right oriented)
+\put(2,-10){\line(1,0){16}}
+\put(2,-8){\line(0,-1){4}}
+ \else \ifnum#2=3 % rez. adjustable by tool (medium pin shortly
+ %conected)
+\put(2,-10){\line(1,0){16}}
+\put(18,-8){\line(0,-1){4}}
+\put(2,-10){\line(0,1){4}}
+\put(2,-6){\line(1,0){4}}
+\put(6,-6){\node}
+ \else \ifnum#2=4 % rez. adjustable (medium pin left oriented)
+\put(2,-10){\vector(1,0){16}}
+ \else \ifnum#2=5 % rez. adjustable (medium pin right oriented)
+\put(18,-10){\vector(-1,0){16}}
+ \else \ifnum#2=6 % rez. adjustable (medium pin shortly conected)
+\put(2,-10){\vector(1,0){16}}
+\put(2,-10){\line(0,1){4}}
+\put(2,-6){\line(1,0){4}}
+\put(6,-6){\node}
+ \else \ifnum#2=7
+\put(2,-10){\line(1,0){16}}
+\put(18,-10){\line(1,1){4}}
+\fi \fi \fi \fi \fi \fi \fi \fi
+}
+
+%diagonal rezistor (short)
+\newcommand{\ddrez}[2]{
+\ifx#1U % up left oriented
+\put(0,0){\line(1,1){4}\put(2,2){\line(-1,1){4}}
+\put(2,2){\line(1,1){7}}\put(-2,6){\line(1,1){7}}
+\put(9,9){\line(-1,1){4}}\put(7,11){\line(1,1){4}}}
+ \ifnum#2=1 % rez. adjustable by tool (medium pin left oriented)
+\put(-1,7){\line(1,0){16}}
+\put(15,9){\line(0,-1){4}}
+ \fi \ifnum#2=2 % rez. adjustable by tool (medium pin right oriented)
+\put(0,7){\line(1,0){16}}
+\put(0,9){\line(0,-1){4}}
+ \fi \ifnum#2=3 % rez. adjustable by tool (medium pin shortly
+ %conected)
+\put(-1,8){\line(1,0){16}}
+\put(15,10){\line(0,-1){4}}
+\put(-1,8){\line(0,-1){6}}
+\put(-1,2){\line(1,0){3}}
+\put(2,2){\node}
+ \fi \ifnum#2=4 % rez. adjustable (medium pin left oriented)
+\put(1,8){\vector(1,0){16}}
+ \fi \ifnum#2=5 % rez. adjustable (medium pin right oriented)
+\put(16,8){\vector(-1,0){16}}
+ \fi \ifnum#2=6 % rez. adjustable (medium pin shortly conected)
+\put(-1,8){\vector(1,0){18}}
+\put(-1,8){\line(0,-1){6}}
+\put(-1,2){\line(1,0){3}}
+\put(2,2){\node}
+ \fi \ifnum#2=7
+\put(2,8){\line(1,0){16}}
+\put(18,8){\line(1,1){4}}
+ \fi \fi
+
+\ifx#1D %down right oriented
+\put(0,0){\line(1,-1){4}\put(-2,-6){\line(1,1){4}}
+\put(-2,-6){\line(1,-1){7}}\put(2,-2){\line(1,-1){7}}}
+\put(9,-13){\line(1,1){4}\put(-2,2){\line(1,-1){4}}}
+ \ifnum#2=1 % rez. adjustable by tool (medium pin left oriented)
+\put(0,-8){\line(1,0){16}}
+\put(16,-6){\line(0,-1){4}}
+ \else \ifnum#2=2 % rez. adjustable by tool (medium pin right oriented)
+\put(0,-8){\line(1,0){16}}
+\put(0,-6){\line(0,-1){4}}
+ \else \ifnum#2=3 % rez. adjustable by tool (medium pin shortly
+ %conected)
+\put(0,-8){\line(1,0){16}}
+\put(16,-6){\line(0,-1){4}}
+\put(0,-8){\line(0,1){6}}
+\put(0,-2){\line(1,0){2}}
+\put(2,-2){\node}
+ \else \ifnum#2=4 % rez. adjustable (medium pin left oriented)
+\put(0,-8){\vector(1,0){16}}
+ \else \ifnum#2=5 % rez. adjustable (medium pin right oriented)
+\put(16,-8){\vector(-1,0){16}}
+ \else \ifnum#2=6 % rez. adjustable (medium pin shortly conected)
+\put(0,-8){\vector(1,0){16}}
+\put(0,-8){\line(0,1){6}}
+\put(0,-2){\line(1,0){2}}
+\put(2,-2){\node}
+ \else \ifnum#2=7
+\put(0,-8){\line(1,0){16}}
+\put(16,-8){\line(1,1){4}}
+\fi \fi \fi \fi \fi \fi \fi \fi
+}
+%horizontal rezistor
+\newcommand{\hrez}[1]{
+\put(0,0){\line(1,0){10}}
+\put(10,-2){\framebox(10,4){}\put(0,2){\line(1,0){10}}}
+\ifnum#1=1 % rez. adjustable by tool (medium pin down oriented)
+\put(12,-6){\line(1,3){4}}
+\put(14,7){\line(3,-1){4}}
+\else \ifnum#1=2 % rez. adjustable by tool (medium pin up oriented)
+\put(12,6){\line(1,-3){4}}
+\put(14,-7){\line(3,1){4}}
+\else \ifnum#1=3 % rez. adjustable by tool (medium pin shortly
+ %conected)
+\put(12,6){\line(1,-3){4}}
+\put(14,-7){\line(3,1){4}}
+\put(12,6){\line(-1,0){4}}
+\put(8,6){\line(0,-1){6}}
+\put(8,0){\node}
+\else \ifnum#1=4 % rez. adjustable (medium pin down oriented)
+\put(11,-4){\vector(1,1){9}}
+\else \ifnum#1=5 % rez. adjustable (medium pin up oriented)
+\put(11,4){\vector(1,-1){9}}
+\else \ifnum#1=6 % rez. adjustable (medium pin shortly conected)
+\put(12,6){\vector(1,-3){4}}
+\put(12,6){\line(-1,0){4}}
+\put(8,6){\line(0,-1){6}}
+\put(8,0){\node}
+\else \ifnum#1=7 %%nonlinearly dependent
+\put(11,-4){\line(1,1){8}}
+\put(19,4){\line(1,0){3}}
+\fi \fi \fi \fi \fi \fi \fi
+ }
+%vertical rezistor
+\newcommand{\vrez}[1]{
+\put(0,0){\line(0,1){10}}
+\put(-2,10){\framebox(4,10){}\put(-2,10){\line(0,1){10}}}
+\ifnum#1=1 % rez. adjustable by tool (medium pin left oriented)
+\put(-6,12){\line(3,1){12}}
+\put(5,18){\line(1,-2){2}}
+\else \ifnum#1=2 % rez. adjustable by tool (medium pin right oriented)
+\put(-6,18){\line(3,-1){12}}
+\put(-7,16){\line(1,2){2}}
+\else \ifnum#1=3 % rez. adjustable by tool (medium pin shortly
+ %conected)
+\put(-6,12){\line(3,1){12}}
+\put(5,18){\line(1,-2){2}}
+\put(-6,12){\line(0,-1){4}}
+\put(-6,8){\line(1,0){6}}
+\put(0,8){\node}
+\else \ifnum#1=4 % rez. adjustable (medium pin left oriented)
+\put(-4,11){\vector(1,1){9}}
+\else \ifnum#1=5 % rez. adjustable (medium pin right oriented)
+\put(4,11){\vector(-1,1){9}}
+\else \ifnum#1=6 % rez. adjustable (medium pin shortly conected)
+\put(-6,12){\vector(3,1){12}}
+\put(-6,12){\line(0,-1){4}}
+\put(-6,8){\line(1,0){6}}
+\put(0,8){\node}
+\else \ifnum#1=7
+\put(-4,11){\line(1,1){8}}
+\put(4,19){\line(1,0){3}}
+\fi \fi \fi \fi \fi \fi \fi
+ }
+%horizontal capacitor
+\newcommand{\hcap}[1]{
+\put(0,0){\line(1,0){14.5}}
+\multiput(14.5,3)(1,0){2}{\line(0,-1){6}}
+\put(15.5,0){\line(1,0){14.5}}
+\ifnum#1=1 % capacitor adjustable by tool
+\put(18,-3){\line(-1,1){6}}
+\put(9.5,0.5){\makebox(5,5){/}}
+ \else \ifnum#1=4 %capacitor adjustable
+\put(18,-3){\vector(-1,1){6}}
+ \fi \fi
+ }
+%vertical capacitor
+\newcommand{\vcap}[1]{
+\put(0,0){\line(0,1){14.5}}
+\multiput(-3,14.5)(0,1){2}{\line(1,0){6}}
+\put(0,15.5){\line(0,1){14.5}}
+ \ifnum#1=1 %cap. adjustable by tool
+\put(2.5,12.5){\line(-1,1){6}}
+\put(-6,16){\makebox(5,5){/}}
+ \else \ifnum#1=4 %cap. adjustable
+\put(-3,12){\vector(1,1){7}}
+ \fi \fi
+ }
+%diagonal capacitor
+\newcommand{\dcap}[2]{
+\ifx#1U % up right oriented
+\put(0,0){\line(1,1){9.25}}
+\multiput(7.25,11.75)(1,1){2}{\line(1,-1){4.5}}
+\put(10.75,10.75){\line(1,1){9.25}}
+ \ifnum#2=1 %cap. adjustable with tool
+\put(5,10){\line(1,0){10}}
+\put(15,8){\line(0,1){4}}
+ \else \ifnum#2=4 %cap. adjustable
+\put(5,10){\vector(1,0){12}}
+ \fi \fi
+\fi
+\ifx#1D % down right oriented
+\put(0,0){\line(1,-1){9.3}}
+\multiput(7.25,-11.75)(1,-1){2}{\line(1,1){4.5}}
+\put(10.75,-10.75){\line(1,-1){9.25}}
+ \ifnum#2=1 %cap. adjustable with tool
+\put(10,-15){\line(0,1){10}}
+\put(8,-5){\line(1,0){4}}
+ \else \ifnum#2=4 %cap. adjustable
+\put(10,-15){\vector(0,1){11}}
+ \fi \fi
+\fi
+}
+%horizontal capacitor
+\newcommand{\hhcap}[1]{
+\put(0,0){\line(1,0){4.5}}
+\multiput(4.5,3)(1,0){2}{\line(0,-1){6}}
+\put(5.5,0){\line(1,0){4.5}}
+\ifnum#1=1 % capacitor adjustable by tool
+\put(8,-3){\line(-1,1){6}}
+\put(-0.5,0.5){\makebox(5,5){/}}
+ \else \ifnum#1=4 %capacitor adjustable
+\put(8,-3){\vector(-1,1){7}}
+ \fi \fi
+ }
+%vertical capacitor
+\newcommand{\vvcap}[1]{
+\put(0,0){\line(0,1){4.5}}
+\multiput(-3,4.5)(0,1){2}{\line(1,0){6}}
+\put(0,5.5){\line(0,1){4.5}}
+ \ifnum#1=1 %cap. adjustable by tool
+\put(2.5,2.5){\line(-1,1){6}}
+\put(-6,6){\makebox(5,5){/}}
+ \else \ifnum#1=4 %cap. adjustable
+\put(-3,2){\vector(1,1){7}}
+ \fi \fi
+ }
+%\horizontal 2 turns
+\newcommand{\hturn}[2]{
+\ifx#1U %up arces
+\multiput(1.5,0)(3,0){2}{\oval(3,3)[t]}
+ \ifnum#2=1 %variable inducance
+\put(1.5,4){\line(1,-2){3}}
+\put(-0.5,3.25){\line(2,1){4}}
+ \fi
+\else \ifx#1D %down arces
+\multiput(1.5,0)(3,0){2}{\oval(3,3)[b]}
+ \ifnum#2=1 %variable inductance
+\put(1.5,-4){\line(1,2){3}}
+\put(-0.5,-3.5){\line(2,-1){4}}
+ \fi
+\fi \fi
+}
+%vertical 2 turns
+\newcommand{\vturn}[2]{
+\ifx#1L %left arces
+\multiput(0,1.5)(0,3){2}{\oval(3,3)[l]}
+ \ifnum#2=1 %variable inductance
+ \put(1,4.5){\line(-2,-1){4}}
+ \put(-4.5,4.5){\line(1,-2){2}}
+ \fi
+\else \ifx#1R %right arces
+\multiput(0,1.5)(0,3){2}{\oval(3,3)[r]}
+ \ifnum#2=1 %variable inductance
+ \put(-1,1.5){\line(2,1){4}}
+ \put(2.4,5.5){\line(1,-2){2}}
+ \fi
+\fi \fi
+}
+
+
+%\horizontal inductor
+\newcommand{\hind}[2]{
+\put(0,0){\line(1,0){9}}
+\ifx#1U %up arces
+\multiput(10.5,0)(3,0){4}{\oval(3,3)[t]}
+ \ifnum#2=1 %variable inducance
+\put(12,7){\line(1,-2){5}}
+\put(15.25,-4.25){\line(2,1){4}}
+ \fi
+\else \ifx#1D %down arces
+\multiput(10.5,0)(3,0){4}{\oval(3,3)[b]}
+ \ifnum#2=1 %variable inductance
+\put(12,-7){\line(1,2){5}}
+\put(15.25,4.25){\line(2,-1){4}}
+ \fi
+\fi \fi
+\put(21,0){\line(1,0){9}}
+}
+%vertical inductor
+\newcommand{\vind}[2]{
+\put(0,0){\line(0,1){9}}
+\ifx#1L %left arces
+\multiput(0,10.5)(0,3){4}{\oval(3,3)[l]}
+ \ifnum#2=1 %variable inductance
+ \put(4,18){\line(-2,-1){10}}
+ \put(3,20){\line(1,-2){2}}
+ \fi
+\else \ifx#1R %right arces
+\multiput(0,10.5)(0,3){4}{\oval(3,3)[r]}
+ \ifnum#2=1 %variable inductance
+ \put(-4,13){\line(2,1){10}}
+ \put(-5,15){\line(1,-2){2}}
+ \fi
+\fi \fi
+\put(0,21){\line(0,1){9}}
+}
+%diagonal inductor
+\newcommand{\dind}[3]{
+\ifx#1D %down oriented
+\put(0,0){\line(1,-1){5}}
+\put(15,-15){\line(1,-1){5}}
+ \ifx#2R %right arces
+\multiput(5,-5)(2.5,-2.5){4}{\bezier{40}(0,0)(3.5,1)(2.5,-2.5)}
+ \ifnum#3=1 %variable inductance
+ \put(5,-10.5){\line(1,0){12}}
+ \put(5,-8.5){\line(0,-1){4}}
+ \fi
+ \fi
+ \ifx#2L %left arces
+\multiput(5,-5)(2.5,-2.5){4}{\bezier{40}(0,0)(-1,-3.5)(2.5,-2.5)}
+ \ifnum#3=1 %variable inductance
+ \put(15,-11){\line(-1,0){12}}
+ \put(15,-9){\line(0,-1){4}}
+ \fi
+ \fi
+\fi
+\ifx#1U %up oriented
+\put(0,0){\line(1,1){5}}
+\put(15,15){\line(1,1){5}}
+ \ifx#2R %right arces
+\multiput(5,5)(2.5,2.5){4}{\bezier{40}(0,0)(3.5,-1)(2.5,2.5)}
+ \ifnum#3=1 %variable inductance
+ \put(6,11){\line(1,0){12}}
+ \put(6,13){\line(0,-1){4}}
+ \fi
+ \fi
+ \ifx#2L %left arces
+\multiput(5,5)(2.5,2.5){4}{\bezier{40}(0,0)(-1,3.5)(2.5,2.5)}
+ \ifnum#3=1 %variable inductance
+ \put(15,11){\line(-1,0){12}}
+ \put(15,13){\line(0,-1){4}}
+ \fi
+ \fi
+\fi
+}
+%\horizontal inductor
+\newcommand{\hhind}[2]{
+\put(0,0){\line(1,0){4}}
+\ifx#1U %up arces
+\multiput(5.5,0)(3,0){4}{\oval(3,3)[t]}
+ \ifnum#2=1 %variable inducance
+\put(7,7){\line(1,-2){5}}
+\put(10.25,-4.25){\line(2,1){4}}
+ \fi
+\else \ifx#1D %down arces
+\multiput(5.5,0)(3,0){4}{\oval(3,3)[b]}
+ \ifnum#2=1 %variable inductance
+\put(7,-7){\line(1,2){5}}
+\put(10.25,4.25){\line(2,-1){4}}
+ \fi
+\fi \fi
+\put(16,0){\line(1,0){4}}
+}
+%vertical inductor
+\newcommand{\vvind}[2]{
+\put(0,0){\line(0,1){4}}
+\ifx#1L %left arces
+\multiput(0,5.5)(0,3){4}{\oval(3,3)[l]}
+ \ifnum#2=1 %variable inductance
+ \put(4,13){\line(-2,-1){10}}
+ \put(3,15){\line(1,-2){2}}
+ \fi
+\else \ifx#1R %right arces
+\multiput(0,5.5)(0,3){4}{\oval(3,3)[r]}
+ \ifnum#2=1 %variable inductance
+ \put(-4,8){\line(2,1){10}}
+ \put(-5,10){\line(1,-2){2}}
+ \fi
+\fi \fi
+\put(0,16){\line(0,1){4}}
+}
+%diagonal coil core
+\newcommand{\dcore}[3]{
+\ifx#1D %down oriented
+ \ifx#3I %iron core
+\put(0,0){\line(1,-1){#2}}
+ \else \ifx#3F %ferrite core
+\multiput(0,0)(5,-5){#2}{\line(1,-1){4}}
+ \fi \fi
+ \else \ifx#1U %up oriented
+ \ifx#3I %iron core
+\put(0,0){\line(1,1){#2}}
+ \else \ifx#3F %ferrit core
+\multiput(0,0)(5,5){#2}{\line(1,1){4}}
+ \fi \fi
+\fi \fi
+}
+%vertical coil core
+\newcommand{\vcore}[2]{
+ \ifx#2I %iron core
+\put(0,0){\line(0,1){#1}}
+ \else \ifx#2F %ferrite core
+\multiput(0,0)(0,4){#1}{\line(0,1){3}}
+ \fi \fi
+}
+%horizontal coil core
+\newcommand{\hcore}[2]{
+ \ifx#2I %iron core
+\put(0,0){\line(1,0){#1}}
+ \else \ifx#2F %ferrite core
+\multiput(0,0)(4,0){#1}{\line(1,0){3}}
+ \fi \fi
+}
+%%%switch%%%%%%%%%%%%
+%horizontal switch
+\newcommand{\hswitch}[1]{
+\put(0,0){\line(1,0){2.5}}
+ \ifnum#1=1 %switch on
+\put(2.5,0){\line(3,1){6}}
+ \fi \ifnum#1=0 %switch off
+\put(2.5,0){\line(3,1){6}}
+\put(7.5,0){\line(0,1){1.9}}
+ \fi
+\put(7.5,0){\line(1,0){2.5}}
+}
+%vertical switch
+\newcommand{\vswitch}[1]{
+\put(0,0){\line(0,-1){2.5}}
+ \ifnum#1=1 %switch on
+\put(0,-2.5){\line(1,-3){2}}
+ \fi \ifnum#1=0 %switch off
+\put(0,-2.5){\line(1,-3){2}}
+\put(0,-7.5){\line(1,0){1.9}}
+ \fi
+\put(0,-7.5){\line(0,-1){2.5}}
+}
+%horizontal overswitch
+\newcommand{\hoswitch}[2]{
+\ifx#1R %right oriented
+ \ifnum#2=0 %switch off
+\put(0,0){\line(1,0){2.5}}
+\put(2.5,0){\line(2,1){6}}
+\put(7.5,2.3){\line(0,1){2.8}}
+\put(7.5,5){\line(1,0){2.5}}
+\put(7.5,0){\line(1,0){2.5}}
+ \fi
+ \ifnum#2=1 %switch on
+\put(0,0){\line(1,0){2.5}}
+\put(2.5,0){\line(2,-1){6}}
+\put(7.5,-2.3){\line(0,-1){2.8}}
+\put(7.5,-5){\line(1,0){2.5}}
+\put(7.5,0){\line(1,0){2.5}}
+ \fi
+\fi
+\ifx#1L %left oriented
+ \ifnum#2=0 %switch off
+\put(0,0){\line(1,0){2.5}}
+\put(7.5,0){\line(-2,1){6}}
+\put(2.5,2.3){\line(0,1){2.8}}
+\put(0,5){\line(1,0){2.5}}
+\put(7.5,0){\line(1,0){2.5}}
+ \fi
+ \ifnum#2=1 %switch on
+\put(0,0){\line(1,0){2.5}}
+\put(7.5,0){\line(-2,-1){6}}
+\put(2.5,-2.3){\line(0,-1){2.8}}
+\put(0,-5){\line(1,0){2.5}}
+\put(7.5,0){\line(1,0){2.5}}
+ \fi
+\fi
+}
+%vertical overswitch
+\newcommand{\voswitch}[2]{
+\ifx#1D %down oriented
+ \ifnum#2=0 %switch off
+\put(0,0){\line(0,-1){2.5}}
+\put(0,-2.5){\line(-1,-2){3}}
+\put(-5,-7.5){\line(1,0){2.5}}
+\put(0,-7.5){\line(0,-1){2.5}}
+\put(-5,-7.5){\line(0,-1){2.5}}
+ \fi
+ \ifnum#2=1 %switch on
+\put(0,0){\line(0,-1){2.5}}
+\put(0,-2.5){\line(1,-2){3}}
+\put(2.5,-7.5){\line(1,0){2.5}}
+\put(0,-7.5){\line(0,-1){2.5}}
+\put(5,-7.5){\line(0,-1){2.5}}
+ \fi
+\fi
+\ifx#1U %up oriented
+ \ifnum#2=0 %switch off
+\put(0,0){\line(0,1){2.5}}
+\put(0,2.5){\line(-1,2){3}}
+\put(-5,7.5){\line(1,0){2.5}}
+\put(0,7.5){\line(0,1){2.5}}
+\put(-5,7.5){\line(0,1){2.5}}
+ \fi
+ \ifnum#2=1 %switch on
+\put(0,0){\line(0,1){2.5}}
+\put(0,2.5){\line(1,2){3}}
+\put(2.5,7.5){\line(1,0){2.5}}
+\put(0,7.5){\line(0,1){2.5}}
+\put(5,7.5){\line(0,1){2.5}}
+ \fi
+\fi
+}
+%%%%node, loop, pin, wire, earth, chassis%%%%%%%%%
+\newcommand{\node}{ %conection of devices
+\put(0,0){\circle*{1}}
+}
+\newcommand{\pin}{
+\put(0,0){\circle{1.5}}
+}
+\newcommand{\hwire}[1]{
+\put(0,0){\line(1,0){#1}} % length mm
+}
+\newcommand{\vwire}[1]{
+\put(0,0){\line(0,1){#1}} % length mm
+}
+\newcommand{\dwire}[2]{
+\ifx#1U %up right oriented
+\put(0,0){\line(1,1){#2}} %length mm
+\fi
+\ifx#1D %down right oriented
+\put(0,0){\line(1,-1){#2}} %length mm
+\fi
+}
+%simbol
+\newcommand{\simb}[1]{
+\ifnum#1=1
+\put(0,0){\circle*{1.5}}
+ \else \ifnum#1=2
+\put(0,0){$\Box$}
+ \else \ifnum#1=3
+\put(0,0){$\triangle$}
+ \fi \fi \fi
+}
+%current loop oriented
+\newcommand{\cloop}[2]{
+\ifx#1L %anti-clockwise oriented
+\put(0,0){\oval(12,12)[t]}
+\put(0,0){\oval(12,12)[l]\put(0,-6){\vector(1,0){1}}}
+\put(-5,-5){\makebox(10,10){#2}} %label
+ \else \ifx#1R %clockwise oriented
+\put(0,0){\oval(12,12)[t]}
+\put(0,0){\oval(12,12)[l]\put(6,0){\vector(0,-1){1}}}
+\put(-5,-5){\makebox(10,10){#2}} %label
+\fi \fi
+}
+%earth
+\newcommand{\earth}[1]{
+ \ifx#1D
+ \put(0,0){\line(0,-1){5}}
+ \put(-4,-5){\line(1,0){8}}
+ \put(-3,-6){\line(1,0){6}}
+ \put(-2,-7){\line(1,0){4}}
+ \fi
+ \ifx#1U
+ \put(0,0){\line(0,1){5}}
+ \put(-4,5){\line(1,0){8}}
+ \put(-3,6){\line(1,0){6}}
+ \put(-2,7){\line(1,0){4}}
+ \fi
+ \ifx#1L
+ \put(0,0){\line(-1,0){5}}
+ \put(-5,-4){\line(0,1){8}}
+ \put(-6,-3){\line(0,1){6}}
+ \put(-7,-2){\line(0,1){4}}
+ \fi
+ \ifx#1R
+ \put(0,0){\line(1,0){5}}
+ \put(5,-4){\line(0,1){8}}
+ \put(6,-3){\line(0,1){6}}
+ \put(7,-2){\line(0,1){4}}
+ \fi
+
+}
+%chassis
+\newcommand{\chassis}[1]{
+\ifx#1D
+ \put(0,0){\line(0,-1){5}}
+ {\thicklines \put(-2.5,-5){\line(1,0){5}} }
+\fi
+\ifx#1U
+ \put(0,0){\line(0,1){5}}
+ {\thicklines \put(-2.5,5){\line(1,0){5}}}
+\fi
+\ifx#1L
+ \put(0,0){\line(-1,0){5}}
+{\thicklines \put(-5,-2.5){\line(0,1){5}}}
+\fi
+\ifx#1R
+ \put(0,0){\line(1,0){5}}
+{\thicklines \put(5,-2.5){\line(0,1){5}} }
+\fi
+}
+%horizontal measuring instrument
+\newcommand{\hmeasure}[1]{
+\put(0,0){\line(1,0){10}}
+\put(15,0){\circle{10}}
+\put(20,0){\line(1,0){10}}
+\put(10,-4.75){\makebox(10,10){#1}} %label
+}
+\newcommand{\hhmeasure}[1]{
+\put(0,0){\line(1,0){5}}
+\put(10,0){\circle{10}}
+\put(15,0){\line(1,0){5}}
+\put(5,-4.75){\makebox(10,10){#1}} %label
+}
+%vertical measuring instrument
+\newcommand{\vmeasure}[1]{
+\put(0,0){\line(0,1){10}}
+\put(0,15){\circle{10}}
+\put(0,20){\line(0,1){10}}
+\put(-4.75,10){\makebox(10,10){#1}} %label
+}
+\newcommand{\vvmeasure}[1]{
+\put(0,0){\line(0,1){5}}
+\put(0,10){\circle{10}}
+\put(0,15){\line(0,1){5}}
+\put(-4.75,5){\makebox(10,10){#1}} %label
+}
+\newcommand{\osc}[1]{ %oscilloscope
+\put(0,0){\line(0,1){5}}
+ \ifx#1I
+\put(0,10){\circle{10}} %indicating
+ \fi \ifx#1R
+\put(-5,5){\framebox(10,10){}} %recording
+ \fi
+\put(0,15){\line(0,1){5}}
+\multiput(-4,9)(4,0){2}{\line(2,1){4}}
+\put(0,9){\line(0,1){2}}
+}
+
+\endinput