 |
 |
 |
 |
 |
 |
||
 |
 |
 |
 |
 |
| 4 | 1/1 | 返回列表 |
| 查看: 1106 | 回復(fù): 3 | |||
wbjhpp金蟲 (初入文壇)
|
[交流]
【求助】用mathematic編個二分法的程序 已有2人參與
|
| 請用mathematic編個二分法的程序，謝謝嘍！如果方程類似反函數(shù)的話，應(yīng)該怎么排除這種情況？ |
回復(fù)此樓» 猜你喜歡
085600 材料與化工 329分求調(diào)劑
已經(jīng)有13人回復(fù)
-
一志愿南昌大學(xué)324求調(diào)劑
已經(jīng)有4人回復(fù)
-
085601材料工程找調(diào)劑
已經(jīng)有12人回復(fù)
-
求調(diào)劑
已經(jīng)有4人回復(fù)
-
一志愿南航 335分 | 0856 | GPA 4.07 | 有科研經(jīng)歷
已經(jīng)有7人回復(fù)
-
求調(diào)劑
已經(jīng)有10人回復(fù)
-
化學(xué)工程085602 305分求調(diào)劑
已經(jīng)有18人回復(fù)
-
一志愿雙一流機械285分求調(diào)劑
已經(jīng)有5人回復(fù)
-
一志愿：西北大學(xué)，英一數(shù)一408-284分求調(diào)劑
已經(jīng)有4人回復(fù)
-
291求調(diào)劑
已經(jīng)有5人回復(fù)
» 本主題相關(guān)價值貼推薦，對您同樣有幫助:
- 編輯意見回復(fù)
已經(jīng)有6人回復(fù)
- 【求助】給Journal of computer 發(fā)了3個評審員的聯(lián)系方式，主編給回復(fù)
已經(jīng)有7人回復(fù)
- 由于語法問題，編輯要求回稿修改，并要告訴他怎么改的，請問回信該放coverletter里嗎
已經(jīng)有30人回復(fù)
- 【軟件】Ginger 世界一流的英語語法和拼寫檢查程序
已經(jīng)有1213人回復(fù)
- 在科研過程中如何驗證自己編譯程序的正確性
已經(jīng)有3人回復(fù)
- 蟲友們，請問如何使用endnote編寫aip期刊的參考文獻？
已經(jīng)有6人回復(fù)
- 求助一段代碼解讀，有獎勵
已經(jīng)有3人回復(fù)
- 用c語言編程怎來表達(dá)時滯！謝謝！
已經(jīng)有6人回復(fù)
- 招聘石油化學(xué)，有機化學(xué)方面的兼職編輯
已經(jīng)有21人回復(fù)
- matlab 積分計算 算不出結(jié)果，求幫助�。。�
已經(jīng)有10人回復(fù)
- 如何編寫一個應(yīng)用程序
已經(jīng)有6人回復(fù)
- 一個從來沒有編程經(jīng)驗的人，你們覺得VB作為入門語言怎么樣？
已經(jīng)有23人回復(fù)
- 【求助】幫我編個程啊~C語言，C++，Matlab，VB...都行~
已經(jīng)有14人回復(fù)
- 【求助】幫忙編個用于VASP小程序
已經(jīng)有22人回復(fù)
mshwangg
至尊木蟲 (正式寫手)
- 程序強帖: 5
- 應(yīng)助: 206 (大學(xué)生)
- 金幣: 10702.8
- 散金: 100
- 紅花: 19
- 帖子: 597
- 在線: 195.4小時
- 蟲號: 576702
- 注冊: 2008-06-21
- 專業(yè): 物理學(xué)I
2樓2010-11-05 13:21:15
wbjhpp
金蟲 (初入文壇)
- 應(yīng)助: 0 (幼兒園)
- 金幣: 935.4
- 散金: 16
- 帖子: 28
- 在線: 7小時
- 蟲號: 1114459
- 注冊: 2010-10-05
- 專業(yè): 凝聚態(tài)物性 II ：電子結(jié)構(gòu)
具體問題
nono2009:建議通使用“引用回復(fù)該帖”，不然別人收不到你的回復(fù)提示。 2010-11-08 12:44:39
|
h[x]是薛定諤方程的波函數(shù)（不知道具體形式），x表示能量，下面是我編的找出h[x]==0的解的二分法程序，v1、v2是已知的勢能；但如果此波函數(shù)是類似反函數(shù)的情況，也滿足h[p1]*h[p3]<0，但它與x軸沒交點，也就是說并沒有解，那怎么用程序排除這種情況�。≈x謝 total = 1000; y1 = v1;y2 = v2; y0 = (y2 - y1)/total; rt[x_, y_] := Module[{p1 = x, p2 = y, p3 = (x + y)/2}, While[Abs[p1 - p2] > 0.0001, If[h[p1]*h[p2] == 0, If[h[p1] == 0, p3 = p1, p3 = p2]; Break[]]; If[Negative[h[p1]*h[p3]], p2 = p3; p3 = (p1 + p2)/2, p1 = p3; p3 = (p1 + p2)/2]]; p3]; last = Table[ If[h[y1 + w*y0]*h[y1 + (w + 1) y0] < 0, rt[y1 + w*y0, y1 + (w + 1) y0], 0], {w, 1, total - 2}]; sz = Module[{i = 0}, Do[If[Part[last, j] != 0, i = i + 1, i], {j, 1, Length[last]}]; i]; netlast = Table[0, {i, 1, sz}]; Module[{j = 1}, Do[If[Part[last, i] != 0, Part[netlast, j] = Part[last, i]; j = j + 1], {i, 1, Length[last]}]]; netlast |
3樓2010-11-08 11:16:20
wbjhpp
金蟲 (初入文壇)
- 應(yīng)助: 0 (幼兒園)
- 金幣: 935.4
- 散金: 16
- 帖子: 28
- 在線: 7小時
- 蟲號: 1114459
- 注冊: 2010-10-05
- 專業(yè): 凝聚態(tài)物性 II ：電子結(jié)構(gòu)
具體問題
|
h[x]是薛定諤方程的波函數(shù)（不知道具體形式），x表示能量，下面是我編的找出h[x]==0的解的二分法程序，v1、v2是已知的勢能；但如果此波函數(shù)是類似反函數(shù)的情況，也滿足h[p1]*h[p3]<0，但它與x軸沒交點，也就是說并沒有解，那怎么用程序排除這種情況！！謝謝 total = 1000; y1 = v1;y2 = v2; y0 = (y2 - y1)/total; rt[x_, y_] := Module[{p1 = x, p2 = y, p3 = (x + y)/2}, While[Abs[p1 - p2] > 0.0001, If[h[p1]*h[p2] == 0, If[h[p1] == 0, p3 = p1, p3 = p2]; Break[]]; If[Negative[h[p1]*h[p3]], p2 = p3; p3 = (p1 + p2)/2, p1 = p3; p3 = (p1 + p2)/2]]; p3]; last = Table[ If[h[y1 + w*y0]*h[y1 + (w + 1) y0] < 0, rt[y1 + w*y0, y1 + (w + 1) y0], 0], {w, 1, total - 2}]; sz = Module[{i = 0}, Do[If[Part[last, j] != 0, i = i + 1, i], {j, 1, Length[last]}]; i]; netlast = Table[0, {i, 1, sz}]; Module[{j = 1}, Do[If[Part[last, i] != 0, Part[netlast, j] = Part[last, i]; j = j + 1], {i, 1, Length[last]}]]; netlast |
4樓2010-11-09 08:44:58
相關(guān)版塊跳轉(zhuǎn)
我要訂閱樓主 wbjhpp 的主題更新
| 4 | 1/1 | 返回列表 |
| 最具人氣熱帖推薦 [查看全部] | 作者 | 回/看 | 最后發(fā)表 | |
|---|---|---|---|---|
|
[考研] 085600 材料與化工 329分求調(diào)劑 +13 | Mr. Z 2026-03-25 | 13/650 |
|
|---|---|---|---|---|
|
|
[考研] 291求調(diào)劑 +5 | Y-cap 2026-03-29 | 6/300 |
|
|
[考研] 一志愿鄭州大學(xué)，080500學(xué)碩，總分317分求調(diào)劑 +8 | 舉個栗子oi 2026-03-24 | 9/450 |
|
|
|
[基金申請] 面上5B能上會嗎？ +3 | redcom 2026-03-29 | 3/150 |
|
|
|
[考研] 343求調(diào)劑 +6 | 愛羈絆 2026-03-29 | 6/300 |
|
|
|
[考研] 311求調(diào)劑 +5 | 冬十三 2026-03-24 | 5/250 |
|
|
|
[碩博家園] 求調(diào)劑 有機化學(xué)考研356分 +3 | Nadiums 2026-03-25 | 4/200 |
|
|
|
[考研] 085600，材料與化工321分求調(diào)劑 +9 | 大饞小子 2026-03-28 | 9/450 |
|
|
|
[考研] 085701環(huán)境工程，267求調(diào)劑 +16 | minht 2026-03-26 | 16/800 |
|
|
|
[考研] 一志愿南京航空航天大學(xué)材料學(xué)碩求調(diào)劑 +3 | @taotao 2026-03-28 | 3/150 |
|
|
|
[材料工程] 一志愿C9材料與化工專業(yè)總分300求調(diào)劑 +8 | 曼111 2026-03-24 | 9/450 |
|
|
|
[考研] 295求調(diào)劑 +5 | 1428151015 2026-03-27 | 6/300 |
|
|
|
[考研] 266求調(diào)劑 +11 | 陽陽哇塞 2026-03-27 | 12/600 |
|
|
|
[考研] 考研化學(xué)308分求調(diào)劑 +10 | 你好明天你好 2026-03-23 | 12/600 |
|
|
|
[考研] 0703化學(xué)338求調(diào)劑！ +6 | Zuhui0306 2026-03-26 | 7/350 |
|
|
|
[考研] 0703化學(xué)求調(diào)劑 +3 | 丹青奶蓋 2026-03-26 | 5/250 |
|
|
|
[考研] 中國科學(xué)院深圳先進技術(shù)研究院-光纖傳感課題組招生-中國科學(xué)院大學(xué)、深圳理工大學(xué)聯(lián)培 +5 | YangTyu1 2026-03-26 | 5/250 |
|
|
|
[考研] 290分調(diào)劑求助 +3 | 吉祥止止陳 2026-03-25 | 3/150 |
|
|
|
[考研] 285求調(diào)劑 +3 | AZMK 2026-03-24 | 3/150 |
|
|
|
[考研] 生物學(xué)學(xué)碩求調(diào)劑 +7 | 小羊睡著了? 2026-03-23 | 10/500 |
|