Learning Forum

[spikanor1320]

Hello!

i´m using a full crack model in APDL, so i need pick five nodes in order to calculate the stress intensity factor (KCALC), but the only way that i can select thoses nodes is if i know their numbers in NLIST, but i wonder if i can use the command flst and fitem with coordinates instead. 

This is the code, i appreciate any help.

/CLEAR,NOSTART

/prep7

/TITLE,MECHANIC STRESS INTENSITY - EDGE CRACK

ET,1,PLANE183

KEYOPT,1,1,1

KEYOPT,1,3,2

KEYOPT,1,6,0

MPTEMP,,,,,,,,

MPTEMP,1,0

MPDATA,EX,1,,30E6

MPDATA,PRXY,1,,0.3

*AFUN,DEG

K,1,0,12.853553,,

K,2,0.707107,12.146447,,

K,3,0,12.853553,,

K,4,0,0,,

K,5,5.000000,0,,

K,6,5.000000,7.853553,,

K,7,5.000000,25.000000,,,

K,8,0,25.000000,,,

LSTR,       4,       5

LSTR,       5,       6

LSTR,       6,       2

LSTR,       2,       1

LSTR,       1,       4

LSTR,       6,       7

LSTR,       7,       8

LSTR,       8,       3

LSTR,       3,       2

/PNUM,KP,1

/PNUM,LINE,1

/PNUM,AREA,0

/PNUM,VOLU,0

/PNUM,NODE,0

/PNUM,TABN,0

/PNUM,SVAL,0

/PNUM,DOMA,0

/NUMBER,0

!*

/PNUM,ELEM,0

/REPLOT

!*

LPLOT

FLST,2,5,4

FITEM,2,1

FITEM,2,2

FITEM,2,3

FITEM,2,4

FITEM,2,5

AL,P51X

FLST,2,5,4

FITEM,2,6

FITEM,2,7

FITEM,2,8

FITEM,2,9

FITEM,2,3

AL,P51X

!*

CSKP,11,0,2,6,7,1,1,

CSYS,0

!*

KSCON,2,1/20,1,6,0,

!*

KESIZE,ALL,5/3

FLST,5,2,3,ORDE,2

FITEM,5,1

FITEM,5,3

CM,_Y,KP

KSEL, , , ,P51X

CM,_Y1,KP

CMSEL,S,_Y

!*

!*

CMSEL,S,_Y1

KESIZE,ALL,1/3

CMSEL,S,_Y

CMDELE,_Y1

CMDELE,_Y

!*

FLST,5,1,3,ORDE,1

FITEM,5,2

CM,_Y,KP

KSEL, , , ,P51X

CM,_Y1,KP

CMSEL,S,_Y

!*

!*

CMSEL,S,_Y1

KESIZE,ALL,1/30

CMSEL,S,_Y

CMDELE,_Y1

CMDELE,_Y

!*

MSHKEY,0

FLST,5,2,5,ORDE,2

FITEM,5,1 

FITEM,5,-2

CM,_Y,AREA

ASEL, , , ,P51X 

CM,_Y1,AREA 

CHKMSH,'AREA'

CMSEL,S,_Y  

!*

AMESH,_Y1

!*

CMDELE,_Y 

CMDELE,_Y1 

CMDELE,_Y2 

!*

FLST,2,7,1,ORDE,2 

FITEM,2,1 

FITEM,2,-7 

!*

/GO

D,P51X, ,, , , ,UY, , , , 

FLST,2,1,1,ORDE,1

FITEM,2,1

!*

/GO

D,P51X, ,, , , ,UY,UX, , ,

/REPLOT,RESIZE

NSEL,S,LOC,Y,25.000000

/GO

!*

SF,ALL,PRES,-100.000000

/SOLU

/STATUS,SOLU

SOLVE

!*

FINISH

/POST1

PLDISP,0

/REPLOT,RESIZE

CSYS,11,

!*

RSYS,11

AVPRIN,0

AVRES,2,

/EFACET,1

LAYER,0

FORCE,TOTAL

/EFACET,1

PLNSOL, S,Y, 0,1.0

/ZOOM,1,RECT,0.180074,0.049027,0.335366,-0.114397 

/UI,COPY,SAVE,PNG,GRAPH,COLOR,NORM,PORTRAIT,YES

!*

FLST,5,5,8

FITEM,5,0.70711,12.146

FITEM,5,0.69827,12.155

FITEM,5,0.67175,12.182

FITEM,5,0.67175,12.182

FITEM,5,0.69827,12.155

!*

PATH,crk,5,30,20,

PPATH,P51X,1

PATH,STAT

!*

/OUTPUT,'test','txt','C:Usersrodrigo',

KCALC,0,1,3,0

!*

FLST,2,2,1

FITEM,2,18

FITEM,2,34

!*

PATH,strs,2,30,20,

PPATH,P51X,1

PATH,STAT

!*

AVPRIN,0,,

!*

PDEF,,S,Y,AVG

/PBC,PATH,,0

!*

AVPRIN,0,,

!*

PDEF,,S,XY,AVG

/PBC,PATH,,0

!*

PLPATH,SY

/UI,COPY,SAVE,PNG,GRAPH,COLOR,NORM,PORTRAIT,YES

PLPATH,SXY

/UI,COPY,SAVE,PNG,GRAPH,COLOR,NORM,PORTRAIT,YES

PLDISP,0

!*

ANDSCL,10,0.5