|
2#

樓主 |
發(fā)表于 2011-9-30 15:37:04
|
只看該作者
本帖最后由 小小實習(xí)生 于 2011-9-30 15:53 編輯 3 P, z. A" Q$ I5 q
( `, \2 D0 o/ y1 U9 }6 ]這個是經(jīng)典的簡支梁的分析,,移動載荷,,但我做出來的結(jié)果不是怎么的理想,。9 _7 n$ L- Z, ]3 z$ v
FINI
% n8 j k$ f9 j& S3 Y* z3 C/CLE: Y, ~! q1 e) Q( _
!設(shè)置參數(shù); L( d3 L0 B6 ^0 h- z
/CONFIG,NRES,2000
/ j$ l. Z, e4 w5 {5 H: X*SET,LONG,40 !梁長度- k# f n* Q/ d3 G5 L8 r& [
*SET,NE,20 !單元數(shù)6 o3 s6 ~3 O; O$ c4 m/ ^
*SET,DL,LONG/NE !單元長度
7 W4 F5 T! z" ^5 p# {3 j, M*SET,NN,NE+1 !節(jié)點數(shù)2 P& Z9 |6 s6 n( H0 g8 b
*SET,FF,5000 !移動的集中力
& g, G( ?% r! D: c# t*SET,VV,80 !移動速度" I# h# O* _2 J) }4 l0 f/ \: y ^. [
*SET,DT,DL/VV*3.6 !移動經(jīng)過一個單元所需時間
: C1 o$ X3 Y, Y9 c0 H8 K1 a!定義單元材料實常數(shù)
: y2 H* {5 b. I3 v) t! _/PREP7
+ ]8 w8 v9 p$ H5 M2 VET,1,BEAM3 !梁單元
; M) i3 R5 g7 r, JMP,EX,1,50E9 !彈性模量
4 \- Y8 v( S; v. jMP,DENS,1,2500 !密度/ l. L7 ^9 k' T0 B% h
MP,NUXY,1,0.2
. N+ F8 l& Y$ w0 F, ~8 G4 P5 SR,1,0.5,0.041667,1 !幾何常數(shù)
, o- N5 V7 |* B+ b' x!建立模型( T5 L5 W* k' w+ a2 N5 d% U! o
*DO,I,1,NN,17 k" K! `; ]: u3 c
N,I,(I-1)*DL !建立7 y2 W. [( I& W: n2 W$ W7 z5 c4 e
*ENDDO
2 i6 U! @* Z9 t9 Y Z( ~/ `: X*DO,I,1,NE7 h$ n5 p- j* e, j' S
E,I,I+19 J& E d0 N0 X
*ENDDO
2 k1 Y2 r0 @% U1 @" qFINI
8 R) |9 V' e- G2 R!加載與求解: ]; I" f' z. y' @6 \& ^& x' C
/SOL; N0 W& K( \0 B5 C! J7 F- o
D,1,ALL5 Q j9 Z. [% E2 o0 q2 R
D,NN,ALL
4 S& q7 k$ s, D* IANTYPE,4 !瞬態(tài)分析5 L3 Z; o+ P# t% m* [& T
TRNOPT,FULL
* E2 b1 k: H b% O; jTIMINT,OFF
0 a/ s9 u) `* R6 ^3 f, `OUTRES,BASIC,ALL !輸出基本項,每一步都輸出
T' C& {0 O C- m B4 j* ~# VKBC,1 !指定載荷類型
. c) q9 s+ S k1 ]TIME,1E-10 !指定載荷步結(jié)束時間
, k- u" \( `5 s0 \NSUB,4,8 !指定載荷子步數(shù)為4,,最大子步數(shù)為8
0 F o% Y" C8 wSSTIF,ON !打開應(yīng)力剛化效應(yīng); ~) y/ h6 T* v3 m* G9 Y
ACEL,0,9.8,0 !施加重力加速度
0 A+ ^! w; h! Q. Z) p5 J# Y# yALLS !選中所有元素0 y1 ^! [& k0 t# z' @
SOLVE !求解第一個載荷步6 l- Q: B% r$ V
TIMINT,ON; o% a; Q: c+ H4 }
*DO,II,1,NN,1
) K1 v& z0 q8 [6 H( m6 Y* COUTRES,ALL,ALL !輸出所有加載子步的所有結(jié)果
, d5 M( I* O! _/ x* ]- j) [9 \TIME,II*DT !每個荷載步的求解時間1 z$ u- m. u9 D- w# F! K* U% t
NSUBST,5 !每個荷載步包含五個子步8 I i1 B6 F# y5 R7 P
FDELE,ALL,ALL !刪除所有的集中力荷載. d8 O9 R* @, `1 F3 G5 z/ J4 D
NSEL,S,LOC,X,(II-1)*DL !選擇集中力作用節(jié)點
2 b a9 T% o" ]. tF,ALL,FY,-FF !施加集中荷載
4 v' l3 h) a }. z/ VALLSEL !選擇所有% k$ `7 a. a Y! f
SOLVE/ t+ v5 z* f" W9 @
*ENDDO# n4 o9 G" E* u* O3 q' w
SAVE
- U8 N8 d- Q/ @( [0 AFINI
, ]4 ]$ d4 y( J& p7 h3 U# x' I* o/POST1
3 W4 D0 M% k) Y; ASET,NE/2+1,LAST !設(shè)定讀取的載荷步5 x$ g" n9 O5 u$ h" P/ H. x: X
/ESHAPE,1 !顯示梁形狀6 l; i7 i+ @2 g7 }8 P9 T1 m) B
PLNSOL,U,Y,0,1.0 !Y向位移
3 w: Y' ^, a1 dPLNSOL,S,EQV,0,1.0 !等效應(yīng)力, ~4 {& w" p- w8 ?/ s
FINI
; O6 K) P9 z5 f7 L/POST261 _3 n( `" z; B1 W9 b
NSOL,2,NE/2+1,U,Y,UY_M !取出梁中部節(jié)點Y方向的位移 h4 `$ `$ ^$ _9 b* l. T
XVAR,1 !定義時間變量為坐標(biāo)橫軸/ j$ r1 M( D% Z# e9 b3 V$ z
PLVAR,2 !繪制位移隨時間變化的圖形& a: U. p* ~* r0 I. i8 t) g& M
DERIV,3,2,1,,,,,1 !對梁中部節(jié)點的Y向位移進(jìn)行微分運(yùn)算,得到Y(jié)向速度, W" n$ t* x* u* k
PLVAR,3 !繪制速度隨時間變化的圖形+ @- e a, m9 z1 a) Z. M; P
DERIV,4,3,1,,,,,1 !對梁中部節(jié)點的Y向速度進(jìn)行微分運(yùn)算,,得到Y(jié)向加速度
9 {+ v o% B* F, gPLVAR,4 !繪制加速度隨時間變化的圖形1 [$ l$ J4 Y) L+ Y; X6 y A, u7 T
% U# s4 P* G. X4 K8 e9 R
|
-
4.JPG
(28.91 KB, 下載次數(shù): 116)
下載附件
2011-9-30 15:39 上傳
這個是我做的一個懸臂梁中點的位移時間曲線,。
-
526.jpg
(30.62 KB, 下載次數(shù): 171)
下載附件
2011-9-30 15:52 上傳
這個是簡支梁的中點位移時間曲線,,哪位大俠指正下。
|