应《网络安全法》要求，自2017年10月1日起，未进行实名认证将不得使用互联网跟帖服务。为保障您的帐号能够正常使用，请尽快对帐号进行手机号验证，感谢您的理解与支持！

24小时热门版块排行榜    

小木虫论坛-学术科研互动平台 » 计算模拟区 » 程序语言 » MATLAB/Mathematica » 如何用MATLAB画立体图和它在三个面上的投影，如图？
81/1返回列表
查看: 3784  |  回复: 7
只看楼主 @他人 存档 新回复提醒 (忽略) 收藏    在APP中查看

beyondstar

木虫 (正式写手)

[求助] 如何用MATLAB画立体图和它在三个面上的投影，如图？ 已有2人参与

比如一个球的立体图和他在三个面上的投影，

如何用MATLAB画立体图和它在三个面上的投影，如图？
matlab.jpg
回复此楼

» 猜你喜欢

» 本主题相关价值贴推荐，对您同样有帮助:
1楼 2014-05-06 07:38:24
已阅   回复此楼   关注TA 给TA发消息 送TA红花 TA的回帖

reko34

木虫 (正式写手)

【答案】应助回帖

感谢参与，应助指数 +1
现在手头没MATLAB，凭记忆打的命令你可以先试试
N=? '定义网格分多细，看个人需要
M=? '同上
R=? '球的半径自己填
X=zeros(N+1,M)
X0=zeros(N+1,M)
Y=zeros(N+1,M)
Y0=zeros(N+1,M)
Z=zeros(N+1,M)
Z0=zeros(N+1,M)
for i=0:N
for j=1:M
X(i,j)=R*sin(pi/N*i)*cos(2*pi/M*j)
Y(i,j)=R*sin(pi/N*i)*sin(2*pi/M*j)
Z(i,j)=R*cos(pi/N*i)
end
end
mesh(X,Y,Z)
hold
mesh(X,Y,Z0)
mesh(X,Y0,Z)
mesh(X0,Y,Z)
赞一下 回复此楼
2楼2014-05-06 10:33:52
已阅   回复此楼   关注TA 给TA发消息 送TA红花 TA的回帖

beyondstar

木虫 (正式写手)
引用回帖:
2楼: Originally posted by reko34 at 2014-05-06 10:33:52
现在手头没MATLAB，凭记忆打的命令你可以先试试
N=? '定义网格分多细，看个人需要
M=? '同上
R=? '球的半径自己填
X=zeros(N+1,M)
X0=zeros(N+1,M)
Y=zeros(N+1,M)
Y0=zeros(N+1,M)
Z=zeros(N+1,M)
Z0=zer ...

多谢，我先试试
回复此楼
3楼2014-05-06 11:27:15
已阅   回复此楼   关注TA 给TA发消息 送TA红花 TA的回帖

reko34

木虫 (正式写手)
引用回帖:
3楼: Originally posted by beyondstar at 2014-05-06 11:27:15
多谢，我先试试...

我已经发现错了，最近一直用VBA结果习惯变了，中间的循环要改
for i=1:N+1
for j=1:M
X(i,j)=R*sin(pi/N*(i-1))*cos(2*pi/M*j)
Y(i,j)=R*sin(pi/N*(i-1))*sin(2*pi/M*j)
Z(i,j)=R*cos(pi/N*(i-1))
end
end
赞一下 回复此楼
4楼2014-05-06 11:56:42
已阅   回复此楼   关注TA 给TA发消息 送TA红花 TA的回帖

baobiao007

木虫 (职业作家)

中国特色

【答案】应助回帖

感谢参与，应助指数 +1
matlab没办法画侧面投影
赞一下 回复此楼
我同意叔本华的观点，人们投身艺术和科学领域的强烈愿望之一就是逃离痛苦、残酷和枯燥无味的现实生活，逃离自己飘忽不定的七情六欲的桎梏。--爱因斯坦
5楼2014-05-06 12:27:26
已阅   回复此楼   关注TA 给TA发消息 送TA红花 TA的回帖

reko34

木虫 (正式写手)

【答案】应助回帖

★ ★ ★ ★ ★ ★ ★ ★ ★ ★ ★ ★ ★ ★ ★ ★ ★ ★ ★ ★ ★ ★ ★ ★ ★ ★ ★ ★ ★ ★
beyondstar: 金币+30, ★★★★★最佳答案, 我试试 2014-05-06 22:03:24
拿到MATLAB后试出来了，用这套命令：
N=100;
M=100;
R=10;
X=zeros(N+1,M+1);
X0=zeros(N+1,M+1)-R*2;
Y=zeros(N+1,M+1);
Y0=zeros(N+1,M+1)+R*2;
Z=zeros(N+1,M+1);
Z0=zeros(N+1,M+1)-R*2;
for i=1:N+1
    for j=1:M+1
        X(i,j)=R*sin(pi/(N-1)*i)*cos(2*pi/M*j);
        Y(i,j)=R*sin(pi/(N-1)*i)*sin(2*pi/M*j);
        Z(i,j)=R*cos(pi/(N-1)*i);
    end
end
hold off;
mesh(X,Y,Z);
hold on;
mesh(X,Y,Z0);
mesh(X,Y0,Z);
mesh(X0,Y,Z);
赞一下(1人) 回复此楼
6楼2014-05-06 21:09:04
已阅   回复此楼   关注TA 给TA发消息 送TA红花 TA的回帖

njsatellite

铁虫 (小有名气)
引用回帖:
6楼: Originally posted by reko34 at 2014-05-06 21:09:04
拿到MATLAB后试出来了，用这套命令：
N=100;
M=100;
R=10;
X=zeros(N+1,M+1);
X0=zeros(N+1,M+1)-R*2;
Y=zeros(N+1,M+1);
Y0=zeros(N+1,M+1)+R*2;
Z=zeros(N+1,M+1);
Z0=zeros(N+1,M+1)-R*2;
for i=1:N+1 ...

高手!
若想 用规则网格 如立方体形式  如何画球啊?
谢谢阿
赞一下 回复此楼
7楼2015-01-04 03:30:53
已阅   回复此楼   关注TA 给TA发消息 送TA红花 TA的回帖

吃木头在虫子

新虫 (小有名气)
引用回帖:
6楼: Originally posted by reko34 at 2014-05-06 21:09:04
拿到MATLAB后试出来了，用这套命令：
N=100;
M=100;
R=10;
X=zeros(N+1,M+1);
X0=zeros(N+1,M+1)-R*2;
Y=zeros(N+1,M+1);
Y0=zeros(N+1,M+1)+R*2;
Z=zeros(N+1,M+1);
Z0=zeros(N+1,M+1)-R*2;
for i=1:N+1 ...

能不能帮我编写一段程序，二次函数的，重谢
赞一下 回复此楼
8楼2015-01-04 20:26:37
已阅   回复此楼   关注TA 给TA发消息 送TA红花 TA的回帖
相关版块跳转 我要订阅楼主 beyondstar 的主题更新
81/1返回列表
普通表情 龙 兔 虎 猫
信息提示
关闭
请填处理意见
关闭