[問題] 沿著邊界切割成小塊的element

[cool123415 (qq)]

我是fortran程式新手

現在有一個作業是要把一個長方體

沿著x軸20(長度)和y軸15(長度)大小

我現在4個邊先假設都要分20段

請問要如何寫出以(0,0)為起點

然後逆時針繞一圈

例如點二就是(1.0) 三 (2,0)

謝謝大家可以回覆我的問題

--
※ 發信站: 批踢踢實業坊(ptt.cc) 
◆ From: 140.112.217.10
→ ySHUNy:土法煉鋼四個迴圈
推 callmei:BEM?? 做i=1 to 20的迴圈，則四個邊的ELEMENT編號分別為:
→ callmei:i、i+20、i+40、i+60，而四個邊的node座標則為
→ callmei:(DBLE(i-1)*dx,0d0)、(15d0,DBLE(i-1)*dy)
→ callmei:(20d0-DBLE(i-1)*dx,15d0)、(0d0,15d0-DBLE(i-1)*dy)
→ callmei:上上行的第二組座標打錯了XD 應該是(20d0,DBLE(i-1)*dy)
→ callmei:如果會寫隱藏式迴圈的話，會更簡短
推 callmei:喔忘了說 dx、dy是上下與左右邊上node與node的間距
→ callmei:還有上面的座標寫成CODE是(/ x座標,y座標 /)，記得要加"/"
→ cool123415:可以直接寫progrsm mmain出來給我學習嗎? 謝謝
推 philodi:你怎麼不問做你後面的帥哥學長呢??
推 kai938:拜託你趕快自D，別在這邊丟臉了.....
→ cool123415:謝指教
→ cool123415:有收到你寄的信 感謝解答
→ charlesdc:某樓 不用這麼酸吧!?
→ blc:雖然作業文不好，請k板友語氣和緩一點。
→ awer89:cool123415:可以直接寫progrsm mmain出來給我學習嗎?
→ awer89:K版友應該是這句推文才會那樣推
推 philodi:其實不是啦...kai就是原po的帥哥學長，原po都是他教的!哈
→ blc:認識的啊…嘛…
推 kai938:p大不就是傳說中的....原po旁邊之極帥學長
推 philodi:                                      kai哥的同學