MATLAB进入时显示的图标的程序实现,有动画效果

suffer

1. %LOGO   Plot the L-shaped membrane logo with MATLAB 5 lighting.
   
2. 
   
3. %   Copyright (c) 1984-98 by The MathWorks, Inc.
   
4. %   $Revision: 5.12 $  $Date: 1998/09/29 16:15:48 $
   
5. 
   
6. if exist('GalleryGUIFlag'), close(figNumber), end;
   
7. 
   
8. infoStr = str2mat(' ', ...
   
9.     ' This is the MathWorks logo, the fundamental mode', ...
   
10.     ' for wave propogation on an L-shaped domain.', ...
    
11.     ' ', ...
    
12.     ' File name: logo.m');
    
13. 
    
14. % gallinit(figNumber,infoStr)
    
15. figure('Color',[0 0 0]);
    
16. %for ik=[0 0.3125 0.625 1.25 2.5 5 10 20 40]
    
17. for ik=(0:0.25:5).^2
    
18. L = ik*membrane(1,25);
    
19. cla
    
20. axes('Color',[0 0 0]);
    
21. axes('CameraPosition', [-193.4013 -265.1546  220.4819],...
    
22.     'CameraTarget',[26 26 10], ...
    
23.     'CameraUpVector',[0 0 1], ...
    
24.     'CameraViewAngle',9.5, ...
    
25.     'DataAspectRatio', [1 1 .9],...
    
26.     'Position',[0 0 1 1], ...
    
27.     'Visible','off', ...
    
28.     'XLim',[1 51], ...
    
29.     'YLim',[1 51], ...
    
30.     'ZLim',[-13 40]);
    
31. s = surface(L, ...
    
32.     'EdgeColor','none', ...
    
33.     'FaceColor',[0.8 0.2 0.2], ...
    
34.     'FaceLighting','phong', ...
    
35.     'AmbientStrength',0.3, ...
    
36.     'DiffuseStrength',0.6, ...
    
37.     'Clipping','off',...
    
38.     'BackFaceLighting','lit', ...
    
39.     'SpecularStrength',1.1, ...
    
40.     'SpecularColorReflectance',1, ...
    
41.     'SpecularExponent',7);
    
42. l1 = light('Position',[40 100 20], ...
    
43.     'Style','local', ...
    
44.     'Color',[0 0.7 0.7]);
    
45. l2 = light('Position',[.5 -1 .4], ...
    
46.    'Color',[1 1 0]);
    
47. pause(0.02)
    
48. end

复制代码