版塊導(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í)熱門版塊排行榜

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

返回列表

fagege2010

鐵蟲 (小有名氣)

應(yīng)助: 3 (幼兒園)
金幣: 53.3
散金: 24
紅花: 1
帖子: 66
在線: 75.1小時(shí)
蟲號(hào): 896717
注冊(cè): 2009-11-07
性別: GG
專業(yè): 光子與光電子器件

[交流] 【求助】急求！�。�

我在前面的子程序中計(jì)算出了一個(gè)矩陣AR（N,N）
現(xiàn)在想用ISML求它的本征值和本征矢
請(qǐng)問(wèn)如何求；如何把子程序中的這個(gè)矩陣中的數(shù)據(jù)傳過(guò)去�。烤唧w怎么編？

問(wèn)題已經(jīng)解決謝謝各位

[ Last edited by fagege2010 on 2011-1-8 at 23:54 ]

回復(fù)此樓

» 猜你喜歡

284求調(diào)劑已經(jīng)有13人回復(fù)
材料科學(xué)與工程調(diào)劑已經(jīng)有5人回復(fù)
346求調(diào)劑一志愿070303有機(jī)化學(xué) 已經(jīng)有4人回復(fù)
329求調(diào)劑已經(jīng)有8人回復(fù)
一志愿南航 335分 | 0856材料化工 | GPA 4.07 | 有科研經(jīng)歷已經(jīng)有7人回復(fù)
322求調(diào)劑已經(jīng)有8人回復(fù)
考研調(diào)劑已經(jīng)有5人回復(fù)
307求調(diào)劑已經(jīng)有11人回復(fù)
292求調(diào)劑已經(jīng)有9人回復(fù)
本科211生物醫(yī)學(xué)工程085409求調(diào)劑339分已經(jīng)有3人回復(fù)

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

急求RT-PCR電泳圖分析已經(jīng)有22人回復(fù)
急求大家的意見(jiàn)！已經(jīng)有13人回復(fù)
急求幫助我翻譯成中文已經(jīng)有1人回復(fù)
急求統(tǒng)計(jì)分析問(wèn)題！已經(jīng)有10人回復(fù)
一段翻譯急求已經(jīng)有2人回復(fù)
急求翻譯，謝謝已經(jīng)有1人回復(fù)
理解不透！急求幫忙�。�！已經(jīng)有8人回復(fù)
【急求】正庚烷-苯二元體系已知折光率求組分已經(jīng)有3人回復(fù)
急求工藝流程圖已經(jīng)有7人回復(fù)
急求�。。。。。》g摘要，謝謝啦已經(jīng)有1人回復(fù)
急求翻譯！�。。�！漢譯英�。。。≡诰€等�。。�！已經(jīng)有12人回復(fù)
急求英文翻譯已經(jīng)有2人回復(fù)
急求漢譯英翻譯已經(jīng)有3人回復(fù)
急求已經(jīng)有8人回復(fù)

神馬都是浮云

1樓 2010-11-05 23:40:14

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

heyansheng12345

銀蟲 (小有名氣)

應(yīng)助: 0 (幼兒園)
金幣: 634.1
散金: 54
紅花: 4
帖子: 71
在線: 4.9小時(shí)
蟲號(hào): 543364
注冊(cè): 2008-04-10
性別: GG

fagege2010(金幣+5): 2010-12-15 20:12:26
fagege2010(金幣+1): 2011-01-08 23:46:09
fagege2010(金幣+1): 2011-01-08 23:46:15

我想應(yīng)該要借用數(shù)組吧

贊一下

回復(fù)此樓

2樓2010-12-14 13:47:04

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

cyclone985

銀蟲 (小有名氣)

應(yīng)助: 0 (幼兒園)
金幣: 157.8
紅花: 1
帖子: 175
在線: 34.9小時(shí)
蟲號(hào): 516204
注冊(cè): 2008-03-02
專業(yè): 凝聚態(tài)物性 II ：電子結(jié)構(gòu)

fagege2010(金幣+5): 2010-12-15 20:12:51
fagege2010(金幣+1): 2011-01-08 23:46:20

查找?guī)椭�。如果用Fortran Powerstation4，在幫助菜單里找。如果用CVF6.6.在PDF的函數(shù)手冊(cè)里找。幫助里說(shuō)的很清楚，注意數(shù)組是實(shí)數(shù)還是負(fù)數(shù)。

贊一下

回復(fù)此樓

3樓2010-12-15 12:44:13

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

wangxn06

金蟲 (正式寫手)

應(yīng)助: 2 (幼兒園)
金幣: 576.7
散金: 35
帖子: 509
在線: 250.5小時(shí)
蟲號(hào): 1156835
注冊(cè): 2010-11-27
專業(yè): 流體力學(xué)

fagege2010(金幣+1): 2011-01-08 23:46:24

ISML模塊的說(shuō)明中有具體的介紹吧

贊一下

回復(fù)此樓

4樓2010-12-17 18:41:20

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

luoxitc

新蟲 (初入文壇)

應(yīng)助: 0 (幼兒園)
金幣: 1103.9
紅花: 1
帖子: 37
在線: 7.6小時(shí)
蟲號(hào): 635873
注冊(cè): 2008-10-24
性別: GG
專業(yè): 力學(xué)中的基本問(wèn)題和方法

fagege2010(金幣+1): 2011-01-08 23:46:31

