 |
 |
 |
 |
 |
 |
||
 |
 |
 |
 |
 |
| 17 | 1/1 | 返回列表 |
| 查看: 1516 | 回復: 16 | ||||
[交流]
【求助】幫忙作一個圖~
|
||||
|
相關的mathematica 公式已經(jīng)給寫好，就是不清楚怎么做，請高手幫忙，給出源代碼和結果(最好用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 ] |
回復此樓» 收錄本帖的淘帖專輯推薦
 大開眼界 |
» 猜你喜歡
266求調(diào)劑
已經(jīng)有4人回復
-
324求調(diào)劑
已經(jīng)有9人回復
-
招收生物學/細胞生物學調(diào)劑
已經(jīng)有4人回復
-
一志愿武漢理工，總分321，英一數(shù)二，求老師收留。
已經(jīng)有5人回復
-
284求調(diào)劑
已經(jīng)有12人回復
-
348求調(diào)劑
已經(jīng)有3人回復
-
329求調(diào)劑
已經(jīng)有7人回復
-
求調(diào)劑，一志愿 南京航空航天大學大學 ，080500材料科學與工程學碩
已經(jīng)有4人回復
-
考研調(diào)劑
已經(jīng)有9人回復
-
304材料求調(diào)劑
已經(jīng)有4人回復
» 本主題相關價值貼推薦，對您同樣有幫助:
- 求幫忙作圖，急�。。�
已經(jīng)有16人回復
- 液相色譜圖主峰本來很好，一個月后突然出現(xiàn)肩峰，求大俠幫忙，附圖。
已經(jīng)有49人回復
- 請幫忙分析兩張色譜圖
已經(jīng)有4人回復
- 實驗得到一張質(zhì)譜圖，麻煩各位大哥幫忙解析一下這，含有結構式。
已經(jīng)有12人回復
- 已有核磁圖，但有一個峰不知是什么，求高手幫忙，謝謝！
已經(jīng)有17人回復
- 幫忙用XCrySDen出個圖吧.
已經(jīng)有4人回復
- 大神來幫忙解釋一下，上下兩個圖是什么意思
已經(jīng)有10人回復
- 幫忙看一下下面這個譜圖是不是我要的？為什么11ppm左右有一個峰？
已經(jīng)有8人回復
- 求高手幫解一個圖譜，謝謝
已經(jīng)有7人回復
- 幫忙分析一個HR-TEM圖！
已經(jīng)有11人回復
- 以前沒做過，求幫忙看下DMA圖
已經(jīng)有8人回復
- 幫忙分析一個XRD圖
已經(jīng)有4人回復
- 急急急，哪位大神幫忙分析一下透鏡圖~~看不懂~汗一個先
已經(jīng)有20人回復
- 編輯來信，讓提供一個圖作為TOC，這是什么意思？
已經(jīng)有8人回復
- 做一個核磁圖譜 ，有提供原始數(shù)據(jù)幫忙做成圖！
已經(jīng)有36人回復
- 請問XRD的局部放大的圖是怎么做出來的？
已經(jīng)有4人回復
- 用CASTEP做出來的一個能帶圖，大家?guī)兔纯此膶щ娦?/a>
已經(jīng)有21人回復
- 【請教】幫忙分析一張N2氣吸脫附的圖，不閉合
已經(jīng)有9人回復
- LaTex使用問題，幫忙畫兩個圖標
已經(jīng)有3人回復
- 【求助】請高手幫忙分析一下這張固化DSC曲線圖，非常感謝
已經(jīng)有18人回復
- 【求助】誰能幫忙分析一張多肽二級質(zhì)譜圖，必有重謝！
已經(jīng)有17人回復
» 搶金幣啦！回帖就可以得到:
-
老蟲子的注冊小木蟲18周年大禮包
+5/150
-
福建師范大學葉應祥課題組招收2026級博士研究生
+2/122
-
南方醫(yī)科大學中藥學院 調(diào)劑碩士生一名 中藥學專業(yè)
+1/84
-
太原科技大學材料科學與工程學院招收金屬材料類博士一名
+1/83
-
華僑大學仿生多尺度孔道課題組分部招聘材料化學方向青年教師、博士后、博士碩士研究生
+2/40
-
招收2026年材料與化工專碩調(diào)劑，山東省屬重點大學，過國家線即可調(diào)劑，名額充足
+2/28
-
雙一流湘潭大學化工學院招收化工、能源動力、工程熱物理相關研究生調(diào)劑
+1/14
-
Alicat 層流壓差質(zhì)量流量控制器在新型硅碳負極流化床的應用- 艾里卡特（Alicat）
+3/13
-
國家雙一流高校-國家級青年人才課題組博士招生
+1/8
-
歡迎來英國拉夫堡大學交流-結晶，蛋白質(zhì)，AI，水處理等
+1/7
-
雙一流天津工業(yè)大學電信學院李鴻強教授招收2026年申請審核制博士
+1/5
-
中國科學院大學納米科學與技術學院-羅聃課題組誠招碩士研究生
+1/5
-
天津工業(yè)大學雙一流高校招博士、碩士、博士后
+1/4
-
招收從事大氣復合污染成因領域研究生
+1/4
-
半導體光電子器件與集成
+1/4
-
寧波東方理工大學余鵬課題組2026年上海交大聯(lián)培博士生、博士后、科研助理招聘
+1/3
-
南醫(yī)大基礎醫(yī)學院招收調(diào)劑生（2生信1生物））
+1/3
-
歐洲手性光譜方向ROA/CPL/Raman imaging招收博士研究生及聯(lián)合培養(yǎng)生（布拉格）
+1/1
-
中國人民大學物理學系蔡鵬課題組招收優(yōu)秀碩士博士研究生
+1/1
-
溫州大學化材學院王娟課題組招生
+1/1
★ ★ ★ ★ ★ ★
onexf(金幣+1):謝謝參與
cenwanglai(金幣+5): 謝謝，呵呵，很有耐心。等lz給你bb哈！ 2011-03-23 23:52:26
onexf(金幣+30): 多謝，麻煩繼續(xù)給力！ 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): 多謝，麻煩繼續(xù)給力！ 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):謝謝參與
|
本帖內(nèi)容被屏蔽 |
4樓2011-03-24 08:21:38
6樓2011-03-24 08:47:20
8樓2011-03-24 19:52:58
★ ★
ben_ladeng(金幣+2): 可以在辛苦點 2011-09-05 20:56:25
ben_ladeng(金幣+2): 可以在辛苦點 2011-09-05 20:56:25
|
最小值的奇點問題恐怕需要你自己去解決了，我看過在你給定的取值范圍內(nèi)最小值（極小值）有兩個，但數(shù)值是一樣的，你再考慮下計算過程和參數(shù)是否正確合理吧。 關于圖切開的問題，要是簡單的切開（或者說畫一半）倒是簡單，就是c和d圖那種，只需要將三維球坐標范圍設定到0到Pi就可以的，剩下的就是改變顏色的事了，看看幫助應該能搞定。但是a和b那種剖面的沒搞出來。原本想畫個平面然后和a圖合到一起的，然而用球坐標我不會畫平面  那位蟲子教教我？最近比較忙，腦筋有點不夠用了 |
9樓2011-03-29 22:13:09
★ ★ ★
onexf(金幣+1):謝謝參與
微塵、夢想(金幣+2): 謝謝回復！ 2011-05-01 18:25:08
onexf(金幣+30): xx! 2011-05-02 13:13:59
onexf(金幣+1):謝謝參與
微塵、夢想(金幣+2): 謝謝回復！ 2011-05-01 18:25:08
onexf(金幣+30): xx! 2011-05-02 13:13:59
|
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] |
10樓2011-05-01 13:27:47
都這么厲害啊，11樓2011-06-06 16:50:11
12樓2011-06-09 15:36:51
13樓2011-09-05 11:08:19
16樓2011-09-06 03:05:50
17樓2012-02-07 11:03:42
簡單回復
2011-03-24 00:00
onexf(金幣+1):謝謝參與
牛
k-li5樓
2011-03-24 08:41
onexf(金幣+1):謝謝參與
2011-03-24 08:47
lxzhq14樓
2011-09-05 12:30
onexf(金幣+1):謝謝參與
八戒的小弟15樓
2011-09-05 17:23
onexf(金幣+1):謝謝參與
相關版塊跳轉(zhuǎn)
我要訂閱樓主 onexf 的主題更新
| 17 | 1/1 | 返回列表 |
| 最具人氣熱帖推薦 [查看全部] | 作者 | 回/看 | 最后發(fā)表 | |
|---|---|---|---|---|
|
[考研]
 一志愿武漢理工，總分321，英一數(shù)二，求老師收留。
