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

24小时热门版块排行榜    

小木虫论坛-学术科研互动平台 » 计算模拟区 » 程序语言 » 【求助】帮忙作一个图~
北京石油化工学院2026年研究生招生接收调剂公告
171/1返回列表
查看: 1546  |  回复: 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返回列表
最具人气热帖推荐 [查看全部] 作者 回/看 最后发表
[考研] 070305高分子化学与物理 304分求调剂 +7 c297914 2026-03-28 7/350 2026-03-29 01:17 by 544594351
[考研] 086000生物与医药调剂 +3 Feisty。 2026-03-28 7/350 2026-03-29 00:41 by 544594351
[考研] 298求调剂 +3 种圣赐 2026-03-28 3/150 2026-03-28 23:58 by wxiongid
[考研] 材料学硕333求调剂 +10 北道巷 2026-03-24 10/500 2026-03-28 23:06 by 无际的草原
[考研] 本科双非材料，跨考一志愿华电085801电气，283求调剂，任何专业都可以 +6 芝士雪baoo 2026-03-28 7/350 2026-03-28 21:40 by zhq0425
[考研] 材料与化工272求调剂 +9 阿斯蒂芬2004 2026-03-28 9/450 2026-03-28 15:21 by 1018329917
[考研] 304求调剂 +6 曼殊2266 2026-03-27 6/300 2026-03-28 14:10 by 唐沐儿
[考研] 070300求调剂306分 +4 26要上岸 2026-03-27 4/200 2026-03-28 13:06 by 唐沐儿
[考研] 277跪求调剂 +5 1915668 2026-03-27 9/450 2026-03-28 09:58 by zhshch
[考研] 340求调剂 +5 jhx777 2026-03-27 5/250 2026-03-28 04:18 by fmesaito
[考研] 一志愿211院校 344分 东北农业大学生物学学硕，求调剂 +5 丶风雪夜归人丶 2026-03-26 8/400 2026-03-27 19:22 by 丶风雪夜归人丶
[考研] 一志愿郑大085600，310分求调剂 +5 李潇可 2026-03-26 5/250 2026-03-27 11:14 by 不吃魚的貓
[考研] 调剂推荐 +5 清酒714 2026-03-26 6/300 2026-03-27 11:12 by 不吃魚的貓
[考研] 286求调剂 +4 lim0922 2026-03-26 4/200 2026-03-27 10:28 by guoweigw
[考研] 求调剂 +6 林之夕 2026-03-24 6/300 2026-03-27 08:38 by hypershenger
[考研] 一志愿南航 335分 | 0856材料化工 | GPA 4.07 | 有科研经历 +6 cccchenso 2026-03-23 6/300 2026-03-25 22:25 by 544594351
[考研] 302求调剂 +4 锦衣卫藤椒 2026-03-25 4/200 2026-03-25 16:29 by 功夫疯狂
[考研] 344求调剂 +3 desto 2026-03-24 3/150 2026-03-24 10:09 by 搏击518
[考研] 一志愿山东大学药学学硕求调剂 +3 开开心心没烦恼 2026-03-23 4/200 2026-03-24 00:06 by 开开心心没烦恼
[考研] 接收2026硕士调剂(学硕+专硕) +4 allen-yin 2026-03-23 6/300 2026-03-23 15:04 by 汪！？！
信息提示
关闭
请填处理意见
关闭