ANSYS转子动力学计算讨论' @4 b6 }' }2 ]. A
8 ], a9 [/ I" y. v* B n
关于ansys做转子动力学问题若干思考(百思论坛)
9 e- L$ x/ g; A; @) h/ ?
( m9 t* e! Q# g% _) _ 最近想学习一下ansys做转子动力学分析,看了点资料,有点自己感想还有一些别的网友的建议,个人认为比较不错的贴了出来 6 x) o N4 J" |7 t; S/ c
! Y, b$ k8 V# r1 t/ w* M一 转子动力学插件:
* N# z( U1 u6 d- g9 c5 a
4 U( k6 M% ]* i转子动力学插件 演示版 我已经用了 基本上图形可以出来,由于版本原因 例程和实际的对应有点问题,如果要有时间我可以把我做的过程,贴出来. 6 K3 {6 ]! l/ j, _: L: J
) k6 s7 g8 F' j& c6 u难点:坎贝尔图 我有些不太了解 1 2 5 10频率 还有一些刚度考虑的随转速在变化,有函数关系 例子上提到了用matrix27模拟刚度,而它只用了刚度阻尼单元,好像没有考虑刚度x y的交叉项,另外因为是演示版,节点有所限制 总的来说 不错! ; X( ]* n: Z: D
4 x6 A( G. I/ |8 F& f8 c2 x! ]( F将来的要做的工作:
$ q' r, w% N+ b( @滑动轴承模拟
" n! h0 R+ {7 U" u1 y" t滚动轴承模拟
7 Y& C- x( J# L4 w挤压油膜阻尼器 5 O1 P/ n) A( i( V
密封 1 [& ?7 M6 g a+ ?" ?9 Y: w
转定件接触(碰摩)
( y4 H' J7 y8 Z电磁场耦合 5 H3 O- H0 h: A' g4 ~5 ^3 _
自润滑轴承(石墨)
% Y- s: k) Z! E6 i6 u( O8 Z( u5 d2 N# W( Q/ z9 _
有感:
+ d' ?+ {, p6 Y7 h各位学习ansys的高手,有没有兴趣自己开发上面单元,这是很有用的工作,我很感兴趣,但有碍于自己知识水平有限,尤其理论水平,有心无力,如果有对此感兴趣的希望一起研究研究;
# K0 X+ P! a: r% l/ d. {9 b! E
4 ~* t% D" m7 O5 ]& j) ?另外对于ansys做转子的动力学的书籍 市场上几乎没有,呵呵 希望能组织一些人力 把这本书完成 8 i0 j# c5 G0 b/ M: [2 ?7 j
功在当代 利在千秋 ' b+ i% |+ ?8 g7 n4 j6 B% V+ E
3 I8 m$ t4 j. H6 z9 J8 M提示: / L; J7 X2 ]0 \
1 根据本人自己瞎琢磨,以及看论坛的各位高手的留言 1 x( |5 {$ Y/ w6 }
觉得做模态分析 临界转速计算 一般用实体单元的少 由于不能考虑陀螺力矩
% C. [) Z" C9 j/ zshaft:可以采用beam系列模拟 pipe系列也行 这些能考虑陀螺力矩
. P0 S9 w0 x$ ]; f) `3 C; M叶轮叶片:采用mass21模拟,计算转动惯量,质量 通过实常数设置
+ v2 v" T7 ]$ c0 Y3 ~) ]4 G% A刚度 阻尼 陀螺 质量 矩阵 :都可以采用matrix27模拟,当然也有用弹簧阻尼单元做的, 问题有过考虑油膜的非线性 怎么模拟? $ _3 `! X3 a: G5 f, G
) I" e/ g2 M! m: ^$ O ]2. 网友1:目前轴承计算,采用将刚度和阻尼的8个系数,以施加力和力矩的方式解决> 这个我没搞懂,如果那位给个例子 3Q ' p: _6 |( m/ \/ s) ]* Z* I
网友2: Pip16能考虑陀螺力矩的影响,实体单元没有角自由度因此不能考虑陀螺力矩的影响,如果你的转子没有类似大圆盘的部分或者大的转动部分在轴的接近轴向中心,或者转速不高,就不用考虑陀螺力矩的影响,可以先采用pipe16做一下看随着转速提高,陀螺力矩对固有频率的影响. + N0 z. T3 ]% e. P
网友3:可用于陀螺矩阵下列单元可用: Mass21\beam4\pipe16\beam188\beam189
( \9 M( G. w6 i1 U; C, G6 A8 l
! y2 E# s, R6 F; a0 D& T6 T上面三个网友的解释 ,转自:simwe
9 F+ ` Y/ |1 m- k- ^( e. N, x" J1 T V2 _; H4 S5 p2 f8 l
3 实体单元solid45我用过计算临界转速,其他的甚么都对称,计算出来的水平和竖直方向的固有频率 差很多,不知道甚么原因,和用pipe16模拟的差很多,我觉得约束形式对临界转速影响很大,对于实体单元来说 模拟轴承 本身就不容易,所以个人倾向于用pipe16模拟轴,计算精度也不差,我做过实验 一阶临界转速 和实际转子系统几乎不差多少,二阶由于实验很难观察到所以这个没有对比,但是可以采用捶击法 测出转子的各阶固有频率进行对比,这个我也大概试过,二阶还是差点!
+ ~+ A' n" y: w5 c' A0 e: p; _3 T
& U: d6 k% a! {! ^9 ^% p+ n在simwe上的一篇文章
* P$ q! f0 E! |4 Y6 V7 d6 z/ y4 {5 M! s计算转子的临界转速!!! ( u) N3 ^( C+ N5 h3 _; \! U
% Z6 J9 J# A, C2 `: N! 计算临界转速
. D V1 o. t' d# S! \; J" P" [
2 e2 m3 X$ Z4 k ^* {0 g- Q! I( Z/PREP7
2 W5 ?3 p/ z# fMP,EX,1,2.1e11 5 B. n1 ?+ ?* z& X, i7 _9 ]* V" X2 x& j
MP,NUXY,1,0.3 1 c B B9 A8 d, o$ q+ I
Mp,DENS,1,7850 6 p X- Y! T& B( T
ET,1,COMBIN14 5 \/ p( H) H8 _6 ?. ?) G6 I6 j4 e9 n
ET,2,SOLID45
1 M3 [9 ^, v" A8 ^. S: S' l/ |* ^2 m
R,1,0.1, , , ' l/ ~: f3 N9 k$ c( ~
*afun,deg ! 设置角度为(度默认为弧度) 5 R, L0 U: `& L
r1=0.025/2
7 ~$ A1 e% F1 } O( W% I t: @# I/ ar2=0.240/2 4 E# }8 h( B5 A. }* \1 |' c
l=0.025 , D: x8 |# K# z" ~0 r/ F$ I
4 h4 f" R# r# o) W# O; FCYL4,0,0,0,0,r1,20 & `7 C' b( ^7 l( g: N: D
VEXT,all, , ,0,0,l,,,, , v4 J# ~" T+ u' p/ @ Y
CSYS,1 : ^( [: y: q s) }7 j' _
VGEN,18,all, , , ,20, , ,0 . P2 h: [0 g$ T( O- ^& Q
CSYS,0
' e( |8 |. Z; `* }! OVGEN,25,all, , , , ,l, ,0
$ I7 s; T* N$ W: P1 z
- y7 o& y& F$ |0 ?* LASEL,NONE
1 e. I+ w; N# B ^/ M# E5 }CYL4,0,0,r1,0,r2,20
& h0 k8 J8 A3 U6 g hVEXT,all, , ,0,0,l,,,, 1 b, b7 R+ U# D, l+ W' Q* N
CSYS,1 / |3 W5 V' Z7 C7 i" M- G' F
VGEN,18,all, , , ,20, , ,0
7 o3 ^& p$ D& Q$ lVSEL,S,LOC,X,r1,r2 7 o+ U/ u6 ^! |% A0 D1 V
VGEN, ,all, , , , ,10*l, , ,1
) r. ?7 @6 U* S" @2 }. D
; `+ ^) z2 o& J% vALLSEL,ALL , t/ o4 K& h" A8 o V# o! B
NUMMRG,ALL, , , ,LOW + h( N- z Z( L( h8 L
NUMCMP,ALL
) F; Q2 S) y! O/ _LSEL,S,LOC,X,0,r1 ( _4 f5 N' K5 I# W
LSEL,A,LOC,X,r2 , E, m" b. p; r( e9 {$ u) |/ t- x9 E
LESIZE,all, , ,1, , , , ,0 7 e: \, }% |8 G' L" \4 ^! @
LSEL,INVE 9 w5 d' z1 ?+ L' K. d
LESIZE,all,l, , , , , , ,0 2 a- {8 @& a8 n% C+ h
MSHAPE,0,3D + s0 C; Z- G# K R2 y- q
MSHKEY,1 ) f" o& t( I v, T4 ~
VSEL, , , ,all
1 P' m4 I! d, H+ K5 Y7 X& o0 jVSWEEP,all
* w( c; q# [2 l: X3 e8 {; ~2 kCM,rotor,VOLU
9 B- Y8 |# F6 T( f: wCM,Erotor,ELEM
! ^2 }( y& O c9 Fsave
7 @0 l5 i' z: A2 ?" ~* L
; e X" E$ ]4 G5 \* C& Y- EVSEL,S,LOC,Z,10*l,11*l # ?& Y5 n/ j4 c
!*
+ w! b+ Q& b, q6 d' f/GO
b1 F1 |& q, E5 A! A2 |DK,P51X, , , ,0,ALL, , , , , ,
4 k) n% ]: L- B/ |* a2 {0 eOMEGA,0,0,0,1 - b' o9 F* C( ]2 a4 h# V( w
CMOMEGA,EROTOR,100,0,0,,,, , , ,0
7 ~3 n. P. h% i6 F4 ]& O9 p/ W1 j+ ?! A) l
另外希望大家推荐几个不错的论坛,我现在偶尔上上simwe,最近在刚结构注册了一个帐号好像7天以后才可以发言,现在还在等.
0 {9 m2 `& D0 `$ K% B" ]
, i4 t5 g+ p2 L5 r3 v( i" C$ W大家要是看到有ansys做转子方面的文章 论坛 还有不错的帖子,希望大家跟贴 我想学习一下呵呵 谢谢大家!
4 M% `0 K+ }7 n0 {* e, @1 ^$ W0 f3 h" A4 {# p( D' k. o( R. h
ansys10.0已将考虑了陀螺力矩,加上了这部分功能,可惜我为了装转子动力学插件,现在版本改回了 8.1,希望用过10.0这个功能的可以讨论一下,那里不明白,那里懂了!
; u4 j J( N/ u+ ?4 ], q) l6 S" _
0 R4 U3 B* ^7 H8 F5 Q
; @0 z+ S/ i/ R0 u" }( r+ W如果有对这方面感兴趣的网友,看看这个帖子 相当不错 ' U* W: S% w+ {- X3 f8 H4 i# ^
http://www.baisi.net/vi ... 2407&highlight= simwe上的一个帖子" ^; j3 S7 G( @2 X
& J$ c) r; [! Y. @- w' |) o2 N
【讨论】做转子动力学时:如何获得转子临界转速。
1 B3 K) @5 S7 ^( @6 A. z
1 P. N' ^1 @ E, }转子的固有频率除了与转子结构(和支承结构)参数有关外,它还随转子涡动转速和转子自转转速的变化而变化。在转子不平衡力驱动下,转子一般作正同步涡动,当转子涡动转速等于转子固有频率时,转子出现共振,相应转速就称为该转子的临界转速。采用有限元方法计算转子临界转速时,转子会出现正进动和反进动。根据临界转速的定义,应只对正进动固有频率(Ωc)进行分析。在后处理中首先剔除负固有频率,然后分析各阶模态振型,确定同一阶振型的正进动和反进动固有频率。
3 T* Y4 b+ K) o; o+ L5 K/ U( _) v+ e改变转子自转角速度(ω),计算出新的Ωc,最后画出Ωc~ω曲线,根据临界转速的定义,当Ωc=ω时,Ωc即所求临界转速。 ! c+ t7 h7 o, ~! O7 p; X
以上是ansys做转子动力学的方法,即选定一个自转速度就获得一个正进动固有频率(Ωc),但是选定一个自转速度后能得到很多阶的频率,如何确定Ωc?如下是本人选定一个自转速度后得到的频率: " }" H( R1 M* d1 J
***** INDEX OF DATA SETS ON RESULTS FILE ***** % }! Y% P' d2 T! c, ?* u: a
8 u' Q* M( R6 i4 c# a) i
SET TIME/FREQ LOAD STEP SUBSTEP CUMULATIVE
9 w9 r5 I6 S8 d6 j 1 0.48827E-03 1 1 1
& W ]: Z7 D% h2 D$ C/ F2 Z 2 341.70 1 1 1 - L$ m! Y& E% r7 V* `) }
3 0.48815E-03 1 2 2
9 p1 Y. Q- s x. e 4 -341.70 1 2 2
( a1 J- T" @) z, y1 ] E) M6 ? 5 0.81975E-03 1 3 3
% {0 @% @6 [& n4 i! h, x 6 343.61 1 3 3
2 r- M. w( ?) O1 S* I" C5 r/ R3 {5 b 7 0.81978E-03 1 4 4
6 J" I7 |. s% m 8 -343.61 1 4 4
9 U3 o% u+ _# i, @ r9 `. c 9-0.91412E-03 1 5 5 ! G7 r k" `2 j7 R
10 718.81 1 5 5
( |2 m0 ~, S" \4 D N- o 11-0.91394E-03 1 6 6
: T0 @* {. N! D8 R) j 12 -718.81 1 6 6 - [6 J3 |+ c$ k0 N Y" k; P
13-0.65191E-02 1 7 7
0 }+ [$ G: b- K# b0 O 14 784.69 1 7 7
6 I8 w* u6 ]3 C; q- d, [% W 15-0.65194E-02 1 8 8 7 ^& N: V& ^4 g1 b: @& B& C
16 -784.69 1 8 8
5 M7 N# Y9 Y( e# g6 r0 Z% N 17 0.42452E-01 1 9 9
, D" c; q; R7 ~3 C. k! J; j 18 824.10 1 9 9 5 V7 `3 k9 }/ ^$ _" a. d% U
19 0.42453E-01 1 10 10
" U8 m& u& D& ^# }" u 20 -824.10 1 10 10
2 N) |2 k: ^* Z; ~! D( O6 v 21 0.41087E-03 1 11 11
9 x: A3 j' l5 o1 T+ Q/ U" T$ } 22 1093.9 1 11 11 8 `1 Z/ ~0 l T' Q1 Z
23 0.41088E-03 1 12 12 & X& M K7 R O
24 -1093.9 1 12 12
* D- K- p, E2 e 25-0.30042E-01 1 13 13
& U$ U, s7 m1 l$ K8 i: L- G 26 2226.1 1 13 13 ( N; b( P' ~: M+ z3 n# ]
27-0.30043E-01 1 14 14 - R4 b4 q$ H# W! K, w9 c. h; z
28 -2226.1 1 14 14
# o# Q9 \* `3 p6 ]2 ^ 29-0.10823E-01 1 15 15 . e' K+ E9 s$ i, K& _: }- [. g
30 2284.0 1 15 15
+ q" m! A, y1 B, B5 I 31-0.10823E-01 1 16 16
" f- L7 [6 {) k4 l! R) s, a 32 -2284.0 1 16 16 6 x2 N" |$ H/ @5 w: d3 q
33-0.31331E-01 1 17 17
5 Z9 H4 {4 k; f$ \4 g3 d$ l 34 3941.3 1 17 17 4 R F& \5 t& \( {5 ~
35-0.31330E-01 1 18 18
5 Z, ?' i- T7 D8 t3 q 36 -3941.3 1 18 18 ; {3 A) O6 s: P1 l* E, D
37-0.34306E-01 1 19 19
* @* I$ N0 Q. u# S" U+ ?& R) L 38 3997.9 1 19 19
3 O" E6 H; Z( l7 M' t 39-0.34306E-01 1 20 20
, }, L, S3 n& q8 n& @) B 40 -3997.9 1 20 20 & \7 m) M; |9 u; D
请赐教. [url=http://www.baisi.net/misc.php?action=viewratings&tid=809054&pid=1685219][/url] 【分享】vc/fortran与ansys(转自猎手)/ o6 B" T' q1 _* b& J H: T( N
% H! A3 Q, q7 \: _+ ~大家都想看mulin的关于ansys编程的帖子,我始终没有联系上他/她,如果获得同意,我会开放那篇帖子。如下是我从猎手转载来的,谢谢。本人不会ansys,因此对相关技术问题无法回答。 - I( A. m( j; I$ W
* [1 q+ k" {2 G6 g. T( j8 ~# ]原作者hunter
, F' ^4 t z/ A+ i2 J将ANSYS作为子程序调用
& o" \; m, Z5 Z6 G对于优化或参数化设计,可以在VC或FORTRAN中将ANSYS作为子程序调用。具体调用方法如下:
$ @ \/ `* X |+ p1.在VC中调用ANSYS
6 E) y5 Q$ q$ k* L. s% ]. `::WinExec("d:/ANSYS57/BIN/INTEL/ANSYS57 -b -p ansys_product_feature -i input_file -o output_file",SW_SHOWNORMAL); & u( \4 [- }1 K& b& Z1 u
0 D' W( Z) O5 l9 L2 G: j. C
2.在FORTRAN中调用ANSYS 4 \0 A7 p4 M, M9 B9 Q( X# T
LOGICAL(4) result
- a& f% {: R) J) WRESULT=SYSTEMQQ('d:\ANSYS57\BIN\INTEL\ANSYS57 -b -p
- B1 Q3 [5 L# @$ |% M& ` vansys_product_feature -i input_file -o output_file')
6 x V e1 v9 k) f3 ?8 {/ G) D+ a
3 h1 ]" F; G) t3.说明
, x, `3 J7 G& v% K- [ v" I3 [' y1和2中,input_file为用APDL语言编写的ANSYS输入文件。
* D _' L5 _3 d( ^ansys_product_feature为你的ANSYS产品特征代码。
7 f: Z7 k e! ]: w8 \' C% s* v需要注意的是,在VC中调用ANSYS时,需要加一条判断语句,以确定ANSYS / l7 v/ p; H4 O' t
已经执行完毕。 ( |$ }# [; x% D F& F6 Y$ y
# O* c( z& }& N4 ]1 P
在ANSYS中当然也可以以VC或FORTRAN作为子程序调用。可以参看有关ANSYS二次开发方面的资料。 这个方法应该是与系统无关的。 T, s9 {& ?" z7 F5 m
b& P- ^# C. G7 T+ Y( {
在FORTRAN中不需要判断,FORTRAN会等ANSYS执行完毕才继续执行下一条语句。
5 B3 L- [) f0 Q1 E在VC中,我没有找到与FORTRAN类似的函数,只好加一条循环判断语句。 , }: G8 ^. j$ U. V# K
如果谁能找着这样的函数,请告诉我,谢谢! 8 v: P2 h' U9 M6 S% g" ]
1 M9 ~$ p2 W' U$ c( K1 k
判断方法很简单,只需判断错误文件file.err是否可写就可以了。
" k& Z& j. N% n) j2 p p! ^# J因为当ANSYS在运行时,file.err是不可写的,只有当它运行完毕,此文件才可写。
, h# l1 G o9 ]1 M" c; ]7 i
- I2 B' a* L7 U, {: I! L3 V h+ f原作者webycn 7 r; ^4 q6 y6 X/ N4 C# D, q
VC中调用Ansys的方法如下,具体过程就不写了。 2 @- ~. _5 M! y/ {; V. c8 G! G
: 1 利用Ansys建立一个通用有限元模型,并进行计算求解。注意:根据模型中所有可变 ! s' h5 L) J; D5 |/ i! J: J: E* |
的参数定义相应的参数,利用参数化建模。将生成的log 文件拷贝成另一文件,即宏命 5 X3 F5 z% ]5 g ^& N
令文件。当然可以直接用APDL编写此文件。
! d& r) u6 U: @8 p" @:2 VC编写界面: 4 {+ ^ a% N* @: s; p7 W
(1) 要实现前处理参数输入功能; # z- I' V; p. \- R1 S& Y. V
(2) 根据用户输入的参数修改刚才得到的ansys宏命令文件中,参数对于的参数值 ;
3 H4 ]# W5 Q* a- W+ L/ d# i& A (3) 将生成的宏命令文件文件提交给Ansys程序进行批处理操作; % m: t/ h6 {- ]+ n6 p1 @( D
在VC++ 中可利用CreateProcess函数创建一个进程,去执行其他程序,并且可以设置改进程的优先级。
" A! {, Z2 o& @! R Ansys提供了一种批处理方式的格式:"Ansys. bat-I InputName- O OutNam 2 {8 n3 C! [3 X- c+ J$ k
e. 其中InputName和OutName分别为输入输出文件名。 5 A0 x6 S/ B; z7 {( L
(4)程序需要判断Ansys的批处理操作何时结束。
: a9 d) ~7 X5 k! C2 \ C6 S 在Window NT 操作系统中当一个进程运行完毕后,窗口的标题会有 "已完成"这几个字。如当Ansys批处理完成后,窗口标题会显示 "Ansys已完成”。可以利用这 * p% K: _' E6 O- V) @' b4 E
一个特点来判断进程是否运行完毕。 1 O% L/ |& O. J7 Q" d! b
: 3 利用结果文件(out文件,或者由你在宏命令中指定输出的文件)进行后处理 4 g$ C% n0 x% S
, |/ t) s/ N3 Q1 b+ R! c自评:其实这种方法不能是真正意义上的开发,只不过用vc创建一个进程,vc与ansys并没有真正意义上的结合.如果自己开发程序,你永远都无法脱离ansys这个软件环境.二次开发应该是DLL或ActiveX,或者其它的COM对象形式,可以离开开发软件的运行环境.不过,实现一定的批处理功能也不错. 2 z9 V8 e! z, K6 ^6 b
希望多讨论
' ^' v. _$ X* u搞ansys二次开发的可以看看 这个帖子 【原创】自己做的转子临界转速计算的小程序,请高手指点
! \9 c% d2 J3 `! p6 G$ c5 A3 T* a* i3 Q, @
请指教为什么刚度的变化(即使在轴承的刚度选取范围内)会对临界转速的影响这么大,用matlab计算影响就没这么大.ps:如有错误请高手指出! $ ^: q) d' g! \* N: K% w
谢谢!! 1 J+ T" s, |0 h- {/ o! o( I6 a
7 X3 H6 l$ d0 w' s1 R6 P. K
fini
+ r" Y8 r0 h, ]- c- L7 @! \/clear
L3 K7 R" A( ^/ y/ X0 Q0 V) ]9 d, Nr1=.020
/ N) I9 }: h) j( yr2=.030
. H4 {1 A2 u2 ur3=.225 & o) ~$ _3 b8 w+ S9 k
r4=.030 * L' ~/ s# o8 o4 y; v
r5=.025 $ i5 a9 Q: p! j2 E2 Q
r6=.020
/ V4 n5 F% |8 X: R, g) cr7=.0225 & @& h, Z3 {+ q H
r8=.018
/ g4 U& d4 W/ J9 u. \pi=acos(-1)
0 L6 g4 B' S" ~: D/ Y5 Y6 p; l T/prep7
1 S' \- \5 m% v9 e1 k$ C7 `mp,ex,,2.1e11 ) z5 l W4 o7 y' A1 P8 s2 D2 Q6 I
mp,dens,,7850
9 E q) s7 u5 J, ?mp,prxy,,0.3 2 S* z% Z. n% l
!定义节点 % M; w6 O6 e* B8 M8 v: Q
n,1 9 {: i$ P, l/ ?5 O! I3 P# k
n,5,.030
# Z- Q% _5 m9 \0 E) Ufill,1,5,3 + V! I% @1 `; ~: u, v; w3 l5 a
n,13,.070
1 h" v/ Q& p p7 K0 n+ s! r8 A8 sfill,5,13,7
6 o/ {* m' T( I# Z |7 @5 nn,17,.095 ! n- n7 Z; @+ q1 W I
fill,13,17,3 ; q+ h1 o! e, ]+ j
n,21,.135
9 N% D2 |# J" G" C3 v( y% _3 }fill,17,21,3
3 F1 Z& p' D5 Q- v( e7 i4 K$ cn,31,.240 ! g% i3 c% Y& c( i
fill,21,31,9 0 e9 \: q. E2 P# ~9 [
n,35,.270
0 X* W+ S' E# }+ \fill,31,35,3 & N) M2 b" O Z& s, ?
n,43,.300 & n! C# g( P. k, ~
fill,35,43,7
* E9 Q2 g8 W: N/ M& ?+ r G& g/ Kn,47,.330
2 _+ H, l' B: hfill,43,47,3 % C9 z. O: N" I; T) Q/ P8 R
n,48,.015,-.003 ; E8 J8 F/ S1 r6 t
n,49,.255,-.003 . Y" \0 D$ N q$ D
!定义单元类型 $ v" `% {( N1 G
et,1,4 !梁单元 9 }0 o3 y$ c" @" K. n' X
et,2,14 !弹簧单元 / L" s4 H# p$ H, I: Y3 g7 I
et,3,21,,,4 !集中质量单元 + Q3 t: n3 F/ ]5 c' V( y1 y9 e
!定义实常数 ' a! k0 `7 o1 Z- v; p9 A
R,1,pi*R1**2,pi*R1**4/4,pi*R1**4/4,2*R1,2*R1, , ! q- i7 L6 N) R. S* [7 ]3 T
RMORE, ,pi*R1**4/2, , , , , r) g" [! \/ i9 }1 u" Q0 b' \
R,2,pi*R2**2,pi*R2**4/4,pi*R2**4/4,2*R2,2*R2, ,
. U" C3 u' R e, \; d" TRMORE, ,pi*R2**4/2, , , , , 1 d, d) F) ^( [3 J+ p
R,3,pi*R3**2,pi*R3**4/4,pi*R3**4/4,2*R3,2*R3, ,
. ^5 L% f+ H) C/ ~. F# c" DRMORE, ,pi*R3**4/2, , , , ,
2 X# O' h# }5 nR,4,pi*R4**2,pi*R4**4/4,pi*R4**4/4,2*R4,2*R4, , ' e& M7 N" c$ ? g |) [
RMORE, ,pi*R4**4/2, , , , ,
% F1 K r0 Y. S; H! D; I3 j: ER,5,pi*R5**2,pi*R5**4/4,pi*R5**4/4,2*R5,2*R5, , N! Y8 a2 l0 e
RMORE, ,pi*R5**4/2, , , , ,
" d) F( }- ^$ ^R,6,pi*R6**2,pi*R6**4/4,pi*R6**4/4,2*R6,2*R6, ,
; D ^! K/ C7 Y8 M: N6 m9 j CRMORE, ,pi*R6**4/2, , , , ,
; Y% W/ m! [. K2 ^; G+ M6 _9 _R,7,pi*R7**2,pi*R7**4/4,pi*R7**4/4,2*R7,2*R7, , 9 [- y0 K# h7 |8 x
RMORE, ,pi*R7**4/2, , , , , + Z" o- K" a: o0 k
R,8,pi*R8**2,pi*R8**4/4,pi*R8**4/4,2*R8,2*R8, , 6 o% \8 D% _% I+ l- k' z
RMORE, ,pi*R8**4/2, , , , ,
# }9 G# p! K- @! g+ H: wr,9,1.5e7,0.1 6 @/ Y- r* H& V A8 r H/ {3 `& W
r,10,25.670 0 S9 {; ^& `# A; U' T) T) }1 i' n
type,1
# q6 s# Z0 C# I; }real,1
, i0 z) w N4 V" Ie,1,2
. R C$ Y2 f6 ]7 Xe,2,3 . ~/ S, Y! y, e9 P* j$ [' v# R8 `
e,3,4 2 U t; G: b% p; q
e,4,5
4 N0 n) y: v2 Q$ A4 ?8 n" jtype,1 ! G/ G- y$ O6 ~) I1 i
real,2 5 `; ^& S6 }0 V3 O& e8 Q
e,5,6 $ k% g( p- T$ Z m* |8 ]) G/ n
e,6,7
6 C" K7 x) d) y Be,7,8 1 `. j7 R* V+ K$ y
e,8,9
7 R0 n7 } w, ]( o. [' x/ B0 H$ l0 ^e,9,10 - S; v& b% w1 m; o0 X( r4 v. P
e,10,11 f+ ?6 ^* M4 I. [5 p3 [
e,11,12 : Q% I2 \3 K [8 ~7 A/ J7 I* k
e,12,13
3 A% j+ K( F& ~7 I9 |! X" Rtype,1 / |! A1 L! y$ B# \
real,3 0 G# Z" A3 t) I' V" W0 R" U2 {) S
e,13,14
6 g2 K5 J$ g7 x- r; v9 ?e,14,15 9 n! f2 W0 p* }; ^1 N
e,15,16 ) V4 G3 J& N" }0 S# n* \; x* `0 N
e,16,17
/ D: T# {% }1 G+ X0 I) n+ ktype,1 : ~, h+ G; A8 c; \! U5 u0 k
real,4
/ d" x4 M4 T9 N& M& t1 He,17,18 2 B) T# @8 g0 M4 h$ j( D
e,18,19
5 Q4 m. y* s1 T' c7 \0 ye,19,20
3 [; O8 a; H. Y9 o# Ae,20,21 * t9 C ~: S! q
type,1 , Q* N3 O, o! S. ~6 G, o& B
real,5
& n' U* W0 W& ?- A" q% x: Le,21,22 : J# f X y1 q9 X2 Q* R7 i
e,22,23
$ G# Y: E! y1 ]e,23,24
- `) W& [& n0 ^% f3 ~- Ge,24,25
+ y' g' ?3 ~. `; _7 n: a# le,25,26
: y) M' u, L6 d. A( |) g" I8 Ue,26,27
4 t$ n- {3 } }) h2 N- l& ze,27,28
; q0 @+ j2 l- v0 Ie,28,29 ' s& R! M6 Y2 r7 g
e,29,30 8 X2 t+ D1 m+ R0 ] e
e,30,31 5 O0 q S4 P+ P+ a3 ]
type,1 9 i' I/ [2 X0 t2 U( t
real,6
* l; G9 u9 p! s6 k; m; {* ke,31,32 : J9 @$ O2 k5 ?1 b* m
e,32,33
5 s# ~7 s) y3 T* [" X2 ^4 C! |e,33,34 & y+ J: y+ C2 e# x
e,34,35
8 z% a" Q* ?7 G# i' _2 @type,1 * m( E" U# w; f; G# u4 \- ?' ^3 @7 Y% m* q
real,7 4 z! _( g* e3 H" Y- Y8 B
e,35,36
# ]* o" D) U: We,36,37 " y. w0 {) w, e1 \3 h$ @
e,37,38
; S1 S3 G$ H; ~9 x1 I' ze,38,39 0 D0 Y) \+ O" U8 u# a; I0 C
e,39,40 1 @( X( q* R! {
e,40,41
- y1 R, D: C8 T" R' W/ Ve,41,42
. ~5 h; s( u+ l& J6 i: N8 A, ^e,42,43 4 k( ^# ]1 q H$ g9 w( [8 d
type,1
" z: O$ J% Z% v) U: xreal,8 0 e/ Q4 ?- d% k' o& f
e,43,44 ) K9 R0 J9 Q, q0 H( k9 G9 u! j# g
e,44,45
% k* ]' N1 V$ r, N# F9 N1 ke,45,46
# K6 L9 R2 v9 u/ }) V5 i* A/ Je,46,47
5 E! @! {+ t3 e0 btype,2 ( u5 a" y% r) M/ `0 j9 \' e+ w
real,9 8 t' \6 X2 _( E! y
e,3,48
; Q' m4 S& `4 A1 Ge,33,49 ) `5 g# E0 @. b, Z; o5 D
type,3
9 X- m, r( B3 u% B# q+ Q ?( Sreal,10 2 N# g! R3 e7 M5 N) t9 O$ V
e,15 7 H2 ~0 R4 y x, Q1 b8 R
d,3,ux / d {: g; n* ^2 ~5 m( `
d,33,ux
3 u2 L+ D3 d# I+ q# g- y8 Pd,48,all ' X v4 T) l( S
d,49,all
* O+ v: z; u; ]/ q' ksave
( X9 B2 H4 E c0 v' L, rfinish
$ K, g$ |/ p" c! V, z! Z8 }/solu
) R3 S# f1 v! zantype,2 8 B7 i. z) H( g- q% q
MODOPT,lanb,40
8 h4 p2 h1 J; e3 @EQSLV,FRONT # v: m0 w+ L7 E0 \' k
MXPAND,40, , ,1
4 p- a! C& C1 M2 D+ s4 bLUMPM,0
: }# z' d" J4 z1 H& rPSTRES,0
# u" \4 z' F* J- F) m3 GMODOPT,lanb,40,10,40000, ,OFF 3 }. M1 l8 T, D9 P) N) n. E
solve " [: t* R+ d! [) w4 d, U
finish 1 转子临界转速概念
: }! H/ T, Q- T8 E s( Y转子的固有频率除了与转子结构(和支承结构)参数有关外,它还随转子涡动转速和转子 % E$ G2 @8 ~, G( V$ L9 `
自转转速的变化而变化。在转子不平衡力驱动下,转子一般作正同步涡动,当转子涡动转
* W& E) x* {! q6 x速等于转子固有频率时,转子出现共振,相应转速就称为该转子的临界转速。 5 U& W" h B" ]8 [
. i9 M' D, L0 t6 j7 r( g0 |) G' l2 转子临界转速计算对程序的要求 3 u* M4 J4 S+ @/ x9 A4 _, ^* {; k
计算转子临界转速必须能够考虑旋转结构涡动时产生的陀螺效应对转子临界转速的影响, 5 [6 p* `! A+ y' v. E7 a( D
这是转子临界转速计算同其他非旋转结构固有频率计算的差异所在。一般有限元程序不具 7 T, ?* ?* a6 k; b# a
备计算转子临界转速的功能。 ; ^7 f0 D l& C4 _9 |/ S0 ~# r% t
3 Y; c' w+ {$ A2 ?% Z7 h4 [3 ANSYS的临界转速计算功能
# d1 k Z3 `* r+ y4 L1) 计算转子临界转速可用单元 1 W4 l, |9 y& F- y! X
BEAM4; 6 R4 V: V* n7 X& V& A
PIPE16。
( Y) E" n2 i+ o* E. CCOBIN14(用于模拟带阻尼的弹性支撑)
# D' d/ `- a5 t2) 单元特性及实常数
& I+ j7 t, v4 c! n7 V5 ZBEAM4和PIPE16: ' u2 }- f w" `6 s# Q. M# H
Keyoption(7)=1
4 l8 P7 @( C1 N0 l实常数Spin=转子自转角速度(ω) rad/s。 * D$ D: |/ M& i2 ` u
3) 特征值求解方法 * D R. `4 Z" _3 D% O
选取DAMP方法求解特征值。
% ]* P# b6 D0 u. U( Y- I; W) L4) 计算结果处理
+ G, f8 W Q- s! j! D( s3 q采用有限元方法计算转子临界转速时,转子会出现正进动和反进动。由于陀螺效应的作用
7 j+ k+ F" m5 o& |,随着转子自转角速度的提高,反进动固有频率将降低,而正进动固有频率将提高。根据
2 B3 S+ Y7 k3 E5 @8 Y临界转速的定义,应只对正进动固有频率(Ωc)进行分析。 . L) c* a: ^* A1 K8 Y9 x
在后处理中首先剔除负固有频率,然后分析各阶模态振型,确定同一阶振型的正进动和反 % `) t* j4 b7 G+ u! ^* p" D/ A
进动固有频率。
5 L- W6 A, F$ l改变转子自转角速度(ω),计算出新的Ωc,最后画出Ωc~ω曲线,根据临界转速的定 f9 h3 |9 n# X* s! a2 T- c
义,当Ωc=ω时,Ωc即所求临界转速。需注意:由于Ωc的单位为Hz,而ω为rad/s,计算 时应转换单位。 # s( D e# h2 K: B. M
$ p& K- n7 b* @5 C& F4 算例 * E* \; d( v$ o! c0 o
单转子结构如图所示,转子轴近似无质量,轮盘密度8*104Kg/m3,其余材料参数为: " P9 ^1 M6 ?0 n! l$ T6 [, a D0 H
E=200Gpa μ=0.3 : T, c0 B: c* |" P _
- j1 H+ H9 T. J! @ M
! F9 D1 h0 Q2 u7 z0 T/ v) s3 N. E || 4 s* ~/ `3 m& K+ A$ A! i% L& ^
|----50--------| || 4 e3 ]: N! e1 c* `+ D& n. n! i
_____________________________||d=120 l( ^5 {& J6 p
^ ^ d0=10 || * G! o# H* i4 V8 D5 a
|| " L. u* o5 L$ v3 O2 q$ y3 ]
h=0.5 ! ^% J0 X5 m9 c/ p' W
|---------- 100----------------------------------|
/ h( i. v. p& J) U( Z
2 \* n0 c/ l# b0 u+ [
' E$ T# w- [9 g9 E! [8 p算例命令流文件如下:
6 E7 ~3 X. _( Q/PREP7 - \* o* g4 o+ l" \9 {! g" K1 W
ET,1,BEAM4
% z0 V9 w+ s# f1 J% l# @+ q!* ' T; Y" d( V( |. T
KEYOPT,1,2,0 0 z7 o0 y7 p7 o' ?3 O% o8 I" ^
KEYOPT,1,6,0
# m' H: p6 [) F6 H* lKEYOPT,1,7,1 & f$ R3 e _: w' s" j4 a
KEYOPT,1,9,0
1 A5 w* O2 c2 EKEYOPT,1,10,0
" o! F; L D+ E- A% ]# a*SET,p,acos(-1)
* ?+ Y' x) I5 s! |! O$ C3 N, c*SET,R1,5 4 N1 s% m6 U% }
*SET,R2,60
, D$ K' A7 @& ]6 {# O" vR,1,p*R1**2,p*R1**4/4,p*R1**4/4,2*R1,2*R1, ,
0 a- E8 ` S6 h- T1 E3 cRMORE, ,p*R1**4/2, , ,2175, ,
1 {, k' \$ A" KR,2,p*R2**2,p*R2**4/4,p*R2**4/4,2*R2,2*R2, , 3 C# Q% Y6 ?) c9 T- m2 x; t2 V
RMORE, ,p*R2**4/2, , ,2175, ,
+ ~' H! o) }9 C" V6 B1 `8 Q( w# M!* 8 L! T6 Y! t5 V% L
MPTEMP,,,,,,,,
, y j3 m) ]2 O m8 a( V& a9 wMPTEMP,1,0 " d2 G+ Z) ]) H9 A( |3 Z o2 I; J
MPDATA,EX,1,,2e5 * d0 C7 f: h. x4 e5 ?
MPDATA,PRXY,1,,.3
; P6 B/ R) w) X% D+ u) z; V& v$ e+ PMPTEMP,,,,,,,, 9 s6 `( S7 f* c& c) G
MPTEMP,1,0
9 ?8 S# {0 m, D$ t1 {7 p$ eMPDATA,DENS,1,,1e-10
3 q- q, j5 V* mMPTEMP,,,,,,,,
0 W: _0 u, [+ c1 |4 _MPTEMP,1,0
7 N8 J d% U: H/ [MPDATA,EX,2,,2E5
4 J2 z% R6 Z1 S2 oMPDATA,PRXY,2,,.3 + y" d+ H* Q6 r2 c
MPTEMP,,,,,,,, - v* Z5 ^) U" u
MPTEMP,1,0 8 J k3 s) q" H+ Q9 L
MPDATA,DENS,2,,8E-8 " P" o( F0 }1 N8 `7 \5 S+ B
K, ,,,,
' ~. T9 G8 o' I8 ]) { uK, ,100,,, ) P: D# {; r! z, W% b
TYPE, 1
$ \- k& }; H0 M6 h o/ @MAT, 1
8 G8 |6 n8 a+ N$ h m1 z. pREAL, 1 2 m5 o( F4 |$ ^& e0 J" X
ESYS, 0 1 U; ~* ^) u* g8 p" f) ~7 r
LSTR, 1, 2 ' b; y7 I& a( Q7 p& r
LESIZE,ALL, , ,200, ,1, , ,1, , S: M$ D! l( v4 I! P% w
LMESH, 1
) I3 Z& R7 _- D/ T2 a- c7 l6 \) p, g, ND,1,UX ( ?7 E% B# I) k6 V: {
D,1,UY
; R+ S! |+ x# a1 AD,1,UZ ; m' Z9 M- t3 L& Q
D,102,UY 5 }' w5 x2 E% U; q
D,102,UZ
) K0 z; `% W1 B/ E _7 R) zFLST,2,1,2,ORDE,1 8 @% V. `& f5 {6 W
FITEM,2,200 F+ C" x0 \1 e' W( P5 N
EMODIF,P51X,MAT,2,
" o; [% l5 t. Y. t* A+ e" r p8 r5 gFLST,2,1,2,ORDE,1
9 X/ p$ l( n% I: W2 _FITEM,2,200
& c8 ~5 y. b" ]! w2 C8 W* gEMODIF,P51X,REAL,2, 5 B& f4 a3 N% t7 j
FINISH 6 J! f& A; g; a) u; C$ h
/SOLU 2 j8 D- A2 m8 [9 E+ H x- f3 `
!* " W* \* z. D9 Z& }* {; p/ p
ANTYPE,2
5 W* b1 n7 w4 _5 d* i!*
9 T& t6 I' a; Z' ~2 z0 J. |( BMODOPT,DAMP,40
9 ?/ L3 `/ J: b9 |, G+ A/ m% IEQSLV,FRONT / d+ s+ ~% Y6 j
MXPAND,40, , ,0
0 m3 D. t' e. s! b3 WLUMPM,0 ! t& s: Q/ U5 ~& W6 |6 H. Q$ H
PSTRES,0 |! C4 ~5 u. U7 q! Q, l9 J, j. J8 s/ H
8 k5 r" V0 Q# D6 [6 c+ U$ U!* ) s6 u( N9 k8 b: P: b* Z$ M3 j
MODOPT,DAMP,40,10,40000, ,OFF ) J! T5 W1 @* W
/STATUS,SOLU & `7 e. W; X' G) s
SOLVE
" K# t( S0 ]. X6 P0 UFINISH 1 J( m6 F! S( ~2 U9 `) C! I
* _- ?/ Z* c. W: s
(必看)ANSYS转子动力学计算讨论.rar
(17.47 KB, 下载次数: 63)
' @0 T; X8 D- Z1 q' i9 _6 s# S L6 W: }
|