1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
|
.PS
# ex04.m4
cct_init(svg_font(sans-serif,10bp__))
[
pushdef(`elen_',`dimen_') # short elements
pushdef(`sourcerad_',`dimen_*0.2')
#linewid = 0.85
linewid = 0.6
Ct:dot
Point_(-60); capacitor(,C); dlabel(0.14,0.14,,,C`'svg_sub(3))
Cr:dot
left_; capacitor(,C); dlabel(0.14,0.14,C`'svg_sub(2),,)
Cl:dot
down_; capacitor(from Ct to Cl,C); dlabel(0.14,-0.10,C`'svg_sub(1),,)
T:dot(at Ct+(0,elen_))
inductor(from T to Ct); dlabel(0.12,-0.1,,,L`'svg_sub(1))
Point_(-30); inductor(from Cr to Cr+vec_(elen_,0))
dlabel(0,-0.07,,L`'svg_sub(3),)
R:dot
L:dot( at (Cl-(Cos(30)*(elen_),0),R) )
inductor(from L to Cl); dlabel(-0.1,-0.1,L`'svg_sub(2),,,X)
right_; resistor(from L to R); rlabel(,R`'svg_sub(2),)
move down 0.3
resistor(from T to R); dlabel(0,0.15,,R`'svg_sub(3),)
b_current(y,ljust above)
line from L to 0.2<L,T>
source(to 0.5 between L and T); dlabel(sourcerad_+0.07,0.1,-,,+)
dlabel(0,sourcerad_+0.07,,u,)
resistor(to 0.8 between L and T); dlabel(0,0.15,,R`'svg_sub(1),)
line to T
]
popdef(`elen_')
popdef(`sourcerad_')
[
Point_(225)
{B1: ebox ; b_current; dlabel(dimen_*0.4,-0.1,i`'svg_sub(1))
dot
B4: ebox(to rvec_(rp_len,0)); b_current(,,,E); dlabel(dimen_*0.4,-0.1,,,i`'svg_sub(4)) }
Point_(-45)
B2: ebox ; b_current; dlabel(dimen_*0.4, 0.1,i`'svg_sub(2))
dot
B7: ebox ; b_current; dlabel(dimen_*0.4, 0.1,i`'svg_sub(7))
B3: ebox(from B1.end to B2.end); b_current; dlabel(dimen_*0.4,0.1,i`'svg_sub(3))
dot(at (B1.start,B7.end))
{B5: ebox(to B1.end); b_current; dlabel(dimen_*0.4,-0.09,i`'svg_sub(5))}
{B6: ebox(to B2.end); b_current; dlabel(dimen_*0.4, 0.09,i`'svg_sub(6))}
{B8: ebox(right_ to B4.end); b_current; dlabel(dimen_*0.4, 0.1,i`'svg_sub(8))}
B9: ebox(left_ to B7.end); b_current; dlabel(dimen_*0.4,-0.1,i`'svg_sub(9))
] with .w at last [].e+(0.5,0)
command "</g>" # end font
.PE
|