声振论坛

 找回密码
 我要加入

QQ登录

只需一步,快速开始

查看: 1496|回复: 0

[Virtual.Lab] ANSYS模态分析后写出一FRE格式文件,并导入到SYSNOISE

[复制链接]
发表于 2009-10-27 18:13 | 显示全部楼层 |阅读模式

马上注册,结交更多好友,享用更多功能,让你轻松玩转社区。

您需要 登录 才可以下载或查看,没有账号?我要加入

x
大家帮我看看下面的命令流错误在哪里?
我写的这个命令流后,INPUT进ANSYS后进行了模态分析,并生成了一个CDB格式的文件和写出了一个FRE格式的文件。可是再我把FRE格式的文件导入到SYSNOISE时候,在SYSNOISE中显示不出图形来,不知道为什么,还请各位帮帮忙。

FINISH
/CLEAR,NOSTART
/FILNAME,DISK_GEAR
/TITLE,disk
/PREP7
ET,1,SOLID92                      !定义单元类型
MP,EX,1,2.1E11                    !定义材料属性
MP,NUXY,1,0.3   
MP,DENS,1,7800
CYL4,0,0,3,,0.75,,1               !画出图形
LESIZE,ALL,0.5                    !定义划分单元尺寸
MSHKEY,0                          !自由划分网格
MSHAPE,1,3D                       !定义网格为四面体单元
VMESH,ALL                         !网格划分
CDWRITE,ALL,DISK_GEAR,CDB         !写为CDB格式文件
/SOLU                             !求解处理
ANTYPE,MODAL                      !定义分析类型为模态分析
MODOPT,LANB,10                    !模态分析方法、阶数
MXPAND,10                         !扩展模态
ASEL,S,,,5,6,1                    !选出要约束的面
NSLA,S,1                          !选出要约束面中的所有节点
D,ALL,,,,,,UX,UY,UZ               !施加约束
ALLSEL,ALL                        !选中模型
SOLVE                             !求解
FINISH
/PREP7
*GET,MAXNUM_NODE,NODE,,NUM,MAX
*GET,MAXNUM_ELEM,ELEM,,NUM,MAX
ELEMTYPE=10
*DIM,SYSNOISE_TITLE,CHAR,4,3
SYSNOISE_TITLE(1,1)='SYSNOISE'
SYSNOISE_TITLE(1,2)=' MESH FI'
SYSNOISE_TITLE(1,3)='LE'
SYSNOISE_TITLE(2,1)='Rev 5.7 '
SYSNOISE_TITLE(2,2)=' SGI'
SYSNOISE_TITLE(3,1)='Set numb'
SYSNOISE_TITLE(3,2)='er'
SYSNOISE_TITLE(4,1)='TIME'
*CFOPEN,DISK_GEAR,fre
*VWRITE,SYSNOISE_TITLE(1,1),SYSNOISE_TITLE(1,2),SYSNOISE_TITLE(1,3)
%C%C%C
*VWRITE,MAXNUM_NODE,MAXNUM_ELEM,ELEMTYPE
%10I%10I%10I
*DIM,SYSNOISE_SUBT1,CHAR,1,1
SYSNOISE_SUBT1(1,1)='NODES'
*VWRITE,SYSNOISE_SUBT1(1,1)
(A8)
*DIM,LOC_NODE,,MAXNUM_NODE,3
*DIM,NUM_,,MAXNUM_NODE,1
*DO,IP,1,MAXNUM_NODE
NUM_(IP,1)=IP
*GET,LOC_NODE(IP,1),NODE,IP,LOC,X
*GET,LOC_NODE(IP,2),NODE,IP,LOC,Y
*GET,LOC_NODE(IP,3),NODE,IP,LOC,Z
*ENDDO
*VWRITE,NUM_(1,1),NUM_(1,1),LOC_NODE(1,1),LOC_NODE(1,2),LOC_NODE(1,3)
%10I%10I%20.8E%20.8E%20.8E
*DIM,SYSNOISE_SUBT2,CHAR,1,1
SYSNOISE_SUBT2(1,1)='ELEMENTS'
*VWRITE,SYSNOISE_SUBT2(1,1)
(A8)
*DIM,NODE_ELEM,,MAXNUM_ELEM,10
*DIM,NUME_,,MAXNUM_NODE,1
*DO,IP,1,MAXNUM_ELEM
NUME_(IP,1)=IP
NODE_ELEM(IP,1)=NELEM(IP,1)
NODE_ELEM(IP,2)=NELEM(IP,2)
NODE_ELEM(IP,3)=NELEM(IP,3)
NODE_ELEM(IP,4)=NELEM(IP,4)
NODE_ELEM(IP,5)=NELEM(IP,5)
NODE_ELEM(IP,6)=NELEM(IP,6)
NODE_ELEM(IP,7)=NELEM(IP,7)
NODE_ELEM(IP,8)=NELEM(IP,8)
NODE_ELEM(IP,9)=NELEM(IP,9)
NODE_ELEM(IP,10)=NELEM(IP,10)
*ENDDO
ELEMTY=6
NODETY=10
*VWRITE,NUME_(1,1),NUME_(1,1),ELEMTY,NODETY,NODE_ELEM(1,1),NODE_ELEM(1,2),NODE_ELEM
(1,3),NODE_ELEM(1,4),NODE_ELEM(1,5),NODE_ELEM(1,6),NODE_ELEM(1,7),NODE_ELEM
(1,8),NODE_ELEM(1,9),NODE_ELEM(1,10)
%10I%10I%10I%10I%10I%10I%10I%10I%10I%10I%10I%10I%10I%10I
*VWRITE,MODE_NUM,FREQ_STR,EIGE_STR
(1X,I11,2E21.8)

本帖被以下淘专辑推荐:

回复
分享到:

使用道具 举报

您需要登录后才可以回帖 登录 | 我要加入

本版积分规则

QQ|小黑屋|Archiver|手机版|联系我们|声振论坛

GMT+8, 2024-4-30 17:50 , Processed in 0.091186 second(s), 19 queries , Gzip On.

Powered by Discuz! X3.4

Copyright © 2001-2021, Tencent Cloud.

快速回复 返回顶部 返回列表