Ansys Assignment
Ansys Assignment
Ansys Assignment
SUBMITTED BY-
MONJIT GOGOI 200720041009
BHARNAB BORA 200720041003
1
Contents Page no
Truss analysis 48
Solid Modelling 61
Thermal Analysis 93
2
1) Analysis of a simply supported beam of length 2m is subjected to a UDL of 500 KN/m.
Manual calculation
L = 2000 mm
b = 10 mm
d = 10mm
w = 500X103 N
5wL4
Maximum deflection, Ymax =
384EI
bd3
Moment of inertia , I =
12
10X103
I=
12
= 833.33 mm4
5X500X103 X20004
Ymax =
384X2X1010 X833.33X104
= 6250.025 mm
wL2
Bending moment, BM =
8
500X103 X20002
=
8
= 0.25X1012 N-mm
wL
Shear Force, SF =
2
3
500X103 X2000
=
2
= 0.5X109 N
Steps
3) Material properties> Material models> Structural> Linear> Elastic> Isotropic> EX =2e10, PRXY=0.3> Ok
5) Modelling> Create> Keypoints> In active CS> Keypoints number = 1 X,Y,Z = 0,0,0> apply> Keypoints
number = 2 X,Y,Z = 2000,0,0> OK
7) Meshing> Size control> Manual size> Lines> All lines> No. of division of elements = 20> OK
9) Load> Define loads> Apply> Structural> Displacement> On keypoints> Select both the keypoints> OK>
DOF to be constrained – UX,UY,UZ,ROTX,ROTY> OK
10) Pressure> On beams> Select the beam> OK> Load Key – 2, VALI = 500000> OK
4
Ansys modeling
5
Fig - deflection at the nodes
6
Fig – Bending moment diagram
Discussion
Maximum deflection,
Manual calculation
Ymax = 6250.025 mm
Ansys modeling
Ymax= 6227.8 mm
Shear force,
Manual calculation
SF = 0.5X109 N
Ansys modeling
7
SF = 0.475X109 N
Bending moment,
Manual calculation
BM = 0.25X1012 N-mm
Ansys modeling
BM = 0.249X1012 N-mm
Session editor
8
K,2,2000,,,
LSTR, 1, 2
!*
LESIZE,ALL, , ,20, ,1, , ,1,
LMESH, 1
FLST,2,2,3,ORDE,2
FITEM,2,1
FITEM,2,-2
FLST,2,2,3,ORDE,2
FITEM,2,1
FITEM,2,-2
!*
/GO
DK,P51X, , , ,0,UX,UY,UZ,ROTX,ROTY, ,
LPLOT
EPLOT
FLST,2,20,2,ORDE,2
FITEM,2,1
FITEM,2,-20
SFBEAM,P51X,2,PRES,50000, , , , , ,0
FINISH
/SOL
/STATUS,SOLU
SOLVE
)/GOP ! Resume printing after UNDO process
)! We suggest a save at this point
9
2) Analysis of fixed beam of length 2m is subjected to a UDL of 500 KN/m.
Manual calculation
L = 2000 mm
b = 100 mm
d = 100mm
w = 500X103 N
wL4
Maximum deflection, Ymax =
384EI
bd3
Moment of inertia , I =
12
100X1003
I=
12
= 833.33X104 mm4
500X103 X20004
Ymax =
384X2X1010 X833.33X104
= 0.1250 mm
wL2
Bending moment, BM (at ends) =
12
500X103 X20002
=
12
= 1.66X1011 N-m
wL2
BM (at center) =
24
500X103 X20002
=
24
10
= 8.34X1010 N-mm
wL
Shear Force, SF =
12
500X103 X2000
=
2
= 5X108 N
Steps
3) Material properties> Material models> Structural> Linear> Elastic> Isotropic> EX =2e10, PRXY=0.3> Ok
5) Modelling> Create> Keypoints> In active CS> Keypoints number = 1 X,Y,Z = 0,0,0> apply> Keypoints
number = 2 X,Y,Z = 2000,0,0> OK
7) Meshing> Size control> Manual size> Lines> All lines> No. of division of elements = 20> OK
9) Load> Define loads> Apply> Structural> Displacement> On keypoints> Select both the keypoints> OK>
DOF to be constrained – All DOF> OK
10) Pressure> On beams> Select the beam> OK> Load Key – 2, VALI = 500000> OK
Ansys modeling
11
Fig - Fixed beam
12
Fig – Deflection at the nodes
13
Fig – Bending moment diagram
Discussion
Maximum deflection,
Manual calculation
Ymax = 0.1250 mm
Ansys modeling
Ymax= 0.12785 mm
Shear force,
Manual calculation
SF = 5X108 N
Ansys modeling
SF = 0.488X109 N
Bending moment,
14
Manual calculation
Ansys modeling
Session editor
/NOPR ! Suppress printing of UNDO process
/PMACRO ! Echo following commands to log
FINISH ! Make sure we are at BEGIN level
/CLEAR,NOSTART ! Clear model since no SAVE found
! WE SUGGEST YOU REMOVE THIS LINE AND THE FOLLOWING STARTUP LINES
/input,start,ans,'C:\Program Files\ANSYS Inc\v201\ANSYS\apdl\'
/REPLOT,RESIZE
!*
/NOPR
KEYW,PR_SET,1
KEYW,PR_STRUC,1
KEYW,PR_THERM,0
KEYW,PR_FLUID,0
KEYW,PR_ELMAG,0
KEYW,MAGNOD,0
KEYW,MAGEDG,0
KEYW,MAGHFE,0
KEYW,MAGELC,0
KEYW,PR_MULTI,0
/GO
!*
!*
/PREP7
!*
ET,1,BEAM188
!*
!*
MPTEMP,,,,,,,,
MPTEMP,1,0
MPDATA,EX,1,,2e10
MPDATA,PRXY,1,,0.3
/REPLOT,RESIZE
/REPLOT,RESIZE
/REPLOT,RESIZE
SECTYPE, 1, BEAM, RECT, , 0
15
SECOFFSET, CENT
SECDATA,10,10,0,0,0,0,0,0,0,0,0,0
/REPLOT,RESIZE
K,1,,,,
K,2,,2000,,
KDELE, 2
K,2,2000,,,
LSTR, 1, 2
!*
LESIZE,ALL, , ,20, ,1, , ,1,
LMESH, 1
FLST,2,2,3,ORDE,2
FITEM,2,1
FITEM,2,-2
FLST,2,2,3,ORDE,2
FITEM,2,1
FITEM,2,-2
!*
/GO
DK,P51X, , , ,0,UX,UY,UZ,ROTX,ROTY, ,
LPLOT
EPLOT
FLST,2,20,2,ORDE,2
FITEM,2,1
FITEM,2,-20
SFBEAM,P51X,2,PRES,50000, , , , , ,0
FINISH
/SOL
/STATUS,SOLU
SOLVE
FINISH
/POST1
PLDISP,1
LPLOT
EPLOT
!*
/PSF,PRES,NORM,1,0,1
/PBF,DEFA, ,1
/PSYMB,CS,0
/PSYMB,NDIR,0
/PSYMB,ESYS,0
/PSYMB,LDIV,0
/PSYMB,LDIR,0
/PSYMB,ADIR,0
/PSYMB,ECON,0
/PSYMB,XNODE,0
/PSYMB,DOT,1
/PSYMB,PCONV,
/PSYMB,LAYR,0
/PSYMB,FBCS,0
!*
/PBC,ALL, ,1
/REP
16
!*
!*
PLDISP,1
FINISH
/PREP7
FINISH
/SOL
LSCLEAR,ALL
/DIST, 1 ,0.924021,1
/REP,FAST
/DIST, 1 ,0.924021,1
/REP,FAST
/DIST, 1 ,0.924021,1
/REP,FAST
/DIST, 1 ,0.924021,1
/REP,FAST
/DIST, 1 ,1.082226,1
/REP,FAST
/DIST, 1 ,1.082226,1
/REP,FAST
/DIST, 1 ,1.082226,1
/REP,FAST
/DIST, 1 ,1.082226,1
/REP,FAST
/DIST, 1 ,1.082226,1
/REP,FAST
FINISH
/PREP7
FLST,2,2,3,ORDE,2
FITEM,2,1
FITEM,2,-2
!*
/GO
DK,P51X, , , ,0,ALL, , , , , ,
/DIST, 1 ,1.082226,1
/REP,FAST
/DIST, 1 ,1.082226,1
/REP,FAST
/DIST, 1 ,0.924021,1
/REP,FAST
/DIST, 1 ,0.924021,1
/REP,FAST
FLST,2,20,2,ORDE,2
FITEM,2,1
FITEM,2,-20
SFBEAM,P51X,2,PRES,50000, , , , , ,0
FINISH
/SOL
/STATUS,SOLU
SOLVE
FINISH
/POST1
PLDISP,1
17
FINISH
/PREP7
SECTYPE, 1, BEAM, RECT, , 0
SECOFFSET, CENT
SECDATA,100,100,0,0,0,0,0,0,0,0,0,0
FINISH
/SOL
/STATUS,SOLU
SOLVE
FINISH
/POST1
!*
PLDISP,1
PLDISP,1
!*
/EFACET,1
PLNSOL, U,Y, 0,1.0
/EFACET,1
PLNSOL, U,Y, 0,1.0
)/GOP ! Resume printing after UNDO process
)! We suggest a save at this point
18
3) Analysis of a cantilever beam of length 2m is subjected to a UDL of 500 KN/m.
Manual calculation
L = 2000 mm
b = 10 mm
d = 10mm
w = 500X103 N
wL4
Maximum deflection, Ymax =
8EI
bd3
Moment of inertia , I =
12
10X103
I=
12
= 833.33 mm4
500X103 X20004
Ymax =
8X2X1010 X833.33X104
= 6.000 mm
wL2
Bending moment, BM =
2
500X103 X20002
=
2
= 1X1012 N-mm
Shear Force, SF = wL
= 500X103X2000
= 1X109 N
19
Steps
3) Material properties> Material models> Structural> Linear> Elastic> Isotropic> EX =2e10, PRXY=0.3> Ok
5) Modelling> Create> Keypoints> In active CS> Keypoints number = 1 X,Y,Z = 0,0,0> apply> Keypoints
number = 2 X,Y,Z = 2000,0,0> OK
7) Meshing> Size control> Manual size> Lines> All lines> No. of division of elements = 40> OK
9) Load> Define loads> Apply> Structural> Displacement> On keypoints> Select the keypoint 1> OK> DOF to
be constrained – All DOF> OK
10) Pressure> On beams> Select the beam> OK> Load Key – 2, VALI = 500000> OK
Ansys modelling
20
Fig - Cantilever beam
21
Fig – Deflection at different nodes
22
Fig – Shear force diagram
Discussion
Maximum deflection,
23
Manual calculation
Ymax = 6.000 mm
Ansys modeling
Ymax= 6.0157 mm
Shear force,
Manual calculation
SF = 1X109 N
Ansys modeling
SF = 0.987X109 N
Bending moment,
Manual calculation
BM = 1 X1012 N-mm
Ansys modeling
BM = 0.975X1012 N-mm
Session editor
/NOPR ! Suppress printing of UNDO process
/PMACRO ! Echo following commands to log
FINISH ! Make sure we are at BEGIN level
/CLEAR,NOSTART ! Clear model since no SAVE found
! WE SUGGEST YOU REMOVE THIS LINE AND THE FOLLOWING STARTUP LINES
/input,start,ans,'C:\Program Files\ANSYS Inc\v201\ANSYS\apdl\'
/REPLOT,RESIZE
!*
/NOPR
KEYW,PR_SET,1
KEYW,PR_STRUC,1
KEYW,PR_THERM,0
KEYW,PR_FLUID,0
KEYW,PR_ELMAG,0
KEYW,MAGNOD,0
KEYW,MAGEDG,0
KEYW,MAGHFE,0
KEYW,MAGELC,0
KEYW,PR_MULTI,0
/GO
24
!*
!*
/PREP7
!*
ET,1,BEAM188
!*
!*
MPTEMP,,,,,,,,
MPTEMP,1,0
MPDATA,EX,1,,2e10
MPDATA,PRXY,1,,0.3
/REPLOT,RESIZE
/REPLOT,RESIZE
/REPLOT,RESIZE
SECTYPE, 1, BEAM, RECT, , 0
SECOFFSET, CENT
SECDATA,10,10,0,0,0,0,0,0,0,0,0,0
/REPLOT,RESIZE
K,1,,,,
K,2,,2000,,
KDELE, 2
K,2,2000,,,
LSTR, 1, 2
!*
LESIZE,ALL, , ,20, ,1, , ,1,
LMESH, 1
FLST,2,2,3,ORDE,2
FITEM,2,1
FITEM,2,-2
FLST,2,2,3,ORDE,2
FITEM,2,1
FITEM,2,-2
!*
/GO
DK,P51X, , , ,0,UX,UY,UZ,ROTX,ROTY, ,
LPLOT
EPLOT
FLST,2,20,2,ORDE,2
FITEM,2,1
FITEM,2,-20
SFBEAM,P51X,2,PRES,50000, , , , , ,0
FINISH
/SOL
/STATUS,SOLU
SOLVE
FINISH
/POST1
PLDISP,1
LPLOT
EPLOT
!*
/PSF,PRES,NORM,1,0,1
/PBF,DEFA, ,1
25
/PSYMB,CS,0
/PSYMB,NDIR,0
/PSYMB,ESYS,0
/PSYMB,LDIV,0
/PSYMB,LDIR,0
/PSYMB,ADIR,0
/PSYMB,ECON,0
/PSYMB,XNODE,0
/PSYMB,DOT,1
/PSYMB,PCONV,
/PSYMB,LAYR,0
/PSYMB,FBCS,0
!*
/PBC,ALL, ,1
/REP
!*
!*
PLDISP,1
FINISH
/PREP7
FINISH
/SOL
LSCLEAR,ALL
/DIST, 1 ,0.924021,1
/REP,FAST
/DIST, 1 ,0.924021,1
/REP,FAST
/DIST, 1 ,0.924021,1
/REP,FAST
/DIST, 1 ,0.924021,1
/REP,FAST
/DIST, 1 ,1.082226,1
/REP,FAST
/DIST, 1 ,1.082226,1
/REP,FAST
/DIST, 1 ,1.082226,1
/REP,FAST
/DIST, 1 ,1.082226,1
/REP,FAST
/DIST, 1 ,1.082226,1
/REP,FAST
FINISH
/PREP7
FLST,2,2,3,ORDE,2
FITEM,2,1
FITEM,2,-2
!*
/GO
DK,P51X, , , ,0,ALL, , , , , ,
/DIST, 1 ,1.082226,1
/REP,FAST
/DIST, 1 ,1.082226,1
/REP,FAST
26
/DIST, 1 ,0.924021,1
/REP,FAST
/DIST, 1 ,0.924021,1
/REP,FAST
FLST,2,20,2,ORDE,2
FITEM,2,1
FITEM,2,-20
SFBEAM,P51X,2,PRES,50000, , , , , ,0
FINISH
/SOL
/STATUS,SOLU
SOLVE
FINISH
/POST1
PLDISP,1
FINISH
/PREP7
SECTYPE, 1, BEAM, RECT, , 0
SECOFFSET, CENT
SECDATA,100,100,0,0,0,0,0,0,0,0,0,0
FINISH
/SOL
/STATUS,SOLU
SOLVE
FINISH
/POST1
!*
PLDISP,1
PLDISP,1
!*
/EFACET,1
PLNSOL, U,Y, 0,1.0
/EFACET,1
PLNSOL, U,Y, 0,1.0
)/GOP ! Resume printing after UNDO process
)! We suggest a save at this point
27
4) Analysis of linear buckling of a slender column with varying end conditions.
Manual calculation
L = 100 mm
b = 10 mm
d = 10mm
bd3
Moment of inertia , I =
12
10X103
I=
12
= 833.33 mm4
π2 EI
Critical buckling (fixed at one end free at other end) Pcr = 2
(kL)
π2 X2X105 X833.33
= 2
(2X100)
= 41123.18 N
Steps
3) Material properties> Material models> Structural> Linear> Elastic> Isotropic> EX =2e5, PRXY=0.3> Ok
5) Modelling> Create> Keypoints> In active CS> Keypoints number = 1 X,Y,Z = 0,0,0> apply> Keypoints
number = 2 X,Y,Z = 0,100,0> OK
28
7) Meshing> Size control> Manual size> Lines> All lines> No. of division of elements = 30> OK
9) Load> Define loads> Apply> Structural> Displacement> On keypoints> Select the keypoint 1> OK> DOF to
be constrained – All DOF> OK
10) Force/moments> On keypoints > Select keypoint 2 > OK> Direction of force /mom= FY, VALUE
Force/moment value= -1> OK
11) Solution> Unabriged menu> Analysis type> Analysis option> PSTRES = yes> OK
13 Finish
17) Finish
19) Solution> Load step opts> Expansion pass> Single expand> Expand modes> NMODE = 1> OK
Ansys modeling
29
Fig – Slender column
30
Fig – Deflections
Discussion
Critical buckling,
Manual calculation
Pcr = 41123.18 N
Ansys modeling
Pcr= 40902 N
Session editor
/NOPR ! Suppress printing of UNDO process
/PMACRO ! Echo following commands to log
FINISH ! Make sure we are at BEGIN level
/CLEAR,NOSTART ! Clear model since no SAVE found
! WE SUGGEST YOU REMOVE THIS LINE AND THE FOLLOWING STARTUP LINES
!*
/NOPR
KEYW,PR_SET,1
KEYW,PR_STRUC,1
KEYW,PR_THERM,0
KEYW,PR_FLUID,0
31
KEYW,PR_ELMAG,0
KEYW,MAGNOD,0
KEYW,MAGEDG,0
KEYW,MAGHFE,0
KEYW,MAGELC,0
KEYW,PR_MULTI,0
/GO
!*
!*
/PREP7
!*
ET,1,BEAM188
!*
!*
MPTEMP,,,,,,,,
MPTEMP,1,0
MPDATA,EX,1,,2e5
MPDATA,PRXY,1,,0.3
SECTYPE, 1, BEAM, RECT, , 0
SECOFFSET, CENT
SECDATA,10,10,0,0,0,0,0,0,0,0,0,0
K,1,,,,
K,2,,100,,
/UI,BEAM,OFF
LSTR, 1, 2
!*
LESIZE,ALL, , ,20, ,1, , ,1,
LMESH, 1
FINISH
/SOL
FINISH
/PREP7
FINISH
/SOL
!*
ANTYPE,0
!*
!*
NLGEOM,0
NROPT,AUTO, ,
LUMPM,0
EQSLV, , ,0, ,DELE
MSAVE,0
PCGOPT,0, ,AUTO, , ,AUTO
PIVCHECK,0
PSTRESS,1
TOFFST,0,
!*
FLST,2,1,3,ORDE,1
FITEM,2,1
!*
/GO
32
DK,P51X, , , ,0,ALL, , , , , ,
FLST,2,1,3,ORDE,1
FITEM,2,2
!*
/GO
FK,P51X,FY,-1
/STATUS,SOLU
SOLVE
!*
!*
!*
!*
!*
!*
!*
!*
!*
FINISH
/SOLUTION
ANTYPE,1
!*
!*
ANTYPE,1
!*
BUCOPT,LANB,1,0,0,CENTER
MXPAND,1,0,0,1,0.001,
/STATUS,SOLU
SOLVE
FINISH
/POST1
SET,LIST
SET,FIRST
PLDISP,1
! Start of report captures.
~eui,'package require ansys'
~eui,'ansys::report::setdirectory "nonlinear buckling_report"'
/REPLOT,RESIZE
/PLOPTS,MINM,OFF
/REPLOT,RESIZE
~eui,'ansys::report::imagecapture {linear buckling } '
!*
/EFACET,1
PLNSOL, U,X, 0,1.0
~eui,'ansys::report::finished'
/REPLOT,RESIZE
/REPLOT,RESIZE
)/GOP ! Resume printing after UNDO process
)! We suggest a save at this point
33
5) Analysis of non-linear buckling of a slender column with varying end conditions.
L=4m
b = 0.3 m
d = 0.3 m
Steps
3) Material properties> Material models> Structural> Linear> Elastic> Isotropic> EX =2.5e10, PRXY=0.3> Ok
5) Modelling> Create> Keypoints> In active CS> Keypoints number = 1 X,Y,Z = 0,0,0> apply> Keypoints
number = 2 X,Y,Z = 0,4,0> OK
7) Meshing> Size control> Manual size> Lines> All lines> No. of division of elements = 30> OK
9) Load> Define loads> Apply> Structural> Displacement> On keypoints> Select the keypoint 1> OK> DOF to
be constrained – All DOF> OK
10) Force/moments> On keypoints > Select keypoint 2 > OK> Direction of force /mom= FY, VALUE
Force/moment value= -3.5X106, Direction of force /mom= FX, VALUE Force/moment value= -3.5X105 > OK
12) Solution> Analysis type> Sol’n controls> Basic> Analysis options=Large deformation static, Time at the
end of load step=0, Automatic time stepping=ON, Number of substeps=20, Max no. of substeps=1000, Min
no. of substeps=1, Frequency=write every substep> Nonlinear> Line search=ON, Max on of iterations=1000
34
13) Solve> Current LS
Ansys modelling
Fig – solution
35
Fig – Column
36
Fig – Displacement VS Load
Session editor
/NOPR ! Suppress printing of UNDO process
/PMACRO ! Echo following commands to log
FINISH ! Make sure we are at BEGIN level
/CLEAR,NOSTART ! Clear model since no SAVE found
! WE SUGGEST YOU REMOVE THIS LINE AND THE FOLLOWING STARTUP LINES
/input,menust,tmp,''
/GRA,POWER
/GST,ON
/PLO,INFO,3
/GRO,CURL,ON
/CPLANE,1
/REPLOT,RESIZE
WPSTYLE,,,,,,,,0
!*
/NOPR
KEYW,PR_SET,1
KEYW,PR_STRUC,1
KEYW,PR_THERM,0
KEYW,PR_FLUID,0
KEYW,PR_ELMAG,0
KEYW,MAGNOD,0
KEYW,MAGEDG,0
KEYW,MAGHFE,0
KEYW,MAGELC,0
KEYW,PR_MULTI,0
37
/GO
!*
!*
/PREP7
!*
ET,1,BEAM188
!*
!*
MPTEMP,,,,,,,,
MPTEMP,1,0
MPDATA,EX,1,,2.5e10
MPDATA,PRXY,1,,0.3
SECTYPE, 1, BEAM, RECT, , 0
SECOFFSET, CENT
SECDATA,0.3,0.3,0,0,0,0,0,0,0,0,0,0
K,1,,,,
K,2,,4,,
LSTR, 1, 2
FINISH
/SOL
!*
!*
ANTYPE,0
ANTYPE,0
NLGEOM,1
NSUBST,20,1000,1
OUTRES,ERASE
OUTRES,ALL,ALL
AUTOTS,1
LNSRCH,1
NEQIT,1000
FLST,2,1,3,ORDE,1
FITEM,2,1
!*
/GO
DK,P51X, , , ,0,ALL, , , , , ,
FLST,2,1,3,ORDE,1
FITEM,2,2
!*
/GO
FK,P51X,FY,-3.5e6
FLST,2,1,3,ORDE,1
FITEM,2,2
!*
/GO
FK,P51X,FX,-350000
/STATUS,SOLU
SOLVE
FINISH
/PREP7
!*
LESIZE,ALL, , ,30, ,1, , ,1,
38
LMESH, 1
FINISH
/SOL
/STATUS,SOLU
SOLVE
FINISH
/POST1
SET,LIST,999
SET,,, ,,, ,9
PLDISP,1
/DIST, 1 ,1.082226,1
/REP,FAST
/DIST, 1 ,1.082226,1
/REP,FAST
/DIST, 1 ,1.082226,1
/REP,FAST
/DIST, 1 ,1.082226,1
/REP,FAST
/DIST, 1 ,1.082226,1
/REP,FAST
/DIST, 1 ,1.082226,1
/REP,FAST
/DIST, 1 ,1.082226,1
/REP,FAST
/DIST, 1 ,1.082226,1
/REP,FAST
/FOC,1,,0.3,,1
/REP,FAST
/FOC,1,,0.3,,1
/REP,FAST
/FOC,1,,0.3,,1
/REP,FAST
/FOC,1,,-0.3,,1
/REP,FAST
/FOC,1,,-0.3,,1
/REP,FAST
/FOC,1,,0.3,,1
/REP,FAST
/DIST, 1 ,1.082226,1
/REP,FAST
/DIST, 1 ,1.082226,1
/REP,FAST
FINISH
/POST26
FILE,'nonlinear buckling','rst','.'
/UI,COLL,1
NUMVAR,200
SOLU,191,NCMIT
STORE,MERGE
FILLDATA,191,,,,1,1
REALVAR,191,191
!*
39
NSOL,2,2,U,Y, UY_2,
STORE,MERGE
!*
RFORCE,3,1,M,Y, MY_3
STORE,MERGE
XVAR,1
PLVAR,3,
/REPLOT,RESIZE
VARDEL,3
LPLOT
!*
RFORCE,3,1,F,Y, FY_3
STORE,MERGE
XVAR,1
PLVAR,3,
XVAR,3
PLVAR,3,
XVAR,3
PLVAR,3,
XVAR,3
PLVAR,2,
/AXLAB,X,LOAD
/AXLAB,Y,DISPLACEMENT
/GTHK,AXIS,2
/GRTYP,0
/GROPT,ASCAL,ON
/GROPT,LOGX,OFF
/GROPT,LOGY,OFF
/GROPT,AXDV,1
/GROPT,AXNM,ON
/GROPT,AXNSC,1,
/GROPT,DIG1,4,
/GROPT,DIG2,3,
/GROPT,XAXO,0,
/GROPT,YAXO,0,
/GROPT,DIVX,
/GROPT,DIVY,
/GROPT,REVX,0
/GROPT,REVY,0
/GROPT,LTYP,0
!*
/XRANGE,DEFAULT
/YRANGE,DEFAULT,,1
!*
/REPLOT
FINISH
)/GOP ! Resume printing after UNDO process
)! We suggest a save at this point
40
6) Modal analysis of a cantilever beam.
Manual calculation
L=1m
b = 0.01 m
d = 0.01 m
EI
Natural frequency, fn = c√
mL3
bd3
Moment of inertia, I =
12
0.01X0.013
I=
12
= 833.34X10-12 m4
= 0.783 kg
206800X106 X833.34X10−12
So, fn = c√ hz
0.783X13
= c 14.835 hz
c = 0.56
fn1 = 0.56X14.835
41
= 8.3076 hz
c = 3.51
fn2 = 3.51X14.835
= 52.070 hz
c = 9.82
fn3 = 9.82X14.835
= 145.679 hz
c = 19.24
fn4 = 19.24X14.835
= 285.425 hz
c = 31.81
fn5 = 31.81X14.835
= 471.901 hz
Steps
3) Material properties> Material models> Structural> Linear> Elastic> Isotropic> EX =206800X106, PRXY=0.3,
Density=7830> Ok
5) Modelling> Create> Keypoints> In active CS> Keypoints number = 1 X,Y,Z = 0,0,0> apply> Keypoints
number = 2 X,Y,Z = 1,0,0> OK
42
6) Modelling> Create> Lines> Straight lines> Join all the keypoints> OK
7) Meshing> Size control> Manual size> Lines> All lines> No. of division of elements = 40> OK
9) Load> Analysis type> New analysis> Modal> OK> Analysis option> Block Lanczos, No of modes to extract =
10, No of modes to expand = 10> OK
10) Load> Define loads> Apply> Structural> Displacement> On keypoints> Select the keypoint 1> OK> DOF to
be constrained – All DOF> OK
Ansys modelling
43
Fig – Natural frequencies
44
Fig – 3rd natural frequency Fig – 4th natural frequency
Discussion
45
Session editor
/NOPR ! Suppress printing of UNDO process
/PMACRO ! Echo following commands to log
FINISH ! Make sure we are at BEGIN level
/CLEAR,NOSTART ! Clear model since no SAVE found
! WE SUGGEST YOU REMOVE THIS LINE AND THE FOLLOWING STARTUP LINES
/input,start,ans,'C:\Program Files\ANSYS Inc\v201\ANSYS\apdl\'
!*
/REPLOT,RESIZE
!*
/NOPR
KEYW,PR_SET,1
KEYW,PR_STRUC,1
KEYW,PR_THERM,0
KEYW,PR_FLUID,0
KEYW,PR_ELMAG,0
KEYW,MAGNOD,0
KEYW,MAGEDG,0
KEYW,MAGHFE,0
KEYW,MAGELC,0
KEYW,PR_MULTI,0
/GO
!*
!*
/PREP7
!*
ET,1,BEAM188
!*
!*
MPTEMP,,,,,,,,
MPTEMP,1,0
MPDATA,EX,1,,206800e6
MPDATA,PRXY,1,,0.3
MPTEMP,,,,,,,,
MPTEMP,1,0
MPDATA,DENS,1,,7830
SECTYPE, 1, BEAM, RECT, , 0
SECOFFSET, CENT
SECDATA,0.01,0.01,0,0,0,0,0,0,0,0,0,0
K,1,,,,
K,2,1,,,
LSTR, 1, 2
FLST,5,1,4,ORDE,1
FITEM,5,1
CM,_Y,LINE
LSEL, , , ,P51X
CM,_Y1,LINE
CMSEL,,_Y
!*
LESIZE,_Y1, , ,20, , , , ,1
!*
46
LMESH, 1
FINISH
/SOL
FLST,2,1,3,ORDE,1
FITEM,2,1
!*
/GO
DK,P51X, , , ,0,ALL, , , , , ,
!*
ANTYPE,2
!*
!*
MODOPT,SUBSP,5
MXPAND,5, , ,0
LUMPM,0
PSTRES,0
!*
MODOPT,SUBSP,5,0,0, ,OFF
RIGID,
SUBOPT,STRMCHK,0
SUBOPT,MEMORY,AUTO
!*
/STATUS,SOLU
SOLVE
FINISH
/POST1
SET,LIST,999
SET,NEXT
SET,NEXT
SET,LIST,999
SET,,, ,,, ,1
PLDISP,1
SET,LIST,999
SET,,, ,,, ,5
!*
PLDISP,1
SET,LIST,999
)/GOP ! Resume printing after UNDO process
)! We suggest a save at this point
47
7) Truss analysis
Manual calculation
Fy = 100 KN
Reactions, RA = 150 KN
RB=150 KN
Steps
3) Material properties> Material models> Structural> Linear> Elastic> Isotropic> EX =2e10, PRXY=0.3> Ok
4) Sections> Link> Add> Add link section with ID = 1> OK> Section name = truss, Link area = 0.0001, tension
key= tension and compression> OK
X Y Z
1 0 0 0
2 1000 2000 0
3 2000 0 0
4 3000 2000 0
5 4000 0 0
6 5000 2000 0
7 6000 0 0
7) Meshing> Size control> Manual size> Lines> All lines> No. of division of elements = 1> OK
9) Load> Define loads> Apply> Structural> Displacement> On keypoints> Select keypoints 1> OK> DOF to be
constrained – ALL DOF > OK >Select keypoints 7> OK> DOF to be constrained – UY,UZ > OK
10) Force/ moments> on keypoints> select key points 2,4,6> OK> FY> Value = -100> OK
49
Ansys modelling
Fig – Truss
Discussions
Ansys = 150
Session editor
51
/NOPR ! Suppress printing of UNDO process
/PMACRO ! Echo following commands to log
FINISH ! Make sure we are at BEGIN level
/CLEAR,NOSTART ! Clear model since no SAVE found
! WE SUGGEST YOU REMOVE THIS LINE AND THE FOLLOWING STARTUP LINES
/input,menust,tmp,''
/GRA,POWER
/GST,ON
/PLO,INFO,3
/GRO,CURL,ON
/CPLANE,1
/REPLOT,RESIZE
WPSTYLE,,,,,,,,0
/REPLOT,RESIZE
!*
/NOPR
KEYW,PR_SET,1
KEYW,PR_STRUC,1
KEYW,PR_THERM,0
KEYW,PR_FLUID,0
KEYW,PR_ELMAG,0
KEYW,MAGNOD,0
KEYW,MAGEDG,0
KEYW,MAGHFE,0
KEYW,MAGELC,0
KEYW,PR_MULTI,0
/GO
!*
!*
/PREP7
!*
ET,1,LINK180
!*
!*
MPTEMP,,,,,,,,
MPTEMP,1,0
MPDATA,EX,1,,2e10
MPDATA,PRXY,1,,0.3
!*
!*
SECTYPE,1,LINK, ,Truss
SECDATA,0.0001,
SECCONTROL,0,0
!*
K,1,0,0,0,
K,2,2,0,0,
K,3,4,0,0,
K,4,6,0,0,
K,5,1,2,0,
K,6,3,2,0,
K,7,5,2,0,
LSTR, 1, 5
52
LSTR, 1, 2
LSTR, 5, 2
LSTR, 2, 6
LSTR, 6, 3
LSTR, 3, 7
LSTR, 7, 4
LSTR, 2, 3
LSTR, 3, 4
LSTR, 5, 6
LSTR, 6, 7
!*
LATT,1, ,1, , , ,1
!*
LESIZE,ALL, , ,1, ,1, , ,1,
FLST,2,11,4,ORDE,2
FITEM,2,1
FITEM,2,-11
LMESH,P51X
FINISH
/SOL
FLST,2,1,3,ORDE,1
FITEM,2,1
!*
/GO
DK,P51X, , , ,0,ALL, , , , , ,
FLST,2,1,3,ORDE,1
FITEM,2,4
!*
/GO
DK,P51X, , , ,0,UY,UZ, , , , ,
FLST,2,1,3,ORDE,1
FITEM,2,5
!*
/GO
FK,P51X,FY,-100
FLST,2,1,3,ORDE,1
FITEM,2,6
!*
/GO
FK,P51X,FY,-100
FLST,2,1,3,ORDE,1
FITEM,2,7
!*
/GO
FK,P51X,FY,-100
/STATUS,SOLU
SOLVE
FINISH
/POST1
PLDISP,1
PLDISP,1
! Start of report captures.
53
~eui,'package require ansys'
~eui,'ansys::report::setdirectory "Truss_report"'
/REPLOT,RESIZE
/PLOPTS,MINM,OFF
/REPLOT,RESIZE
~eui,'ansys::report::imagecapture {Truss Image displacement} '
~eui,'ansys::report::finished'
/REPLOT,RESIZE
/REPLOT,RESIZE
!*
PRESOL,F
SET,LIST
/SHOW,WIN32C
SET,FIRST
/PLOPTS,INFO,3
/CONTOUR,ALL,18
/PNUM,MAT,1
/NUMBER,1
/REPLOT,RESIZE
! /UIS,ABORT,1
~eui,'::ansys::report::finished'
/SHOW,WIN32
/REPLOT,RESIZE
!*
PRESOL,F
/PNUM,KP,0
/PNUM,LINE,0
/PNUM,AREA,0
/PNUM,VOLU,0
/PNUM,NODE,0
/PNUM,TABN,0
/PNUM,SVAL,0
/NUMBER,1
!*
/PNUM,ELEM,1
/REPLOT
!*
/PNUM,KP,0
/PNUM,LINE,0
/PNUM,AREA,0
/PNUM,VOLU,0
/PNUM,NODE,1
/PNUM,TABN,0
/PNUM,SVAL,0
/NUMBER,1
!*
/PNUM,ELEM,1
/REPLOT
!*
/PNUM,KP,0
/PNUM,LINE,0
/PNUM,AREA,0
54
/PNUM,VOLU,0
/PNUM,NODE,1
/PNUM,TABN,0
/PNUM,SVAL,0
/NUMBER,1
!*
/PNUM,ELEM,1
/REPLOT
!*
/PNUM,KP,1
/PNUM,LINE,1
/PNUM,AREA,1
/PNUM,VOLU,1
/PNUM,NODE,1
/PNUM,TABN,1
/PNUM,SVAL,1
/NUMBER,0
!*
/PNUM,ELEM,1
/REPLOT
!*
/PNUM,KP,0
/PNUM,LINE,0
/PNUM,AREA,0
/PNUM,VOLU,0
/PNUM,NODE,0
/PNUM,TABN,0
/PNUM,SVAL,0
/NUMBER,0
!*
/PNUM,ELEM,1
/REPLOT
!*
/PNUM,KP,0
/PNUM,LINE,0
/PNUM,AREA,0
/PNUM,VOLU,0
/PNUM,NODE,0
/PNUM,TABN,0
/PNUM,SVAL,0
/NUMBER,0
!*
/PNUM,ELEM,1
/REPLOT
!*
/PNUM,KP,0
/PNUM,LINE,0
/PNUM,AREA,0
/PNUM,VOLU,0
/PNUM,NODE,1
/PNUM,TABN,0
/PNUM,SVAL,0
55
/NUMBER,0
!*
/PNUM,ELEM,1
/REPLOT
!*
/DIST, 1 ,1.082226,1
/REP,FAST
/DIST, 1 ,1.082226,1
/REP,FAST
/DIST, 1 ,1.082226,1
/REP,FAST
/DIST, 1 ,0.924021,1
/REP,FAST
/DIST, 1 ,0.924021,1
/REP,FAST
/DIST, 1 ,0.924021,1
/REP,FAST
/DIST, 1 ,0.924021,1
/REP,FAST
/DIST, 1 ,0.924021,1
/REP,FAST
/DIST, 1 ,0.924021,1
/REP,FAST
/DIST, 1 ,0.924021,1
/REP,FAST
/FOC,1,0.3,,,1
/REP,FAST
/FOC,1,0.3,,,1
/REP,FAST
/FOC,1,-0.3,,,1
/REP,FAST
/FOC,1,-0.3,,,1
/REP,FAST
/FOC,1,-0.3,,,1
/REP,FAST
/FOC,1,-0.3,,,1
/REP,FAST
/FOC,1,-0.3,,,1
/REP,FAST
/DIST, 1 ,0.924021,1
/REP,FAST
/DIST, 1 ,0.924021,1
/REP,FAST
/DIST, 1 ,0.924021,1
/REP,FAST
/DIST, 1 ,0.924021,1
/REP,FAST
/DIST, 1 ,0.924021,1
/REP,FAST
/DIST, 1 ,0.924021,1
/REP,FAST
/DIST, 1 ,0.924021,1
56
/REP,FAST
/FOC,1,,0.3,,1
/REP,FAST
/FOC,1,,-0.3,,1
/REP,FAST
/FOC,1,,-0.3,,1
/REP,FAST
/FOC,1,,-0.3,,1
/REP,FAST
/FOC,1,0.3,,,1
/REP,FAST
/FOC,1,0.3,,,1
/REP,FAST
/FOC,1,0.3,,,1
/REP,FAST
/FOC,1,-0.3,,,1
/REP,FAST
/FOC,1,-0.3,,,1
/REP,FAST
/FOC,1,-0.3,,,1
/REP,FAST
/FOC,1,-0.3,,,1
/REP,FAST
/FOC,1,-0.3,,,1
/REP,FAST
/DIST, 1 ,0.924021,1
/REP,FAST
/DIST, 1 ,0.924021,1
/REP,FAST
/DIST, 1 ,0.924021,1
/REP,FAST
/DIST, 1 ,0.924021,1
/REP,FAST
/DIST, 1 ,1.082226,1
/REP,FAST
/DIST, 1 ,1.082226,1
/REP,FAST
/DIST, 1 ,1.082226,1
/REP,FAST
/DIST, 1 ,1.082226,1
/REP,FAST
/DIST, 1 ,1.082226,1
/REP,FAST
/DIST, 1 ,1.082226,1
/REP,FAST
/DIST, 1 ,1.082226,1
/REP,FAST
/DIST, 1 ,1.082226,1
/REP,FAST
/DIST, 1 ,1.082226,1
/REP,FAST
/DIST, 1 ,1.082226,1
57
/REP,FAST
/FOC,1,,-0.3,,1
/REP,FAST
/FOC,1,,-0.3,,1
/REP,FAST
/FOC,1,,0.3,,1
/REP,FAST
/FOC,1,,0.3,,1
/REP,FAST
/FOC,1,,0.3,,1
/REP,FAST
/FOC,1,,0.3,,1
/REP,FAST
/FOC,1,0.3,,,1
/REP,FAST
/FOC,1,0.3,,,1
/REP,FAST
/FOC,1,0.3,,,1
/REP,FAST
/DIST, 1 ,1.082226,1
/REP,FAST
/DIST, 1 ,1.082226,1
/REP,FAST
/DIST, 1 ,1.082226,1
/REP,FAST
/DIST, 1 ,1.082226,1
/REP,FAST
/DIST, 1 ,1.082226,1
/REP,FAST
/DIST, 1 ,1.082226,1
/REP,FAST
/DIST, 1 ,1.082226,1
/REP,FAST
/DIST, 1 ,1.082226,1
/REP,FAST
/FOC,1,0.3,,,1
/REP,FAST
/DIST, 1 ,0.924021,1
/REP,FAST
/DIST, 1 ,0.924021,1
/REP,FAST
/DIST, 1 ,0.924021,1
/REP,FAST
PLDISP,1
!*
PRNSOL,U,Y
FINISH
/SOL
LPLOT
EPLOT
!*
/PSF,PRES,NORM,1,0,1
58
/PBF,DEFA, ,1
/PSYMB,CS,0
/PSYMB,NDIR,0
/PSYMB,ESYS,0
/PSYMB,LDIV,0
/PSYMB,LDIR,0
/PSYMB,ADIR,0
/PSYMB,ECON,0
/PSYMB,XNODE,0
/PSYMB,DOT,1
/PSYMB,PCONV,
/PSYMB,LAYR,0
/PSYMB,FBCS,0
!*
/PBC,ALL, ,1
/REP
!*
/DIST, 1 ,1.082226,1
/REP,FAST
!*
/PSF,PRES,TANY,1,0,1
/PBF,DEFA, ,1
/PSYMB,CS,0
/PSYMB,NDIR,0
/PSYMB,ESYS,0
/PSYMB,LDIV,0
/PSYMB,LDIR,0
/PSYMB,ADIR,0
/PSYMB,ECON,0
/PSYMB,XNODE,0
/PSYMB,DOT,1
/PSYMB,PCONV,
/PSYMB,LAYR,0
/PSYMB,FBCS,0
!*
/PBC,ALL, ,1
/REP
!*
!*
/PSF,PRES,INRM,1,0,1
/PBF,DEFA, ,1
/PSYMB,CS,0
/PSYMB,NDIR,0
/PSYMB,ESYS,0
/PSYMB,LDIV,0
/PSYMB,LDIR,0
/PSYMB,ADIR,0
/PSYMB,ECON,0
/PSYMB,XNODE,0
/PSYMB,DOT,1
/PSYMB,PCONV,
/PSYMB,LAYR,0
59
/PSYMB,FBCS,0
!*
/PBC,ALL, ,1
/REP
!*
!*
/PSF,PRES,INRM,1,0,1
/PBF,DEFA, ,1
/PSYMB,CS,0
/PSYMB,NDIR,0
/PSYMB,ESYS,0
/PSYMB,LDIV,0
/PSYMB,LDIR,0
/PSYMB,ADIR,0
/PSYMB,ECON,0
/PSYMB,XNODE,0
/PSYMB,DOT,1
/PSYMB,PCONV,
/PSYMB,LAYR,0
/PSYMB,FBCS,0
!*
/PBC,ALL,,1
/PBC,NFOR,,0
/PBC,NMOM,,0
/PBC,RFOR,,0
/PBC,RMOM,,0
/PBC,PATH,,0
/REP
!*
! Start of report captures.
~eui,'package require ansys'
~eui,'ansys::report::setdirectory "Truss_report"'
/REPLOT,RESIZE
/PLOPTS,MINM,OFF
/REPLOT,RESIZE
~eui,'ansys::report::imagecapture {Truss Image forces applied} '
~eui,'ansys::report::finished'
/REPLOT,RESIZE
/REPLOT,RESIZE
)/GOP ! Resume printing after UNDO process
)! We suggest a save at this point
60
8) Solid modelling of a pulley.
Steps
2) Preprocessor> Element type> add/edit/delete> Solid> quad 4 node 182> OK> Close
5) Preprocessor > Modeling> Create > Areas> Circle > Solid circles
Circle 1 Circle 2
WP X 3 8.5
WP Y 5.5 0.2
61
Radius 0.5 0.2
7) Modelling> Copy> Areas> Select the circle >OK> DY=4.6> Area> Select the copies Circle> OK > DX= -0.5
12) Modelling> operate> Extrude> Area> About axis> Select the area> OK> Select the keypoints> 1001 &
1002> ARC = 360> OK
X Y Z
2001 0 3 0
2002 1 3 0
2003 0 3 1
18)Modelling> Booleans> Substract> Volume> Select the whole volume> OK> Select the Cylinder > OK
62
63
Session editor
/NOPR ! Suppress printing of UNDO process
/PMACRO ! Echo following commands to log
FINISH ! Make sure we are at BEGIN level
/CLEAR,NOSTART ! Clear model since no SAVE found
! WE SUGGEST YOU REMOVE THIS LINE AND THE FOLLOWING STARTUP LINES
/input,start,ans,'C:\Program Files\ANSYS Inc\v201\ANSYS\apdl\'
!*
/NOPR
KEYW,PR_SET,1
KEYW,PR_STRUC,1
KEYW,PR_THERM,0
KEYW,PR_FLUID,0
KEYW,PR_ELMAG,0
KEYW,MAGNOD,0
KEYW,MAGEDG,0
KEYW,MAGHFE,0
KEYW,MAGELC,0
KEYW,PR_MULTI,0
/GO
!*
!*
/PREP7
!*
ET,1,PLANE182
!*
BLC4,2,0,1,5.5
CYL4,3,5.5,0.5
ASBA, 2, 2
ASBA, 2, 2
ASBA, 1, 2
BLC4,3,2,5,1
BLC4,8,0,0.5,5
FLST,2,3,5,ORDE,2
FITEM,2,1
FITEM,2,-3
AADD,P51X
CYL4,8.5,0.2,0.2
/DIST, 1 ,1.082226,1
/REP,FAST
/DIST, 1 ,1.082226,1
/REP,FAST
/DIST, 1 ,1.082226,1
/REP,FAST
/DIST, 1 ,1.082226,1
/REP,FAST
FLST,3,1,5,ORDE,1
FITEM,3,1
AGEN,2,P51X, , , ,4.6, , ,0
FLST,3,1,5,ORDE,1
FITEM,3,2
64
AGEN,2,P51X, , , ,-0.5, , ,0
ADELE, 3
/DIST, 1 ,1.082226,1
/REP,FAST
/DIST, 1 ,1.082226,1
/REP,FAST
/DIST, 1 ,1.082226,1
/REP,FAST
/DIST, 1 ,0.924021,1
/REP,FAST
/DIST, 1 ,0.924021,1
/REP,FAST
/DIST, 1 ,0.924021,1
/REP,FAST
LPLOT
/DIST, 1 ,0.924021,1
/REP,FAST
/DIST, 1 ,0.924021,1
/REP,FAST
/DIST, 1 ,0.924021,1
/REP,FAST
FLST,2,4,4,ORDE,2
FITEM,2,22
FITEM,2,-25
LDELE,P51X
KPLOT
/DIST, 1 ,0.924021,1
/REP,FAST
/DIST, 1 ,0.924021,1
/REP,FAST
/DIST, 1 ,0.924021,1
/REP,FAST
/DIST, 1 ,1.082226,1
/REP,FAST
/DIST, 1 ,1.082226,1
/REP,FAST
FLST,2,4,3,ORDE,2
FITEM,2,22
FITEM,2,-25
KDELE,P51X
/DIST, 1 ,1.082226,1
/REP,FAST
/DIST, 1 ,1.082226,1
/REP,FAST
/DIST, 1 ,1.082226,1
/REP,FAST
/DIST, 1 ,0.924021,1
/REP,FAST
/DIST, 1 ,0.924021,1
/REP,FAST
/DIST, 1 ,1.082226,1
/REP,FAST
65
/DIST, 1 ,1.082226,1
/REP,FAST
APLOT
FLST,3,1,5,ORDE,1
FITEM,3,2
AGEN,2,P51X, , ,-0.5, , , ,0
FLST,2,4,5,ORDE,2
FITEM,2,1
FITEM,2,-4
AADD,P51X
/DIST, 1 ,0.924021,1
/REP,FAST
/DIST, 1 ,0.924021,1
/REP,FAST
/DIST, 1 ,0.924021,1
/REP,FAST
/DIST, 1 ,0.924021,1
/REP,FAST
/DIST, 1 ,0.924021,1
/REP,FAST
/DIST, 1 ,1.082226,1
/REP,FAST
/DIST, 1 ,1.082226,1
/REP,FAST
/DIST, 1 ,1.082226,1
/REP,FAST
/DIST, 1 ,1.082226,1
/REP,FAST
/DIST, 1 ,1.082226,1
/REP,FAST
/DIST, 1 ,1.082226,1
/REP,FAST
!*
LFILLT,17,5,0.1, ,
/DIST, 1 ,0.924021,1
/REP,FAST
/DIST, 1 ,0.924021,1
/REP,FAST
/DIST, 1 ,0.924021,1
/REP,FAST
/DIST, 1 ,0.924021,1
/REP,FAST
/DIST, 1 ,0.924021,1
/REP,FAST
/DIST, 1 ,0.924021,1
/REP,FAST
/DIST, 1 ,0.924021,1
/REP,FAST
/DIST, 1 ,0.924021,1
/REP,FAST
/DIST, 1 ,0.924021,1
/REP,FAST
66
/DIST, 1 ,0.924021,1
/REP,FAST
/DIST, 1 ,0.924021,1
/REP,FAST
/DIST, 1 ,1.082226,1
/REP,FAST
/DIST, 1 ,1.082226,1
/REP,FAST
/DIST, 1 ,1.082226,1
/REP,FAST
/FOC,1,-0.3,,,1
/REP,FAST
/FOC,1,-0.3,,,1
/REP,FAST
/FOC,1,-0.3,,,1
/REP,FAST
/DIST, 1 ,0.924021,1
/REP,FAST
/DIST, 1 ,0.924021,1
/REP,FAST
/DIST, 1 ,0.924021,1
/REP,FAST
/DIST, 1 ,0.924021,1
/REP,FAST
/DIST, 1 ,0.924021,1
/REP,FAST
/DIST, 1 ,0.924021,1
/REP,FAST
/DIST, 1 ,0.924021,1
/REP,FAST
/DIST, 1 ,0.924021,1
/REP,FAST
/DIST, 1 ,0.924021,1
/REP,FAST
/DIST, 1 ,0.924021,1
/REP,FAST
/DIST, 1 ,0.924021,1
/REP,FAST
LPLOT
/DIST, 1 ,0.924021,1
/REP,FAST
/DIST, 1 ,0.924021,1
/REP,FAST
/DIST, 1 ,0.924021,1
/REP,FAST
/DIST, 1 ,0.924021,1
/REP,FAST
/DIST, 1 ,0.924021,1
/REP,FAST
/DIST, 1 ,0.924021,1
/REP,FAST
/DIST, 1 ,0.924021,1
67
/REP,FAST
/DIST, 1 ,0.924021,1
/REP,FAST
/DIST, 1 ,0.924021,1
/REP,FAST
/DIST, 1 ,0.924021,1
/REP,FAST
/FOC,1,,-0.3,,1
/REP,FAST
/FOC,1,,-0.3,,1
/REP,FAST
/FOC,1,,0.3,,1
/REP,FAST
/FOC,1,,0.3,,1
/REP,FAST
/FOC,1,,0.3,,1
/REP,FAST
/FOC,1,,0.3,,1
/REP,FAST
/FOC,1,0.3,,,1
/REP,FAST
/FOC,1,0.3,,,1
/REP,FAST
/FOC,1,0.3,,,1
/REP,FAST
/FOC,1,-0.3,,,1
/REP,FAST
/FOC,1,-0.3,,,1
/REP,FAST
/FOC,1,-0.3,,,1
/REP,FAST
/FOC,1,-0.3,,,1
/REP,FAST
/FOC,1,-0.3,,,1
/REP,FAST
/FOC,1,-0.3,,,1
/REP,FAST
/FOC,1,,-0.3,,1
/REP,FAST
/FOC,1,,0.3,,1
/REP,FAST
/FOC,1,,0.3,,1
/REP,FAST
/FOC,1,,-0.3,,1
/REP,FAST
/FOC,1,0.3,,,1
/REP,FAST
FLST,2,3,4
FITEM,2,8
FITEM,2,9
FITEM,2,6
AL,P51X
68
/DIST, 1 ,1.082226,1
/REP,FAST
/DIST, 1 ,1.082226,1
/REP,FAST
/DIST, 1 ,1.082226,1
/REP,FAST
/DIST, 1 ,1.082226,1
/REP,FAST
/DIST, 1 ,1.082226,1
/REP,FAST
/DIST, 1 ,1.082226,1
/REP,FAST
/DIST, 1 ,1.082226,1
/REP,FAST
/DIST, 1 ,1.082226,1
/REP,FAST
/DIST, 1 ,1.082226,1
/REP,FAST
/DIST, 1 ,1.082226,1
/REP,FAST
/DIST, 1 ,1.082226,1
/REP,FAST
/DIST, 1 ,1.082226,1
/REP,FAST
/DIST, 1 ,1.082226,1
/REP,FAST
/DIST, 1 ,1.082226,1
/REP,FAST
/DIST, 1 ,1.082226,1
/REP,FAST
/DIST, 1 ,1.082226,1
/REP,FAST
/DIST, 1 ,1.082226,1
/REP,FAST
/DIST, 1 ,1.082226,1
/REP,FAST
/DIST, 1 ,1.082226,1
/REP,FAST
/DIST, 1 ,1.082226,1
/REP,FAST
/DIST, 1 ,1.082226,1
/REP,FAST
/DIST, 1 ,1.082226,1
/REP,FAST
/DIST, 1 ,1.082226,1
/REP,FAST
/DIST, 1 ,1.082226,1
/REP,FAST
/DIST, 1 ,1.082226,1
/REP,FAST
/DIST, 1 ,1.082226,1
/REP,FAST
69
/DIST, 1 ,1.082226,1
/REP,FAST
/DIST, 1 ,1.082226,1
/REP,FAST
/DIST, 1 ,1.082226,1
/REP,FAST
/DIST, 1 ,1.082226,1
/REP,FAST
/DIST, 1 ,1.082226,1
/REP,FAST
/DIST, 1 ,1.082226,1
/REP,FAST
/DIST, 1 ,1.082226,1
/REP,FAST
/DIST, 1 ,1.082226,1
/REP,FAST
/DIST, 1 ,1.082226,1
/REP,FAST
/DIST, 1 ,0.924021,1
/REP,FAST
/DIST, 1 ,0.924021,1
/REP,FAST
/DIST, 1 ,0.924021,1
/REP,FAST
/DIST, 1 ,0.924021,1
/REP,FAST
/DIST, 1 ,0.924021,1
/REP,FAST
/DIST, 1 ,0.924021,1
/REP,FAST
/DIST, 1 ,0.924021,1
/REP,FAST
/DIST, 1 ,0.924021,1
/REP,FAST
/DIST, 1 ,0.924021,1
/REP,FAST
/DIST, 1 ,0.924021,1
/REP,FAST
/DIST, 1 ,0.924021,1
/REP,FAST
/DIST, 1 ,0.924021,1
/REP,FAST
/DIST, 1 ,1.082226,1
/REP,FAST
/DIST, 1 ,1.082226,1
/REP,FAST
/DIST, 1 ,1.082226,1
/REP,FAST
/DIST, 1 ,1.082226,1
/REP,FAST
/DIST, 1 ,1.082226,1
/REP,FAST
70
/DIST, 1 ,1.082226,1
/REP,FAST
/DIST, 1 ,1.082226,1
/REP,FAST
/DIST, 1 ,1.082226,1
/REP,FAST
/DIST, 1 ,1.082226,1
/REP,FAST
/DIST, 1 ,1.082226,1
/REP,FAST
/DIST, 1 ,1.082226,1
/REP,FAST
/DIST, 1 ,1.082226,1
/REP,FAST
/DIST, 1 ,0.924021,1
/REP,FAST
/DIST, 1 ,0.924021,1
/REP,FAST
/DIST, 1 ,0.924021,1
/REP,FAST
/DIST, 1 ,0.924021,1
/REP,FAST
!*
LFILLT,14,2,0.1, ,
!*
LFILLT,5,26,0.1, ,
!*
LFILLT,2,15,0.1, ,
/DIST, 1 ,0.924021,1
/REP,FAST
/DIST, 1 ,0.924021,1
/REP,FAST
/DIST, 1 ,0.924021,1
/REP,FAST
/DIST, 1 ,0.924021,1
/REP,FAST
/DIST, 1 ,0.924021,1
/REP,FAST
/DIST, 1 ,0.924021,1
/REP,FAST
/DIST, 1 ,0.924021,1
/REP,FAST
/DIST, 1 ,0.924021,1
/REP,FAST
/DIST, 1 ,0.924021,1
/REP,FAST
/DIST, 1 ,0.924021,1
/REP,FAST
/DIST, 1 ,0.924021,1
/REP,FAST
/DIST, 1 ,0.924021,1
/REP,FAST
71
/DIST, 1 ,0.924021,1
/REP,FAST
/DIST, 1 ,0.924021,1
/REP,FAST
/DIST, 1 ,0.924021,1
/REP,FAST
/FOC,1,-0.3,,,1
/REP,FAST
/FOC,1,-0.3,,,1
/REP,FAST
/FOC,1,0.3,,,1
/REP,FAST
/FOC,1,0.3,,,1
/REP,FAST
/FOC,1,0.3,,,1
/REP,FAST
/FOC,1,0.3,,,1
/REP,FAST
/DIST, 1 ,0.924021,1
/REP,FAST
/DIST, 1 ,0.924021,1
/REP,FAST
/DIST, 1 ,0.924021,1
/REP,FAST
/FOC,1,,0.3,,1
/REP,FAST
/FOC,1,,0.3,,1
/REP,FAST
/FOC,1,,-0.3,,1
/REP,FAST
/FOC,1,,-0.3,,1
/REP,FAST
/FOC,1,,-0.3,,1
/REP,FAST
/FOC,1,,-0.3,,1
/REP,FAST
/FOC,1,,-0.3,,1
/REP,FAST
/DIST, 1 ,0.924021,1
/REP,FAST
/DIST, 1 ,0.924021,1
/REP,FAST
/DIST, 1 ,0.924021,1
/REP,FAST
/DIST, 1 ,0.924021,1
/REP,FAST
/FOC,1,-0.3,,,1
/REP,FAST
/FOC,1,-0.3,,,1
/REP,FAST
/FOC,1,-0.3,,,1
/REP,FAST
72
/FOC,1,-0.3,,,1
/REP,FAST
/DIST, 1 ,0.924021,1
/REP,FAST
/DIST, 1 ,0.924021,1
/REP,FAST
/DIST, 1 ,0.924021,1
/REP,FAST
/DIST, 1 ,0.924021,1
/REP,FAST
/DIST, 1 ,0.924021,1
/REP,FAST
/DIST, 1 ,0.924021,1
/REP,FAST
/DIST, 1 ,0.924021,1
/REP,FAST
/DIST, 1 ,0.924021,1
/REP,FAST
/DIST, 1 ,0.924021,1
/REP,FAST
FLST,2,3,4
FITEM,2,12
FITEM,2,11
FITEM,2,16
AL,P51X
/DIST, 1 ,1.082226,1
/REP,FAST
/DIST, 1 ,1.082226,1
/REP,FAST
/DIST, 1 ,1.082226,1
/REP,FAST
/DIST, 1 ,1.082226,1
/REP,FAST
/DIST, 1 ,1.082226,1
/REP,FAST
/DIST, 1 ,1.082226,1
/REP,FAST
/DIST, 1 ,1.082226,1
/REP,FAST
/DIST, 1 ,1.082226,1
/REP,FAST
/DIST, 1 ,1.082226,1
/REP,FAST
/DIST, 1 ,1.082226,1
/REP,FAST
/DIST, 1 ,1.082226,1
/REP,FAST
/DIST, 1 ,1.082226,1
/REP,FAST
/DIST, 1 ,1.082226,1
/REP,FAST
/DIST, 1 ,1.082226,1
73
/REP,FAST
/DIST, 1 ,1.082226,1
/REP,FAST
/DIST, 1 ,1.082226,1
/REP,FAST
/DIST, 1 ,1.082226,1
/REP,FAST
/DIST, 1 ,1.082226,1
/REP,FAST
/DIST, 1 ,1.082226,1
/REP,FAST
/DIST, 1 ,1.082226,1
/REP,FAST
/DIST, 1 ,1.082226,1
/REP,FAST
/DIST, 1 ,1.082226,1
/REP,FAST
/DIST, 1 ,1.082226,1
/REP,FAST
/DIST, 1 ,1.082226,1
/REP,FAST
/FOC,1,-0.3,,,1
/REP,FAST
/FOC,1,0.3,,,1
/REP,FAST
/FOC,1,0.3,,,1
/REP,FAST
/FOC,1,0.3,,,1
/REP,FAST
/FOC,1,0.3,,,1
/REP,FAST
/FOC,1,0.3,,,1
/REP,FAST
/FOC,1,0.3,,,1
/REP,FAST
/FOC,1,,0.3,,1
/REP,FAST
/FOC,1,,0.3,,1
/REP,FAST
/FOC,1,,0.3,,1
/REP,FAST
/DIST, 1 ,0.924021,1
/REP,FAST
/DIST, 1 ,0.924021,1
/REP,FAST
/DIST, 1 ,0.924021,1
/REP,FAST
/FOC,1,,-0.3,,1
/REP,FAST
/FOC,1,,-0.3,,1
/REP,FAST
/DIST, 1 ,0.924021,1
74
/REP,FAST
/DIST, 1 ,0.924021,1
/REP,FAST
/DIST, 1 ,0.924021,1
/REP,FAST
/DIST, 1 ,0.924021,1
/REP,FAST
/DIST, 1 ,0.924021,1
/REP,FAST
/DIST, 1 ,0.924021,1
/REP,FAST
/DIST, 1 ,0.924021,1
/REP,FAST
/DIST, 1 ,0.924021,1
/REP,FAST
/DIST, 1 ,1.082226,1
/REP,FAST
/DIST, 1 ,0.924021,1
/REP,FAST
/DIST, 1 ,0.924021,1
/REP,FAST
/FOC,1,0.3,,,1
/REP,FAST
/FOC,1,0.3,,,1
/REP,FAST
/FOC,1,0.3,,,1
/REP,FAST
/DIST, 1 ,0.924021,1
/REP,FAST
/DIST, 1 ,0.924021,1
/REP,FAST
/DIST, 1 ,0.924021,1
/REP,FAST
/DIST, 1 ,0.924021,1
/REP,FAST
/DIST, 1 ,0.924021,1
/REP,FAST
/DIST, 1 ,0.924021,1
/REP,FAST
/DIST, 1 ,0.924021,1
/REP,FAST
FLST,2,3,4
FITEM,2,20
FITEM,2,22
FITEM,2,19
AL,P51X
/FOC,1,,-0.3,,1
/REP,FAST
/FOC,1,,-0.3,,1
/REP,FAST
/FOC,1,,-0.3,,1
/REP,FAST
75
/FOC,1,,-0.3,,1
/REP,FAST
/FOC,1,,-0.3,,1
/REP,FAST
/FOC,1,,-0.3,,1
/REP,FAST
/FOC,1,,-0.3,,1
/REP,FAST
FLST,2,3,4
FITEM,2,30
FITEM,2,31
FITEM,2,25
AL,P51X
/DIST, 1 ,1.082226,1
/REP,FAST
/DIST, 1 ,1.082226,1
/REP,FAST
/DIST, 1 ,1.082226,1
/REP,FAST
/DIST, 1 ,1.082226,1
/REP,FAST
/DIST, 1 ,1.082226,1
/REP,FAST
/DIST, 1 ,1.082226,1
/REP,FAST
/DIST, 1 ,1.082226,1
/REP,FAST
/DIST, 1 ,1.082226,1
/REP,FAST
/DIST, 1 ,1.082226,1
/REP,FAST
/DIST, 1 ,1.082226,1
/REP,FAST
/DIST, 1 ,1.082226,1
/REP,FAST
/DIST, 1 ,1.082226,1
/REP,FAST
/DIST, 1 ,1.082226,1
/REP,FAST
/DIST, 1 ,1.082226,1
/REP,FAST
/DIST, 1 ,1.082226,1
/REP,FAST
/DIST, 1 ,1.082226,1
/REP,FAST
/DIST, 1 ,1.082226,1
/REP,FAST
/DIST, 1 ,1.082226,1
/REP,FAST
/DIST, 1 ,1.082226,1
/REP,FAST
/DIST, 1 ,1.082226,1
76
/REP,FAST
/DIST, 1 ,1.082226,1
/REP,FAST
/DIST, 1 ,1.082226,1
/REP,FAST
/DIST, 1 ,1.082226,1
/REP,FAST
/DIST, 1 ,1.082226,1
/REP,FAST
/DIST, 1 ,1.082226,1
/REP,FAST
/DIST, 1 ,1.082226,1
/REP,FAST
/DIST, 1 ,1.082226,1
/REP,FAST
/DIST, 1 ,1.082226,1
/REP,FAST
/DIST, 1 ,1.082226,1
/REP,FAST
/DIST, 1 ,1.082226,1
/REP,FAST
APLOT
/DIST, 1 ,0.924021,1
/REP,FAST
/DIST, 1 ,0.924021,1
/REP,FAST
/DIST, 1 ,0.924021,1
/REP,FAST
/DIST, 1 ,0.924021,1
/REP,FAST
/DIST, 1 ,0.924021,1
/REP,FAST
/DIST, 1 ,0.924021,1
/REP,FAST
/DIST, 1 ,0.924021,1
/REP,FAST
/DIST, 1 ,0.924021,1
/REP,FAST
/DIST, 1 ,0.924021,1
/REP,FAST
/DIST, 1 ,0.924021,1
/REP,FAST
/DIST, 1 ,0.924021,1
/REP,FAST
/DIST, 1 ,0.924021,1
/REP,FAST
/DIST, 1 ,0.924021,1
/REP,FAST
/DIST, 1 ,0.924021,1
/REP,FAST
/DIST, 1 ,0.924021,1
/REP,FAST
77
/DIST, 1 ,1.082226,1
/REP,FAST
/DIST, 1 ,1.082226,1
/REP,FAST
/DIST, 1 ,1.082226,1
/REP,FAST
/DIST, 1 ,1.082226,1
/REP,FAST
/DIST, 1 ,1.082226,1
/REP,FAST
/DIST, 1 ,1.082226,1
/REP,FAST
/DIST, 1 ,1.082226,1
/REP,FAST
/DIST, 1 ,1.082226,1
/REP,FAST
/DIST, 1 ,1.082226,1
/REP,FAST
/DIST, 1 ,1.082226,1
/REP,FAST
/DIST, 1 ,1.082226,1
/REP,FAST
/DIST, 1 ,1.082226,1
/REP,FAST
/DIST, 1 ,1.082226,1
/REP,FAST
/DIST, 1 ,1.082226,1
/REP,FAST
/DIST, 1 ,0.924021,1
/REP,FAST
/DIST, 1 ,0.924021,1
/REP,FAST
/DIST, 1 ,0.924021,1
/REP,FAST
/DIST, 1 ,0.924021,1
/REP,FAST
/DIST, 1 ,0.924021,1
/REP,FAST
/DIST, 1 ,0.924021,1
/REP,FAST
/DIST, 1 ,0.924021,1
/REP,FAST
/DIST, 1 ,0.924021,1
/REP,FAST
/DIST, 1 ,0.924021,1
/REP,FAST
/DIST, 1 ,0.924021,1
/REP,FAST
/DIST, 1 ,0.924021,1
/REP,FAST
/DIST, 1 ,0.924021,1
/REP,FAST
78
/DIST, 1 ,0.924021,1
/REP,FAST
/DIST, 1 ,0.924021,1
/REP,FAST
/DIST, 1 ,0.924021,1
/REP,FAST
/DIST, 1 ,0.924021,1
/REP,FAST
/DIST, 1 ,0.924021,1
/REP,FAST
/DIST, 1 ,0.924021,1
/REP,FAST
/DIST, 1 ,0.924021,1
/REP,FAST
/FOC,1,0.3,,,1
/REP,FAST
/FOC,1,-0.3,,,1
/REP,FAST
/FOC,1,-0.3,,,1
/REP,FAST
/FOC,1,-0.3,,,1
/REP,FAST
/FOC,1,-0.3,,,1
/REP,FAST
/FOC,1,-0.3,,,1
/REP,FAST
/FOC,1,-0.3,,,1
/REP,FAST
/FOC,1,-0.3,,,1
/REP,FAST
/FOC,1,-0.3,,,1
/REP,FAST
/FOC,1,-0.3,,,1
/REP,FAST
/FOC,1,-0.3,,,1
/REP,FAST
/FOC,1,-0.3,,,1
/REP,FAST
/FOC,1,-0.3,,,1
/REP,FAST
/FOC,1,,0.3,,1
/REP,FAST
/FOC,1,,0.3,,1
/REP,FAST
FLST,2,5,5,ORDE,2
FITEM,2,1
FITEM,2,-5
AADD,P51X
/DIST, 1 ,1.082226,1
/REP,FAST
/DIST, 1 ,1.082226,1
/REP,FAST
79
/DIST, 1 ,1.082226,1
/REP,FAST
/DIST, 1 ,1.082226,1
/REP,FAST
/DIST, 1 ,1.082226,1
/REP,FAST
/DIST, 1 ,1.082226,1
/REP,FAST
/DIST, 1 ,1.082226,1
/REP,FAST
/DIST, 1 ,1.082226,1
/REP,FAST
/DIST, 1 ,1.082226,1
/REP,FAST
/DIST, 1 ,1.082226,1
/REP,FAST
/DIST, 1 ,1.082226,1
/REP,FAST
/DIST, 1 ,1.082226,1
/REP,FAST
/DIST, 1 ,1.082226,1
/REP,FAST
/DIST, 1 ,1.082226,1
/REP,FAST
/DIST, 1 ,1.082226,1
/REP,FAST
/DIST, 1 ,1.082226,1
/REP,FAST
/DIST, 1 ,1.082226,1
/REP,FAST
/DIST, 1 ,0.924021,1
/REP,FAST
/DIST, 1 ,0.924021,1
/REP,FAST
KPLOT
K,1001,0,0,0,
K,1005,0,5,0,
FLST,2,1,5,ORDE,1
FITEM,2,6
FLST,8,2,3
FITEM,8,1005
FITEM,8,1001
VROTAT,P51X, , , , , ,P51X, ,360, ,
/DIST, 1 ,1.082226,1
/REP,FAST
/DIST, 1 ,1.082226,1
/REP,FAST
/DIST, 1 ,1.082226,1
/REP,FAST
/DIST, 1 ,1.082226,1
/REP,FAST
/DIST, 1 ,1.082226,1
80
/REP,FAST
/DIST, 1 ,1.082226,1
/REP,FAST
/DIST, 1 ,1.082226,1
/REP,FAST
/DIST, 1 ,1.082226,1
/REP,FAST
/DIST, 1 ,1.082226,1
/REP,FAST
/DIST, 1 ,1.082226,1
/REP,FAST
/DIST, 1 ,1.082226,1
/REP,FAST
/DIST, 1 ,1.082226,1
/REP,FAST
/DIST, 1 ,1.082226,1
/REP,FAST
/VIEW,1,,,1
/ANG,1
/REP,FAST
/VIEW,1,1,2,3
/ANG,1
/REP,FAST
/ANG,1,-30,XS,1
/REP,FAST
/ANG,1,-30,XS,1
/REP,FAST
/ANG,1,-30,XS,1
/REP,FAST
/ANG,1,30,XS,1
/REP,FAST
/ANG,1,30,XS,1
/REP,FAST
/ANG,1,30,XS,1
/REP,FAST
/ANG,1,30,XS,1
/REP,FAST
K,2001,0,3,0,
K,2002,1,3,0,
K,2003,0,3,1,
KPLOT
/DIST, 1 ,0.924021,1
/REP,FAST
/DIST, 1 ,0.924021,1
/REP,FAST
/DIST, 1 ,0.924021,1
/REP,FAST
/PNUM,KP,1
/PNUM,LINE,0
/PNUM,AREA,0
/PNUM,VOLU,0
/PNUM,NODE,0
81
/PNUM,TABN,0
/PNUM,SVAL,0
/NUMBER,0
!*
/PNUM,ELEM,0
/REPLOT
!*
/DIST, 1 ,0.924021,1
/REP,FAST
/DIST, 1 ,0.924021,1
/REP,FAST
/DIST, 1 ,0.924021,1
/REP,FAST
/DIST, 1 ,0.924021,1
/REP,FAST
/DIST, 1 ,1.082226,1
/REP,FAST
/DIST, 1 ,1.082226,1
/REP,FAST
/DIST, 1 ,1.082226,1
/REP,FAST
/DIST, 1 ,1.082226,1
/REP,FAST
/DIST, 1 ,1.082226,1
/REP,FAST
VPLOT
/DIST, 1 ,0.924021,1
/REP,FAST
/DIST, 1 ,0.924021,1
/REP,FAST
/DIST, 1 ,0.924021,1
/REP,FAST
/DIST, 1 ,0.924021,1
/REP,FAST
/DIST, 1 ,1.082226,1
/REP,FAST
/DIST, 1 ,1.082226,1
/REP,FAST
/DIST, 1 ,1.082226,1
/REP,FAST
/DIST, 1 ,1.082226,1
/REP,FAST
/DIST, 1 ,1.082226,1
/REP,FAST
/DIST, 1 ,1.082226,1
/REP,FAST
/DIST, 1 ,0.924021,1
/REP,FAST
/DIST, 1 ,0.924021,1
/REP,FAST
/DIST, 1 ,0.924021,1
/REP,FAST
82
/DIST, 1 ,0.924021,1
/REP,FAST
/DIST, 1 ,1.082226,1
/REP,FAST
/DIST, 1 ,1.082226,1
/REP,FAST
/DIST, 1 ,1.082226,1
/REP,FAST
/DIST, 1 ,1.082226,1
/REP,FAST
/DIST, 1 ,0.924021,1
/REP,FAST
/DIST, 1 ,0.924021,1
/REP,FAST
/DIST, 1 ,0.924021,1
/REP,FAST
/DIST, 1 ,0.924021,1
/REP,FAST
/DIST, 1 ,0.924021,1
/REP,FAST
/DIST, 1 ,1.082226,1
/REP,FAST
/DIST, 1 ,1.082226,1
/REP,FAST
/DIST, 1 ,1.082226,1
/REP,FAST
/DIST, 1 ,1.082226,1
/REP,FAST
/DIST, 1 ,1.082226,1
/REP,FAST
/DIST, 1 ,1.082226,1
/REP,FAST
/DIST, 1 ,0.924021,1
/REP,FAST
/DIST, 1 ,0.924021,1
/REP,FAST
/DIST, 1 ,0.924021,1
/REP,FAST
/DIST, 1 ,1.082226,1
/REP,FAST
/DIST, 1 ,1.082226,1
/REP,FAST
/DIST, 1 ,1.082226,1
/REP,FAST
/DIST, 1 ,0.924021,1
/REP,FAST
/DIST, 1 ,0.924021,1
/REP,FAST
/DIST, 1 ,0.924021,1
/REP,FAST
/DIST, 1 ,1.082226,1
/REP,FAST
83
/DIST, 1 ,1.082226,1
/REP,FAST
/DIST, 1 ,1.082226,1
/REP,FAST
/DIST, 1 ,0.924021,1
/REP,FAST
/DIST, 1 ,0.924021,1
/REP,FAST
/DIST, 1 ,0.924021,1
/REP,FAST
/DIST, 1 ,1.082226,1
/REP,FAST
/DIST, 1 ,1.082226,1
/REP,FAST
/DIST, 1 ,0.924021,1
/REP,FAST
/DIST, 1 ,0.924021,1
/REP,FAST
/DIST, 1 ,0.924021,1
/REP,FAST
/DIST, 1 ,0.924021,1
/REP,FAST
KPLOT
/DIST, 1 ,0.924021,1
/REP,FAST
/DIST, 1 ,0.924021,1
/REP,FAST
/DIST, 1 ,0.924021,1
/REP,FAST
/DIST, 1 ,0.924021,1
/REP,FAST
/DIST, 1 ,0.924021,1
/REP,FAST
/DIST, 1 ,0.924021,1
/REP,FAST
/DIST, 1 ,0.924021,1
/REP,FAST
/DIST, 1 ,0.924021,1
/REP,FAST
/DIST, 1 ,0.924021,1
/REP,FAST
/DIST, 1 ,0.924021,1
/REP,FAST
/DIST, 1 ,0.924021,1
/REP,FAST
/DIST, 1 ,0.924021,1
/REP,FAST
/DIST, 1 ,0.924021,1
/REP,FAST
/DIST, 1 ,0.924021,1
/REP,FAST
/DIST, 1 ,0.924021,1
84
/REP,FAST
/DIST, 1 ,0.924021,1
/REP,FAST
/DIST, 1 ,1.082226,1
/REP,FAST
/DIST, 1 ,1.082226,1
/REP,FAST
/DIST, 1 ,1.082226,1
/REP,FAST
/DIST, 1 ,1.082226,1
/REP,FAST
/DIST, 1 ,1.082226,1
/REP,FAST
/DIST, 1 ,1.082226,1
/REP,FAST
/DIST, 1 ,1.082226,1
/REP,FAST
/DIST, 1 ,1.082226,1
/REP,FAST
/DIST, 1 ,1.082226,1
/REP,FAST
/DIST, 1 ,1.082226,1
/REP,FAST
KWPLAN,-1, 2001, 2002, 2003
/DIST, 1 ,0.924021,1
/REP,FAST
/DIST, 1 ,0.924021,1
/REP,FAST
/DIST, 1 ,0.924021,1
/REP,FAST
/DIST, 1 ,1.082226,1
/REP,FAST
/DIST, 1 ,1.082226,1
/REP,FAST
/DIST, 1 ,1.082226,1
/REP,FAST
/DIST, 1 ,1.082226,1
/REP,FAST
WPSTYL, STAT
/VIEW,1,,1
/ANG,1
/REP,FAST
VPLOT
/DIST, 1 ,1.082226,1
/REP,FAST
/DIST, 1 ,1.082226,1
/REP,FAST
/DIST, 1 ,1.082226,1
/REP,FAST
/DIST, 1 ,1.082226,1
/REP,FAST
/DIST, 1 ,1.082226,1
85
/REP,FAST
/DIST, 1 ,1.082226,1
/REP,FAST
/DIST, 1 ,1.082226,1
/REP,FAST
/FOC,1,0.3,,,1
/REP,FAST
/FOC,1,-0.3,,,1
/REP,FAST
/FOC,1,-0.3,,,1
/REP,FAST
/DIST, 1 ,0.924021,1
/REP,FAST
/DIST, 1 ,0.924021,1
/REP,FAST
CYL4,5.5,0,0.5, , , ,1
FLST,3,1,6,ORDE,1
FITEM,3,5
VGEN,2,P51X, , ,0,45,0, ,0
/DIST, 1 ,0.924021,1
/REP,FAST
/DIST, 1 ,0.924021,1
/REP,FAST
/DIST, 1 ,0.924021,1
/REP,FAST
/DIST, 1 ,1.082226,1
/REP,FAST
/DIST, 1 ,1.082226,1
/REP,FAST
/DIST, 1 ,1.082226,1
/REP,FAST
FLST,3,1,6,ORDE,1
FITEM,3,5
VGEN,8,P51X, , ,0,45,0, ,0
VDELE, 5
/DIST, 1 ,0.924021,1
/REP,FAST
/DIST, 1 ,0.924021,1
/REP,FAST
/DIST, 1 ,1.082226,1
/REP,FAST
/DIST, 1 ,1.082226,1
/REP,FAST
VDELE, 6
VDELE, 7
VDELE, 8
/DIST, 1 ,0.924021,1
/REP,FAST
/DIST, 1 ,0.924021,1
/REP,FAST
/DIST, 1 ,1.082226,1
/REP,FAST
86
VDELE, 9
VDELE, 10
VDELE, 11
VDELE, 12
/DIST, 1 ,0.924021,1
/REP,FAST
/DIST, 1 ,0.924021,1
/REP,FAST
/DIST, 1 ,1.082226,1
/REP,FAST
/DIST, 1 ,1.082226,1
/REP,FAST
/VIEW,1,1,1,1
/ANG,1
/REP,FAST
/DIST, 1 ,0.924021,1
/REP,FAST
/DIST, 1 ,0.924021,1
/REP,FAST
/DIST, 1 ,1.082226,1
/REP,FAST
/DIST, 1 ,1.082226,1
/REP,FAST
/VIEW,1,,1
/ANG,1
/REP,FAST
/DIST, 1 ,0.924021,1
/REP,FAST
/DIST, 1 ,0.924021,1
/REP,FAST
LPLOT
/DIST, 1 ,0.924021,1
/REP,FAST
/ANG,1,-30,XS,1
/REP,FAST
/ANG,1,-30,XS,1
/REP,FAST
/ANG,1,-30,XS,1
/REP,FAST
/ANG,1,-30,XS,1
/REP,FAST
/DIST, 1 ,0.924021,1
/REP,FAST
/DIST, 1 ,0.924021,1
/REP,FAST
/DIST, 1 ,0.924021,1
/REP,FAST
/DIST, 1 ,0.924021,1
/REP,FAST
/DIST, 1 ,0.924021,1
/REP,FAST
/DIST, 1 ,0.924021,1
87
/REP,FAST
/FOC,1,0.3,,,1
/REP,FAST
/FOC,1,0.3,,,1
/REP,FAST
/FOC,1,0.3,,,1
/REP,FAST
/DIST, 1 ,0.924021,1
/REP,FAST
/DIST, 1 ,0.924021,1
/REP,FAST
/DIST, 1 ,0.924021,1
/REP,FAST
/DIST, 1 ,0.924021,1
/REP,FAST
/DIST, 1 ,0.924021,1
/REP,FAST
/DIST, 1 ,0.924021,1
/REP,FAST
/DIST, 1 ,0.924021,1
/REP,FAST
/DIST, 1 ,1.082226,1
/REP,FAST
/DIST, 1 ,1.082226,1
/REP,FAST
/DIST, 1 ,1.082226,1
/REP,FAST
/DIST, 1 ,1.082226,1
/REP,FAST
/DIST, 1 ,1.082226,1
/REP,FAST
/DIST, 1 ,1.082226,1
/REP,FAST
/DIST, 1 ,1.082226,1
/REP,FAST
/DIST, 1 ,1.082226,1
/REP,FAST
/DIST, 1 ,1.082226,1
/REP,FAST
/DIST, 1 ,1.082226,1
/REP,FAST
/DIST, 1 ,1.082226,1
/REP,FAST
/DIST, 1 ,1.082226,1
/REP,FAST
/DIST, 1 ,1.082226,1
/REP,FAST
/DIST, 1 ,1.082226,1
/REP,FAST
/DIST, 1 ,1.082226,1
/REP,FAST
/DIST, 1 ,1.082226,1
88
/REP,FAST
/DIST, 1 ,1.082226,1
/REP,FAST
/DIST, 1 ,1.082226,1
/REP,FAST
/DIST, 1 ,1.082226,1
/REP,FAST
VPLOT
/VIEW,1,,1
/ANG,1
/REP,FAST
/FOC,1,0.3,,,1
/REP,FAST
/FOC,1,-0.3,,,1
/REP,FAST
/FOC,1,-0.3,,,1
/REP,FAST
CSYS,5
VDELE, 13
/DIST, 1 ,0.924021,1
/REP,FAST
/DIST, 1 ,0.924021,1
/REP,FAST
/DIST, 1 ,1.082226,1
/REP,FAST
/DIST, 1 ,1.082226,1
/REP,FAST
CYL4,5.5,0,0.5, , , ,1
/DIST, 1 ,0.924021,1
/REP,FAST
/DIST, 1 ,0.924021,1
/REP,FAST
/DIST, 1 ,0.924021,1
/REP,FAST
/DIST, 1 ,0.924021,1
/REP,FAST
/DIST, 1 ,1.082226,1
/REP,FAST
/DIST, 1 ,1.082226,1
/REP,FAST
/DIST, 1 ,1.082226,1
/REP,FAST
/DIST, 1 ,1.082226,1
/REP,FAST
FLST,3,1,6,ORDE,1
FITEM,3,5
VGEN,8,P51X, , ,0,45,0, ,0
FLST,2,8,6,ORDE,2
FITEM,2,5
FITEM,2,-12
FLST,2,4,6,ORDE,2
FITEM,2,1
89
FITEM,2,-4
FLST,3,8,6,ORDE,2
FITEM,3,5
FITEM,3,-12
VSBV,P51X,P51X
/DIST, 1 ,0.924021,1
/REP,FAST
/DIST, 1 ,0.924021,1
/REP,FAST
/DIST, 1 ,0.924021,1
/REP,FAST
/DIST, 1 ,1.082226,1
/REP,FAST
/DIST, 1 ,1.082226,1
/REP,FAST
/VIEW,1,,-1
/ANG,1
/REP,FAST
/VIEW,1,,-1
/ANG,1
/REP,FAST
/VIEW,1,,,1
/ANG,1
/REP,FAST
/VIEW,1,1,2,3
/ANG,1
/REP,FAST
/VIEW,1,1,1,1
/ANG,1
/REP,FAST
/PNUM,KP,0
/PNUM,LINE,0
/PNUM,AREA,0
/PNUM,VOLU,0
/PNUM,NODE,0
/PNUM,TABN,0
/PNUM,SVAL,0
/NUMBER,0
!*
/PNUM,ELEM,0
/REPLOT
!*
/PNUM,KP,0
/PNUM,LINE,0
/PNUM,AREA,0
/PNUM,VOLU,0
/PNUM,NODE,0
/PNUM,TABN,0
/PNUM,SVAL,0
/NUMBER,0
!*
/PNUM,ELEM,0
90
/REPLOT
!*
! Start of report captures.
~eui,'package require ansys'
~eui,'ansys::report::setdirectory "Spindle base_report"'
/REPLOT,RESIZE
/PLOPTS,MINM,OFF
/REPLOT,RESIZE
/TYPE,1,6
/SHADE,1,1
!*
/WIND,ALL,OFF
/WIND,1,FULL
GPLOT
/DIST, 1 ,0.924021,1
/REP,FAST
/DIST, 1 ,0.924021,1
/REP,FAST
/DIST, 1 ,1.082226,1
/REP,FAST
/DIST, 1 ,1.082226,1
/REP,FAST
~eui,'ansys::report::finished'
/REPLOT,RESIZE
/REPLOT,RESIZE
VPLOT
! Start of report captures.
~eui,'package require ansys'
~eui,'ansys::report::setdirectory "Spindle base_report"'
/REPLOT,RESIZE
/PLOPTS,MINM,OFF
/REPLOT,RESIZE
/DIST, 1 ,0.924021,1
/REP,FAST
/DIST, 1 ,0.924021,1
/REP,FAST
/DIST, 1 ,0.924021,1
/REP,FAST
/DIST, 1 ,0.924021,1
/REP,FAST
/DIST, 1 ,0.924021,1
/REP,FAST
/DIST, 1 ,1.082226,1
/REP,FAST
/DIST, 1 ,1.082226,1
/REP,FAST
/DIST, 1 ,1.082226,1
/REP,FAST
/DIST, 1 ,1.082226,1
/REP,FAST
~eui,'ansys::report::imagecapture {Spindle base Image 1} '
/VIEW,1,1,1,1
91
/ANG,1
/REP,FAST
/VIEW,1,1,2,3
/ANG,1
/REP,FAST
/VIEW,1,,,1
/ANG,1
/REP,FAST
/VIEW,1,1,2,3
/ANG,1
/REP,FAST
/VIEW,1,,,1
/ANG,1
/REP,FAST
~eui,'ansys::report::imagecapture {Spindle base Image 2} '
/VIEW,1,1
/ANG,1
/REP,FAST
/VIEW,1,,1
/ANG,1
/REP,FAST
~eui,'ansys::report::imagecapture {Spindle base Image 3} '
/VIEW,1,,-1
/ANG,1
/REP,FAST
/VIEW,1,-1
/ANG,1
/REP,FAST
/VIEW,1,,,-1
/ANG,1
/REP,FAST
)/GOP ! Resume printing after UNDO process
)! We suggest a save at this point
92
9) Thermal analysis
Steps
1) Preferences> thermal> OK
2) Preprocessor> Element type> add/edit/delete> Solid> quad 4 node 55> OK> Close
3) Material properties> Material models> Favorites> Linear static> Linear isotropic> EX =2e5, PRXY=0.3> OK>
5) Meshing> Mesh tool> Smart size , 2>Mesh> Select the area > OK
6) Loads> Define loads> Apply> Thermal> On lines > Select the top line> OK> TEMP, Value load temp value =
170> OK> On lines> Select the bottom line> OK> TEMP, Value load temp value = 170> OK
7) Convection> On lines> Select the left line>Ok> Constant value> OK> On lines> Select the right line>Ok>
VALI = 55, VAL2 =24> OK>
93
Session editor
/NOPR ! Suppress printing of UNDO process
/PMACRO ! Echo following commands to log
FINISH ! Make sure we are at BEGIN level
/CLEAR,NOSTART ! Clear model since no SAVE found
! WE SUGGEST YOU REMOVE THIS LINE AND THE FOLLOWING STARTUP LINES
/input,menust,tmp,''
/GRA,POWER
/GST,ON
/PLO,INFO,3
/GRO,CURL,ON
/CPLANE,1
/REPLOT,RESIZE
WPSTYLE,,,,,,,,0
/REPLOT,RESIZE
!*
/NOPR
KEYW,PR_SET,1
KEYW,PR_STRUC,0
KEYW,PR_THERM,1
KEYW,PR_FLUID,0
KEYW,PR_ELMAG,0
KEYW,MAGNOD,0
KEYW,MAGEDG,0
KEYW,MAGHFE,0
KEYW,MAGELC,0
KEYW,PR_MULTI,0
/GO
!*
!*
!*
/NOPR
KEYW,PR_SET,1
KEYW,PR_STRUC,0
KEYW,PR_THERM,1
KEYW,PR_FLUID,0
KEYW,PR_ELMAG,0
KEYW,MAGNOD,0
KEYW,MAGEDG,0
KEYW,MAGHFE,0
KEYW,MAGELC,0
KEYW,PR_MULTI,0
/GO
!*
!*
/PREP7
94
!*
ET,1,PLANE55
!*
!*
MPTEMP,,,,,,,,
MPTEMP,1,0
MPDATA,EX,1,,2e5
MPDATA,PRXY,1,,0.3
MPTEMP,,,,,,,,
MPTEMP,1,0
MPDATA,KXX,1,,1.50
RECTNG,,0.5,,0.7,
SMRT,6
SMRT,2
MSHAPE,0,2D
MSHKEY,0
!*
CM,_Y,AREA
ASEL, , , , 1
CM,_Y1,AREA
CHKMSH,'AREA'
CMSEL,S,_Y
!*
AMESH,_Y1
!*
CMDELE,_Y
CMDELE,_Y1
CMDELE,_Y2
!*
FINISH
/SOL
FINISH
/PREP7
FLST,2,1,4,ORDE,1
FITEM,2,3
!*
/GO
DL,P51X, ,TEMP,170,0
FLST,2,1,4,ORDE,1
FITEM,2,2
!*
/GO
DL,P51X, ,TEMP,170,0
DLDELE, 2,TEMP
FLST,2,1,4,ORDE,1
FITEM,2,1
!*
95
/GO
DL,P51X, ,TEMP,170,0
FLST,2,1,4,ORDE,1
FITEM,2,4
/GO
!*
SFL,P51X,CONV, , , ,
FLST,2,1,4,ORDE,1
FITEM,2,2
/GO
!*
SFL,P51X,CONV,55, ,24,
FINISH
/SOL
/STATUS,SOLU
SOLVE
! Start of report captures.
~eui,'package require ansys'
~eui,'ansys::report::setdirectory "thermal analysis_report"'
/REPLOT,RESIZE
/PLOPTS,MINM,OFF
/REPLOT,RESIZE
~eui,'ansys::report::imagecapture {thermal analysis Image 1} '
~eui,'ansys::report::finished'
/REPLOT,RESIZE
/REPLOT,RESIZE
FINISH
/POST1
!*
/EFACET,1
PLNSOL, TEMP,, 0
/EFACET,1
PLNSOL, TEMP,, 0
! Start of report captures.
~eui,'package require ansys'
~eui,'ansys::report::setdirectory "thermal analysis_report"'
/REPLOT,RESIZE
/PLOPTS,MINM,OFF
/REPLOT,RESIZE
~eui,'ansys::report::finished'
/REPLOT,RESIZE
/REPLOT,RESIZE
)/GOP ! Resume printing after UNDO process
)! We suggest a save at this point
96
97