作者cool123415 (qq)
看板Fortran
標題[問題] 沿著邊界切割成小塊的element
時間Thu Jun 16 03:30:30 2011
我是fortran程式新手
現在有一個作業是要把一個長方體
沿著x軸20(長度)和y軸15(長度)大小
我現在4個邊先假設都要分20段
請問要如何寫出以(0,0)為起點
然後逆時針繞一圈
例如點二就是(1.0) 三 (2,0)
謝謝大家可以回覆我的問題
--
※ 發信站: 批踢踢實業坊(ptt.cc)
◆ From: 140.112.217.10
1F：→ ySHUNy:土法煉鋼四個迴圈 06/16 09:44
2F：推 callmei:BEM?? 做i=1 to 20的迴圈，則四個邊的ELEMENT編號分別為: 06/16 12:52
3F：→ callmei:i、i+20、i+40、i+60，而四個邊的node座標則為 06/16 12:53
4F：→ callmei:(DBLE(i-1)*dx,0d0)、(15d0,DBLE(i-1)*dy) 06/16 12:55
5F：→ callmei:(20d0-DBLE(i-1)*dx,15d0)、(0d0,15d0-DBLE(i-1)*dy) 06/16 12:56
6F：→ callmei:上上行的第二組座標打錯了XD 應該是(20d0,DBLE(i-1)*dy) 06/16 12:57
7F：→ callmei:如果會寫隱藏式迴圈的話，會更簡短 06/16 12:59
8F：推 callmei:喔忘了說 dx、dy是上下與左右邊上node與node的間距 06/16 13:10
9F：→ callmei:還有上面的座標寫成CODE是(/ x座標,y座標 /)，記得要加"/" 06/16 13:13
10F：→ cool123415:可以直接寫progrsm mmain出來給我學習嗎? 謝謝 06/16 13:43
11F：推 philodi:你怎麼不問做你後面的帥哥學長呢?? 06/16 15:41
12F：推 kai938:拜託你趕快自D，別在這邊丟臉了..... 06/16 15:43
13F：→ cool123415:謝指教 06/16 16:18
14F：→ cool123415:有收到你寄的信 感謝解答 06/16 16:19
15F：→ charlesdc:某樓 不用這麼酸吧!? 06/16 20:26
16F：→ blc:雖然作業文不好，請k板友語氣和緩一點。 06/16 22:11
17F：→ awer89:cool123415:可以直接寫progrsm mmain出來給我學習嗎? 06/18 02:04
18F：→ awer89:K版友應該是這句推文才會那樣推 06/18 02:05
19F：推 philodi:其實不是啦...kai就是原po的帥哥學長，原po都是他教的!哈 06/18 17:51
20F：→ blc:認識的啊…嘛… 06/18 19:02
21F：推 kai938:p大不就是傳說中的....原po旁邊之極帥學長 06/21 13:18
22F：推 philodi: kai哥的同學 06/21 14:39