- 积分
- 0
- 注册时间
- 2008-9-25
- 仿真币
-
- 最后登录
- 1970-1-1
|
发表于 2009-7-9 22:37:33
|
显示全部楼层
来自 湖南株洲
版主:你好,因为遇到了同样的插值问题,多谢看了版主的好资料,在此表示感谢。我试过你的这个命令流,最后一行*MOPER,TINTRPC,TC,MAP,TDIST,NODLOCS,3,,1中的3,,1在help中的解释如下:
kOut
Outside region results; used for Oper = MAP
If kOut = 0, use the value(s) of the nearest region point for points outside of the region.
If kOut = 1, set results extrapolated outside of the region to zero
那么怎么插值出来的值为0。
我的例子如下:
dat.txt
-0.227109 -0.209046 0.467072 200.0
-0.413893 -0.168195 0.261523 400.0
-0.574753 -0.157890 0.809014 800.0
-0.731227 -0.152996 0.119975 1100.0
-0.876865 -0.138102 0.130902 1350.0
-0.101067 -0.131582 0.143611 1000.0
例子流:
nn=6
*dim,AXYZ,ARRAY,nn,4
*vread,AXYZ(1,1),dat,txt,,JIK,4,nn
(4e12.6)
*DIM,NODLOCS,ARRAY,nn,3
*DO,j,1,3,1
*DO,i,1,nn,1
NODLOCS(i,j)=AXYZ(i,j)
*ENDDO
*ENDDO
*DIM,TDIST,ARRAY,nn,1
*DO,NCS,1,nn,1
TDIST(NCS)=AXYZ(NCS,4)
*ENDDO
nxyz=2
*DIM,TC,ARRAY,nxyz,3
TC(1,1)=-0.3
TC(1,2)=-0.18
TC(1,3)=0.35
TC(2,1)=-0.8
TC(2,2)=-0.145
TC(2,3)=0.125
*DIM,TINTRPC,ARRAY,nxyz,1
*MOPER,TINTRPC,TC,MAP,TDIST,NODLOCS,3,,0
*CFOPEN,temp,txt
*VWRITE,TINTRPC(1,1)
(f12.5)
*CFCLOS |
|