如何移动照相机穿过场景

工具/原料

• MATLAB
• 电脑

方式/步骤

1. 1

   号令行键入：

   load wind

   %加载图形。

   
2. 2

   号令行键入：

   wind_speed = sqrt(u.^2 + v.^2 + w.^2);

   %界说风速。

   
3. 3

   号令行键入：

   figure

   %给出图形窗口。

   
4. 4

   号令行键入：

   p = patch(isosurface(x,y,z,wind_speed,35));

   %绘图。

   
5. 5

   号令行键入：

   isonormals(x,y,z,wind_speed,p)

   
6. 6

   号令行键入：

   p.FaceColor = [0.75,0.25,0.25];

   p.EdgeColor = [0.6,0.4,0.4];

   %改变概况和边框的颜色。

   
7. 7

   号令行键入：

   [f,vt] = reducepatch(isosurface(x,y,z,wind_speed,45),0.05);

   %削减拼图

   
8. 8

   号令行键入：

   daspect([1,1,1]);

   %缩小

   
9. 9

   号令行键入：

   hcone = coneplot(x,y,z,u,v,w,vt(:,1),vt(:,2),vt(:,3),2);

   %添加指示。

   
10. 10

    号令行键入：

    hcone.FaceColor = 'blue';

    %设置为蓝色。

    
11. 11

    号令行键入：

    hcone.EdgeColor = 'none';

    %设置为none。

    
12. 12

    号令行键入：

    camproj perspective

    camva(25)

    %设置视图

    
13. 13

    号令行键入：

    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])

    %指定光源。

    
14. 14

    号令行键入：

    lighting gouraud

    %利用 gouraud 光照可获得更光滑的光照结果。

    
15. 15

    号令行键入：

    hsline = streamline(x,y,z,u,v,w,80,30,11);

    xd = hsline.XData;

    yd = hsline.YData;

    zd = hsline.ZData;

    delete(hsline)

    %将拍照机路径界说为流线

    
16. 16

    号令行键入：

    for i=1:length(xd)-5

    campos([xd(i),yd(i),zd(i)])

    camtarget([xd(i+5)+min(xd)/500,yd(i),zd(i)])

    camlight(hlight,'headlight')

    drawnow

    end

    %实现漫游