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

返回列表

astringent

銅蟲 (著名寫手)

[交流] 【求助】請問如何解決insufficient virtual memory

最近寫了一個程序，里面用了一個大的三維數(shù)組p(8800,758,5000)，但是在運(yùn)行時出現(xiàn)了這個錯誤insufficient virtual memory。我在網(wǎng)上查，說這個錯誤是虛擬內(nèi)存不夠，但是沒找到解決方法，請大家指點(diǎn)？
program get_projection
implicit none
integer i,j,k
integer,allocatable::p(:,:,

allocate(p(8800,758,5000))

p=0
do i=1,8800
do j=1,758
   do k=1,5000
      if(i==j.and.j==k) then
      p(i,j,k)=1
   write(*,*)'test',p,i,j,k
         endif
      enddo
enddo
enddo

end

回復(fù)此樓

» 猜你喜歡

考研調(diào)劑已經(jīng)有4人回復(fù)
281求調(diào)劑已經(jīng)有4人回復(fù)
0805 316求調(diào)劑已經(jīng)有6人回復(fù)
085601求調(diào)劑總分293英一數(shù)二已經(jīng)有3人回復(fù)
08工學(xué)調(diào)劑已經(jīng)有17人回復(fù)
340求調(diào)劑已經(jīng)有4人回復(fù)
311求調(diào)劑已經(jīng)有3人回復(fù)
食品專碩一志愿雙一流 328 已經(jīng)有4人回復(fù)
材料調(diào)劑已經(jīng)有6人回復(fù)
300分，材料，求調(diào)劑，英一數(shù)二已經(jīng)有5人回復(fù)

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

請問cDNA-AFLP中酶切的問題，謝謝大家已經(jīng)有7人回復(fù)
請問有沒有無效離婚的情況,有效期至2012年3月22日已經(jīng)有5人回復(fù)
請問在arcmap中如何加載coverage數(shù)據(jù)？已經(jīng)有6人回復(fù)
請問這個化合物如何命名？化合物結(jié)構(gòu)見圖，謝謝！已經(jīng)有7人回復(fù)
大家說說二十七八歲高血壓的人多么，跟什么有關(guān)啊，如何防治呢？已經(jīng)有13人回復(fù)
【求助】如何選擇較小配體實(shí)現(xiàn)高效Suzuki偶聯(lián)反應(yīng)，并且盡量降低自偶聯(lián)可能性？已經(jīng)有9人回復(fù)
【分享轉(zhuǎn)載】專家指點(diǎn)：高樓著火如何逃生自救？已經(jīng)有6人回復(fù)
【求助】三元相圖軟件安裝后運(yùn)行提示insufficient memory 已經(jīng)有6人回復(fù)
【請教】Virtual Journal of Nanoscale Science and Technology影響力如何已經(jīng)有7人回復(fù)
【求助】請問各位怎樣計(jì)算位錯密度？已經(jīng)有10人回復(fù)
如何用多條直線擬合一條曲線呢？已經(jīng)有6人回復(fù)

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

查看全部散金貼

1樓 2011-03-22 05:37:27

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

sudo

木蟲 (正式寫手)

★ ★
cenwanglai(金幣+2): 謝謝回復(fù)！ 2011-03-23 23:26:44
astringent(金幣+5): 2011-04-01 01:58:03

引用回帖:

Originally posted by astringent at 2011-03-22 05:37:27:
最近寫了一個程序，里面用了一個大的三維數(shù)組p(8800,758,5000)，但是在運(yùn)行時出現(xiàn)了這個錯誤insufficient virtual memory。我在網(wǎng)上查，說這個錯誤是虛擬內(nèi)存不夠，但是沒找到解決方法，請大家指點(diǎn)？
program ge ...

不會fortran，網(wǎng)上搜到：

WinNT/9x上運(yùn)行的Visual Fortran動態(tài)內(nèi)存分配受一些因素的限制，包括交換文件的大小和其它同時運(yùn)行的應(yīng)用程序所需的內(nèi)存大小。如果動態(tài)分配的內(nèi)存太大或試圖使用其它應(yīng)用程序的保護(hù)內(nèi)存會產(chǎn)生一般內(nèi)存保護(hù)錯誤。碰到這類問題可以通過控制面板來改變虛擬內(nèi)存的大小或交換文件的大小，還有一些編程技術(shù)可以降低內(nèi)存需要。

虛擬內(nèi)存的調(diào)整：
右擊“我的電腦”，屬性->高級->“性能”設(shè)置->高級->這個時候就能看到虛擬內(nèi)存更改了

[ Last edited by sudo on 2011-3-22 at 08:48 ]

贊一下(1人)

回復(fù)此樓

2樓2011-03-22 08:42:03

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

holmescn

金蟲 (正式寫手)

★ ★
cenwanglai(金幣+2): 謝謝回復(fù)！ 2011-03-23 23:27:03
astringent(金幣+5): 2011-04-01 01:58:17

8800*758*5000*4/1024/1024/1024=124G

顯然就算你有足夠的虛擬內(nèi)存，這個程序也會慢死的。
解決方法是不用這樣的數(shù)組。修改你的算法，使每次計(jì)算的格點(diǎn)保持在你內(nèi)存允許的范圍內(nèi)，然后，將結(jié)果寫入文件，并重復(fù)這種讀文件，計(jì)算，寫入文件的過程。

贊一下(1人)

回復(fù)此樓

3樓2011-03-22 09:25:56

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

astringent

銅蟲 (著名寫手)

引用回帖:

Originally posted by holmescn at 2011-03-22 09:25:56:
8800*758*5000*4/1024/1024/1024=124G

顯然就算你有足夠的虛擬內(nèi)存，這個程序也會慢死的。
解決方法是不用這樣的數(shù)組。修改你的算法，使每次計(jì)算的格點(diǎn)保持在你內(nèi)存允許的范圍內(nèi)，然后，將結(jié)果寫入文件，并重 ...

首先感謝您的解答。因?yàn)槭切率�，所以不是特別理解你說的，能不能給個可以實(shí)現(xiàn)你的說法的小程序的例子，先多謝了。

