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

shuaibit 发表于 2011-8-15 19:22

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

clc;
close all
c=5;
t=linspace(-c,c);
=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);
= 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)点处建立一个光源
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)

神离弃的雏儿 发表于 2011-8-18 20:03

第一个有点卡，第二个不太平滑

曲水流觞22 发表于 2011-8-19 20:37

挺噶净空法师

qq360 发表于 2011-8-20 11:21

这是个什么东东

liu0604 发表于 2011-9-10 17:24

好东西，我试了很不错！！！

邹咪 发表于 2012-1-13 18:22

很不错的程序  简单有效

zxkjack123 发表于 2012-1-13 22:36

好，给力，不过没女朋友

李——建辉 发表于 2012-1-13 22:45

{:3_41:}{:3_41:}{:3_41:}{:3_41:}

raycao110 发表于 2012-1-15 10:05

好。。。。。。。。。。。。

whl110110110 发表于 2012-1-15 14:41

这个东西好！

查看完整版本: MATLAB教你玩心跳（想给女友一个惊喜的注意了）