 |
 |
 |
 |
 |
 |
||
 |
 |
 |
 |
 |
| 4 | 1/1 | 返回列表 |
| 查看: 963 | 回復(fù): 3 | ||
河邊草吧新蟲(chóng) (初入文壇)
|
[求助]
幫忙解釋一下這段fortran程序
|
|
INTEGER(2) STATUS DO I=1, N DO J=1, N PH(I,J)=0.0 FT(I,J)=0.0 END DO END DO NHTM=2**NUHTM ! 2^NUHTM為計(jì)算子孔徑光斑的付氏變換點(diǎn)陣數(shù) K=NHTM/2+1 M=INT(NSA/2) DO 200 L=1, NH I0=IC(L) J0=JC(L) DO 100 I=-M, M I1=I0+I DO 100 J=-M, M J1=J0+J FT(K+I,K+J)=CMPLX(XR(I1,J1),XI(I1,J1)) 100 CONTINUE NU0=NUHTM CALL FFTDB(NU0) I0=IH(L)-K !IH(M),JH(M): H-S子孔徑中心座標(biāo) J0=JH(L)-K DO I=1, NHTM I1=I0+I DO J=1, NHTM J1=J0+J X=FT(I,J) PH(I1,J1)=PH(I1,J1)+X*CONJG(X) END DO END DO do i=1, nhtm do j=1, nhtm ft(i,j)=0.0 end do end do 200 CONTINUE R=PI/FLOAT(NHTM) M=K-1 DO 500 L=1, NH I0=IH(L) J0=JH(L) X1=0.0 Y1=0.0 U=0.0 DO I=-M+1, M I1=I0+I DO J=-M+1, M J1=J0+J V=PH(I1,J1) U=U+V X1=X1+I*V Y1=Y1+J*V END DO END DO V=R/U IF(U.NE.0.0) THEN TX(L)=V*X1-TX0(L) TY(L)=V*Y1-TY0(L) END IF 500 continue IF(IWS.EQ.0) THEN X1=0.0 Y1=0.0 DO 600 L=1, NH X1=X1+TX(L) Y1=Y1+TY(L) 600 CONTINUE X1=X1/NH Y1=Y1/NH DO 800 J=1, NH TX(J)=TX(J)-X1 800 TY(J)=TY(J)-Y1 TXM=X1-TXM0 TYM=Y1-TYM0 END IF call graph(2) STATUS = SETCOLOR(12) is=nccd/ns !ns,光束直徑上的子孔徑數(shù);NCCD為傳感器點(diǎn)陣數(shù) js=is/2 DO I=1, NH ii=ih(i)-js+356 jj=jh(i)-js+310 STATUS = RECTANGLE($GBORDER,II,JJ,II+IS,JJ+IS) end do return END |
回復(fù)此樓» 猜你喜歡
085600 286分 材料求調(diào)劑
已經(jīng)有11人回復(fù)
-
一志愿河北工業(yè)大學(xué)0817化工278分求調(diào)劑
已經(jīng)有15人回復(fù)
-
085601材料工程找調(diào)劑
已經(jīng)有15人回復(fù)
-
材料與化工272求調(diào)劑
已經(jīng)有15人回復(fù)
-
南京大學(xué)化學(xué)調(diào)劑
已經(jīng)有14人回復(fù)
-
一志愿北京工業(yè)大學(xué)，324分求調(diào)劑
已經(jīng)有6人回復(fù)
-
求調(diào)劑
已經(jīng)有5人回復(fù)
-
281求調(diào)劑
已經(jīng)有6人回復(fù)
-
26申博自薦
已經(jīng)有6人回復(fù)
-
一志愿哈爾濱工業(yè)大學(xué)材料與化工方向336分
已經(jīng)有10人回復(fù)
» 本主題相關(guān)價(jià)值貼推薦，對(duì)您同樣有幫助:
- 求高人幫忙看一下我這個(gè)Fortran程序的錯(cuò)誤出在哪里？
已經(jīng)有12人回復(fù)
- 一個(gè)FORTRAN90程序，越界了，希望高手幫助
已經(jīng)有5人回復(fù)
- 有會(huì)看fortran程序的，能幫忙看看這個(gè)程序嗎？
已經(jīng)有10人回復(fù)
- 哪位幫忙寫(xiě)份Fortran程序？
已經(jīng)有10人回復(fù)
- 有關(guān)fortran的一次而問(wèn)題，希望大家能幫幫忙，謝謝
已經(jīng)有4人回復(fù)
- 寫(xiě)了一個(gè)fortran90的小程序，編譯通不過(guò)，請(qǐng)大俠幫忙
已經(jīng)有59人回復(fù)
- 【求助】讀文本數(shù)據(jù)出現(xiàn)段錯(cuò)誤[fortran]
已經(jīng)有14人回復(fù)
- 【求助】用fortran怎么描述下面這樣的情況，我是新手，請(qǐng)大家?guī)兔?/a>
已經(jīng)有8人回復(fù)
- 【求助】下面這個(gè)公式怎么用FORTRAN實(shí)現(xiàn)
已經(jīng)有7人回復(fù)
- 【求助】請(qǐng)問(wèn)一下fortran的可視化編程
已經(jīng)有7人回復(fù)
- 【求助】求助個(gè)Fortran計(jì)算，應(yīng)該不難，半天搞不定，請(qǐng)高手幫忙
已經(jīng)有11人回復(fù)
janecool
鐵桿木蟲(chóng) (著名寫(xiě)手)
- 物理EPI: 1
- 應(yīng)助: 54 (初中生)
- 貴賓: 0.006
- 金幣: 5996.2
- 散金: 342
- 紅花: 12
- 帖子: 2070
- 在線: 626.6小時(shí)
- 蟲(chóng)號(hào): 830148
- 注冊(cè): 2009-08-18
- 性別: GG
- 專業(yè): 粒子物理學(xué)和場(chǎng)論
2樓2012-04-20 21:16:52
yiluwangxi
木蟲(chóng) (著名寫(xiě)手)
- 應(yīng)助: 147 (高中生)
- 金幣: 2919.1
- 散金: 386
- 紅花: 22
- 帖子: 1939
- 在線: 1323.7小時(shí)
- 蟲(chóng)號(hào): 829297
- 注冊(cè): 2009-08-17
- 性別: GG
- 專業(yè): 聲學(xué)
3樓2012-04-20 23:19:16
未注冊(cè)用戶
木蟲(chóng) (職業(yè)作家)
- 應(yīng)助: 50 (小學(xué)生)
- 金幣: 3550.1
- 散金: 928
- 紅花: 8
- 帖子: 3340
- 在線: 546.2小時(shí)
- 蟲(chóng)號(hào): 1227538
- 注冊(cè): 2011-03-10
- 性別: GG
- 專業(yè): 光學(xué)
4樓2012-04-21 09:25:16
相關(guān)版塊跳轉(zhuǎn)
我要訂閱樓主 河邊草吧 的主題更新
| 4 | 1/1 | 返回列表 |
| 最具人氣熱帖推薦 [查看全部] | 作者 | 回/看 | 最后發(fā)表 | |
|---|---|---|---|---|
|
[考研] 材料專碩調(diào)劑 +5 | 椰椰。 2026-03-29 | 5/250 |
|
|---|---|---|---|---|
|
[考研] 307求調(diào)劑 +9 | 超級(jí)伊昂大王 2026-03-24 | 10/500 |
|
|
|
[考研] 289求調(diào)劑 +5 | BrightLL 2026-03-29 | 5/250 |
|
|
|
[考研] 343求調(diào)劑 +6 | 愛(ài)羈絆 2026-03-29 | 6/300 |
|
|
|
[考研] 本科雙非材料，跨考一志愿華電085801電氣，283求調(diào)劑，任何專業(yè)都可以 +6 | 芝士雪baoo 2026-03-28 | 8/400 |
|
|
|
[考研] 數(shù)一英一271專碩（085401）求調(diào)劑，可跨 +7 | 前行必有光 2026-03-28 | 8/400 |
|
|
|
[考研] 346求調(diào)劑 一志愿070303有機(jī)化學(xué) +3 | 蘿卜燉青菜 2026-03-28 | 3/150 |
|
|
|
[考研] 求化學(xué)調(diào)劑 +4 | wulanna 2026-03-28 | 4/200 |
|
|
|
[考研] 085701環(huán)境工程，267求調(diào)劑 +16 | minht 2026-03-26 | 16/800 |
|
|
|
[材料工程] 一志愿C9材料與化工專業(yè)總分300求調(diào)劑 +8 | 曼111 2026-03-24 | 9/450 |
|
|
|
[考研] 張芳銘-中國(guó)農(nóng)業(yè)大學(xué)-環(huán)境工程專碩-298 +4 | 手機(jī)用戶 2026-03-26 | 4/200 |
|
|
|
[考研] 材料求調(diào)劑 一志愿哈工大總分298分，前三科223分 +5 | dongfang59 2026-03-27 | 5/250 |
|
|
|
[考研] 0703化學(xué)求調(diào)劑，各位老師看看我�。�！ +5 | 祁祺祺 2026-03-25 | 5/250 |
|
|
|
[考研] 265求調(diào)劑11408 +3 | 劉小鹿lu 2026-03-27 | 3/150 |
|
|
|
[論文投稿] Journal of Mechanical Science and Technology +3 | Russ_ss 2026-03-25 | 5/250 |
|
|
|
[考研] 292求調(diào)劑 +4 | 求求了收下我吧?/a> 2026-03-26 | 4/200 |
|
|
|
[考研] 342求調(diào)劑 +3 | 加油a李zs 2026-03-26 | 3/150 |
|
|
|
[考研] 309求調(diào)劑 +4 | gajsj 2026-03-25 | 5/250 |
|
|
|
[考研] 一志愿北化315 求調(diào)劑 +3 | akrrain 2026-03-24 | 3/150 |
|
|
|
[考研] 269求調(diào)劑 +4 | 我想讀研11 2026-03-23 | 4/200 |
|