24小时热门版块排行榜    

查看: 1275  |  回复: 2

类人之子

新虫 (初入文坛)

[求助] 【fortran求助】如何将三角形网格节点上数据赋值给四边形网格节点 已有1人参与

现有同一区域范围内两种网格(三角形网格和四边形网格),有三角形网格“三角形网格编号.txt”、“三角形网格各节点坐标.txt”、“三角形网格各节点分流速.txt”三个文件,四边形网格有文件“四边形网格坐标.txt”(三角形网格数32465个,每个三角形6个节点(三个顶点和三条边中点),因相邻三角形共用三个节点,共有节点数65302个,各文件见附件),为简化程序,四边形网格只给了1000个节点及其坐标。现需要将三角形网格上的X、Y方向上的分流速赋值到四边形节点坐标上。三角形网格与四边形网格形式见图片。
      赋值计算如下:M点分流速Um=(sABM*Uc+sACM*Ub+sBCM*Ua)/sABC,同理M点分流速Vm=(sABM*Vc+sACM*Vb+sBCM*Va)/sABC。也就是说三个顶点的值乘以对面小三角形面积占大三角形面积权重的和值。(U、V为节点分流速;sABC等为三角形面积)
     需要说明的是:三角形相邻网格不一定是连续编号,而且每个三角形网格的节点编号不是连续的。
    程序的总体思路是:对于每一个四边形网格节点,搜索这个节点在哪一个编号的三角形内(也有可能这个节点刚好落在三角形某条边上,如果是这种情况,则直接根据直线插值),然后再根据上面的公式计算其分流速U和V。
   请各位大神帮帮忙,谢谢!
  最后生成结果如下形式:
四边形节点编号           X坐标            Y坐标        分流速U         分流速V
       1                             X1                  Y1              U1                 V1
       2                             X2                  Y2              U2                 V2
       3                             X3                  Y3              U3                 V3



   1000                        X1000             Y1000         U1000         V1000【fortran求助】如何将三角形网格节点上数据赋值给四边形网格节点
三、四变形.jpg


【fortran求助】如何将三角形网格节点上数据赋值给四边形网格节点-1
000000.jpg
回复此楼

» 本帖附件资源列表

» 猜你喜欢

» 本主题相关价值贴推荐,对您同样有帮助:

已阅   回复此楼   关注TA 给TA发消息 送TA红花 TA的回帖

类人之子

新虫 (初入文坛)

2楼2015-06-08 09:07:11
已阅   回复此楼   关注TA 给TA发消息 送TA红花 TA的回帖

Newyar

新虫 (小有名气)

【答案】应助回帖

先导出三角形网格的xyz,然后插值到四边形网格就行了啊
3楼2015-11-16 12:38:00
已阅   回复此楼   关注TA 给TA发消息 送TA红花 TA的回帖
相关版块跳转 我要订阅楼主 类人之子 的主题更新
最具人气热帖推荐 [查看全部] 作者 回/看 最后发表
[基金申请] 估计是周四 +3 archvillain 2026-08-18 3/150 2026-08-21 01:48 by jnhyjjm
[基金申请] 科研孤儿太难了 +14 我4大白菜 2026-08-20 15/750 2026-08-20 22:33 by 袁向阳007
[基金申请] 今天系统多次维护,明天很可能放榜! +10 zju2000 2026-08-16 11/550 2026-08-20 20:02 by cl479861084
[基金申请] 只有每年这种时候来逛逛小木虫 +21 yaoyewhu2008 2026-08-20 22/1100 2026-08-20 17:03 by yaoyewhu2008
[基金申请] 放榜前的不淡定 40+3 snowwithsea 2026-08-19 12/600 2026-08-20 15:56 by lfy8008
[基金申请] 重要消息,中午系统在维护 +11 yuleib84 2026-08-18 12/600 2026-08-20 11:09 by xskun
[基金申请] 今天基金会出结果吗?20260819 +14 kkkl_v 2026-08-19 15/750 2026-08-20 08:21 by sunzitan
[基金申请] filecode,4个jtjc了 +11 ziyangfang 2026-08-19 13/650 2026-08-19 21:28 by aasahr
[教师之家] 为什么余额宝的年化利率越来越低?主要原因有哪些? +5 瞬息宇宙 2026-08-15 5/250 2026-08-19 20:23 by super2002521
[基金申请] 今天放榜没戏了吧 +4 yuleib84 2026-08-19 5/250 2026-08-19 19:52 by hhs666
[基金申请] 今天放榜吗? +14 布布和一二 2026-08-19 15/750 2026-08-19 18:07 by gltch
[基金申请] filecode=后面第一个是大写字母 +10 wangze12014 2026-08-14 12/600 2026-08-19 16:56 by 苦难博士
[基金申请] 2027广东省杰青 +4 奶牛小黑 2026-08-15 10/500 2026-08-19 11:02 by wanfengnew
[基金申请] 快农历七夕节了,轻松一下,男人悄悄话,女施主请不要进来。 +6 Tide man 2026-08-14 7/350 2026-08-19 09:56 by ZJTJZ
[论文投稿] 投稿咨询 +4 wwm09 2026-08-17 6/300 2026-08-18 15:36 by wwm09
[基金申请] 时间戳又变了8-15 +14 archvillain 2026-08-15 26/1300 2026-08-18 13:37 by phantomgost
[基金申请] 今天维护系统维护 祝所有人 高中 +8 gjjjzhong 2026-08-18 9/450 2026-08-18 13:01 by 家与远方
[基金申请] 93BebMhtakh前后11位开头都是大写 +4 且听虎啸 2026-08-17 5/250 2026-08-18 00:49 by 蔡棒棒菂
[基金申请] 感觉是下周放榜了 +6 angus9576 2026-08-17 11/550 2026-08-17 23:57 by angus9576
[精细化工] 招聘 金属平磨液,抛光液研发工程师 +3 小天0311 2026-08-14 3/150 2026-08-16 07:31 by H9PLUS
信息提示
请填处理意见