模态分析结果的输出实例

发布日期:[08-12-04 14:50:18] 浏览人次:[]

在gui里看到的既不能修改,也不能copy
现用命令流导出
考虑斑竹以积分鼓励大家,以一分为限
例子如下:
/clear,start
mass=83500
/prep7
k,1,0,0,0
k,2,10000,0,0
lstr,1,2
et,1,beam44
et,2,mass21
R,1,186160,178980000000,56238000000,1278,680,128980000000,
RMODIF,1,21,1278,680,
RMODIF,1,25,76160,110000,0,0,7.0678e-009,0,

*do,i,1,5
j=i*1000
/prep7
R,2,mass-j,mass-j,mass-j,0,0,0,
UIMP,1,EX, , ,210000,
UIMP,1,DENS, , ,1.1261e-5,
UIMP,2,EX, , ,210000,
UIMP,2,DENS, , ,0.78e-5,
lsel,,,,1
latt,1,1,1
lesize,1,,,5,1
lmesh,1
ksel,,,,2
katt,2,2,2
kmesh,2
d,1,,,,,,ux,uy,uz,rotx,roty,rotz
/solu
antype,modal
modopt,subsp,5
solve
finish

/POST26
FILE !确定数据源
FILE,''file'',''rst'',''.''

/UI,COLL,1 !打开对话框
NUMVAR,200 !post26中最大允许存100个
SOLU,191,NCMIT !确定每时间解的存储
STORE,MERGE ! 存数据
FILLDATA,191,,,,1,1 !以斜坡函数来填充数据
REALVAR,191,191 !只使用实部
! Save time history variables to file b.csv

*DEL,_P26_EXPORT !删除参数
*DIM,_P26_EXPORT,TABLE,5,1 ! 定义数组大小
VGET,_P26_EXPORT(1,0),1 !移动数据
*if,i,eq,1,then
/OUTPUT,''a1'',''csv'',''.'' ! 生成文件
*elseif,i,eq,2,then
/OUTPUT,''a2'',''csv'',''.''
*elseif,i,eq,3,then
/OUTPUT,''a3'',''csv'',''.''
*elseif,i,eq,4,then
/OUTPUT,''a4'',''csv'',''.''
*elseif,i,eq,5,then
/OUTPUT,''a5'',''csv'',''.''
*else
*exit
*endif
*VWRITE,''TIME'' ! 按一定次序写入数据
%C
*VWRITE,_P26_EXPORT(1,0)
%G
/OUTPUT,TERM

! End of time history save
finish

*enddo www.mapeng.net 马棚网
www.mapeng.net
文章作者:未知 | 文章来源:网络 | 责任编辑:admin | 发送至邮箱: | 加入收藏:
本文关键字:模态  分析  结果  输出  实例
相关资讯
热点资讯
推荐资讯

关于我们 | 站点导航 | 使用帮助 | 友情链接 | 广告服务 | 免责声明 | 新手上路
设为首页 | 加入收藏 | 在线留言 | 马棚网QQ群:{92562572}{102901272}{333259257} | 交流QQ: 客户服务 客户服务 客户服务