版塊導航: 正在加載中...

登錄注冊

應《網(wǎng)絡安全法》要求，自2017年10月1日起，未進行實名認證將不得使用互聯(lián)網(wǎng)跟帖服務。為保障您的帳號能夠正常使用，請盡快對帳號進行手機號驗證，感謝您的理解與支持！

24小時熱門版塊排行榜

返回列表

sddhywj2008

木蟲 (小有名氣)

應助: 0 (幼兒園)
金幣: 3027.7
散金: 120
帖子: 290
在線: 156.4小時
蟲號: 895195
注冊: 2009-11-06
性別: GG
專業(yè): 計算機應用技術

[求助] 一元高次方程組解法

本人剛接觸程序，想求助各位達人用FORTRAN如何求解一元高次方程組，比如X的15次方或者30次方等。金幣重謝。

回復此樓

» 猜你喜歡

288求調劑，一志愿華南理工大學071005 已經(jīng)有5人回復
一志愿中國海洋大學，生物學，301分，求調劑已經(jīng)有5人回復
294求調劑材料與化工專碩已經(jīng)有12人回復
0856調劑，是學校就去已經(jīng)有5人回復
0817 化學工程 299分求調劑有科研經(jīng)歷有二區(qū)文章已經(jīng)有13人回復
梁成偉老師課題組歡迎你的加入已經(jīng)有11人回復
復試調劑已經(jīng)有6人回復
0703化學調劑，六級已過，有科研經(jīng)歷已經(jīng)有11人回復
321求調劑已經(jīng)有10人回復
東華理工大學化材專業(yè)26屆碩士博士申請已經(jīng)有8人回復

» 本主題相關價值貼推薦，對您同樣有幫助:

一道方程組的求解已經(jīng)有16人回復
用mathematics解方程組已經(jīng)有19人回復
三元二次的三角方程如何用MATLAB求解？？已經(jīng)有10人回復
請教大家一個MATLAB的方程求解問題已經(jīng)有6人回復
一元高次方程怎么解已經(jīng)有5人回復
請教MATLAB中的LMI求解問題，急�。�！已經(jīng)有7人回復
求助Peng-Robinson狀態(tài)方程！已經(jīng)有5人回復
【求解】一元四次方程已經(jīng)有5人回復
微分方程當做一元二次方程來解已經(jīng)有5人回復
含偏微分之絕對值項的一階偏微分方程組的數(shù)值解法已經(jīng)有7人回復
非線性方程組的解法已經(jīng)有5人回復
急切求助！一個mathematica求解一個簡單一元非線性方程的問題已經(jīng)有4人回復
一元五次方程怎么求解？已經(jīng)有8人回復
Matlab如何找一個一元二次方程式的eigenvalues 已經(jīng)有3人回復
求助！matlab求解一元高次方程的問題！已經(jīng)有8人回復
如何求解含阻尼的雙自由度系統(tǒng)強迫振動的固有頻率已經(jīng)有8人回復
求助解一道高中數(shù)學方程題已經(jīng)有8人回復
請問如何求解二元一階微分方程組已經(jīng)有24人回復
【求助】幫忙求解一個一元四次方程已經(jīng)有9人回復
一元高次方程因式分解已經(jīng)有14人回復
【求助】多元方程組求解及擬合已經(jīng)有9人回復
【求助】請教非齊次常微分方程組的解析解法已經(jīng)有4人回復

1樓 2013-11-25 17:55:59

已閱回復此樓關注TA 給TA發(fā)消息送TA紅花 TA的回帖

li2008jie

鐵桿木蟲 (著名寫手)

逍遙孤鶴

應助: 10 (幼兒園)
金幣: 8662.9
紅花: 7
帖子: 1090
在線: 531.3小時
蟲號: 590822
注冊: 2008-09-01
性別: GG
專業(yè): 金屬功能材料

【答案】應助回帖

感謝參與，應助指數(shù) +1

用matlab應該好解，可以嘗試一下。 fortran語言不會。

贊一下

回復此樓

阿甘與徐三多，執(zhí)著+執(zhí)著+執(zhí)著=成功！

2樓2013-11-25 18:44:42

已閱回復此樓關注TA 給TA發(fā)消息送TA紅花 TA的回帖

sciencejoy

新蟲 (著名寫手)

