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
|
setsize 1000 500
text 0.95 0.8 'MathGL' ':RiA' -4
text 0.05 0.15 'library\n for scientific graphics' ':LiA' -2.
#rect 0.05 0.9 2 1.5 1.34 2 'w'
xtick -3:ytick -3:ztick -3
subplot 1 1 0 '^_'
stickplot 3 0 60 20:box
new y 50: fill y '-cos(pi*x-pi/4)'
new x 50: fill x '-sin(pi*x-pi/4)'
new z 50: fill z '2*x^2-1'
area x y z 'lG'
plot x y z 'B2s'
stickplot 3 1 60 20:box
new aa 50 40
modify aa '0.6*sin(2*pi*x)*sin(3*pi*y) + 0.4*cos(3*pi*(x*y))'
mirror aa 'y'
light on :alpha on
surf aa 'BbcyrR';alpha 0.8
cont aa 'y'
stickplot 3 2 60 20:box
rotate 0 20
new a 61 51 40
modify a '-2*((2*x-1)^2 + (2*y-1)^2 + (2*z-1)^4 - (2*z-1)^2 - 0.1)'
alpha on:light off
cloud a 'wyrRk'
write 'emplem.jpg'
stop
cut 0 -1 -1 1 0 1.1
surf3 a -1 'BbcyrR'
contf3 a 'x' -1
contf3 a 'y' -1
contf3 a 'z' 0
contf3 a 'z' 39
|
