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

登錄注冊

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

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

北京石油化工學(xué)院2026年研究生招生接收調(diào)劑公告

返回列表

當(dāng)前只顯示滿足指定條件的回帖，點(diǎn)擊這里查看本話題的所有回帖

飛揚(yáng)123

新蟲 (初入文壇)

應(yīng)助: 0 (幼兒園)
金幣: 301.6
帖子: 3
在線: 46分鐘
蟲號: 1151311

[交流] 【求助】急需一個(gè)程序

急需：一個(gè)求解一元多次方程的Fortran程序，謝謝！

回復(fù)此樓

» 猜你喜歡

材料考研調(diào)劑已經(jīng)有3人回復(fù)
材料調(diào)劑已經(jīng)有12人回復(fù)
英一數(shù)一408，總分284，二戰(zhàn)真誠求調(diào)劑已經(jīng)有14人回復(fù)
085410 一志愿211 22408分?jǐn)?shù)359求調(diào)劑已經(jīng)有4人回復(fù)
271求調(diào)劑已經(jīng)有19人回復(fù)
385分生物學(xué)（071000）求調(diào)劑已經(jīng)有3人回復(fù)
一志愿安徽大學(xué)計(jì)算機(jī)科學(xué)與技術(shù)學(xué)碩，331分求調(diào)劑已經(jīng)有3人回復(fù)
318求調(diào)劑，計(jì)算材料方向已經(jīng)有8人回復(fù)
291求調(diào)劑已經(jīng)有25人回復(fù)
一志愿北京科技大學(xué)085601材料工程英一數(shù)二初試總分335求調(diào)劑已經(jīng)有6人回復(fù)

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

需要用matlab擬合數(shù)據(jù)的外行人急需幫助已經(jīng)有10人回復(fù)
MATLAB 編程求解普通實(shí)驗(yàn)數(shù)據(jù)時(shí)間序列的最大李雅普諾夫指數(shù)�。�！已經(jīng)有12人回復(fù)
兩本經(jīng)典的入門教程C Primer plus（第五版）和C++ Primer plus（第五版）已經(jīng)有58人回復(fù)
求助~~!!請懂SQL SERVER的進(jìn). 已經(jīng)有13人回復(fù)
【求助】急需最新全國行政區(qū)劃數(shù)據(jù)和常見漢字及其拼音（也可以是聲母的第一個(gè)字母）數(shù) 已經(jīng)有4人回復(fù)
【求助】用matlab編程，需要將數(shù)據(jù)自檢分類（高手進(jìn)來指點(diǎn)下）已經(jīng)有5人回復(fù)
【求助】購買程序降溫的烘箱求助��！已經(jīng)有11人回復(fù)
【討論】哪位有VB6.0英文版啊，急需【已完成】已經(jīng)有3人回復(fù)
【分享】Origin 8.x 視頻教程（75個(gè)）已經(jīng)有177人回復(fù)

» 搶金幣啦！回帖就可以得到:

查看全部散金貼

1樓 2010-11-30 09:57:33

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

snoopyzhao

至尊木蟲 (職業(yè)作家)

★
nono2009(金幣+1):呵呵 2010-12-02 07:46:04

人家求的是一元多次方程，不是線性方程組，呵呵……

一元多次方程一般都是通過迭代的方法求解的，效率之間的差別會很大，但查一下書也應(yīng)該都會有的。不管怎么樣，這種事情還是應(yīng)該自己動手……

贊一下(1人)

回復(fù)此樓

4樓2010-11-30 21:52:48

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

查看全部 9 個(gè)回答

snoopyzhao

至尊木蟲 (職業(yè)作家)

自已寫，或找現(xiàn)成的軟件做……

贊一下

回復(fù)此樓

2樓2010-11-30 10:05:25

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

gsview

木蟲 (小有名氣)

應(yīng)助: 4 (幼兒園)
金幣: 2446.9
帖子: 146
在線: 234.2小時(shí)
蟲號: 443276

