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
113
114
115
116
117
118
119
120
121
122
123
124
125
126
127
128
|
% fis3prey.mp
% L. Nobre G.
% IYP (2005)
%input featpost3Dplus2D;
verbatimtex
\documentclass{article}
\usepackage{beton}
\usepackage{concmath}
\usepackage{ccfonts}
\begin{document}
etex
beginfig(1);
Spread := 50;
f := (4,6,3.5);
path malhacub, rama, ramb, ramc, malhatet;
pen grossa, nuclear, negat;
color p[];
numeric lengax, lscal, arrowmarg, arrowshift;
pair tx, ty, tz;
lengax = 0.7;
lscal = 2;
arrowshift = 0.85;
arrowmarg = 0.13;
grossa = pencircle scaled 2.7pt;
nuclear = pencircle scaled 2.1pt;
negat = pencircle scaled 1.8pt;
p1 = (1,1,-1);
p2 = (-1,1,-1);
p3 = (-1,-1,-1);
p4 = (1,-1,-1);
p5 = (1,1,1);
p6 = (-1,1,1);
p7 = (-1,-1,1);
p8 = (1,-1,1);
p0 = p2 + arrowshift*N((1,0,1)) + arrowmarg*N((-1,0,1));
p9 = p5 - arrowshift*N((1,0,1)) + arrowmarg*N((-1,0,1));
z1 = rp(p1);
z2 = rp(p2);
z3 = rp(p3);
z4 = rp(p4);
z5 = rp(p5);
z6 = rp(p6);
z7 = rp(p7);
z8 = rp(p8);
z0 = rp(p0);
z9 = rp(p9);
tx = rp( p1 - (lengax,0,0) );
ty = rp( p1 - (0,lengax,0) );
tz = rp( p1 + (0,0,lengax) );
malhacub = z1--z2--z3--z4--z1--z5--z6--z7--z8--z5;
malhatet = z2--z7--z4--z5--cycle;
rama = z2--z6;
ramb = z3--z7;
ramc = z4--z8;
drawoptions( dashed evenly );
draw malhacub;
draw rama;
draw ramb;
draw ramc;
drawoptions( withpen grossa );
draw malhatet;
drawarrow z1--tx withpen negat;
drawarrow z1--ty withpen negat;
drawarrow z1--tz withpen negat;
label.lrt(btex $x$ etex scaled lscal, tx);
label.llft(btex $y$ etex scaled lscal, ty);
label.lft(btex $z$ etex scaled lscal, tz);
drawarrow z0--z9 withpen negat;
endfig;
beginfig(2);
Spread := 50;
f := 2.3*(6,2,3.5);
numeric lang, cray, lpos, llen, smar;
path circ, rigcirc, lone, ltwo, carrpath;
pen pena, penb, penc;
pena = pencircle scaled 1.3mm;
penb = pencircle scaled 0.95mm;
penc = pencircle scaled 0.4mm;
color outcol, incol;
outcol = black;
incol = 0.876white;
lang = 30;
cray = 1;
lpos = 0.57;
llen = 2.2;
smar = 0.15;
circ = goodcirclepath( black, green, cray );
rigcirc = rigorouscircle( black, green, cray+smar );
carrpath = subpath (3.2,4.5) of rigcirc;
lone = rp((-lpos,llen*cosd(lang),llen*sind(lang)))
--rp(-(lpos,llen*cosd(lang),llen*sind(lang)));
ltwo = rp((lpos,-llen*cosd(lang),llen*sind(lang)))
--rp((lpos,llen*cosd(lang),-llen*sind(lang)));
drawarrow carrpath withpen penc withcolor outcol;
draw circ withpen pena withcolor outcol;
draw circ withpen penb withcolor incol;
draw rp((-cray,0,0))--rp((-lpos,0,0)) dashed evenly;
draw lone withpen pena withcolor outcol;
draw lone withpen penb withcolor incol;
draw rp((lpos,0,0))--rp((-lpos,0,0)) dashed evenly;
draw rp((0,0,-cray))--rp((0,0,cray)) dashed evenly;
draw ltwo withpen pena withcolor outcol;
draw ltwo withpen penb withcolor incol;
draw rp((cray,0,0))--rp((lpos,0,0)) dashed evenly;
draw subpath (1,15) of circ withpen pena withcolor outcol;
draw subpath (0,16) of circ withpen penb withcolor incol;
% label.top( btex $+$ etex, point 3 of rigcirc );
endfig;
verbatimtex
\end{document}
etex
end;
|