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

24小时热门版块排行榜    

小木虫论坛-学术科研互动平台 » 计算模拟区 » 程序语言 » 【求助】帮忙作一个图~
北京石油化工学院2026年研究生招生接收调剂公告
51/1返回列表
查看: 1536  |  回复: 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的回帖

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的回帖
查看全部 17 个回答

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的回帖

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的回帖
简单回复
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 ...

牛
查看全部 17 个回答
最具人气热帖推荐 [查看全部] 作者 回/看 最后发表
[考研] 321求调剂 +6 璞玉~~ 2026-03-25 7/350 2026-03-28 17:48 by 璞玉~~
[考研] 本科新能源科学与工程，一志愿华理能动285求调剂 +3 AZMK 2026-03-28 6/300 2026-03-28 17:29 by AZMK
[考研] 081200-11408-276学硕求调剂 +4 崔wj 2026-03-26 4/200 2026-03-28 16:47 by jiyingjie123
[考研] 346求调剂 一志愿070303有机化学 +3 萝卜炖青菜 2026-03-28 3/150 2026-03-28 14:11 by 唐沐儿
[考研] 085701环境工程求调剂 +9 多久上课 2026-03-27 9/450 2026-03-28 03:58 by fmesaito
[考研] 一志愿上海理工能源动力（085800）310分求调剂 +3 zhangmingc 2026-03-27 4/200 2026-03-27 19:01 by 给你你注意休息
[考研] 07化学280分求调剂 +10 722865 2026-03-23 10/500 2026-03-27 15:51 by Plutoqq
[考研] 一志愿华东理工大学081700，初试分数271 +6 kotoko_ik 2026-03-23 7/350 2026-03-27 12:29 by 惠州彭于晏
[考研] 315调剂 +4 0860求调剂 2026-03-26 5/250 2026-03-27 11:23 by wangjy2002
[考研] 324求调剂 +5 hanamiko 2026-03-26 5/250 2026-03-27 10:33 by wangjy2002
[考研] 调剂求收留 +7 果然有我 2026-03-26 7/350 2026-03-27 00:26 by wxiongid
[考研] 336材料求调剂 +7 陈滢莹 2026-03-26 9/450 2026-03-27 00:20 by wxiongid
[考研] 化学工程085602 305分求调剂 +17 RichLi_ 2026-03-25 17/850 2026-03-26 19:44 by plmuchong
[考研] 340求调剂 +3 Amber00 2026-03-26 3/150 2026-03-26 18:57 by 不吃魚的貓
[考研] 机械学硕总分317求调剂！！！！ +4 Acaciad 2026-03-25 4/200 2026-03-25 19:59 by hanserlol
[考研] 284求调剂 +15 Zhao anqi 2026-03-22 15/750 2026-03-25 12:51 by wht0531
[考研] 086003食品工程求调剂 +6 淼淼111 2026-03-24 6/300 2026-03-25 10:29 by 3Strings
[考研] 384求调剂 +3 子系博 2026-03-22 6/300 2026-03-23 21:45 by 子系博
[考研] 293求调剂 +3 涛涛Wjt 2026-03-22 5/250 2026-03-22 22:21 by jiangpengfei
[考研] 308求调剂 +3 墨墨漠 2026-03-21 3/150 2026-03-22 16:54 by i_cooler
信息提示
关闭
请填处理意见
关闭