+5
|
nnnnnnn5 2026-03-25 | 5/250 |
|
|---|---|---|---|---|
|
[考研] 一志愿北化求調(diào)劑 +3 | Jsman 2026-03-22 | 3/150 |
|
|
|
[考研]
材料調(diào)劑
5+4
|
想要一壺桃花水 2026-03-25 | 10/500 |
|
|
|
[考研] 生物學學碩，一志愿湖南大學，初試成績338 +4 | YYYYYNNNNN 2026-03-26 | 4/200 |
|
|
|
[考研] 一志愿北京化工大學材料與化工（085600）296求調(diào)劑 +9 | 稻妻小編 2026-03-26 | 9/450 |
|
|
|
[考研] 北科281學碩材料求調(diào)劑 +17 | tcxiaoxx 2026-03-20 | 19/950 |
|
|
|
[考研] 材料科學與工程 317求調(diào)劑 +4 | JKSOIID 2026-03-26 | 4/200 |
|
|
|
[考研] 297求調(diào)劑 +6 | 田洪有 2026-03-26 | 6/300 |
|
|
|
[考研] 0856求調(diào)劑 +8 | zhn03 2026-03-25 | 9/450 |
|
|
|
[考研] 299求調(diào)劑 +4 | 15188958825 2026-03-25 | 4/200 |
|
|
|
[考研] 0854電子信息求調(diào)劑 324 +4 | Promise-jyl 2026-03-23 | 4/200 |
|
|
|
[考研] 299求調(diào)劑 +7 | shxchem 2026-03-20 | 9/450 |
|
|
|
[考研] 生物學學碩求調(diào)劑 +7 | 小羊睡著了? 2026-03-23 | 10/500 |
|
|
|
[考研] 材料專碩331求調(diào)劑 +4 | 鮮當牛 2026-03-24 | 4/200 |
|
|
|
[考研] 277分求調(diào)劑，跨調(diào)材料 +3 | 考研調(diào)劑lxh 2026-03-24 | 3/150 |
|
|
|
[考研] 291求調(diào)劑 +5 | 孅華 2026-03-22 | 5/250 |
|
|
|
[考研] 材料學碩301分求調(diào)劑 +7 | Liyouyumairs 2026-03-21 | 7/350 |
|
|
|
[考研]
一志愿東華大學控制學碩320求調(diào)劑
+3
|
Grand777 2026-03-21 | 3/150 |
|
|
|
[考研] 0805材料320求調(diào)劑 +3 | 深海物語 2026-03-20 | 3/150 |
|
|
|
[考研] 一志愿南理工085701環(huán)境302求調(diào)劑院校 +3 | 葵梓衛(wèi)隊 2026-03-20 | 3/150 |
|