版塊導(dǎo)航: 正在加載中...

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

24小時(shí)熱門版塊排行榜

返回列表

sddhywj2008

木蟲 (小有名氣)

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

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

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

回復(fù)此樓

» 猜你喜歡

材料與化工求調(diào)劑已經(jīng)有7人回復(fù)
304求調(diào)劑已經(jīng)有3人回復(fù)
0817 化學(xué)工程 299分求調(diào)劑有科研經(jīng)歷有二區(qū)文章已經(jīng)有12人回復(fù)
085600材料與化工調(diào)劑 324分已經(jīng)有12人回復(fù)
286求調(diào)劑已經(jīng)有10人回復(fù)
324分 085600材料化工求調(diào)劑已經(jīng)有3人回復(fù)
317求調(diào)劑已經(jīng)有6人回復(fù)
307求調(diào)劑已經(jīng)有5人回復(fù)
求調(diào)劑已經(jīng)有3人回復(fù)
求調(diào)劑，一志愿:南京航空航天大學(xué)大學(xué) ，080500材料科學(xué)與工程學(xué)碩，總分289分已經(jīng)有3人回復(fù)

» 本主題相關(guān)價(jià)值貼推薦，對(duì)您同樣有幫助:

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

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

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

li2008jie

鐵桿木蟲 (著名寫手)

逍遙孤鶴

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

【答案】應(yīng)助回帖

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

用matlab應(yīng)該好解，可以嘗試一下。 fortran語言不會(huì)。

贊一下

回復(fù)此樓

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

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

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

sciencejoy

新蟲 (著名寫手)

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

【答案】應(yīng)助回帖

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

用Fortran寫個(gè)牛頓法的程序求解。

贊一下

回復(fù)此樓

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

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

sddhywj2008

木蟲 (小有名氣)

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

引用回帖:

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

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

贊一下

回復(fù)此樓

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

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

sciencejoy

新蟲 (著名寫手)

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

引用回帖:

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

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

贊一下

回復(fù)此樓

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

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

pippi6

鐵桿木蟲 (著名寫手)

工程和科學(xué)數(shù)值計(jì)算咨詢

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

【答案】應(yīng)助回帖

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

給你一個(gè)例子，使用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

贊一下

回復(fù)此樓

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

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

sddhywj2008

木蟲 (小有名氣)

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

引用回帖:

6樓: Originally posted by pippi6 at 2013-11-26 10:22:36
給你一個(gè)例子，使用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 ...

謝謝您。因?yàn)榈姆匠瘫冗@個(gè)復(fù)雜，可能不能直接把導(dǎo)數(shù)寫出來。

贊一下

回復(fù)此樓

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

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

isityou

金蟲 (小有名氣)

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

【答案】應(yīng)助回帖

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

引用回帖:

7樓: Originally posted by sddhywj2008 at 2013-11-26 14:19:29
謝謝您。因?yàn)榈姆匠瘫冗@個(gè)復(fù)雜，可能不能直接把導(dǎo)數(shù)寫出來。...

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

贊一下

回復(fù)此樓

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

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

相關(guān)版塊跳轉(zhuǎn) 我要訂閱樓主 sddhywj2008 的主題更新

返回列表

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

[考研] 材料080500調(diào)劑求收留 +4	一顆meteor 2026-03-13	4/200	2026-03-19 10:32 by 30660438
[考研] 一志愿985，本科211，0817化學(xué)工程與技術(shù)319求調(diào)劑 +10	Liwangman 2026-03-15	10/500	2026-03-19 10:25 by 無際的草原
[考研] 274求調(diào)劑 +6	S.H1 2026-03-18	6/300	2026-03-19 09:34 by 花店相見
[考研] 0703化學(xué)調(diào)劑，求各位老師收留 +10	秋有木北 2026-03-14	10/500	2026-03-19 05:52 by anny19840123
[考研] 材料專業(yè)求調(diào)劑 +5	hanamiko 2026-03-18	5/250	2026-03-18 20:19 by 星空星月
[考研] 344求調(diào)劑 +6	knight344 2026-03-16	7/350	2026-03-18 20:13 by walc
[考研] 一志愿武理材料305分求調(diào)劑 +5	想上岸的鯉魚 2026-03-18	6/300	2026-03-18 17:53 by 無際的草原
[考研] 298-一志愿中國農(nóng)業(yè)大學(xué)-求調(diào)劑 +7	手機(jī)用戶 2026-03-17	7/350	2026-03-18 14:34 by vgtyfty
[考研] 材料專碩306英一數(shù)二 +10	z1z2z3879 2026-03-16	13/650	2026-03-18 14:20 by 007_lilei
[考研] 0703化學(xué)求調(diào)劑總分331 +3	ZY-05 2026-03-13	3/150	2026-03-18 10:58 by macy2011
[考研] 生物學(xué)071000 329分求調(diào)劑 +3	我愛生物生物愛?/a> 2026-03-17	3/150	2026-03-18 10:12 by macy2011
[考研] 265求調(diào)劑 +3	梁梁校校 2026-03-17	3/150	2026-03-18 09:12 by zhukairuo
[考研] 考研求調(diào)劑 +3	橘頌. 2026-03-17	4/200	2026-03-17 21:43 by 有只貍奴
[考研] 301求調(diào)劑 +4	A_JiXing 2026-03-16	4/200	2026-03-17 17:32 by ruiyingmiao
[考研] 0856專碩279求調(diào)劑 +5	加油加油！? 2026-03-15	5/250	2026-03-15 11:58 by 2020015
[考研] 本科南京大學(xué)一志愿川大藥學(xué)327 +3	麥田耕者 2026-03-14	3/150	2026-03-14 20:04 by 外星文明
[考研] 266求調(diào)劑 +4	學(xué)員97LZgn 2026-03-13	4/200	2026-03-14 08:37 by zhukairuo
[考研] 308求調(diào)劑 +3	是Lupa啊 2026-03-12	3/150	2026-03-13 14:30 by 求調(diào)劑zz
[考研] 321求調(diào)劑（食品/專碩） +3	mxcz321 2026-03-12	6/300	2026-03-13 08:45 by xc321
[考研] 081200-11408-276學(xué)碩求調(diào)劑 +3	崔wj 2026-03-12	4/200	2026-03-12 19:33 by 求調(diào)劑zz

24小時(shí)熱門版塊排行榜

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

» 猜你喜歡

» 本主題相關(guān)價(jià)值貼推薦，對(duì)您同樣有幫助:

【答案】應(yīng)助回帖

【答案】應(yīng)助回帖

【答案】應(yīng)助回帖

【答案】應(yīng)助回帖

» 本主題相關(guān)價(jià)值貼推薦，對(duì)您同樣有幫助: