MATLAB
电脑
命令行键入：load wind%加载图形。
命令行键入：wind_speed = sqrt(u.^2 + v.^2 + w.^2);%定义风速。
命令行键入：figure%给出图形窗口。
命令行键入：p = patch(isosurface(x,y,z,wind_speed,35));%画图。
命令行键入：isonormals(x,y,z,wind_speed,p)
命令行键入：p.FaceColor = [0.75,0.25,0.25];p.EdgeColor = [0.6,0.4,0.4];%改变表面和边框的颜色。
命令行键入：[f,vt] = reducepatch(isosurface(x,y,z,wind_speed,45),0.05);%减少拼图
命令行键入：daspect([1,1,1]);%缩小
命令行键入：hcone = coneplot(x,y,z,u,v,w,vt(:,1),vt(:,2),vt(:,3),2);%添加指示。
命令行键入：hcone.FaceColor = 'blue';%设置为蓝色。
命令行键入：hcone.EdgeColor = 'none';%设置为none。
命令行键入：camproj perspectivecamva(25)%设置视图
命令行键入：hlight = camlight('headlight');p.AmbientStrength = 1;p.SpecularStrength = 1;p.DiffuseStrength = 1;hcone.SpecularStrength = 1;set(gcf,'Color','k')set(gca,'Color',[0,0,0.25])%指定光源。
命令行键入：lighting gouraud%使用 gouraud 光照可获得更平滑的光照效果。
命令行键入：hsline = streamline(x,y,z,u,v,w,80,30,11);xd = hsline.XData;yd = hsline.YData;zd = hsline.ZData;delete(hsline)%将照相机路径定义为流线
命令行键入：for i=1:length(xd)-5campos([xd(i),yd(i),zd(i)])camtarget([xd(i+5)+min(xd)/500,yd(i),zd(i)])camlight(hlight,'headlight')drawnowend%实现漫游