Mathematica中文论坛-非官方

标题: 豆粑粑 3D bar 片 [打印本页]

---

作者: meatball1982    时间: 2016-8-24 20:36
标题: 豆粑粑 3D bar 片


更新: 2016年 10月 18日 星期二 10:23:02 CST
唉，让孩子仔细读程序，就是不看，只好自己又写一点。

1. clear all
   
2. clc
   
3. 
   
4. % % 3D bar
   
5. A(:,:,1)=[1 2;
   
6.     2 4;
   
7.     3 6;
   
8.     4 8;
   
9.     5 10;
   
10.     6 12];
    
11. A(:,:,2)=[1 3;
    
12.     3 5;
    
13.     5 7;
    
14.     7 9;
    
15.     9 11;
    
16.     11 13];
    
17. A(:,:,3)=[1.5 2.5;
    
18.     2.5 4.5;
    
19.     3.5 6.5;
    
20.     4.5 8.5;
    
21.     5.5 10.5;
    
22.     6.5 12.5];
    
23. 
    
24. n_group=3;
    
25. mm_col=jet(n_group*2)
    
26. hold on
    
27. for i=1:n_group
    
28.     g = hgtransform('Matrix',makehgtform('translate',[0 i 0], ...
    
29.         'xrotate',pi/2));
    
30.     va=squeeze(A(:,:,i));
    
31.     h=bar(va);
    
32.     h(1).FaceColor=mm_col(2*i-1,:);
    
33.     h(2).FaceColor=mm_col(2*i,:);
    
34.     h(1).Parent=g;
    
35.     h(2).Parent=g;
    
36.     max_val(i) = max(va(:));
    
37. end
    
38. 
    
39. set(gca,'SortMethod','depth')
    
40. xlim([0 7])
    
41. ylim([1 n_group])
    
42. zlim([0 max(max_val)])
    
43. view(3)
    
44. axis([1 7 1 3.2 0 13])
    
45. xlabel('I am x')
    
46. ylabel('I am y')
    
47. zlabel('I am z')
    
48. box off
    
49. view(-55,12)
    

复制代码

这次是每个bar有两组数据。

－－－－－－－－－－－－－－－－－－－－－俺四华丽的分割线－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－

别人的问题，bar 不是bar3d。
一片一片的画

1. clear all
   
2. clc
   
3. clf
   
4. 
   
5. 
   
6. da=[554050367,900724277,1336325693.00000,1862007893.00000,2479497635.00000,3191211797.00000;
   
7.     139121567,226617077,337332893,472422293,633612035,823318997;
   
8.     35235917,57840977,87215243,124511993,171457985,230470097;
   
9.     22745087,37547957,57142013,82680533,115890275,159188117;
   
10.     15952367,26512277,40787693,59931893,85671635,120423797;
    
11.     9110543,15396821,24315149,37018805,55234547,81379253;
    
12.     6049727,10424117,16945853,26768213,41617955,63911957];
    
13. 
    
14. n_group=7
    
15. col_mm=jet(n_group);
    
16. 
    
17. hold on
    
18. for i=1:n_group
    
19.   g = hgtransform('Matrix',makehgtform('translate',[0 i 0], ...
    
20.                                        'xrotate',pi/2));
    
21.   h = bar(da(i,:),'facecolor',col_mm(i,:));
    
22.   h.Parent = g;
    
23.   max_val(i) = max(da(i,:));
    
24. end
    
25. 
    
26. % Setup axes correctly
    
27. set(gca,'SortMethod','depth')
    
28. xlim([0 7])
    
29. ylim([1 n_group])
    
30. zlim([0 max(max_val)])
    
31. view(3)
    
32. xlabel('I am x')
    
33. ylabel('I am y')
    
34. zlabel('I am z')
    
35. box off
    
36. view(-130,20)

复制代码

fig_bar.png (31.29 KB, 下载次数: 1625)

下载附件

2016-8-24 20:36 上传

---

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

Powered by Discuz! X3.2