應助: 436 (碩士)
金幣: 11207.1
紅花: 90
帖子: 2974
在線: 498小時
蟲號: 802149
注冊: 2009-07-02
性別: GG
專業(yè): 高分子物理與高分子物理化

【答案】應助回帖

感謝參與，應助指數(shù) +1

用Fortran寫個牛頓法的程序求解。

贊一下

回復此樓

3樓2013-11-25 19:07:13

已閱回復此樓關注TA 給TA發(fā)消息送TA紅花 TA的回帖

sddhywj2008

木蟲 (小有名氣)

應助: 0 (幼兒園)
金幣: 3027.7
散金: 120
帖子: 290
在線: 156.4小時
蟲號: 895195
注冊: 2009-11-06
性別: GG
專業(yè): 計算機應用技術

引用回帖:

3樓: Originally posted by sciencejoy at 2013-11-25 19:07:13
用Fortran寫個牛頓法的程序求解。

謝謝你，不會寫呢。有現(xiàn)成的嗎？呵呵

贊一下

回復此樓

4樓2013-11-25 19:45:57

已閱回復此樓關注TA 給TA發(fā)消息送TA紅花 TA的回帖

sciencejoy

新蟲 (著名寫手)

應助: 436 (碩士)
金幣: 11207.1
紅花: 90
帖子: 2974
在線: 498小時
蟲號: 802149
注冊: 2009-07-02
性別: GG
專業(yè): 高分子物理與高分子物理化

引用回帖:

4樓: Originally posted by sddhywj2008 at 2013-11-25 19:45:57
謝謝你，不會寫呢。有現(xiàn)成的嗎？呵呵...

數(shù)值方法的書上都有。網(wǎng)上搜也能搜得到。

贊一下

回復此樓

5樓2013-11-25 20:37:55

已閱回復此樓關注TA 給TA發(fā)消息送TA紅花 TA的回帖

pippi6

鐵桿木蟲 (著名寫手)

工程和科學數(shù)值計算咨詢

應助: 413 (碩士)
貴賓: 0.002
金幣: 7116.5
散金: 15
紅花: 63
帖子: 1639
在線: 798.9小時
蟲號: 2469437
注冊: 2013-05-14
專業(yè): 計算數(shù)學與科學工程計算

【答案】應助回帖

★ ★ ★ ★ ★ ★ ★ ★ ★ ★ ★ ★ ★ ★ ★ ★ ★ ★ ★ ★
感謝參與，應助指數(shù) +1
sddhywj2008: 金幣+20, ★★★很有幫助 2013-12-08 10:44:16

給你一個例子，使用Newton法求解方程，比如求解 f(x)=x^N-x-a=0, N 可以選大于2的任意整數(shù)，a>0, 選取初值 x= 1.1

!flag
subroutine Newton7
  implicit none
  integer :: iter,N
  real*8 :: a,x,dx,f,f1,eps=1.d-10

  ! specify parameters
  N=20
  a=6d0

  ! initial value, carefully chosen, otherwise not convergent
  x=1.1d0

  iter=0
9 iter=iter+1

  ! f is the function, f1 is the derivative
  f=x**N-x-a
  f1=N*x**(N-1)-1
  dx=-f/f1
  x=x+dx
  print"(a,i3,9(a,f20.12))",' iter=',iter,' dx=',dx,' x=',x
  if(abs(dx) > eps) goto 9
  print*,''
  stop

end subroutine Newton7

贊一下

回復此樓

6樓2013-11-26 10:22:36

已閱回復此樓關注TA 給TA發(fā)消息送TA紅花 TA的回帖

sddhywj2008

木蟲 (小有名氣)

應助: 0 (幼兒園)
金幣: 3027.7
散金: 120
帖子: 290
在線: 156.4小時
蟲號: 895195
注冊: 2009-11-06
性別: GG
專業(yè): 計算機應用技術

引用回帖:

6樓: Originally posted by pippi6 at 2013-11-26 10:22:36
給你一個例子，使用Newton法求解方程，比如求解 f(x)=x^N-x-a=0, N 可以選大于2的任意整數(shù)，a>0, 選取初值 x= 1.1

!flag
subroutine Newton7
  implicit none
  integer :: iter,N
  real*8 :: a,x,dx ...

謝謝您。因為的方程比這個復雜，可能不能直接把導數(shù)寫出來。

贊一下

回復此樓

7樓2013-11-26 14:19:29

已閱回復此樓關注TA 給TA發(fā)消息送TA紅花 TA的回帖

