(ANSYS APDL STRUCTURAL) Model problem on shell's & Command prompt

Preferences > structural > ok.

Pre - processor > element type > add/edit/delete > add > shell > 3D - 4 node 181 > ok > close.

Pre - processor > material properties > material model > structural > linear > elastic > isotropic > enter (EX = 50, PRXY = 0.49) > ok > materials > exit.

Pre - processors > sections > shell > lay-up > add/edit > enter "thickens = 1 > ok.

Pre - processor > modelling > create > key points >  in active cs > enter the below co-ordinates.

Key point No	X - location	Y - location	Z - location
1	0	0	0	Apply
2	10	5	0	Apply
3	10	15	0	Apply
4	0	5	0	apply
5	0	15	0	Ok

Pre - processor > modeling > create > lines > lines > straight lines > join (key points 2&3) > ok.

Pre - processors > modeling > create > lines > arcs > by end kps & radius > select (key point 1&2) > ok > select key point 4 > ok > enter radius =15 > ok.

Pre - processors > modeling > operate > extrude > lines > about axis > (select lines 1-2 & 2-3) > ok > select key point (1 & 5) > ok > enter arc length in degrees = 360 > ok.

Pre - processor > meshing > mesh tool > in size control > element edge length = 0.1 > select " mesh " > pick all > ok.

Pre - processor > loads > define loads > apply > structural > displacement > on lines > select the open side lines as shown in the diagram > ok.

Pre - processor > loads > define loads > apply > structural > force/moment > on nodes > select some nodes at the closed side of the shell ( bullet ) > ok > FY = 100 > ok.

Solution > solve > current LS > ok > close.

General post processor > plot results > deformed shape > def+ un-deformed > ok.

General post processor > plot results > nodal solution > DOF solution > displacement sum vector > ok.

Command prompt (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

KEYW,PR_CFD,0  

/GO

!* 

!* 

/PREP7 

!* 

ET,1,SHELL181  

!* 

!* 

MPTEMP,,,,,,,, 

MPTEMP,1,0 

MPDATA,EX,1,,40

MPDATA,PRXY,1,,0.49

sect,1,shell,, 

secdata, 1,1,0.0,3 

secoffset,MID  

seccontrol,,,, , , ,

K,1,,,,

K,2,10,5,, 

K,3,10,15,,

K,4,0,5,,  

K,5,0,15,, 

LSTR,       3,       2 

!* 

LARC,1,2,4,15, 

FLST,2,2,4,ORDE,2  

FITEM,2,1  

FITEM,2,-2 

FLST,8,2,3 

FITEM,8,1  

FITEM,8,5  

AROTAT,P51X, , , , , ,P51X, ,360, ,

/USER,  1  

/FOC,   1,  0.668417146500    ,   8.39168148334    ,   0.00000000000

/REPLO 

/VIEW,  1,  0.114111073660    ,  0.232803291520    ,  0.965806031419

/ANG,   1,  0.875239728119 

/REPLO 

TYPE,   1  

MAT,       1

REAL,  

ESYS,       0  

SECNUM,   1

!* 

MSHAPE,0,2D

MSHKEY,0

!* 

FLST,5,8,5,ORDE,2  

FITEM,5,1  

FITEM,5,-8 

CM,_Y,AREA 

ASEL, , , ,P51X

CM,_Y1,AREA

CHKMSH,'AREA'  

CMSEL,S,_Y 

!* 

AMESH,_Y1  

!* 

CMDELE,_Y  

CMDELE,_Y1 

CMDELE,_Y2 

!* 

FLST,2,8,5,ORDE,2  

FITEM,2,1  

FITEM,2,-8 

ACLEAR,P51X

GPLOT  

ESIZE,1,0, 

FLST,5,8,5,ORDE,2  

FITEM,5,1  

FITEM,5,-8 

CM,_Y,AREA 

ASEL, , , ,P51X

CM,_Y1,AREA

CHKMSH,'AREA'  

CMSEL,S,_Y 

!* 

AMESH,_Y1  

!* 

CMDELE,_Y  

CMDELE,_Y1 

CMDELE,_Y2 

!* 

FLST,2,4,4,ORDE,4  

FITEM,2,9  

FITEM,2,11 

FITEM,2,13 

FITEM,2,15 

!* 

/GO

DL,P51X, ,ALL, 

/VIEW,  1,  0.102347774109    , -0.402411652996    ,  0.909719624207

/ANG,   1,   1.84487096348 

/REPLO 

/VIEW,  1,  0.296450509111    , -0.608358771044    ,  0.736217835523

/ANG,   1,  -5.85913971632 

/REPLO 

/VIEW,  1,  0.352821695791    , -0.664681027576    ,  0.658571167422

/ANG,   1,  -9.82717985014 

/REPLO 

FLST,2,65,1,ORDE,40

FITEM,2,188

FITEM,2,-192

FITEM,2,200

FITEM,2,-202

FITEM,2,244

FITEM,2,265

FITEM,2,383

FITEM,2,-387

FITEM,2,392

FITEM,2,-397

FITEM,2,400

FITEM,2,-405

FITEM,2,410

FITEM,2,-413

FITEM,2,419

FITEM,2,-424

FITEM,2,430

FITEM,2,498

FITEM,2,-500

FITEM,2,515

FITEM,2,517

FITEM,2,542

FITEM,2,-543

FITEM,2,563

FITEM,2,-565

FITEM,2,796

FITEM,2,-798

FITEM,2,840

FITEM,2,-841

FITEM,2,861

FITEM,2,-862

FITEM,2,1102

FITEM,2,1112

FITEM,2,-1113  

FITEM,2,1120

FITEM,2,-1121  

FITEM,2,1140

FITEM,2,-1142  

FITEM,2,1150

FITEM,2,1177

!* 

/GO

F,P51X,FY,100  

FINISH 

/SOL

/STATUS,SOLU

SOLVE  

FINISH 

/POST1 

!* 

/EFACET,1  

PLNSOL, U,SUM, 0,1.0

/VIEW,  1,  0.700487658994    , -0.668532756642    ,  0.249761872379

/ANG,   1,  -39.2647639656 

/REPLO 

/VIEW,  1,  0.861306639378    , -0.507485960896    ,  0.246753410760E-01

/ANG,   1,  -49.9396414449 

/REPLO 

/VIEW,  1,  0.928762322705    , -0.350329245521    , -0.121119641910

/ANG,   1,  -53.8642761591 

/REPLO 

!* 

PLDISP,1

!* 

)/GOP    ! Resume printing after UNDO process  

)! We suggest a save at this point