贊一下

回復(fù)此樓

4樓2011-03-22 15:54:08

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

holmescn

金蟲 (正式寫手)

主要看你要算啥。

回復(fù)此樓

5樓2011-03-22 18:40:52

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

astringent

銅蟲 (著名寫手)

引用回帖:

Originally posted by holmescn at 2011-03-22 18:40:52:
主要看你要算啥。

我的想法是：有兩組數(shù)，第一組是a1,a2----a30000,第二組b1,b2---b800分別存在數(shù)組A，B中，一共5000步的循環(huán)。假如第一步時，數(shù)組A中的數(shù)與數(shù)組B中的數(shù)是否滿足一定的條件condition，如果滿足，就檢查在之后循環(huán)中這種關(guān)系是否仍然存在，如果存在就用一個函數(shù)標(biāo)記。其實(shí)我要實(shí)現(xiàn)的就是找出這個標(biāo)記函數(shù)。我用了一個三維數(shù)組h標(biāo)記，程序如下：
h=0
do istep=1,5000
do i=1,30000
      do j=1,800
         if(a(i)*b(j)==1) then
            h（j,i,istep）=1
            endif
      enddo
   enddo
enddo
現(xiàn)在的問題是這個三維數(shù)組h太大，應(yīng)該怎樣寫這個程序才能實(shí)現(xiàn)我的想法。

贊一下

回復(fù)此樓

6樓2011-03-22 20:08:24

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

magic7004

金蟲 (職業(yè)作家)

★ ★
cenwanglai(金幣+2): 好辦法，謝謝回復(fù)！ 2011-03-23 23:27:37

把數(shù)據(jù)放在硬盤上，用一點(diǎn)讀一點(diǎn)，不要全部加載到內(nèi)存中。

參考windows內(nèi)存映射文件

贊一下(1人)

回復(fù)此樓

7樓2011-03-22 20:17:30

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

sudo

木蟲 (正式寫手)

★ ★ ★
cenwanglai(金幣+3): 謝謝回復(fù)，sudo給力！ 2011-03-23 23:28:11
astringent(金幣+5): 2011-04-01 01:59:30

引用回帖:

Originally posted by astringent at 2011-03-22 20:08:24:
我的想法是：有兩組數(shù)，第一組是a1,a2----a30000,第二組b1,b2---b800分別存在數(shù)組A，B中，一共5000步的循環(huán)。假如第一步時，數(shù)組A中的數(shù)與數(shù)組B中的數(shù)是否滿足一定的條件condition，如果滿足，就檢查在之后循環(huán) ...

不知道fortran有沒有位運(yùn)算......你那個標(biāo)記僅僅是0和1的話，用一個整型數(shù)存儲實(shí)在是太浪費(fèi)了....

另外，你可以預(yù)先估計(jì)一下h是不是稀疏矩陣.....

呃，其實(shí)從你程序的片段中看不出來那個step起到了什么作用，也沒看出你之后想如何處理h（h的信息有什么用？）

---------------------------------------------------------
以上都是技巧上的建議，但，在算法上改進(jìn)一小步，你的程序就進(jìn)步一大步，最終的解決之道還是得找好算法

贊一下(1人)

回復(fù)此樓

8樓2011-03-22 21:14:10

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

holmescn

金蟲 (正式寫手)

★ ★
cenwanglai(金幣+2): 謝謝holmescn專家 2011-03-23 23:28:38
astringent(金幣+5): 2011-04-01 01:59:02

顯然你想記錄的就是 i j step 這三個數(shù)，而且還有一個條件限制，我想h 應(yīng)該是一個稀疏矩陣，所以不如把 i j step 都寫入文件，判斷的時候再讀入

CODE:

open(10, "h.txt")

lines = 0

do istep=1,5000

    do i=1,30000

         do j=1,800

             if(a(i)*b(j)==1) then

               write(10,'(3A7)'), i, j, istep

                lines = lines + 1

               endif

          enddo

     enddo

enddo

close(10)

open(20, 'h.txt')

do k = 1, lines

     read(20, '(3A7)'), i,j,istep

     ! do something

enddo

close(20)

