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

24小时热门版块排行榜    

小木虫论坛-学术科研互动平台 » 计算模拟区 » 程序语言 » 【求助】帮忙作一个图~
171/1返回列表
查看: 1771  |  回复: 16
只看楼主 @他人 存档 新回复提醒 (忽略) 收藏    在APP中查看

onexf

金虫 (小有名气)

[交流] 【求助】帮忙作一个图~



相关的mathematica 公式已经给写好，就是不清楚怎么做，请高手帮忙，给出源代码和结果(最好用7.0的版本)~
C1 = 120;
C2 = 100;
C3= 60;

Aa = - (Cos[alpha] Cos[v] + Sin[alpha] Sin[v])/Tan [beta];
Dir = Cos[beta]^2 (Cos[alpha]^2  Cos[v]^2 + Sin[alpha]^2  Sin[v]^2)/(1 + Aa^2) + (Sin[beta] Aa)^2/(1 + Aa^2);

p = (Cos[alpha] Cos[beta])^4 + (Sin[alpha] Cos[beta])^4 + Sin[beta]^4;
You = 1/(1/3/(C1 + 2*C2) - (1 - 3*p)/3/(C1 - C2) + (1 - p)/2/C3);

rad = ((C1 + 2*C2)*(C1 - C2 - 2*C3)*Dir + 2*C2*C3)*You/(2*(C1 + 2*C2)*(C1 - C2)*C3);

[ Last edited by onexf on 2011-3-23 at 19:50 ]
回复此楼

» 收录本帖的淘帖专辑推荐

大开眼界

» 猜你喜欢

» 本主题相关价值贴推荐，对您同样有帮助:

» 抢金币啦！回帖就可以得到:

查看全部散金贴
1楼 2011-03-23 16:00:38
已阅   关注TA 给TA发消息 送TA红花 TA的回帖

mshwangg

至尊木虫 (正式写手)
★ ★ ★ ★ ★ ★
onexf(金币+1):谢谢参与
cenwanglai(金币+5): 谢谢，呵呵，很有耐心。等lz给你bb哈！ 2011-03-23 23:52:26
onexf(金币+30): 多谢，麻烦继续给力！ 2011-03-24 19:53:57
ben_ladeng: 2011-09-05 20:55:54
引用回帖:
Originally posted by onexf at 2011-03-23 16:00:38:


相关的mathematica 公式已经给写好，就是不清楚怎么做，请高手帮忙，给出源代码和结果(最好用7.0的版本)~
C1 = 120;
C2 = 100;
C3= 60;

