青华模具培训学校

 找回密码
 注册

QQ登录

只需一步,快速开始

青华模具培训学院
查看: 1344|回复: 0

ANSYS中整体、单元刚度和质量矩阵的提取

[复制链接]
发表于 2012-8-17 10:40 | 显示全部楼层 |阅读模式
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文件,可以看到按单元写出的质量、刚度等矩阵
您需要登录后才可以回帖 登录 | 注册

本版积分规则

QQ|关于我们|sitemap|小黑屋|Archiver|手机版|UG网-UG技术论坛-青华数控模具培训学校 ( 粤ICP备15108561号 )

GMT+8, 2025-2-25 17:20 , Processed in 0.057321 second(s), 24 queries .

Powered by Discuz! X3.5 Licensed

© 2001-2024 Discuz! Team.

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