声振论坛

 找回密码
 我要加入

QQ登录

只需一步,快速开始

查看: 1570|回复: 1

[绘图技巧] 请问怎么画一个网状半球图

[复制链接]
发表于 2006-8-23 16:14 | 显示全部楼层 |阅读模式

马上注册,结交更多好友,享用更多功能,让你轻松玩转社区。

您需要 登录 才可以下载或查看,没有账号?我要加入

x
除了这个网格半球图外,上面还要加上一些截面圆,圆对球心的张角为30度,这些圆一共有7个,中间一个,旁边6个,紧密排列。
谢谢大虾
回复
分享到:

使用道具 举报

发表于 2006-8-23 19:25 | 显示全部楼层
界面园应该可以通过下面的办法画出来

  1. %曲面与多个截平面相交
  2. y=-10:0.5:10;
  3. z=y;
  4. [Z,Y]=meshgrid(z,y);
  5. X=Z;
  6. X1=0*ones(size(Z));
  7. X2=3*ones(size(Z));
  8. X3=-3*ones(size(Z));
  9. Z4=(X.^2-Y.^2)/10;
  10. mesh(X1,Y,Z);hold on
  11. mesh(X2,Y,Z)
  12. mesh(X3,Y,Z);
  13. mesh(X,Y,Z4);
  14. r1=(abs(X1-X)<0.05);
  15. r2=(abs(X2-X)<0.05);
  16. r3=(abs(X3-X)<0.05);
  17. zz1=r1.*Z4;yy1=r1.*Y;xx1=r1.*X;
  18. zz2=r2.*Z4;yy2=r1.*Y;xx2=r1.*X;
  19. zz3=r3.*Z4;yy3=r1.*Y;xx3=r1.*X;
  20. plot3(xx1(r1~=0),yy1(r1~=0),zz1(r1~=0),'k*');
  21. plot3(xx2(r2~=0),yy2(r2~=0),zz2(r2~=0),'k*');
  22. plot3(xx3(r3~=0),yy3(r3~=0),zz3(r3~=0),'k*');
  23. colormap(hsv)
  24. clc;
复制代码

评分

1

查看全部评分

您需要登录后才可以回帖 登录 | 我要加入

本版积分规则

QQ|小黑屋|Archiver|手机版|联系我们|声振论坛

GMT+8, 2024-11-20 02:20 , Processed in 0.059988 second(s), 19 queries , Gzip On.

Powered by Discuz! X3.4

Copyright © 2001-2021, Tencent Cloud.

快速回复 返回顶部 返回列表