MATLAB教你玩心跳（想给女友一个惊喜的注意了）

shuaibit

clc;
close all
c=5;
t=linspace(-c,c);
[x,y]=meshgrid(t);
z=17*x.^2-16*abs(x).*y+17*y.^2-225;
pcolor(x,y,z);
shading interp
pause(2);
spinmap(100)

程序二：


% by xiezhh
x = linspace(-2,2,100);
[X,Y,Z] = meshgrid(x,x,x);
I1 = (X.^2+9/4*Y.^2+Z.^2-1).^3-X.^2.*Z.^3-9/80*Y.^2.*Z.^3;
p = patch(isosurface(X,Y,Z,I1,0));
set(p, 'FaceColor', 'red', 'EdgeColor', 'none');
view(3);
axis equal ;
axis off;
light('Posi',[0 -2 3]); % 在(0,-2,3)点处建立一个光源
lighting phong
set(gca,'nextplot','replacechildren');
% 记录电影
XX = get(p,'XData');
YY = get(p,'YData');
ZZ = get(p,'ZData');
for j = 1:20
bili = sin(pi*j/20);
set(p,'XData',bili*XX,'YData',bili*YY,'ZData',bili*ZZ)
F(j) = getframe;
end
% 放映10次
movie(F,100)

xiaoOMming

第一个有点慢，还没看到是什么。。

Kuniy_Guo

好刁啊，就几行程序及搞定了，等有女朋友了就给她看

远在.远方

第一个程序有点卡，matlab**用任务管理器关闭

mathjiang

惊叹lab的强大与高效。

吉光大儒

好玩哦

kensington

先复制下来了，有空调试下，不知效果咋样，但是这个想法很有创意

zxkjack123

mathjiang 发表于 2012-4-5 14:30
有男朋友也行。

额，哥已经用那个图获得女朋友一枚

mathjiang

zxkjack123 发表于 2012-1-13 22:36
好，给力，不过没女朋友

有男朋友也行。

善乐

第二个貌似有点怕怕