計算三维问题的应力强度因子的程序.docVIP

? blueblueday 计算三维问题的应力强度因子的程序（有点简单）/COM,ANSYS MEDIA REL. 60 (090601) REF. VERIF. MANUAL: REL. 60 /VERIFY,VM143 *CREATE,FRACT,MAC /NOPR NSEL,ALL *GET,N,NODE,,NUM,MAX? ?? ?? ?? ?? ???! CURRENT MAXIMUM NODE NUMBER CMSEL,S,CRACKTIP? ?? ?? ?? ?? ?? ?? ?! SELECT THE TIP NODES ESLN? ?? ?? ?? ?? ?? ?? ?? ?? ?? ?? ?! ANY ELEMENTS ATTACHED *GET,ELMAX,ELEM,,NUM,MAX? ?? ?? ?? ? ! CURRENT MAXIMUM ELEMENT NUMBER *DO,IEL,1,ELMAX? ?? ?? ?? ?? ?? ?? ? ! LOOP ON MAX ELEMENT ???ELMI=IEL ???*IF,ELMI,LE,0,EXIT? ?? ?? ?? ?? ? ! NO MORE SELECTED ???*GET,ELTYPE,ELEM,ELMI,ATTR,TYPE? ?! GET ELEMENT