作者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