★
余澤成(金幣+1):謝謝參與應(yīng)助，歡迎常來程序語言版！ 2010-12-24 16:15:28

從書上給你找的！

DIMENSION A(4,4),B(4),X(4),JS(4)
DOUBLE PRECISION A,B,X
DATA A/0.2368,0.1968,0.1582,1.1161,0.2471,0.2071,1.1675,0.1254
   *    ,0.2568,1.2168,0.1768,0.1397,1.2671,0.2271,0.1871,0.1490/
DATA B/1.8471,1.7471,1.6471,1.5471/
N=4
CALL AGAUS(A,B,N,X,L,JS)
IF (L.NE.0) THEN
   WRITE(*,10) (I,X(I),I=1,4)
END IF
10 FORMAT(1X,'X(',I2,' )=',D15.6)
END

SUBROUTINE AGAUS(A,B,N,X,L,JS)
DIMENSION A(N,N),X(N),B(N),JS(N)
DOUBLE PRECISION A,B,X,T
L=1
DO 50 K=1,N-1
   D=0.0
   DO 210 I=K,N
   DO 210 J=K,N
      IF (ABS(A(I,J)).GT.D) THEN
      D=ABS(A(I,J))
      JS(K)=J
      IS=I
      END IF
210    CONTINUE
   IF (D+1.0.EQ.1.0) THEN
      L=0
   ELSE
      IF (JS(K).NE.K) THEN
      DO 220 I=1,N
         T=A(I,K)
         A(I,K)=A(I,JS(K))
         A(I,JS(K))=T
220       CONTINUE
      END IF
      IF (IS.NE.K) THEN
      DO 230 J=K,N
         T=A(K,J)
         A(K,J)=A(IS,J)
         A(IS,J)=T
230       CONTINUE
      T=B(K)
      B(K)=B(IS)
      B(IS)=T
      END IF
   END IF
   IF (L.EQ.0) THEN
      WRITE(*,100)
      RETURN
   END IF
   DO 10 J=K+1,N
      A(K,J)=A(K,J)/A(K,K)
10    CONTINUE
   B(K)=B(K)/A(K,K)
   DO 30 I=K+1,N
      DO 20 J=K+1,N
      A(I,J)=A(I,J)-A(I,K)*A(K,J)
20       CONTINUE
      B(I)=B(I)-A(I,K)*B(K)
30    CONTINUE
50 CONTINUE
IF (ABS(A(N,N))+1.0.EQ.1.0) THEN
   L=0
   WRITE(*,100)
   RETURN
END IF
X(N)=B(N)/A(N,N)
DO 70 I=N-1,1,-1
   T=0.0
   DO 60 J=I+1,N
      T=T+A(I,J)*X(J)
60    CONTINUE
   X(I)=B(I)-T
70 CONTINUE
100 FORMAT(1X,' FAIL ')
JS(N)=N
DO 150 K=N,1,-1
   IF (JS(K).NE.K) THEN
      T=X(K)
      X(K)=X(JS(K))
      X(JS(K))=T
   END IF
150 CONTINUE
RETURN
END

贊一下(1人)

回復(fù)此樓

3樓2010-11-30 16:41:18

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

gsview

木蟲 (小有名氣)

應(yīng)助: 4 (幼兒園)
金幣: 2446.9
帖子: 146
在線: 234.2小時(shí)
蟲號: 443276

不好意思，看錯了！呵呵！

贊一下

回復(fù)此樓

5樓2010-12-01 13:13:20

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

查看全部 9 個(gè)回答

普通表情龍兔虎貓高級回復(fù) (可上傳附件)

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