isityou

金蟲 (小有名氣)

應助: 7 (幼兒園)
金幣: 524.5
散金: 10
紅花: 4
帖子: 67
在線: 22.2小時
蟲號: 2822665
注冊: 2013-11-23
專業(yè): 工程熱力學

【答案】應助回帖

感謝參與，應助指數(shù) +1

引用回帖:

7樓: Originally posted by sddhywj2008 at 2013-11-26 14:19:29
謝謝您。因為的方程比這個復雜，可能不能直接把導數(shù)寫出來。...

不能求導數(shù)，那就用二分法吧，只是效率慢點，或者其他解法。

贊一下

回復此樓

8樓2013-11-27 09:30:01

已閱回復此樓關注TA 給TA發(fā)消息送TA紅花 TA的回帖

相關版塊跳轉我要訂閱樓主 sddhywj2008 的主題更新

返回列表

最具人氣熱帖推薦 [查看全部]		作者	回/看	最后發(fā)表

[考研] 0856調劑，是學校就去 +4	sllhht 2026-03-19	5/250	2026-03-19 17:45 by 星空星月
[考研] 材料與化工求調劑 +7	為學666 2026-03-16	7/350	2026-03-19 14:48 by 盡舜堯1
[考研] 求調劑，一志愿:南京航空航天大學大學，080500材料科學與工程學碩，總分289分 +3	@taotao 2026-03-19	3/150	2026-03-19 14:07 by peike
[考研] 一志愿天大材料與化工（085600）總分338 +5	蔡大美女 2026-03-13	5/250	2026-03-19 10:44 by 是小劉呀～
[考研] 0817調劑 +3	沒有答案_ 2026-03-14	3/150	2026-03-19 09:51 by Xu de nuo
[考研] 274求調劑 +6	S.H1 2026-03-18	6/300	2026-03-19 09:34 by 花店相見
[考研] 材料工程專碩調劑 +5	204818@lcx 2026-03-17	6/300	2026-03-18 22:55 by 204818@lcx
[考研] 材料專業(yè)求調劑 +5	hanamiko 2026-03-18	5/250	2026-03-18 20:19 by 星空星月
[考研] 一志愿武理材料305分求調劑 +5	想上岸的鯉魚 2026-03-18	6/300	2026-03-18 17:53 by 無際的草原
[考研] 26調劑/材料/英一數(shù)二/總分289/已過A區(qū)線 +7	步川酷紫123 2026-03-13	7/350	2026-03-18 17:12 by 盡舜堯1
[考研] 材料專碩306英一數(shù)二 +10	z1z2z3879 2026-03-16	13/650	2026-03-18 14:20 by 007_lilei
[考研] 299求調劑 +5	△小透明* 2026-03-17	5/250	2026-03-18 11:49 by 盡舜堯1
[考研] 工科材料085601 279求調劑 +6	困于星晨 2026-03-17	6/300	2026-03-18 10:21 by kkcoco25
[考研] 環(huán)境工程調劑 +8	大可digkids 2026-03-16	8/400	2026-03-18 09:36 by zhukairuo
[考研] 265求調劑 +3	梁梁校校 2026-03-17	3/150	2026-03-18 09:12 by zhukairuo
[考研] 機械專碩325，尋找調劑院校 +3	y9999 2026-03-15	5/250	2026-03-16 19:58 by y9999
[考研] 0854控制工程 359求調劑可跨專業(yè) +3	626776879 2026-03-14	9/450	2026-03-16 17:42 by 626776879
[考研] 326求調劑 +4	諾貝爾化學獎覬?/a> 2026-03-15	7/350	2026-03-16 17:11 by 諾貝爾化學獎覬?/a>
[考研] 求材料調劑 085600英一數(shù)二總分302 前三科235 精通機器學習一志愿哈工大 +4	林yaxin 2026-03-12	4/200	2026-03-13 22:04 by 星空星月
[考研] 26調劑/材料科學與工程/總分295/求收留 +9	2026調劑俠 2026-03-12	9/450	2026-03-13 20:46 by 18595523086

24小時熱門版塊排行榜

[求助] 一元高次方程組解法

» 猜你喜歡

» 本主題相關價值貼推薦，對您同樣有幫助:

【答案】應助回帖

【答案】應助回帖

【答案】應助回帖

【答案】應助回帖

» 本主題相關價值貼推薦，對您同樣有幫助: