 |
 |
 |
 |
 |
 |
||
 |
 |
 |
 |
 |
| 5 | 1/1 | 返回列表 |
| 查看: 1123 | 回復: 4 | ||
| 當前只顯示滿足指定條件的回帖，點擊這里查看本話題的所有回帖 | ||
[求助]
DLA模型，F(xiàn)ortran 代碼，出現(xiàn)問題
|
||
|
一個DLA模型的Fortran代碼，能編譯，能運行，但是出來的結構不對。畫出的圖形除了中間有點外，四個角上也有點存在，不知道哪里有問題。希望各位蟲友看看，不勝感激！ program dla implicit none parameter M=100 parameter N=100 parameter Particles=2000 integer :: A(M,N) integer :: i, j, counter, p real(4):: s, num1, num2, num3 open (30,file="dla2d.dat"  do i =1, M do j=1, N A(i,j)=0 enddo enddo A(50,50)=1 counter=0 do while (counter .LT. Particles) counter=counter+1 write (*,*) 'Current Particles is ', counter call random_number(num1) i=1+int(num1*(N-1)) call random_number(num2) j=1+int(num2*(N-1)) p=0 55 do while (p.EQ.0) call random_number(num3) s = num3 if(s.LE.0.25) then j=j+1 elseif(s.LE.0.50) then j=j-1 elseif(s.LE. 0.75) then i=i+1 else i=i-1 endif if (j.EQ.N+1) then j=1 goto 55 endif if (j.EQ.0) then j=N goto 55 endif if (i .EQ. M+1) then i=1 goto 55 endif if (i.EQ.0) then i=M goto 55 endif if(A(i,j-1).EQ.1.OR.A(i,j+1).EQ.1.OR.A(i+1,j).EQ.1.OR.A(i-1,j).EQ.1) then A(i,j)=1 write(30,*) i, j p=10 endif enddo enddo end program dla DLA結果 |
回復此樓» 本帖已獲得的紅花（最新10朵）
wup123» 猜你喜歡
08工科275分求調劑
已經有13人回復
-
材料工程322分
已經有6人回復
-
一志愿北京科技大學085601材料工程英一數二初試總分335求調劑
已經有7人回復
-
274求調劑
已經有5人回復
-
【求調劑】新能源材料本科，一志愿211，初試321
已經有3人回復
-
材料考研調劑
已經有3人回復
-
材料調劑
已經有12人回復
-
英一數一408，總分284，二戰(zhàn)真誠求調劑
已經有14人回復
-
085410 一志愿211 22408分數359求調劑
已經有4人回復
-
271求調劑
已經有19人回復
» 本主題相關價值貼推薦，對您同樣有幫助:
- Fortran 編譯問題
已經有9人回復
- Fortran的格式化輸入輸出問題
已經有14人回復
- Fortran 95／2003科學計算與工程 對應的各章程序源代碼
已經有16人回復
- 有關fortran的一次而問題，希望大家能幫幫忙，謝謝
已經有4人回復
- 【整理】今天整理硬盤上的資料，偶然發(fā)現(xiàn)的好玩的小東西就直接發(fā)上來吧
已經有105人回復
- 【求助】intel fortran for linux的問題
已經有4人回復
1234liang
木蟲 (正式寫手)
- 應助: 70 (初中生)
- 金幣: 1661.4
- 紅花: 8
- 帖子: 629
- 在線: 97.1小時
- 蟲號: 1538562
- 注冊: 2011-12-15
- 性別: GG
- 專業(yè): 金屬功能材料
4樓2012-10-17 16:18:43
linnature
新蟲 (初入文壇)
- 應助: 0 (幼兒園)
- 金幣: 2.2
- 帖子: 4
- 在線: 3.9小時
- 蟲號: 1959201
- 注冊: 2012-08-27
- 專業(yè): 凝聚態(tài)物性 II ：電子結構
2樓2012-08-29 09:54:11
3樓2012-09-01 20:06:39
5樓2012-10-17 20:39:04
| 最具人氣熱帖推薦 [查看全部] | 作者 | 回/看 | 最后發(fā)表 | |
|---|---|---|---|---|
|
[考研] 385分 生物學（071000）求調劑 +3 | qf626 2026-04-01 | 3/150 |
|
|---|---|---|---|---|
|
[考研] 070300化學279求調劑 +15 | 哈哈哈^_^ 2026-03-31 | 17/850 |
|
|
|
[考研] 材料調劑 +14 | 一樣YWY 2026-04-01 | 14/700 |
|
|
|
[考研] 307分求調劑 +14 | (o~o) 2026-03-31 | 15/750 |
|
|
|
[考研] 085601一志愿中山大學深圳材料工程330求調劑 +6 | pipiver 2026-03-30 | 6/300 |
|
|
|
[考研] 一志愿北交材料工程總分358 +5 | cs0106 2026-04-01 | 7/350 |
|
|
|
[考研] 化學0703 調劑 306分 一志愿211 +12 | 26要上岸 2026-03-28 | 12/600 |
|
|
|
[考研] 339求調劑 +5 | zjjkt 2026-03-31 | 5/250 |
|
|
|
[考研] 333求調劑 +4 | 阿科逸 2026-03-31 | 4/200 |
|
|
|
[考研] 本2一志愿C9-333分，材料科學與工程，求調劑 +9 | 升升不降 2026-03-31 | 9/450 |
|
|
|
[考研] 318求調劑 +10 | 陳晨79 2026-03-30 | 10/500 |
|
|
|
[考研] 083000學碩274求調劑 +12 | Li李魚 2026-03-26 | 12/600 |
|
|
|
[考研] 吉大生物學326分求調劑 +3 | sunnyupup 2026-03-31 | 3/150 |
|
|
|
[考研] 環(huán)境科學與工程334分求調劑 +6 | 王一一依依 2026-03-30 | 8/400 |
|
|
|
[考研] 298求調劑 +3 | 種圣賜 2026-03-29 | 3/150 |
|
|
|
[考研] 352分 化工與材料 +5 | 海納百川Ly 2026-03-27 | 5/250 |
|
|
|
[考研] 330一志愿中國海洋大學 化學工程 085602 有讀博意愿 求調劑 +3 | wywy.. 2026-03-27 | 4/200 |
|
|
|
[考研] 315調劑 +4 | 0860求調劑 2026-03-26 | 5/250 |
|
|
|
[考研] 341求調劑 +7 | 青檸檬1 2026-03-26 | 7/350 |
|
|
|
[考研] 環(huán)境專碩324分求調劑推薦 +5 | 軒小寧—— 2026-03-26 | 5/250 |
|