作业帮matlab 的动画程序 保存为gifx = 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;l
来源：学生作业帮助网 编辑：作业帮 时间：2024/04/26 11:18:55
![matlab 的动画程序 保存为gifx = 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;l](/uploads/image/z/7233068-20-8.jpg?t=matlab+%E7%9A%84%E5%8A%A8%E7%94%BB%E7%A8%8B%E5%BA%8F+%E4%BF%9D%E5%AD%98%E4%B8%BAgifx+%3D+linspace%28-2%2C2%2C100%29%3B%5BX%2CY%2CZ%5D+%3D+meshgrid%28x%2Cx%2Cx%29%3BI1+%3D+%28X.%5E2%2B9%2F4%2AY.%5E2%2BZ.%5E2-1%29.%5E3-X.%5E2.%2AZ.%5E3-9%2F80%2AY.%5E2.%2AZ.%5E3%3Bp+%3D+patch%28isosurface%28X%2CY%2CZ%2CI1%2C0%29%29%3Bset%28p%2C%27FaceColor%27%2C%27red%27%2C%27EdgeColor%27%2C%27none%27%29%3Bview%283%29%3Baxis+equal+%3Baxis+off%3Bl)
matlab 的动画程序 保存为gifx = 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;l
matlab 的动画程序 保存为gif
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,10)
如何将以上程序编的动画 保存为gif格式?
matlab 的动画程序 保存为gifx = 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;l
lz ,不知道你还需要不,看到你需要,刚好,我也想知道,就给你试了下.效果还不错
代码如下：
clc ;clear
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');
% figure(1)
filename = 'hongxing1.gif';%保存的动画名
for j = 1:20
bili = sin(pi*j/20);
set(p,'XData',bili*XX,'YData',bili*YY,'ZData',bili*ZZ)
F(j) = getframe;
%制作gif主要代码
drawnow
frame = getframe(gcf);
im = frame2im(frame);
[imind,cm] = rgb2ind(im,256);
if j == 1;
imwrite(imind,cm,filename,'gif', 'Loopcount',inf,'DelayTime',0.1);
else
imwrite(imind,cm,filename,'gif','WriteMode','append','DelayTime',0.1);
end
%
end
% 放映10次
figure
movie(F,10)