[考研] 318求調(diào)劑，計(jì)算材料方向 +7	吸喵有害笙命 2026-04-01	8/400	2026-04-01 23:54 by 義文wang
[考研] 301求調(diào)劑 +12	A_JiXing 2026-04-01	12/600	2026-04-01 22:47 by peike
[考研] 319求調(diào)劑 +9	太容易1018 2026-04-01	9/450	2026-04-01 21:58 by 我的船我的海
[考研] 302求調(diào)劑一志愿北航070300，本科鄭大化學(xué) +8	圣日耳曼條 2026-04-01	10/500	2026-04-01 14:03 by ZXlzxl0425
[考研] 085410人工智能初試316分求調(diào)劑 +3	殘星拂曙 2026-03-31	3/150	2026-04-01 11:09 by 小熊raider
[考研] 301求調(diào)劑 +8	axibli 2026-04-01	8/400	2026-04-01 09:51 by 我的船我的海
[考研] 考研生物與醫(yī)藥調(diào)劑 +7	鐵憨憨123425 2026-03-31	7/350	2026-04-01 08:45 by JourneyLucky
[考研] 070300化學(xué)專業(yè)279調(diào)劑 +10	哈哈哈^_^ 2026-03-31	10/500	2026-03-31 23:13 by liu823948201
[考研] 367求調(diào)劑 +7	芋泥啵啵… 2026-03-28	7/350	2026-03-31 14:55 by 不吃魚的貓
[考研] 282求調(diào)劑不挑專業(yè) 求收留 +4	Yam. 2026-03-30	5/250	2026-03-31 14:41 by 王亮_大連醫(yī)科大
[考研] 323分食品與營養(yǎng)調(diào)劑 +3	嘿ooo 2026-03-31	3/150	2026-03-31 09:38 by longlotian
[考研] 083000環(huán)境科學(xué)與工程調(diào)劑，總分281 +4	橙子（勝意） 2026-03-30	4/200	2026-03-31 00:44 by Linzejun
[考研] 0703 化學(xué) 求調(diào)劑，一志愿山東大學(xué) 342 分 +7	Shern—- 2026-03-28	7/350	2026-03-30 16:31 by nothing投稿中
[考研] 327求調(diào)劑 +6	汲亦昊 2026-03-29	6/300	2026-03-29 13:40 by peike
[考研] 求調(diào)劑 +7	爭取九點(diǎn)睡 2026-03-28	8/400	2026-03-28 21:07 by 爭取九點(diǎn)睡
[考研] 求佛 +7	迷人的哈哈 2026-03-28	7/350	2026-03-28 16:47 by 催化大白
[考研] 復(fù)試調(diào)劑 +3	raojunqi0129 2026-03-28	3/150	2026-03-28 15:27 by 落�？伤�
[考研] 085405 考的11408求各位老師帶走 +3	Qiu學(xué)ing 2026-03-28	3/150	2026-03-28 09:19 by 樂呵呵的追夢人
[考研] 315調(diào)劑 +4	0860求調(diào)劑 2026-03-26	5/250	2026-03-27 11:23 by wangjy2002
[考研] 324求調(diào)劑 +5	hanamiko 2026-03-26	5/250	2026-03-27 10:33 by wangjy2002

亭亭五月天在线观看,亭亭五月天在线观看,国产最新av一区二区,国产 高清 中文字幕,99re热久久亚洲综合精品成人,熟妇 一区二区三区,一级做a爰片性色毛片武则天,美女的骚穴视频播放,国产美女午夜免费视频

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

飛揚(yáng)123

[交流] 【求助】急需一個(gè)程序

» 猜你喜歡

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

» 搶金幣啦！回帖就可以得到: 查看全部散金貼

snoopyzhao

snoopyzhao

gsview

gsview

亭亭五月天在线观看,亭亭五月天在线观看,国产最新av一区二区,国产高清中文字幕,99re热久久亚洲综合精品成人,熟妇一区二区三区,一级做a爰片性色毛片武则天,美女的骚穴视频播放,国产美女午夜免费视频

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

» 搶金幣啦！回帖就可以得到:

查看全部散金貼