Aa = - (Cos[alph ...

源程序如下:

C1 = 120;
C2 = 100;
C3 = 60;
Aa = -(Cos[alpha] Cos[v] + Sin[alpha] Sin[v])/Tan[beta];
Dir = Cos[
      beta]^2 (Cos[alpha]^2 Cos[v]^2 + Sin[alpha]^2 Sin[v]^2)/(1 +
       Aa^2) + (Sin[beta] Aa)^2/(1 + Aa^2);
p = (Cos[alpha] Cos[beta])^4 + (Sin[alpha] Cos[beta])^4 + Sin[beta]^4;
You = 1/(1/3/(C1 + 2*C2) - (1 - 3*p)/3/(C1 - C2) + (1 - p)/2/C3);
rad = ((C1 + 2*C2)*(C1 - C2 - 2*C3)*Dir + 2*C2*C3)*
   You/(2*(C1 + 2*C2)*(C1 - C2)*C3);
Plot3D[NMaximize[{rad, 0 < v < 2 \[Pi]}, v][[1]], {alpha, 0,
  2 \[Pi]}, {beta, -\[Pi]/2, \[Pi]/2}]
Plot3D[NMinimize[{rad, 0 < v < 2 \[Pi]}, v][[1]], {alpha, 0,
  2 \[Pi]}, {beta, -\[Pi]/2, \[Pi]/2}]
Quit[]
计算结果图:

就是算得很慢
赞一下(3人) 回复此楼
2楼2011-03-23 23:45:40
已阅   关注TA 给TA发消息 送TA红花 TA的回帖

circlewu

禁虫 (职业作家)
★
onexf(金币+1):谢谢参与
本帖内容被屏蔽
4楼2011-03-24 08:21:38
已阅   关注TA 给TA发消息 送TA红花 TA的回帖

zhouyadan2

银虫 (小有名气)
★
onexf(金币+1):谢谢参与
哇，好牛啊！
回复此楼
6楼2011-03-24 08:47:20
已阅   关注TA 给TA发消息 送TA红花 TA的回帖

onexf

金虫 (小有名气)
引用回帖:
Originally posted by mshwangg at 2011-03-23 23:45:40:
源程序如下:

C1 = 120;
C2 = 100;
C3 = 60;
Aa = -(Cos[alpha] Cos[v] + Sin[alpha] Sin[v])/Tan[beta];
Dir = Cos[
      beta]^2 (Cos[alpha]^2 Cos[v]^2 + Sin[alpha]^2 Sin[v]^2)/(1 +
       Aa ...

谢谢你，我用SphericalPlot3D[rad,alpha,beta]做出来的一个3D球
最大值这个还可以（如下）：

最小会值这个怎么会有些奇点出现呢？（如下）


另我看别人的文献中还可以将这种图型切开（球的里面和外面都不一样，还有立体感，如下），非常直观漂亮 (和文章作者交流过，他说用mathmatica做的，但源码已经丢失了)。请教高手怎么实现？


[ Last edited by onexf on 2011-3-24 at 19:56 ]
赞一下 回复此楼
8楼2011-03-24 19:52:58
已阅   关注TA 给TA发消息 送TA红花 TA的回帖

mshwangg

至尊木虫 (正式写手)
★ ★
ben_ladeng(金币+2): 可以在辛苦点 2011-09-05 20:56:25
引用回帖:
Originally posted by onexf at 2011-03-24 19:52:58:
谢谢你，我用SphericalPlot3D[rad,alpha,beta]做出来的一个3D球
最大值这个还可以（如下）：

最小会值这个怎么会有些奇点出现呢？（如下）
[eimg]de/bc/45 ...

最小值的奇点问题恐怕需要你自己去解决了，我看过在你给定的取值范围内最小值（极小值）有两个，但数值是一样的，你再考虑下计算过程和参数是否正确合理吧。
关于图切开的问题，要是简单的切开（或者说画一半）倒是简单，就是c和d图那种，只需要将三维球坐标范围设定到0到Pi就可以的，剩下的就是改变颜色的事了，看看帮助应该能搞定。但是a和b那种剖面的没搞出来。原本想画个平面然后和a图合到一起的，然而用球坐标我不会画平面那位虫子教教我？最近比较忙，脑筋有点不够用了
赞一下(1人) 回复此楼
9楼2011-03-29 22:13:09
已阅   关注TA 给TA发消息 送TA红花 TA的回帖

rachel9610

金虫 (小有名气)
★ ★ ★
onexf(金币+1):谢谢参与
微尘、梦想(金币+2): 谢谢回复！ 2011-05-01 18:25:08
onexf(金币+30): xx! 2011-05-02 13:13:59
引用回帖:
Originally posted by onexf at 2011-03-24 19:52:58:
谢谢你，我用SphericalPlot3D[rad,alpha,beta]做出来的一个3D球
最大值这个还可以（如下）：

最小会值这个怎么会有些奇点出现呢？（如下）
[eimg]de/bc/45 ...

I have writen the following code, and the singluar points are disppeared.
Try again, Plz!

C11 = 120;
C12 = 100;
C44 = 60;

n1 = Cos[a] Cos;
n2 = Sin[a] Cos;
n3 = Sin;

m1 = Cos[v] Cos[w];
m2 = Sin[v] Cos[w];
m3 = Sin[w];
AA = - (Cos[a] Cos[v] + Sin[a] Sin[v])/Tan;
Dir = Cos[
      b]^2 (Cos[a]^2  Cos[v]^2 + Sin[a]^2  Sin[v]^2)/(1 +
       AA^2) + (Sin AA)^2/(1 + AA^2);

p = n1^4 + n2^4 + n3^4;

you = 1/(1/3/(C11 + 2*C12) - (1 - 3*p)/3/(C11 - C12) + (1 - p)/2/C44);
((C11 + 2*C12)*(C11 - C12 - 2*C44)*Dir +
     2*C12*C44)/(2*(C11 + 2*C12)*(C11 - C12)*C44)*you;
radi = ((C11 + 2*C12)*(C11 - C12 - 2*C44)*Dir + 2*C12*C44)*
   you/(2*(C11 + 2*C12)*(C11 - C12)*C44);
ParametricPlot3D[{Abs[
    NMaximize[{radi, 0 + 0.01 < v < \[Pi] - 0.01}, v][[1]]]*n1,
  Abs[NMaximize[{radi, 0 + 0.01 < v < \[Pi] - 0.01}, v][[1]]]*n2,
  Abs[NMaximize[{radi, 0 < v < \[Pi]}, v][[1]]]*n3}, {a, 0,
  2 \[Pi]}, {b, -\[Pi]/2 + 0.01, \[Pi]/2}, PlotPoints -> 40]
赞一下(2人) 回复此楼
10楼2011-05-01 13:27:47
已阅   关注TA 给TA发消息 送TA红花 TA的回帖

mengxc

木虫 (著名写手)
★
onexf(金币+1):谢谢参与
都这么厉害啊，
回复此楼
11楼2011-06-06 16:50:11
已阅   关注TA 给TA发消息 送TA红花 TA的回帖

huycwork

金虫 (著名写手)
★
onexf(金币+1):谢谢参与
这软件很好玩啊，必须的学下。顶起先~
赞一下(1人) 回复此楼
12楼2011-06-09 15:36:51
已阅   关注TA 给TA发消息 送TA红花 TA的回帖

leimiao_hit

木虫之王 (文学泰斗)
★ ★
onexf(金币+1):谢谢参与
ben_ladeng(金币+1): 谢谢参与 2011-09-05 20:56:44
引用回帖:
2楼: Originally posted by mshwangg at 2011-03-23 23:45:40:
源程序如下:

C1 = 120;
C2 = 100;
C3 = 60;
Aa = -(Cos[alpha] Cos[v] + Sin[alpha] Sin[v])/Tan[beta];
Dir = Cos[
      beta]^2 (Cos[alpha]^2 Cos[v]^2 + Sin[alpha]^2 Sin[v]^2)/(1 +
       Aa^ ...

速度太慢了啊
回复此楼
13楼2011-09-05 11:08:19
已阅   关注TA 给TA发消息 送TA红花 TA的回帖

mchen10

金虫 (正式写手)
帖子真精彩!
已经收录到淘贴专辑《大开眼界》
赞一下 回复此楼
16楼2011-09-06 03:05:50
已阅   关注TA 给TA发消息 送TA红花 TA的回帖

dxwbucea

铁虫 (著名写手)
★ ★
onexf(金币+1):谢谢参与
jjdg(金币+1): 感谢参与 2012-02-07 11:05:46
这里还真是藏龙卧虎，有很多的高人啊，应该多来这里学习学习。
本人也知道一些Mathematica软件，但水平还没有这么高。
顶一下。
赞一下(2人) 回复此楼
17楼2012-02-07 11:03:42
已阅   关注TA 给TA发消息 送TA红花 TA的回帖
简单回复
zhouliangyu3楼
2011-03-24 00:00  
onexf(金币+1):谢谢参与
引用回帖:
Originally posted by mshwangg at 2011-03-23 23:45:40: 源程序如下: C1 = 120; C2 = 100; C3 = 60; Aa = -(Cos[alpha] Cos[v] + Sin[alpha] Sin[v])/Tan[beta]; Dir = Cos[ beta]^2 (Cos[alpha]^2 Cos[v]^2 + Sin[alpha]^2 Sin[v]^2)/(1 + Aa ...

牛
k-li5楼
2011-03-24 08:41  
onexf(金币+1):谢谢参与
zhouyadan27楼
2011-03-24 08:47  
lxzhq14楼
2011-09-05 12:30  
onexf(金币+1):谢谢参与
八戒的小弟15楼
2011-09-05 17:23  
onexf(金币+1):谢谢参与
相关版块跳转 我要订阅楼主 onexf 的主题更新
171/1返回列表
信息提示
关闭
请填处理意见
关闭