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
|
X=[ 1; 0; 1; 0; .2; .3; .5; .8]
Y=[ 5; 5; 0; 0; 1;1.5; 2.5; 4]
Z=[ 10; 10; 10; 10; -100; 10; -100; 500]
GRID\XYOUT X Y Z M XOUT YOUT
window 1 20 20 80 80
defaults
clear
set %yimagticlength 2
set %xnumbersheight 5
set %ynumbersheight 5
set xdropfirstnumber 1
set xdroplastnumber 1
set ydropfirstnumber 1
set ydroplastnumber 1
set %legendsize 2
density xout yout m
pause
!
clear
density\legend xout yout m
pause
!
clear
density\dithering x y z
pause
!
clear
density\dithering\legend x y z
pause
!
clear
D=[ 1;1; 2;2; 4;4; 7;7; 11;11; 0;0 ]
density\dithering\dithervector\legend d x y z
pause
!
clear
density\diffusion x y z
pause
!
clear
density\diffusion\xpro\ypro x y z
pause
!
clear
window 0
defaults
set %legendsize 2
set %yimagticlength 2
r=mod([0:143],4)+1
sort r
t=mod([0:143],36)*10
d=[1;1; 2;2; 4;4; 7;7; 11;11; 0;0]
x = r*cosd(t)
y = r*sind(t)
z = exp(-r/2)*cosd(180*(r-1))
grid\xyout x y z m xout yout
density\legend\dithering\dithervector d xout yout m
!
window 0
destroy\-mess r t d x y z xout yout m
|
