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
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
99
100
101
102
103
104
105
106
107
108
109
110
111
112
|
% revolvers.mp
% L. Nobre G.
% 2004
verbatimtex \documentclass{article}\begin{document}{\sffamily etex
def posang( expr Angul ) =
rp( green*cosd( Angul ) + blue*sind( Angul ) )
enddef;
beginfig(1);
f := (3,5,4);
numeric labscal;
picture labr, labc, laba, labum, labdo, labtr, labqu, labci;
labscal = 2;
ahlength := 8pt;
ahangle := 30;
labc = btex $\vec{c}$ etex scaled labscal;
laba = btex $\vec{A}$ etex scaled labscal;
labr = btex $R$ etex scaled labscal;
labum= btex 1 etex scaled labscal;
labdo= btex 2 etex scaled labscal;
labtr= btex 3 etex scaled labscal;
labqu= btex 4 etex scaled labscal;
labci= btex 5 etex scaled labscal;
drawoptions( withpen pencircle scaled 1.7pt withcolor 0.65blue );
tropicalglobe( 5, black, 1, blue );
drawoptions( withpen pencircle scaled 1.3pt );
drawdblarrow rp(black)--rp(red);
label.top( labr, rp((0.5,0,0)) );
drawarrow rp(black)--rp(blue);
label.rt( laba, rp((0,0,0.5)) );
dotlabel.lrt( labc, rp(black) );
dotlabel.rt( labum, posang(-72) );
dotlabel.top( labdo, posang(-36) );
dotlabel.top( labtr, posang(0) );
dotlabel.top( labqu, posang(36) );
dotlabel.top( labci, posang(72) );
endfig;
beginfig(2);
f := (3,5,5.7);
numeric labscal;
picture labri, labc, laba, labro;
labscal = 2;
ahlength := 8pt;
ahangle := 30;
labc = btex $\vec{c}$ etex scaled labscal;
laba = btex $\vec{A}$ etex scaled labscal;
labri= btex $R_i$ etex scaled labscal;
labro= btex $R_o$ etex scaled labscal;
drawoptions( withpen pencircle scaled 1.7pt withcolor 0.65blue );
rigorousdisc( 0.5, true, black, 1, 0.85*blue );
drawoptions( withpen pencircle scaled 1.3pt );
drawdblarrow rp(black)--rp(red);
label.lrt( labro, rp(0.5*red) );
drawdblarrow rp(black+0.85*blue)--rp(0.5*green+0.85*blue);
label.urt( labri, rp(0.25*green+0.85*blue) );
drawarrow rp(black)--rp(0.85*blue);
label.ulft( laba, rp((0,0,0.5)) );
dotlabel.rt( labc, rp(black) );
endfig;
beginfig(3);
f := (3,2.05,2.65);
numeric labscal, bray, sray;
picture labrb, labc, laba, labrs;
labscal = 2;
ahlength := 8pt;
ahangle := 30;
bray = 0.7;
sray = 0.4;
labc = btex $\vec{c}$ etex scaled labscal;
laba = btex $\vec{A}$ etex scaled labscal;
labrb= btex $R_b$ etex scaled labscal;
labrs= btex $R_s$ etex scaled labscal;
drawoptions( withpen pencircle scaled 1.7pt withcolor 0.65blue );
smoothtorus( black, blue, bray, sray );
drawoptions( withpen pencircle scaled 1.3pt );
draw goodcirclepath( bray*red, green, sray ) dashed evenly;
drawdblarrow rp(black)--rp(bray*red);
label.ulft( labrb, rp(0.5*bray*red) );
drawdblarrow rp(bray*red+sray*blue)--rp(bray*red);
label.llft( labrs, rp(bray*red+0.5*sray*blue) );
drawarrow rp(black)--rp(sray*blue);
label.rt( laba, rp((0,0,0.5*sray)) );
dotlabel.lrt( labc, rp(black) );
endfig;
beginfig(4);
f := (3,5,4);
numeric labscal;
picture labr, labc, laba;
labscal = 2;
ahlength := 8pt;
ahangle := 30;
labc = btex $\vec{c}$ etex scaled labscal;
laba = btex $\vec{A}$ etex scaled labscal;
labr = btex $R$ etex scaled labscal;
drawoptions( withpen pencircle scaled 1.7pt withcolor 0.65blue );
spatialhalfsfear( black, blue, 1 );
drawoptions( withpen pencircle scaled 1.3pt );
drawdblarrow rp(black)--rp(red);
label.ulft( labr, rp(0.5*red) );
drawarrow rp(black)--rp(0.4*blue);
label.rt( laba, rp((0,0,0.2)) );
dotlabel.lrt( labc, rp(black) );
endfig;
verbatimtex }\end{document} etex
end;
|