Mathematica中文论坛-非官方

标题: 豆粑粑 画不同透明度的圆 [打印本页]

---

作者: meatball1982    时间: 2016-10-23 09:54
标题: 豆粑粑 画不同透明度的圆
别人的问题，在一个图里画不同透明度的圆。

1. MinVal = -1;
   
2. MaxVal = 1;
   
3. MaxRadius = 0.5;
   
4. nCircles = 10;
   
5. Dimension = 2;
   
6. Circles = zeros(nCircles, Dimension);
   
7. Radius = zeros(nCircles, 1);
   
8. cmap = jet(nCircles);                    %// define colors.
   
9. alpha = .1;                              %// define level of transparency
   
10. 
    
11. for i = 1 : nCircles
    
12.     Circles(i,:) = unifrnd(MinVal, MaxVal, [1, Dimension]);
    
13.     Radius(i) = unifrnd(0, MaxRadius, 1);
    
14. end
    
15. 
    
16. t = 0 : .1 : 2 * pi;
    
17. 
    
18. hold on;
    
19. for i = 1 : nCircles
    
20.     x = Radius(i) * cos(t) + Circles(i,1);
    
21.     y = Radius(i) * sin(t) + Circles(i,2);
    
22.     patch(x, y, 'none', 'facecolor', cmap(i,:), 'facealpha', alpha*i, ...
    
23.         'edgecolor', 'none'); %// plot filled circle with transparency
    
24. end
    
25. 
    
26. axis equal; %// same aspect ratio in both axes
    
27. grid on;

复制代码

fig_circle_alpha_mul.png (71.15 KB, 下载次数: 1332)

下载附件

2016-10-23 09:53 上传

---

欢迎光临 Mathematica中文论坛-非官方 (http://ilovemathematica.com/)

Powered by Discuz! X3.2