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
|
% ellipticprism.mp
% L. Nobre G.
% 2004
verbatimtex \documentclass{article}\begin{document}{\sffamily etex
beginfig(1);
f := (5,3,4);
numeric labscal;
picture labsa, labba, labsb, labd, labc;
labscal = 2;
ahlength := 8pt;
ahangle := 30;
labc = btex $\vec{c}$ etex scaled labscal;
labsa = btex $\vec{S}_1$ etex scaled labscal;
labsb = btex $\vec{S}_2$ etex scaled labscal;
labba = btex $\vec{B}_1$ etex scaled labscal;
labd= btex $D$ etex scaled labscal;
drawoptions( withpen pencircle scaled 1.7pt withcolor 0.65blue );
whatisthis( black, 0.5red, green, 0.85, 0.8 );
drawoptions( withpen pencircle scaled 1.3pt );
drawdblarrow rp(black)--rp(0.85blue);
label.rt( labd, rp(0.4blue) );
drawarrow rp(black)--rp(0.5red);
label.ulft( labsa, rp(0.25red) );
drawarrow rp(black)--rp(green);
label.top( labba, rp((0,0.5,0)) );
drawarrow rp(0.85blue)--rp(0.8*0.5*red+0.85blue);
label.ulft( labsb, rp(0.2red+0.85blue) );
dotlabel.bot( labc, rp(black) );
endfig;
verbatimtex
\end{document}
etex
end.
|