- 积分
- 65
- 注册时间
- 2003-7-3
- 仿真币
-
- 最后登录
- 1970-1-1
|
楼主 |
发表于 2004-4-5 19:56:46
|
显示全部楼层
来自 四川成都
回复: 【原创】吐血奉献:在ANSYS里面创建SYSNOISE格式的模型文件。。。。。。
/POST1
*GET,MAXNUM_NODE,NODE,,NUM,MAX
*GET,MAXNUM_ELEM,ELEM,,NUM,MAX
ELEMTYPE=4
*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.2 '
SYSNOISE_TITLE(2,2)=' SGI'
SYSNOISE_TITLE(3,1)='Set numb'
SYSNOISE_TITLE(3,2)='er'
SYSNOISE_TITLE(4,1)='TIME'
*CFOPEN,PLATE_MESH,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,4
*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)
*ENDDO
ELEMTY=6
NODETY=4
*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)
%10I%10I%10I%10I%10I%10I%10I%10I
*VWRITE,MODE_NUM,FREQ_STR,EIGE_STR
(1X,I11,2E21.8) |
|