可打印版本

标题: 从ANSYS中提取三维数组的一个东东 [打印本页]

作者： even2004 标题:从ANSYS中提取三维数组的一个东东 时间： 2010/06/03/07:35
在时程后处理器中，当我们需要处理的东西太多的时候，用数组这个东西是很有用处的。我今天试着弄了一个三位数组的东东；大家过来看看。
为了讨论方便，贴上来，大家多提意见。
finish
/POST26 !进入时间历程处理器
numvar,100
!提取数据
!Get data
!第一层三榀框架
*dim,storey11,array,4,34000,5,,,
*dim,storey12,array,4,34000,5,,,
*dim,storey13,array,4,34000,5,,,
!
nsol,2,2,u,x,ux
nsol,3,2,u,z,uz
rforce,4,1,f,x,fx
rforce,5,1,f,z,fz
!
nsol,12,13,u,x,ux
nsol,13,13,u,z,uz
rforce,14,12,f,x,fx
rforce,15,12,f,z,fz
!
nsol,22,24,u,x,ux
nsol,23,24,u,z,uz
rforce,24,23,f,x,fx
rforce,25,23,f,z,fz
!
nsol,32,35,u,x,ux
nsol,33,35,u,z,uz
rforce,34,34,f,x,fx
rforce,35,34,f,z,fz
!
nsol,42,46,u,x,ux
nsol,43,46,u,z,uz
rforce,44,45,f,x,fx
rforce,45,45,f,z,fz

store
!
*do,I,1,4,1
*do,T,1,34000,1
*do,K,1,5,1
*set,time,T*0.05
*get,storey11(I,T,K),VARI,10*(K-1)+(I+1),rtime,time
*enddo
*enddo
*enddo
*MWRITE,storey11(1,1,1),DATA11,dat,,IKTI,4,5,34000
(1X,4F16.7)_____这个可以根据需要把数据空格调大一点，更好看