声振论坛

 找回密码
 我要加入

QQ登录

只需一步,快速开始

查看: 1583|回复: 5

[Virtual.Lab] sysnoise怎么加周向和径向约束

[复制链接]
发表于 2009-12-1 16:24 | 显示全部楼层 |阅读模式

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

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

x
我要做圆柱薄壁的声固耦合分析,圆柱两端加简支约束,发现sysnoise没有柱坐标系,请教论坛里的高手是怎么处理的?
回复
分享到:

使用道具 举报

发表于 2009-12-1 18:18 | 显示全部楼层

回复 楼主 yinbanghui 的帖子

可以用有限元软件分析模态,然后导入sysnoise
 楼主| 发表于 2009-12-1 19:48 | 显示全部楼层
从论坛找了些从ansys将模态文件导入sysnoise的方法,改了一下午,还有毛病,大家帮我看下:
!用于将Ansys计算的模态结果转换为Sysnoise能够读取的FRE文件
/POST1
*GET,NODE_COUNT,NODE,,COUNT                 !节点数                               
*GET,ELEM_COUNT,ELEM,,COUNT                 !单元数
*SET,MODE_COUNT,5                        !指定模态的阶数

!打开文件,向里面写数据
*CFOPEN,MODEFILE_ANSYS,FRE
! 1 写入头文件
*VWRITE                                       
('SYSNOISE MODES STRUCTURE FILE')            !头文件
*VWRITE
('                  ')
*VWRITE
('                  ')        
*VWRITE                                             
('                  ')
! 2         按模态数循环
*Do,I,1,MODE_COUNT,1
! 2.1         写入每一子步的头文件、频率及特征值
*VWRITE
('REAL MODE        FREQUENCY          EIGENVALUE')
*Get,MODEFQ,MODE,I,FREQ
MODE_NUM_C='%I%'
LAMBDA = (2*3.141593*MODEFQ)**2                !特征值
*Vwrite,MODE_NUM_C,MODEFQ,LAMBDA
(A10,2E20.8)
*VWRITE
('DISPLACEMENT VALUES')
! 2.2        按照节点号循环,写入每一节点的振型值
SET,1,I
*GET,NODE_NUM,NODE,,NUM,MIND
*Do,II,1,NODE_COUNT,1
*GET,MODESHPX,NODE,NODE_NUM,U,X
*GET,MODESHPY,NODE,NODE_NUM,U,Y
*GET,MODESHPZ,NODE,NODE_NUM,U,Z
*GET,MODESHPRX,NODE,NODE_NUM,ROT,X
*GET,MODESHPRY,NODE,NODE_NUM,ROT,Y
*GET,MODESHPRZ,NODE,NODE_NUM,ROT,Z
NODE_NUM_C='%NODE_NUM%'
C ='                    '
*VWRITE,NODE_NUM_C,NODE_NUM_C,MODESHPX,MODESHPY,MODESHPZ
(2A10,3E20.8)
*VWRITE,C,MODESHPRX,MODESHPRY,MODESHPRZ
(A20,3E20.8)
*GET,NODE_NUM,NODE,NODE_NUM,NXTH
*ENDDO
*ENDDO
以上程序写出来的数据如下:
SYSNOISE MODES STRUCTURE FILE
                  
                  
                  
REAL MODE        FREQUENCY          EIGENVALUE
  1             0.12127672E-03      0.58065042E-06
DISPLACEMENT VALUES
  87382     87382        -0.20702324E-16     -0.20702324E-16      0.33810578E+00
                         -0.54035059E-13      0.67779011E-12     -0.10765457E-13
  87383     87383        -0.18734488E-16     -0.20608587E-16      0.33810578E+00
                         -0.61181083E-13      0.67067934E-12     -0.95031098E-14
而fre文件的数据应该是:
SYSNOISE MODES STRUCTURE FILE
                  
                  
                  
REAL MODE        FREQUENCY          EIGENVALUE
         1       .48140018E+02       .91489707E+05
DISPLACEMENT VALUES
         1         1       .00000000E+00       .00000000E+00       .00000000E+00
                           .00000000E+00       .00000000E+00       .00000000E+00
         2         2       .00000000E+00       .00000000E+00       .00000000E+00
                           .00000000E+00       .00000000E+00       .00000000E+00
请教fortran高手怎么修改程序中的格式控制符
发表于 2009-12-3 10:15 | 显示全部楼层

回复 板凳 yinbanghui 的帖子

原来程序有问题还是你想用fortan来写?
 楼主| 发表于 2009-12-14 19:50 | 显示全部楼层
谢谢Ellips的回答,问题已经解决
发表于 2010-3-30 22:31 | 显示全部楼层
怎么解决的啊,分享一下啊  楼主
您需要登录后才可以回帖 登录 | 我要加入

本版积分规则

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

GMT+8, 2024-11-8 22:49 , Processed in 0.075631 second(s), 17 queries , Gzip On.

Powered by Discuz! X3.4

Copyright © 2001-2021, Tencent Cloud.

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