Mathematica中文论坛-非官方

标题: 3D空间中多条曲线显示和标注 [打印本页]

---

作者: meatball1982    时间: 2016-4-9 18:36
标题: 3D空间中多条曲线显示和标注
在3D空间中，画多条平行的曲线，用不同的color进行标注。

两种方法都挺好的。比如　
patch
或是
plot3

1. clear all
   
2. clc
   
3. clf
   
4. 
   
5. n=6;
   
6. 
   
7. % generate color
   
8. % col_mm=summer(6);
   
9. col_mm=jet(n);
   
10. 
    
11. % gen data
    
12. x=linspace(1,20,300);
    
13. for i=1:n
    
14.     z(i,:)=exp(1./x)+0.2*sin(x)+rand(size(x))+1;
    
15. end
    
16. 
    
17. tm=randperm(n+5);
    
18. y=tm(1:n);
    
19. 
    
20. 
    
21. % plot each line with patch,
    
22. % hold on
    
23. % for i=1:n
    
24. %     pl_x=[x(1),x,x(end),x(1)];
    
25. %     pl_y=y(i)*ones(length(x)+3,1);
    
26. %     pl_z=[0,z(i,:),0,0];
    
27. %     patch(pl_x,pl_y,pl_z,...
    
28. %         col_mm(i,:),'edgecolor','none');
    
29. %     leg_str{i}=['i am ',mat2str(i),' line'];
    
30. % end
    
31. %
    
32. % view(40,60)
    
33. % grid on
    
34. % axis tight
    
35. % legend(leg_str,'location','southwestoutside')
    
36. % h=gcf;
    
37. % set(h,'position',[600,200,800,500]);
    
38. %
    
39. %
    
40. 
    
41. close all
    
42. hold on
    
43. for i=1:n
    
44.     pl_x=[x];
    
45.     pl_y=y(i)*ones(length(x),1);
    
46.     pl_z=[z(i,:)];
    
47.     plot3(pl_x,pl_y,pl_z,...
    
48.        'color',col_mm(i,:));
    
49.     leg_str{i}=['i am ',mat2str(i),' line'];
    
50. end
    
51. 
    
52. view(40,60)
    
53. grid on
    
54. axis tight
    
55. legend(leg_str,'location','southwestoutside')
    
56. h=gcf;
    
57. set(h,'position',[600,200,800,500]);
    
58. 
    

复制代码

fig_DY_multi.jpg (167.87 KB, 下载次数: 1223)

下载附件

2016-4-9 18:36 上传

fig_DY_multi_line.jpg (221.32 KB, 下载次数: 1230)

下载附件

2016-4-9 18:36 上传

---

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

Powered by Discuz! X3.2