 |
 |
 |
 |
 |
 |
||
 |
 |
 |
 |
 |
| 7 | 1/1 | 返回列表 |
| 查看: 1107 | 回復(fù): 6 | |||
nll1989新蟲 (著名寫手)
|
[交流]
想用Fortran語言實(shí)現(xiàn)矩陣連乘，并且矩陣?yán)锩嬗幸粋�(gè)變量 已有3人參與
|
|
想用Fortran實(shí)現(xiàn)對(duì)矩陣M的連乘，而且矩陣?yán)锩婧幸粋�(gè)變量EM，當(dāng)EM＜=15，EM=6.7. 當(dāng)EM＞15，EM=8.7，但是用以下程序不能實(shí)現(xiàn)。希望大家?guī)兔鉀Q，不勝感激！ PROGRAM MAIN USE IMSL COMPLEX:: M(2,2),P(2,2) REAL*8 E,TE,TM,EM,TD,H,N COMPLEX*8 M11,M12,M21,M22,A1,A2,A3 TD=0.8D0 TM=1.0D0 EM=7.75D0 N=10 C====================================================== OPEN(UNIT=30,FILE="DNA-DAN01.DAT"  DO E=6.89,9.750,0.001D0 C================================================ cc================================================ P=M DO I=1,N IF (I .LT. 15) THEN EM=6.7 ELSE IF (I .GE. 15) THEN EM=8.7 END IF C==================================================== H=acos((E-EM)/(2*TM)) M11=CMPLX((E-EM)/TD,0) M12=CMPLX(-1,0) M21=CMPLX(1,0) M22=CMPLX(0,0) M=RESHAPE ((/M11,M21,M12,M22/),(/2,2/)) P=MATMUL(M,P) END DO C===================================================== A1=4*SIN(H)*SIN(H) A2=(P(1,2)-P(2,1)+(P(1,1)-P(2,2))*COS(H))**2 A3=(P(1,1)+P(2,2))**2*SIN(H)**2 TE=A1/(A2+A3) Write(30,*) E,TE END DO END |
回復(fù)此樓» 猜你喜歡
303求調(diào)劑
已經(jīng)有6人回復(fù)
-
306求調(diào)劑
已經(jīng)有4人回復(fù)
-
求調(diào)劑
已經(jīng)有6人回復(fù)
-
275求調(diào)劑
已經(jīng)有5人回復(fù)
-
求調(diào)劑
已經(jīng)有7人回復(fù)
-
考研調(diào)劑
已經(jīng)有4人回復(fù)
-
285求調(diào)劑
已經(jīng)有6人回復(fù)
-
一志愿北京化工大學(xué)070300 學(xué)碩336求調(diào)劑
已經(jīng)有7人回復(fù)
-
318求調(diào)劑
已經(jīng)有6人回復(fù)
-
305分求調(diào)劑（食品工程）
已經(jīng)有5人回復(fù)
» 本主題相關(guān)價(jià)值貼推薦，對(duì)您同樣有幫助:
- fortran求矩陣本征值出錯(cuò)
已經(jīng)有6人回復(fù)
- fortran中如何創(chuàng)建由二維矩陣為元素的1維矩陣
已經(jīng)有4人回復(fù)
- 急：求用Fortran或者其他語言編寫一個(gè)程序，處理下面的數(shù)據(jù)�。。。。。。。。�！
已經(jīng)有37人回復(fù)
- Fortran怎么從一個(gè)dat文件中讀取不同類型數(shù)據(jù)賦值給不同的變量？
已經(jīng)有8人回復(fù)
- 請(qǐng)問在fortran里面怎么求復(fù)數(shù)矩陣的行列式�。�！
已經(jīng)有4人回復(fù)
- Fortran程序，如何實(shí)現(xiàn)采用矩陣保存單鏈表表頭？
已經(jīng)有6人回復(fù)
- fortran中對(duì)變量取值
已經(jīng)有3人回復(fù)
- fortran到底怎么弄稀疏矩陣�。�
已經(jīng)有8人回復(fù)
- matlab如何實(shí)現(xiàn)矩陣多行數(shù)據(jù)的循環(huán)調(diào)用
已經(jīng)有5人回復(fù)
- matlab中如何通過for語句得到已有矩陣的部分?jǐn)?shù)據(jù)
已經(jīng)有3人回復(fù)
- fortran如何實(shí)現(xiàn)張量相乘（并乘）
已經(jīng)有9人回復(fù)
- 用fortran存儲(chǔ)稀疏矩陣
已經(jīng)有4人回復(fù)
- fortran能求帶字母矩陣的本征值嗎？（矩陣元素帶有字母，能得到形式解嗎）
已經(jīng)有5人回復(fù)
- fortran程序怎樣調(diào)用lapack庫(kù)進(jìn)行矩陣對(duì)角化？
已經(jīng)有7人回復(fù)
- 請(qǐng)問，我想用fortran計(jì)算統(tǒng)計(jì)中的p值以及95%信度空間
已經(jīng)有4人回復(fù)
- 【求助】fortran求解矩陣
已經(jīng)有7人回復(fù)
- 【求助】fortran中是如何實(shí)現(xiàn)將兩個(gè)變量的值在同一行進(jìn)行打印出來的
已經(jīng)有7人回復(fù)
- 【求助】矩陣相乘
已經(jīng)有8人回復(fù)
- 【求助】下面這個(gè)公式怎么用FORTRAN實(shí)現(xiàn)
已經(jīng)有7人回復(fù)
- 【求助】fortran：如何求解 復(fù)數(shù)矩陣的秩【已完結(jié)】
已經(jīng)有5人回復(fù)
- 【求助】求指點(diǎn)，在Fortran里面，怎樣實(shí)現(xiàn)“數(shù)組維度可調(diào)”的數(shù)組?
已經(jīng)有5人回復(fù)
nll1989
新蟲 (著名寫手)
- 應(yīng)助: 0 (幼兒園)
- 金幣: 8226.4
- 散金: 6
- 帖子: 1538
- 在線: 145.5小時(shí)
- 蟲號(hào): 3528503
- 注冊(cè): 2014-11-10
- 專業(yè): 果樹學(xué)
2樓2014-11-13 16:53:54
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ì)算
3樓2014-11-13 20:22:16
nll1989
新蟲 (著名寫手)
- 應(yīng)助: 0 (幼兒園)
- 金幣: 8226.4
- 散金: 6
- 帖子: 1538
- 在線: 145.5小時(shí)
- 蟲號(hào): 3528503
- 注冊(cè): 2014-11-10
- 專業(yè): 果樹學(xué)
4樓2014-11-13 21:46:49
network142
新蟲 (初入文壇)
- 應(yīng)助: 0 (幼兒園)
- 金幣: 5
- 帖子: 6
- 在線: 1.6小時(shí)
- 蟲號(hào): 3539850
- 注冊(cè): 2014-11-16
- 性別: GG
5樓2014-11-16 16:45:38
nll1989
新蟲 (著名寫手)
- 應(yīng)助: 0 (幼兒園)
- 金幣: 8226.4
- 散金: 6
- 帖子: 1538
- 在線: 145.5小時(shí)
- 蟲號(hào): 3528503
- 注冊(cè): 2014-11-10
- 專業(yè): 果樹學(xué)
6樓2014-11-17 12:47:07
godknows
銅蟲 (小有名氣)
- 應(yīng)助: 3 (幼兒園)
- 金幣: 1528.6
- 紅花: 1
- 帖子: 98
- 在線: 73.9小時(shí)
- 蟲號(hào): 595297
- 注冊(cè): 2008-09-08
- 性別: GG
7樓2014-11-26 09:30:50
相關(guān)版塊跳轉(zhuǎn)
我要訂閱樓主 nll1989 的主題更新
| 7 | 1/1 | 返回列表 |
| 最具人氣熱帖推薦 [查看全部] | 作者 | 回/看 | 最后發(fā)表 | |
|---|---|---|---|---|
|
[考研] 354求調(diào)劑 +7 | Tyoumou 2026-03-18 | 10/500 |
|
|---|---|---|---|---|
|
[考研] 生物學(xué)調(diào)劑 +4 | Surekei 2026-03-21 | 4/200 |
|
|
|
[考研] 297求調(diào)劑 +3 | 喜歡還是不甘心 2026-03-20 | 3/150 |
|
|
|
[考研] 求調(diào)劑 +3 | 13341 2026-03-20 | 3/150 |
|
|
|
[考研] 一志愿重慶大學(xué)085700資源與環(huán)境總分308求調(diào)劑 +7 | 墨墨漠 2026-03-20 | 7/350 |
|
|
|
[考研] 299求調(diào)劑 +4 | 某某某某位 2026-03-21 | 4/200 |
|
|
|
[考研] 南昌大學(xué)材料專碩311分求調(diào)劑 +6 | 77chaselx 2026-03-20 | 6/300 |
|
|
|
[考研] 一志愿山大07化學(xué) 332分 四六級(jí)已過 本科山東雙非 求調(diào)劑！ +3 | 不想理你 2026-03-16 | 3/150 |
|
|
|
[考研] 機(jī)械專碩299求調(diào)劑至材料 +3 | kkcoco25 2026-03-16 | 4/200 |
|
|
|
[考研] 南京大學(xué)化學(xué)376求調(diào)劑 +3 | hisfailed 2026-03-19 | 6/300 |
|
|
|
[考研] 330求調(diào)劑 +4 | 小材化本科 2026-03-18 | 4/200 |
|
|
|
[考研] 一志愿南京理工大學(xué)085701資源與環(huán)境302分求調(diào)劑 +4 | 葵梓衛(wèi)隊(duì) 2026-03-18 | 6/300 |
|
|
|
[考研] 290求調(diào)劑 +7 | ^O^乜 2026-03-19 | 7/350 |
|
|
|
[考研] 北科281學(xué)碩材料求調(diào)劑 +5 | tcxiaoxx 2026-03-20 | 5/250 |
|
|
|
[考研] 一志愿武理材料工程348求調(diào)劑 +3 | ￣^￣゜汗 2026-03-19 | 4/200 |
|
|
|
[考研] 353求調(diào)劑 +3 | 拉鉤不許變 2026-03-20 | 3/150 |
|
|
|
[考研]
 320求調(diào)劑0856
+3
|
不想起名字112 2026-03-19 | 3/150 |
|
|
|
[考研] 收復(fù)試調(diào)劑生 +4 | 雨后秋荷 2026-03-18 | 4/200 |
|
|
|
[考研] 085601求調(diào)劑 +4 | Du.11 2026-03-16 | 4/200 |
|
|
|
[考研] 321求調(diào)劑 +5 | 大米飯！ 2026-03-15 | 5/250 |
|