用的campaq的還是intel的？

贊一下

回復(fù)此樓

想有件T恤，上面印著空姐的頭像

5樓2010-12-27 19:44:26

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

haiqing1987

銅蟲 (初入文壇)

應(yīng)助: 0 (幼兒園)
金幣: 293.9
帖子: 36
在線: 39.8小時(shí)
蟲號(hào): 1155042
注冊(cè): 2010-11-24
性別: GG
專業(yè): 原子和分子物理

我有例子剛剛研究過(guò)

★ ★
余澤成(金幣+2):謝謝參與應(yīng)助！ 2010-12-31 16:34:25
fagege2010(金幣+1): 2011-01-08 23:46:01
fagege2010(金幣+1): 2011-01-08 23:46:42
fagege2010(金幣+1): 2011-03-07 09:00:45

不廢話直接上代碼：
program main
   use IMSL  ！調(diào)用IMSL,一定要用，而且得保證你的編譯器有這個(gè)庫(kù)
   implicit none
   real :: A(3,3)=(/-1,-4,1,&
               1,3,0,&
               0,0,2 /)
   real :: eigenvalue(3),top
   real :: eigenvector(3,3)
   integer :: i

   eigenvalue=eig(A,v=eigenvector)
！A(n,n) 輸入的矩陣，eigenvalue(n) 得到的本征矢，eigenvector(n,n)對(duì)應(yīng)的本
！證矢量，其中本征矢是降序排列
！如果想得到復(fù)數(shù)數(shù)組用eigenvalue=eig(A,w=eigenvector)

   do i=1,3
   write(*,"('eigenvalue=',f5.2)"

eigenvalue(i)
write(*,"('eigenvector=['3(f5.2'')']')"

eigenvector(:,i)
end do
！top 是驗(yàn)證是否歸一
top=0.d0
do i=1,3
top=top+eigenvector(i,2)**2
enddo
print*,top
stop
end

[ Last edited by haiqing1987 on 2010-12-28 at 19:39 ]

贊一下(1人)

回復(fù)此樓

6樓2010-12-28 19:34:10

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

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

返回列表

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

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

[考研] 本科211生物醫(yī)學(xué)工程085409求調(diào)劑339分 +3	里子木yy 2026-03-29	3/150	2026-03-30 13:29 by gyzj2026
[考研] 310求調(diào)劑 +9	爭(zhēng)取九點(diǎn)睡 2026-03-30	9/450	2026-03-30 11:44 by Wang200018
[考研] 085600 286分材料求調(diào)劑 +10	麻辣魷魚 2026-03-27	11/550	2026-03-29 21:52 by nanaliuyun
[考研] 一志愿南昌大學(xué)324求調(diào)劑 +5	hanamiko 2026-03-29	5/250	2026-03-29 16:46 by 學(xué)員8dgXkO
[考研] 329求調(diào)劑 +10	鈕恩雪 2026-03-25	10/500	2026-03-29 13:32 by peike
[考研] 356求調(diào)劑 +4	gysy?s?a 2026-03-28	4/200	2026-03-29 10:32 by 唐沐兒
[考研] 0856求調(diào)劑 +13	zhn03 2026-03-25	14/700	2026-03-29 08:13 by fmesaito
[考研] 081200-11408-276學(xué)碩求調(diào)劑 +6	崔wj 2026-03-26	6/300	2026-03-29 01:11 by hanserlol
[考研] 315求調(diào)劑 +4	akie... 2026-03-28	5/250	2026-03-28 21:05 by zhq0425
[考研] 343求調(diào)劑 +5	愛(ài)羈絆 2026-03-28	5/250	2026-03-28 20:53 by 唐沐兒
[考研] 生物學(xué)學(xué)碩，一志愿湖南大學(xué)，初試成績(jī)338 +6	YYYYYNNNNN 2026-03-26	7/350	2026-03-28 20:52 by 唐沐兒
[考研] 328求調(diào)劑 +7	嗯滴的基本都 2026-03-27	7/350	2026-03-28 04:19 by fmesaito
[考研] 340求調(diào)劑 +5	jhx777 2026-03-27	5/250	2026-03-28 04:18 by fmesaito
[考研] 一志愿上海理工能源動(dòng)力（085800）310分求調(diào)劑 +3	zhangmingc 2026-03-27	4/200	2026-03-27 19:01 by 給你你注意休息
[考研] 一志愿南師大0703化學(xué) 275求調(diào)劑 +4	Ripcord上岸 2026-03-27	4/200	2026-03-27 17:00 by zhyzzh
[考研] 308求調(diào)劑 +7	墨墨漠 2026-03-25	7/350	2026-03-27 14:47 by 狂炫麥當(dāng)當(dāng)
[考研] 求調(diào)劑 +3	劉柯@ 2026-03-24	4/200	2026-03-27 11:28 by shangxh
[考研] 359求調(diào)劑 +4	王了個(gè)楠 2026-03-25	4/200	2026-03-27 08:43 by 不吃魚的貓
[考研] 考研一志愿蘇州大學(xué)初始315（英一）求調(diào)劑 +3	sbdksD 2026-03-24	4/200	2026-03-25 18:16 by xcjcqu
[考研] 材料考研調(diào)劑生 +3	黃粱一夢(mèng)千年 2026-03-24	3/150	2026-03-24 17:00 by barlinike