-
Notifications
You must be signed in to change notification settings - Fork 0
/
Copy pathMild_Steel_Free_Vib_Analysis
94 lines (91 loc) · 1.23 KB
/
Mild_Steel_Free_Vib_Analysis
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
finish
/clear
/PREP7
!*
ET,1,SHELL181
!*
!*
MPTEMP,,,,,,,,
MPTEMP,1,0
MPDATA,EX,1,,205e9
MPDATA,EY,1,,205e9
MPDATA,EZ,1,,205e9
MPDATA,PRXY,1,,0.29
MPDATA,PRYZ,1,,0.29
MPDATA,PRXZ,1,,0.29
MPDATA,GXY,1,,80e9
MPDATA,GYZ,1,,80e9
MPDATA,GXZ,1,,80e9
MPTEMP,,,,,,,,
MPTEMP,1,0
MPDATA,DENS,1,,7870
sect,1,shell,,
secdata, 10e-3,1,0.0,3
secoffset,MID
seccontrol,,,, , , ,
CYLIND,0.15, ,0,0.25,0,360,
VDELE, 1
aplot
ADELE, 2
ADELE, 1
FINISH
/SOL
FINISH
/PREP7
MSHAPE,0,2D
MSHKEY,0
!*
FLST,5,2,5,ORDE,2
FITEM,5,3
FITEM,5,-4
CM,_Y,AREA
ASEL, , , ,P51X
CM,_Y1,AREA
CHKMSH,'AREA'
CMSEL,S,_Y
!*
AMESH,_Y1
!*
CMDELE,_Y
CMDELE,_Y1
CMDELE,_Y2
!*
FLST,5,2,5,ORDE,2
FITEM,5,3
FITEM,5,-4
CM,_Y,AREA
ASEL, , , ,P51X
CM,_Y1,AREA
CMSEL,S,_Y
CMDELE,_Y
!*
!*
AREFINE,_Y1, , ,2,0,1,1
CMDELE,_Y1
!*
)/GOP
FINISH
/SOL
FLST,2,8,4,ORDE,2
FITEM,2,1
FITEM,2,-8
!*
/GO
DL,P51X, ,ALL,
)/GOP
ANTYPE,2
!*
!*
MODOPT,LANB,5
EQSLV,SPAR
MXPAND,0, , ,0
LUMPM,0
PSTRES,0
!*
MODOPT,LANB,5,0,0, ,OFF
/STATUS,SOLU
SOLVE
FINISH
/POST1
SET,LIST
)/GOP