|
1、整体刚度和质量矩阵的提取。 / i7 s' ]9 _# b/ R* s
该功能需要进行二次开发,由ansys形成
8 _$ q" G: @+ y% |( n1 K3 h( r的二进制文件.full提取整体刚度和质量 ( Q P; I1 U. f, s
矩阵。 3 Q" n" k! t) K# S
. }% F3 j v" F9 s6 \& \2 t
基于ansys的一个用户开发程序例子编
/ X7 S! O% j" T2 e( z2 x了一个程序(附件中)。 : t; @% w1 J* B- b, V0 Z2 c z9 u
3 e9 O7 N5 A4 B开发环境:compaq fortran 6.5
7 z2 e( r. e7 X! f! H( g; _6 u& {运行环境:win2000。
- p, e9 ?% I6 h9 d; q一个主文件:self.for, 3 F7 }) M; ~1 H+ E @6 W
另一个文件matrixout.f90用于矩阵输出 : Y C% N4 q, w! K: c# H3 I ]) t
binlib.lib为ansys提供的库文件,将其 A- Z& K- S+ X% P$ h$ W& P, J$ N
引入项目中(也可直接扔进debug目录) 4 @! j$ f6 G/ q, [# U
N5 v4 S J+ E% u( p# ]) ?
.full文件由子空间迭代模态分析获得。 # V: F: H1 B8 L9 @! i3 u( s; J+ k4 o
运行编译后的可执行文件.exe
" R/ a6 @( U# a6 c% P1 ^0 c9 u$ g9 y Y: ~3 c
2、单元刚度和质量矩阵的提取。 ( y+ U: m$ |8 [
/DEBUG命令。详细说明可由以下转载文章 . N: G7 m6 u0 g3 \- i) D
3 {- U* [! u& c5 r9 T6 S
finish / M1 A% y+ m' L7 ]& ?: `
/clear
9 Y6 P) O6 G" M* f1 b- K1 `$ H' J4 K
PI=3.1415926
" M, L5 a7 e: d3 R9 n% U- ] \4 m x8 D. f
w1=3 `( ^' g1 t, R8 n# ?/ N9 a1 U8 X
w2=10 1 X/ x* k: G: [# K9 s1 d" E
w3=6
$ F F$ P x' c9 T- u! L- X2 \w4=1.2 ) G! U6 h1 ]2 n& D! s' r! [
r=.8 7 G" C- \0 j$ ~. f4 E# h1 Z
t=0.08
* X9 J% Y* Z4 j5 e# b' |' B3 v" V. A; `- U6 }) D3 E
/PREP7 $ r2 k1 S% a" w: ]/ C h6 k3 `% m
!*
# O9 _- W+ k9 Q8 a% _" MET,1,SHELL63 * Y: R! h3 ~7 x+ I
R,1,t 2 q* a( E* a0 R0 r
/ c$ K' p2 t0 @7 {6 F( k
ET,2,MASS21 % @) j$ D3 q4 v- ?' ^2 b
R,2,500,500,500,2000,2000,2000, % a$ g7 Z7 }5 Y
!*
9 [; [7 X% S9 [6 g9 S; QUIMP,1,EX, , ,2e11
; x! R4 R- X5 S5 _+ J1 K* X0 QUIMP,1,NUXY, , ,0.3,
* ]% n; S3 K& ]7 }' i/ XUIMP,1,DAMP, , ,0.2,
& `) v& [3 }% v. gUIMP,1,DENS, , ,7800, 1 j0 [+ A# ~& a
' `# @+ ~, ?+ e- F( N0 e6 q: M9 ]BLC4,0,0,w2,w1
0 N5 u- K, l- e3 G8 I% CESIZE,1.5,0, ' |2 h# J+ ?3 ?+ U/ D' l2 E, ~3 N
AMESH,all
$ r' `8 r) ?' \7 M8 Y# ^9 d3 C4 _4 ^- @) i- O5 O* |# I; V
NSEL,S,LOC,X,0.0 6 y( n. g$ d7 O! L9 N# ?- J; `1 P
D,all, , , , , ,ALL, , , , ,
/ e: C& ^! g7 ]% o; t' C) T! V: Y* v4 [/ D% A% R& X1 f
allsel,all
% j& {3 S& b2 l u3 B- O% cSFA,all,1,PRES,12 4 [. l3 J8 U5 Z& M7 R( ^1 P3 Y: ?
FINISH 8 E: W9 n4 ]* j$ k
O y8 S9 W" j {0 E) {- T: g4 w/OUTPUT,cp,out,, ! 将输出信息送到cp.out文件 - |# O8 V& t3 P/ Q* O: P y
/debug,-1,,,1 ! 指定输出单元矩阵
4 N1 P6 y% h/ x0 T; U
) z% a5 y5 U9 A) X b( B9 T/SOLU
% l) M6 y, \- ^8 ISOLVE 4 A/ `" `" K& u/ C8 T
finish 8 h6 v' P8 c( }/ h* X, \! B% Q
/ o9 v. v7 G/ Y: k
/OUTPUT, TERM ! 将输出信息送到output windows中
7 h( D1 s$ s( L( E2 Q
) O5 p0 G' @* E7 Y6 W+ z5 t! 这时用编辑器打开cp.out文件,可以看到按单元写出的质量、刚度等矩阵 |
|