CLC;
Clear all;
Close all;
% Draw cuboid % -------------- XY bottom ---------------
X =;
Y = X;
[X, y] = meshgrid (x, y );
Z =-10 * ones (SIZE (x ));
P1 = SURF (x, y, z );
Shading interp
Alpha (0.6)
Hold on
% -------------- Xz ---------------
X =;
Z = X;
[X, z] = meshgrid (x, z );
Y =-10 * ones (SIZE (x ));
Surf (x, y, z );
Shading interp
Alpha (0.6)
% -------------- Xz ---------------
X =;
Z = X;
[X, z] = meshgrid (x, z );
Y = 10 * ones (SIZE (x ));
Surf (x, y, z );
Shading interp
Alpha (0.6)
% -------------- YZ side ---------------
Y =;
Z = y;
[Y, z] = meshgrid (Y, Z );
X = 10 * ones (SIZE (y ));
Surf (x, y, z );
Shading interp
Alpha (0.6)
% -------------- YZ side ---------------
Y =;
Z = y;
[Y, z] = meshgrid (Y, Z );
X =-10 * ones (SIZE (y ));
Surf (x, y, z );
Shading interp
Alpha (0.6)
% ----------- Wave surface ----------------------------------
X =;
Y = X;
[X, y] = meshgrid (x, y );
Z = ones (SIZE (x ));
P1 = SURF (x, y, z );
Set (P1, 'facecolor', 'B ');
Shading interp
Alpha (0.6)
Hold on
% ----------- Fish dung ----------------------------------
% Rand ('seed', 0 );
X = 10*(2 * rand (1, 4)-1 );
Y = 10*(2 * rand (1, 4)-1 );
Z = rand (1, 4)-9;
Plot3 (X, Y, Z, 'kh', 'markerfacecolor', 'k', 'markersize', 12 );
% ----------- Fish ingredients ---------------------------------
X = 10*(2 * rand (1, 4)-1 );
Y = 10*(2 * rand (1, 4)-1 );
DX = rand;
DY = rand;
Z = rand (1, 4)-1;
DZ = rand;
Plot3 ([x, x + dx], [y, Y + dy], [Z, Z + dz], 'mo', 'markerfacecolor', 'M ', 'markersize', 14 );
% ----------------------- Ainemo -------------------------
Xx = 10*(2 * rand-1 );
YY = 10*(2 * rand-1 );
ZZ =-5 * rand;
P2 = plot3 (XX, YY, ZZ, 'ro', 'markerfacecolor', 'R', 'markersize', 22 );
TEM = 1000;
For I = 1:1000
DX = unifrnd (-1, 1 );
DY = unifrnd (-1, 1 );
DZ = unifrnd (-1, 1 );
Temz1 =-9;
Temz2 =-1;
Temx1 =-9;
Temx2 = 9;
Temy1 =-9;
Temy2 = 9;
If (zz> temz1) & (zz <temz2)
If (XX> temx1) & (XX <temx2)
If (yy> temy1) & (yy <temy2)
Xx = xx + dx;
YY = YY + dy;
ZZ = ZZ + DZ;
Set (P2, 'xdata', XX, 'ydata', YY, 'zdata', ZZ );
End
End
Elseif (zz> temz1) & (zz <temz2) & (XX> temx1) & (XX <temx2)
Xx = xx + dx;
YY = YY-dy;
ZZ = ZZ + DZ;
Set (P2, 'xdata', XX, 'ydata', YY, 'zdata', ZZ );
Elseif (zz> temz1) & (zz <temz2) & (yy> temy1) & (yy <temy2)
Xx = XX-DX;
YY = YY + dy;
ZZ = ZZ + DZ;
Set (P2, 'xdata', XX, 'ydata', YY, 'zdata', ZZ );
Elseif (XX> temx1) & (XX <temx2) & (yy> temy1) & (yy <temy2)
Xx = xx + dx;
YY = YY + dy;
ZZ = ZZ-DZ;
Set (P2, 'xdata', XX, 'ydata', YY, 'zdata', ZZ );
Else
Continue
End
TEM = tem-1;
Pause (1, 0.1)
Drawnow
End
% While
% [Y, FS] =audioread('2865a934000000 ');
% Sound (Y, FS );
% End
Bored, cube painting