 |
 |
 |
 |
 |
 |
||
 |
 |
 |
 |
 |
| 5 | 1/1 | 返回列表 |
| 查看: 2826 | 回復(fù): 8 | ||||
| 當(dāng)前只顯示滿足指定條件的回帖，點(diǎn)擊這里查看本話題的所有回帖 | ||||
[求助]
求助Fortran編程
|
||||
|
長(zhǎng)方形圖形見附件，長(zhǎng)方形尺寸已確定1mm*2mm，網(wǎng)格間距10微米，圖形內(nèi)的弧線上點(diǎn)的坐標(biāo)值已知，如何判定圖形內(nèi)的節(jié)點(diǎn)是屬于a區(qū)域還是屬于b區(qū)域呢？ |
回復(fù)此樓» 收錄本帖的淘帖專輯推薦
 Monte Carlo 模擬（fortran 編程） | fortran 原子距離 |
» 本帖已獲得的紅花（最新10朵）
liangyje» 猜你喜歡
352分-085602-一志愿985
已經(jīng)有3人回復(fù)
-
291求調(diào)劑
已經(jīng)有4人回復(fù)
-
330分求調(diào)劑
已經(jīng)有4人回復(fù)
-
309求調(diào)劑
已經(jīng)有4人回復(fù)
-
0856求調(diào)劑
已經(jīng)有13人回復(fù)
-
0703化學(xué)
已經(jīng)有11人回復(fù)
-
329求調(diào)劑
已經(jīng)有7人回復(fù)
-
321求調(diào)劑
已經(jīng)有8人回復(fù)
-
0856材料化工調(diào)劑 總分330
已經(jīng)有12人回復(fù)
-
070300化學(xué)354求調(diào)劑
已經(jīng)有4人回復(fù)
» 本主題相關(guān)價(jià)值貼推薦，對(duì)您同樣有幫助:
- 【求助】如何寫FORTRAN程序?qū)崿F(xiàn)求平均最近鄰距離
已經(jīng)有34人回復(fù)
- 【求助】初學(xué)fortran，
已經(jīng)有15人回復(fù)
- 【求助】ANSYS 中命令流編程（fortran）
已經(jīng)有11人回復(fù)
- 【求助】求指點(diǎn)，在Fortran里面，怎樣實(shí)現(xiàn)“數(shù)組維度可調(diào)”的數(shù)組?
已經(jīng)有5人回復(fù)
- 【求助】請(qǐng)問一下fortran的可視化編程
已經(jīng)有7人回復(fù)
- 【求助】Intel Visual Fortran與Compaq Visual Fortran的區(qū)別？
已經(jīng)有18人回復(fù)
- 【求助】有關(guān)fortran進(jìn)行數(shù)值模擬
已經(jīng)有10人回復(fù)
superstat54
木蟲 (小有名氣)
- 應(yīng)助: 0 (幼兒園)
- 金幣: 3809.1
- 散金: 136
- 紅花: 10
- 帖子: 256
- 在線: 146.8小時(shí)
- 蟲號(hào): 1327326
- 注冊(cè): 2011-06-20
- 專業(yè): 催化化學(xué)
7樓2011-09-25 19:28:04
snoopyzhao
至尊木蟲 (職業(yè)作家)
- 程序強(qiáng)帖: 16
- 應(yīng)助: 157 (高中生)
- 貴賓: 0.02
- 金幣: 18844.7
- 紅花: 29
- 帖子: 3803
- 在線: 1422.4小時(shí)
- 蟲號(hào): 183750
- 注冊(cè): 2006-02-13
- 專業(yè): 污染生態(tài)化學(xué)
2樓2011-09-15 19:34:16
4樓2011-09-21 08:58:38
superstat54
木蟲 (小有名氣)
- 應(yīng)助: 0 (幼兒園)
- 金幣: 3809.1
- 散金: 136
- 紅花: 10
- 帖子: 256
- 在線: 146.8小時(shí)
- 蟲號(hào): 1327326
- 注冊(cè): 2011-06-20
- 專業(yè): 催化化學(xué)
【答案】應(yīng)助回帖
★ ★ ★
余澤成(金幣+3): 謝謝參與應(yīng)助！ 2011-09-24 20:18:03
liangyje(金幣+20): 2011-09-25 11:21:13
liangyje(金幣+5): 2011-09-28 21:54:07
余澤成(金幣+3): 謝謝參與應(yīng)助！ 2011-09-24 20:18:03
liangyje(金幣+20): 2011-09-25 11:21:13
liangyje(金幣+5): 2011-09-28 21:54:07
|
!程序說明 !1 初始文件準(zhǔn)備：把弧線上的點(diǎn)的坐標(biāo)存在arc.txt文件里，文件的第一行為點(diǎn)的個(gè)數(shù)， ! 下面的每一行分別為x、y坐標(biāo)值；如下： ! 3 ! 0.01 0.5 ! 0.02 0.49 ! 0.03 0.47 !2 結(jié)果文件為result.txt，輸出nw*nl的矩陣，對(duì)應(yīng)各個(gè)網(wǎng)格，如果該網(wǎng)格屬于a則值為1，否則為0 ! ! ! PROGRAM TEST implicit none integer :: i, j, k integer :: nw, nl, n, log real :: with, length, d integer,allocatable :: flag(:,  , point(real,allocatable :: arc(:, !============================================= write(*, *) '程序說明' write(*, *) ' 1 初始文件準(zhǔn)備：把弧線上的點(diǎn)的坐標(biāo)存在arc.txt文件里，文件的第一行為點(diǎn)的個(gè)數(shù)，' write(*, *) ' 下面的每一行分別為x、y坐標(biāo)值；如下：' write(*, *) ' 3' write(*, *) ' 0.01 0.5 ' write(*, *) ' 0.02 0.49 ' write(*, *) ' 0.03 0.47 ' write(*, *) ' 2 結(jié)果文件為result.txt，輸出nw*nl的矩陣，對(duì)應(yīng)各個(gè)網(wǎng)格 ' write(*, *) '如果該網(wǎng)格屬于a則值為1，否則為0 ' write(*, *) '是否準(zhǔn)備好初始文件？（是，輸入1；否，輸入2)' read(*, *) log if (log.eq.1) then continue else write(*, *) '沒有進(jìn)行判斷！' goto 3000 endif !============================================= !初始化，矩形長(zhǎng)(length)、寬(with)，網(wǎng)格間距(d) with = 1 length = 2 d = 0.01 !計(jì)算nw，nl值，即共有nw*nl個(gè)網(wǎng)格 nw = with/d nl = length/d allocate(flag(nw, nl), point(nl)) !=================================== !讀取弧線上點(diǎn)的坐標(biāo) open(11, file = 'arc.txt') read(11, *) n allocate(arc(n, 2)) do i = 1, n read(11, *) (arc(i, j), j = 1, 2) enddo close(11) !============================================= !找到屬于a的區(qū)域，point(i)表示，第i列的前point(i)行的網(wǎng)格屬于a point = 0 flag = 0 do j = 1, n point(j) = arc(j, 2)/d !write(*, *) point(j) !read(*, *) enddo !屬于a的網(wǎng)格賦值為1 do j = 1, n do i = 1, point(j) flag(i, j) = 1 enddo enddo !輸出結(jié)果 open(12, file ='result.txt') do i = 1, nw do j = 1, nl write(12, '((I4))', advance='no') flag(i, j) enddo write(12, *) enddo close(12) write(*, *) '結(jié)果輸出完畢' 3000 continue END PROGRAM |
5樓2011-09-24 17:01:45
| 最具人氣熱帖推薦 [查看全部] | 作者 | 回/看 | 最后發(fā)表 | |
|---|---|---|---|---|
|
[考研] 2026年華南師范大學(xué)歡迎化學(xué)，化工，生物，生醫(yī)工等專業(yè)優(yōu)秀學(xué)子加入！ +3 | llss0711 2026-03-28 | 5/250 |
|
|---|---|---|---|---|
|
[考研] 295求調(diào)劑 +4 | wei-5 2026-03-26 | 4/200 |
|
|
|
[考研] 083000學(xué)碩274求調(diào)劑 +8 | Li李魚 2026-03-26 | 8/400 |
|
|
|
[考研] 求化學(xué)調(diào)劑 +4 | wulanna 2026-03-28 | 4/200 |
|
|
|
[考研] 286求調(diào)劑 +4 | 丟掉懶惰 2026-03-27 | 7/350 |
|
|
|
[考研] 291求調(diào)劑 +7 | 孅華 2026-03-22 | 7/350 |
|
|
|
[考研] 265求調(diào)劑 +8 | 小木蟲085600 2026-03-27 | 8/400 |
|
|
|
[考研] 070300化學(xué)求調(diào)劑 +4 | 起個(gè)名咋這么難 2026-03-27 | 4/200 |
|
|
|
[考博] 26申博 +3 | 加油沖��！ 2026-03-26 | 3/150 |
|
|
|
[考研] 316求調(diào)劑 +5 | Pigcasso 2026-03-24 | 5/250 |
|
|
|
[考研] 333求調(diào)劑 +3 | question挽風(fēng) 2026-03-23 | 3/150 |
|
|
|
[考研] 材料求調(diào)劑 +5 | .m.. 2026-03-25 | 5/250 |
|
|
|
[考研] 求調(diào)劑，一志愿 南京航空航天大學(xué)大學(xué) ，080500材料科學(xué)與工程學(xué)碩 +4 | @taotao 2026-03-26 | 5/250 |
|
|
|
[考研] 341求調(diào)劑 +7 | 青檸檬1 2026-03-26 | 7/350 |
|
|
|
[考研] 085601求調(diào)劑總分293英一數(shù)二 +4 | 鋼鐵大炮 2026-03-24 | 4/200 |
|
|
|
[考研] 打過很多競(jìng)賽，085406控制工程300分，求調(diào)劑 +3 | askeladz 2026-03-26 | 3/150 |
|
|
|
[考研] 0854電子信息求調(diào)劑 324 +4 | Promise-jyl 2026-03-23 | 4/200 |
|
|
|
[考研] 生物學(xué)學(xué)碩求調(diào)劑 +7 | 小羊睡著了? 2026-03-23 | 10/500 |
|
|
|
[考研] 一志愿武理085500機(jī)械專業(yè)總分300求調(diào)劑 +3 | an10101 2026-03-24 | 7/350 |
|
|
|
[考研] 361求調(diào)劑 +3 | Glack 2026-03-22 | 3/150 |
|