求助:如何编程播放直径不断变化的球体

努卡

高手指点哈

Tla

假冒了一个，看起来似乎是半径在变化，不过事实上不是，只是我改变了axes的Position属性而已，现在还不知道怎么画一个指定半径的球，有高手请指教一下：

1. 
   
2. Fig = figure('unit','normalized','menubar','none', ...
   
3.     'numbertitle','off','tag','C1','Name','半径好像在变化的球...', ...
   
4.     'Defaultuicontrolunits','normalized','DoubleBuffer','on');
   
5. 
   
6. A1 = axes('Parent',Fig,'Unit','Normalized','Position', ...
   
7.             [.2 .2 .6 .6],'Tag','A1','xticklabel',{},'yticklabel',{}, ...
   
8.             'DrawMode','Fast','NextPlot','replace');
   
9. 
   
10. sphere(30);hold on;axis off;
    
11. shading interp;axis equal
    
12. pause(.5);
    
13. i = 1;P = get(A1,'Position');
    
14. while i<10   
    
15.     set(A1,'Position',P+i*[-.025 -.025 .05 .05]);
    
16.     pause(.5);
    
17.     i = i+1;
    
18.     if i>9;
    
19.         i = 1;
    
20.     end
    
21. end
    

复制代码

fenghai222

我试试了，二楼编的还不错