贊一下(1人)

回復(fù)此樓

9樓2011-03-23 08:34:17

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

astringent

銅蟲 (著名寫手)

引用回帖:

Originally posted by holmescn at 2011-03-23 08:34:17:
顯然你想記錄的就是 i j step 這三個數(shù)，而且還有一個條件限制，我想h 應(yīng)該是一個稀疏矩陣，所以不如把 i j step 都寫入文件，判斷的時候再讀入

[code]
open(10, "h.txt"

lines = 0
do istep=1, ...

我已經(jīng)把i,j,istep都輸出到文件了，但是我需要計(jì)算相關(guān)函數(shù)，也就是說如果第一步出現(xiàn)120，,30，istep（分別對應(yīng)i,j,istep），看看在istep=2,3,4-----3000時是否依然存在，所以我就將這種存在關(guān)系寫在了三位矩陣h（i,j,istep）中，因?yàn)樵诤竺娴某绦蛑�，我使用了h作為判斷條件，下面的程序就是我想要做的，應(yīng)該如何該，才能避免使用這個大的三位數(shù)組h？？
h=0
open (10,file='test.out')
do i=1,99999999
   read(10,*,end=2,err=2) istep,ia,ib
   h(istep,ia,ib)=1
enddo
2 continue
close(10)
do ia=1,30000
do ib=1,800
      do istep=1,5000
            h(istep)=h(istep,ia,ib)
      enddo
      do ntel=1,nsteps
            if(h(ntel)/=0) then
            進(jìn)行后面的程序
            -----------------
            endif
      enddo
      enddo
enddo

贊一下

回復(fù)此樓

11樓2011-03-23 16:05:53

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

簡單回復(fù)

tjtj44010樓

2011-03-23 10:07 回復(fù)

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

返回列表

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

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

[考研] 281求調(diào)劑 +3	Koxui 2026-03-24	4/200	2026-03-24 22:59 by barlinike
[考研] 材料學(xué)碩333求調(diào)劑 +3	北道巷 2026-03-24	3/150	2026-03-24 19:17 by pswait
[考研] 080500求調(diào)劑 +3	zzzzfan 2026-03-24	3/150	2026-03-24 16:38 by barlinike
[考博] 申博26年 +4	八6八68 2026-03-19	4/200	2026-03-24 15:49 by 小Ben呵呵
[基金申請] 請教下大家 2026年國家基金申請是雙盲審嗎？ +3	lishucheng1 2026-03-22	5/250	2026-03-24 08:22 by gltch
[考研] 一志愿山東大學(xué)藥學(xué)學(xué)碩求調(diào)劑 +3	開開心心沒煩惱 2026-03-23	4/200	2026-03-24 00:06 by 開開心心沒煩惱
[考研] 335求調(diào)劑 +4	yuyu宇 2026-03-23	5/250	2026-03-23 23:49 by Txy@872106
[考研] 361求調(diào)劑 +3	Glack 2026-03-22	3/150	2026-03-23 22:03 by fuyu_
[論文投稿] 急發(fā)核心期刊論文 +3	賢達(dá)問津 2026-03-23	5/250	2026-03-23 17:13 by 妹子不好惹
[考研] 352求調(diào)劑 +3	大米飯！ 2026-03-22	3/150	2026-03-22 23:28 by king123！
[考研] 317求調(diào)劑 +12	申子申申 2026-03-19	18/900	2026-03-22 22:23 by luoyongfeng
[考研] 308求調(diào)劑 +3	墨墨漠 2026-03-21	3/150	2026-03-22 16:54 by i_cooler
[考研] 085700資源與環(huán)境308求調(diào)劑 +12	墨墨漠 2026-03-18	13/650	2026-03-21 01:42 by JourneyLucky
[考研] 22408 344分求調(diào)劑一志愿華電計(jì)算機(jī)技術(shù) +4	solanXXX 2026-03-20	4/200	2026-03-20 23:49 by alg094825
[考研] 295求調(diào)劑 +4	一志愿京區(qū)211 2026-03-18	6/300	2026-03-20 23:41 by JourneyLucky
[考研] 330求調(diào)劑 +4	小材化本科 2026-03-18	4/200	2026-03-20 23:13 by JourneyLucky
[考研] 材料與化工 322求調(diào)劑 +4	然11 2026-03-19	4/200	2026-03-20 22:12 by luoyongfeng
[考研] 中南大學(xué)化學(xué)學(xué)碩337求調(diào)劑 +3	niko- 2026-03-19	6/300	2026-03-20 21:58 by luoyongfeng
[考研] 一志愿西南交通專碩材料355 本科雙非求調(diào)劑 +5	西南交通專材355 2026-03-19	5/250	2026-03-20 21:10 by JourneyLucky
[考研] 一志愿南京航空航天大學(xué)大學(xué) ，080500材料科學(xué)與工程學(xué)碩 +5	@taotao 2026-03-20	5/250	2026-03-20 20:16 by JourneyLucky

24小時熱門版塊排行榜

[交流] 【求助】請問如何解決insufficient virtual memory

» 猜你喜歡

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

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

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

查看全部散金貼