matlab
弹簧动画
theta = -pi : pi/50 : pi;
X = sin(theta);
Y = cos(theta);
Z = theta;
h = plot3(X,Y,Z); % 画出了静止的弹簧
while true
% 弹簧压缩
for i = 1 :1000
Z = Z * 0.98; % 压缩
set (h,'XData',X,'YData',Y,'ZData',Z); %重新设置 h中XYZ的值
drawnow; % 重新画
end
% 弹簧伸长
for i = 1 : 1000
Z = Z / 0.98;
set (h,'XData',X,'YData',Y,'ZData',Z); %重新设置 h中XYZ的值
drawnow; % 重新画
end
end