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
|
.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
|
