| 查看: 1689 | 回复: 16 | ||||
| 当前只显示满足指定条件的回帖，点击这里查看本话题的所有回帖 | ||||
[交流]
【求助】帮忙作一个图~
|
||||
 相关的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 ] |
回复此楼» 收录本帖的淘帖专辑推荐
 大开眼界 |
» 猜你喜欢
2027广东省杰青
已经有5人回复
-
快农历七夕节了，轻松一下，男人悄悄话，女施主请不要进来。
已经有3人回复
-
哪位老哥知道今年的国自然具体哪一天放榜？
已经有9人回复
-
欢迎发来filecode的Mz6后的代码验证其规律
已经有72人回复
-
咱们一起用铁证分析2026国家社科基金中标与否
已经有26人回复
-
我的国基提前知道中了，可是同事的操作让我实在接受不了，怎么会有这样的人
已经有16人回复
-
有时候，自然基金真的不能太认真 （我的申报经验）
已经有12人回复
-
招聘 金属平磨液，抛光液研发工程师
已经有3人回复
-
时间戳又变了8-15
已经有23人回复
-
filecode=后面第一个是大写字母
已经有7人回复
» 本主题相关价值贴推荐，对您同样有帮助:
- 求帮忙作图，急！！！
已经有16人回复
- 液相色谱图主峰本来很好，一个月后突然出现肩峰，求大侠帮忙，附图。
已经有49人回复
- 请帮忙分析两张色谱图
已经有4人回复
- 实验得到一张质谱图，麻烦各位大哥帮忙解析一下这，含有结构式。
已经有12人回复
- 已有核磁图，但有一个峰不知是什么，求高手帮忙，谢谢！
已经有17人回复
- 帮忙用XCrySDen出个图吧.
已经有4人回复
- 大神来帮忙解释一下，上下两个图是什么意思
已经有10人回复
- 帮忙看一下下面这个谱图是不是我要的？为什么11ppm左右有一个峰？
已经有8人回复
- 求高手帮解一个图谱，谢谢
已经有7人回复
- 帮忙分析一个HR-TEM图！
已经有11人回复
- 以前没做过，求帮忙看下DMA图
已经有8人回复
- 帮忙分析一个XRD图
已经有4人回复
- 急急急，哪位大神帮忙分析一下透镜图~~看不懂~汗一个先
已经有20人回复
- 编辑来信，让提供一个图作为TOC，这是什么意思？
已经有8人回复
- 做一个核磁图谱 ，有提供原始数据帮忙做成图！
已经有36人回复
- 请问XRD的局部放大的图是怎么做出来的？
已经有4人回复
- 用CASTEP做出来的一个能带图，大家帮忙看看它的导电性
已经有21人回复
- 【请教】帮忙分析一张N2气吸脱附的图，不闭合
已经有9人回复
- LaTex使用问题，帮忙画两个图标
已经有3人回复
- 【求助】请高手帮忙分析一下这张固化DSC曲线图，非常感谢
已经有18人回复
- 【求助】谁能帮忙分析一张多肽二级质谱图，必有重谢！
已经有17人回复
» 抢金币啦！回帖就可以得到:
-
Data征稿（EI检索收录），选题方向：环境风险管理的数据分析
+5/415
-
祝福！基金中中中！！！！
+1/396
-
中国科学院空天院精密干涉测量团队 精密机械结构工程师招聘启事
+1/81
-
北京信息科技大学机电工程学院硕士研究生招生线上宣讲会——8月16日
+1/81
-
2026年生物学、大数据与信息工程国际会议 (BSBIE 2026)
+1/46
-
加拿大/英属哥伦比亚大学曹彦凯课题组招收全奖博士/博后 [机器人/控制方向]
+1/33
-
天津大学环境学院童银栋教授招收博士后（生源要素循环/温室效应/新污染物方向）
+1/30
-
清华大学深圳国际研究生院招聘-博士后（长期有效）
+1/29
-
华南理工大学招2027年生物材料、药物递送申请考核制博士生
+1/26
-
祝福！祈福！！基金中中中！
+5/25
-
物理学报录用，散币感谢合作者和审稿人
+2/24
-
西北工业大学 生科院 秦绪军课题组诚招博士后、博士/硕士研究生【长期有效】
+1/13
-
河海大学海洋环境污染与生态毒理学研究组招收2027级硕士生 及博士研究生
+1/12
-
北京理工大学-集成电路与电子学院杰青团队-招博士后
+1/7
-
西安交通大学杜宝吉课题组招收申请考核制博士生
+2/6
-
华南理工，博士后
+1/6
-
中国科学院生态环境研究中心环境工程相关方向招收保送硕士和联合培养博士和硕士研究生
+1/4
-
中国科学院生物物理研究所田勇课题组招聘联合培养生
+1/3
-
中国科学技术大学环境学院招聘招生
+1/2
-
海南大学化学院—功能分子器件团队2027博士招生+博士后招聘
+1/2
16楼2011-09-06 03:05:50
★ ★ ★ ★ ★ ★
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
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
|
源程序如下: 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[] 计算结果图:  就是算得很慢 |
2楼2011-03-23 23:45:40
★
onexf(金币+1):谢谢参与
onexf(金币+1):谢谢参与
|
本帖内容被屏蔽 |
4楼2011-03-24 08:21:38
8楼2011-03-24 19:52:58
简单回复
2011-03-24 00:00
onexf(金币+1):谢谢参与
牛
