疲勞分析操作方法

1、加載求解完成后進入后處理1、設(shè)定疲勞評定的位置數(shù)、事件數(shù)及載荷數(shù)2、根據(jù)疲勞曲線輸入SN數(shù)據(jù)水壓試驗3、儲存節(jié)點4760對應(yīng)其第一載荷的應(yīng)力4、讀入第一載荷步數(shù)據(jù)5、儲存節(jié)點4760對應(yīng)其第二載荷的應(yīng)力6、設(shè)定事件循環(huán)次數(shù)及載荷比例系數(shù)最低最高壓力循環(huán)（同水壓試驗一樣設(shè)置）7、儲存節(jié)點4760對應(yīng)其第一載荷的應(yīng)力8、讀入第一載荷步數(shù)據(jù)9、儲存節(jié)點4760對應(yīng)其第二載荷的應(yīng)力10、設(shè)定事件循環(huán)次數(shù)及載荷比例系數(shù)11、疲勞計算通過最大最小應(yīng)力差值進行疲勞分析命令流如下：! * 設(shè)置環(huán)境變量 */clear/filn, E721A /title, Fatigue analysis of upper

2、head of adsorber/units,si !采用國際單位制! 參數(shù)定義Di=4400 ! 設(shè)備內(nèi)徑tc=16 ! 筒體及封頭壁厚Hc=5*nint(sqrt(Di/2*tc)/10)*10 ! 模型中筒體長度（含封頭直邊高度)dn1=630 ! 接管1外徑dn2=530 ! 接管2外徑dn3=426 ! 接管3外徑tn1=8 ! 接管1壁厚tn2=8 ! 接管2壁厚tn3=8 ! 接管3壁厚ln1=350 ! 接管1外伸高度 ln2=250 ! 接管2外伸高度 ln3=200 ! 接管3外伸高度x0=1000 ! 接管1,2徑向位置nt=2 ! 厚度方向剖分數(shù)nme=30 ! 橢圓封

3、頭經(jīng)向剖分數(shù)nh=20 ! 接管環(huán)向剖分數(shù)p1=-0.1 ! 最低壓力p2=0.25 ! 最高壓力pax11=-p1*dn1*2/(dn1+2*tn1)*2-dn1*2) ! 最低壓力下接管1端部軸向平衡面載荷pax12=-p1*dn2*2/(dn2+2*tn2)*2-dn2*2) ! 最低壓力下接管2端部軸向平衡面載荷pax13=-p1*dn3*2/(dn3+2*tn3)*2-dn3*2) ! 最低壓力下接管3端部軸向平衡面載荷pax21=-p2*dn1*2/(dn1+2*tn1)*2-dn1*2) ! 最高壓力下接管1端部軸向平衡面載荷pax22=-p2*dn2*2/(dn2+2*tn2)

4、*2-dn2*2) ! 最高壓力下接管2端部軸向平衡面載荷 pax23=-p2*dn3*2/(dn3+2*tn3)*2-dn3*2) ! 最高壓力下接管3端部軸向平衡面載荷! * 前處理 */PREP7 et,1,95 ! 定義單元類型mp,ex,1,2e5 ! 定義材料的彈性模量mp,nuxy,1,0.3 ! 定義材料的泊松比! * 建立模型 *CSWPLA,11,1,0.5,1, ! 定義橢圓坐標(biāo)系K,1,-Di/2, ! 定義橢圓的一個端點K,2,Di/2, ! 定義橢圓的另一個端點L,1,2 ! 生成橢圓線csys,0 ! 激活總體直角坐標(biāo)系k,3,kx(2)+tc, ! 定義封頭壁厚

5、關(guān)鍵點L,2,3 ! 生成封頭壁厚線ADRAG,2, , , , , ,1 ! 由封頭壁厚沿橢圓線生成橢圓面BLC4,dn3/2-tn3, ,tn3,Di/4+tc+ln3, ! 生成中心接管截面 APTN,all ! 面域互分adele,4,5,1 ! 刪除多余面*GET,KPMAX,KP,NUM,MAX ! 提取最大節(jié)點號k,KPMAX+1,0,0,0 ! 生成中心線一個關(guān)鍵點k,KPMAX+2,0,hc,0 ! 生成中心線另一個關(guān)鍵點VROTAT,ALL,KPMAX+1,KPMAX+2 ! 旋轉(zhuǎn)生成橢圓封頭及中心接管NUMMRG,ALL, , , ,LOW ! 合并所有項NUMCMP,A

6、LL ! 壓縮所有項asel,s,loc,y,0 ! 選擇橢圓封頭端面*GET,KPMAX,KP,NUM,MAX ! 提取最大節(jié)點號k,KPMAX+1,0,0,0 ! 生成筒體中心線一個關(guān)鍵點k,KPMAX+2,0,-hc,0 ! 生成筒體中心線另一個關(guān)鍵點l,KPMAX+1,KPMAX+2 ! 生成筒體中心線 VDRAG,all, , , , , ,74 ! 生成筒體 ldele,1,1 ! 刪除多余線alls ! 全選wprot,-90 ! 旋轉(zhuǎn)工作平面wprot,45 ! 旋轉(zhuǎn)工作平面*AFUN,deg ! 設(shè)定角度單位為弧度ang1=acos(x0/Di*2) ! 計算接管位置角fai

7、=atan(1/2/tan(ang1) ! 計算接管位置角y0=Di/4*sin(ang1) ! 計算接管軸向位置y0c=y0-x0/tan(fai) ! 計算接管中心線與軸線交點l0c=x0/sin(fai) ! 計算接管沿中心線至與軸線交點的距離wpoff,y0c ! 平移工作平面wprot,-fai ! 旋轉(zhuǎn)工作平面CYL4, , ,dn1/2-tn1, ,dn1/2, ,l0c+tc+ln1 ! 生成接管1wprot,fai ! 旋轉(zhuǎn)工作平面wprot,-fai, ! 旋轉(zhuǎn)工作平面wprot,90 ! 旋轉(zhuǎn)工作平面CYL4, , ,dn2/2-tn2, ,dn2/2, ,l0c+tc+

8、ln2 ! 生成接管2wprot,-90 ! 旋轉(zhuǎn)工作平面wprot,fai, ! 旋轉(zhuǎn)工作平面wpoff,-y0c+Di/10 ! 平移工作平面vsel,s,17,18,1 ! 選擇接管1，2vsbw,all ! 用工作面切割接管1，2vsel,r,loc,y,-hc*10,Di/10 ! 選擇接管1，2多余部分vdele,all,1 ! 刪掉接管1，2多余部分vsel,s,loc,y,0,hc*10 ! 選擇接管1，2及封頭相關(guān)部分 vsel,r,loc,x,-Di,0 VPTN,all ! 接管1，2及封頭體互分vdele,23,24,1 ! 刪掉接管1，2多余部分vdele,17,18

9、,1 ! 刪掉封頭多余部分 alls ! 全選vsel,s,loc,x,-Di,0 ! 選擇接管1及其與中心接管、封頭相關(guān)部分 vsel,r,loc,z,0,Di wprot,90, ! 旋轉(zhuǎn)工作平面vsbw,all ! 切割接管1及其與中心接管、封頭相關(guān)部分vsel,s,loc,x,-Di,0 ! 選擇接管2及其與中心接管、封頭相關(guān)部分vsel,r,loc,z,-Di,0 wprot,90, ! 旋轉(zhuǎn)工作平面vsbw,all ! 切割接管2及其與中心接管、封頭相關(guān)部分lsel,s,length,0,tc ! 選擇厚度方向的線段LESIZE,all, , ,nt, , , ,1 ! 設(shè)定厚度方

10、向剖分數(shù) vsel,s,loc,y,-hc,0 ! 選擇筒體vsweep,all ! 剖分筒體vsel,s,loc,x,0,Di ! 選擇x軸正向的部分封頭及部分中心接管體素vsel,u,loc,y,-hc,0 ! 去掉筒體 local,11,1,90 ! 定義局部柱坐標(biāo)aslv ! 按體選面lsla ! 按面選線lsel,r,loc,x,dn3/2,Di ! 選擇橢圓封頭經(jīng)線lsel,u,loc,x,dn3/2 ! 去掉接管線段lsel,u,loc,z,0 ! 去掉筒體線段LESIZE,all, , ,nme, , , , ,1 ! 設(shè)定橢圓封頭經(jīng)線剖分數(shù) vsweep,all ! 掃略剖分

11、x軸正向的部分封頭及部分中心接管 alls ! 全選lsel,s,loc,y,180 ! 選擇180度位置線lsel,r,loc,x,dn3/2,Di ! 再選中心接管以外線lsel,u,loc,x,dn3/2 ! 去掉接管線段lsel,u,loc,z,0,hc ! 去掉筒體線段LESIZE,all, , ,nme, , , , ,1 ! 設(shè)定橢圓封頭經(jīng)線剖分數(shù)vsel,s,loc,x,0,dn3/2 ! 選擇中心接管及其與封頭相關(guān)區(qū)csys,0 ! 激活總體直角坐標(biāo)系vsel,u,loc,x,0,Di ! 去掉x軸正向的部分vsweep,all ! 掃略剖分接管及其與封頭相關(guān)區(qū)的x軸負向部分

12、lsel,s,radius,dn1/2-tn1,dn1/2 ! 選擇半徑為接管1半徑的線段LESIZE,all, , ,nh, , , , ,1 ! 設(shè)定接管1環(huán)向剖分數(shù)lsel,r,radius,dn1/2-tn1 ! 選擇半徑為接管1內(nèi)半徑的線段asll ! 按線選面vsla ! 按面選體aslv ! 按體選面vsweep,all ! 剖分接管1cm,vcon1,volum ! 定義接管1為體組件vcon1lsel,s,radius,dn2/2-tn2,dn2/2 ! 選擇半徑為接管2半徑的線段LESIZE,all, , ,nh, , , , ,1 ! 設(shè)定接管2環(huán)向剖分數(shù)lsel,r,r

13、adius,dn2/2-tn2 ! 選擇半徑為接管2內(nèi)半徑的線段asll ! 按線選面vsla ! 按面選體aslv ! 按體選面vsweep,all ! 剖分接管2cm,vcon2,volum ! 定義接管2為體組件vcon2lsel,s,radius,dn1/2 ! 選擇半徑為接管1外半徑的線段asll ! 按線選面vsla ! 按面選體cmsel,u,vcon1 ! 去掉體組件vcon1vsweep,all ! 剖分接管1相關(guān)封頭及相貫區(qū)lsel,s,radius,dn2/2 ! 選擇半徑為接管2外半徑的線段asll ! 按線選面vsla ! 按面選體cmsel,u,vcon2 ! 去掉

14、體組件vcon2vsweep,all ! 剖分接管2相關(guān)封頭及相貫區(qū)alls ! 全選fini ! 退出前處理!* 求解 */solu ! 進入求解器csys,0 ! 激活總體直角坐標(biāo)系asel,s,loc,y,-hc ! 選擇筒體端面da,all,uy ! 約束軸向位移nsla,1 ! 按面選節(jié)點nsel,r,loc,x,0 ! 再選擇x為0的節(jié)點d,all,ux ! 約束x方向位移nsla,1 ! 按面選節(jié)點nsel,r,loc,z,0 ! 再選擇z為0的節(jié)點d,all,uz ! 約束z方向位移! * 以下選擇內(nèi)表面并設(shè)定為面組件 *alls lsel,s,radius,Di/2 ! 選擇

15、半徑為筒體內(nèi)半徑的線段lsel,u,loc,y,-hc ! 去掉筒體端部線段asll ! 按線選面asel,u,loc,y,0 ! 去掉厚度方向的面cm,acon,area ! 定義面組件aconlsel,s,radius,dn3/2-tn3 ! 選擇半徑為接管3內(nèi)半徑的線段asll ! 按線選面asel,u,loc,y,ky(9) ! 去掉厚度方向的面asel,u,loc,y,ky(13) ! 去掉厚度方向的面cmsel,a,acon ! 添加面組件aconcm,acon,area ! 再定義面組件aconlsel,s,radius,dn1/2-tn1 ! 選擇半徑為接管1內(nèi)半徑的線段 ls

16、el,r,loc,y,ky(49),ky(50) ! 再選擇接管1端面線段asll ! 按線選面cm,acon0,area ! 定義面組件acon0ksel,s,49 ! 選擇關(guān)鍵點lslk ! 按關(guān)鍵點選線lsel,r,length,tn1 ! 再選長度為接管1厚度的線段asll ! 按線選面cm,acon1,area ! 定義面組件acon1cmsel,s,acon0 ! 選擇面組件acon0cmsel,u,acon1 ! 從面組件acon0中去掉面組件acon1cmsel,a,acon ! 添加面組件aconcm,acon,area ! 再定義面組件aconlsel,s,radius,d

17、n2/2-tn2 ! 選擇半徑為接管2內(nèi)半徑的線段 lsel,r,loc,y,ky(48),ky(45) ! 再選擇接管2端面線段asll ! 按線選面cm,acon0,area ! 定義面組件acon0ksel,s,46 ! 選擇關(guān)鍵點lslk ! 按關(guān)鍵點選線lsel,r,length,tn2 ! 再選長度為接管1厚度的線段 asll ! 按線選面cm,acon1,area ! 定義面組件acon1cmsel,s,acon0 ! 選擇面組件acon0cmsel,u,acon1 ! 從面組件acon0中去掉面組件acon1cmsel,a,acon ! 添加面組件aconcm,acon,are

18、a ! 再定義面組件acon! * 以下選擇接管端面并設(shè)定為面組件 *lsel,s,radius,dn1/2-tn1 ! 選擇半徑為接管1內(nèi)半徑的線段asll ! 按線選面asel,r,loc,y,ky(59),ky(58) ! 再選擇接管1端面cm,apax1,area ! 定義接管1端面面組件apax1lsel,s,radius,dn2/2-tn2 ! 選擇半徑為接管2內(nèi)半徑的線段asll ! 按線選面asel,r,loc,y,ky(74),ky(75) ! 再選擇接管2端面cm,apax2,area ! 定義接管2端面面組件apax2 lsel,s,radius,dn3/2-tn3 !

19、選擇半徑為接管2內(nèi)半徑的線段asll ! 按線選面asel,r,loc,y,ky(9) ! 再選擇接管3端面cm,apax3,area ! 定義接管3端面面組件apax3! * 以下選擇外表面并設(shè)定為面組件 *lsel,s,radius,Di/2+tc ! 選擇半徑為筒體外半徑的線段 lsel,u,loc,y,-hc ! 去掉筒體端部線段asll ! 按線選面asel,u,loc,y,0 ! 去掉厚度方向的面cm,aouter,area ! 定義面組件aouterlsel,s,radius,dn3/2 ! 選擇半徑為接管3外半徑的線段 lsel,r,loc,y,ky(9) ! 再選接管3端部線

20、段asll ! 按線選面asel,u,loc,y,ky(9) ! 去掉厚度方向的面cmsel,a,aouter ! 添加面組件aoutercm,aouter,area ! 再定義面組件aouterlsel,s,radius,dn1/2 ! 選擇半徑為接管1外半徑的線段lsel,r,loc,y,ky(55),ky(53) ! 再選接管1端部線段asll ! 按線選面asel,u,loc,y,ky(55),ky(53) ! 去掉厚度方向的面 cmsel,a,aouter ! 添加面組件aoutercm,aouter,area ! 再定義面組件aouter lsel,s,radius,dn2/2 !

21、 選擇半徑為接管2外半徑的線段lsel,r,loc,y,ky(69),ky(71) ! 再選接管2端部線段asll ! 按線選面asel,u,loc,y,ky(69),ky(71) ! 去掉厚度方向的面cmsel,a,aouter ! 添加面組件aoutercm,aouter,area ! 再定義面組件aouter! * 以下定義載荷步、加載并求解 *time,1 ! 第一載荷步對應(yīng)最大工作壓力cmsel,s,apax1 ! 選擇面組件apax1 sfa,all,1,pres,pax21 ! 對接管1施加端部平衡面載荷 cmsel,s,apax2 ! 選擇面組件apax2 sfa,all,1,

22、pres,pax22 ! 對接管2施加端部平衡面載荷cmsel,s,apax3 ! 選擇面組件apax3 sfa,all,1,pres,pax23 ! 對接管3施加端部平衡面載荷cmsel,s,acon ! 選擇面組件aconsfa,all,1,pres,p2 ! 施加內(nèi)壓alls ! 全選solve ! 求解save ! 保存time,2 ! 第一載荷步對應(yīng)最低工作壓力alls ! 全選SFADELE,all,1,pres ! 刪除所有面載荷cmsel,s,apax1 ! 選擇面組件apax1 sfa,all,1,pres,pax11 ! 對接管1施加端部平衡面載荷cmsel,s,apax2 ! 選擇面組件apax2 sfa,all,1,pres,pax12 ! 對接管2施加端部平衡面載荷cmsel,s,apax3 ! 選擇面組件apax3sfa,all,1,pres,pax13 ! 對接管3施加端部平衡面載荷cmsel,s,aouter ! 選擇面組件aoutersfa,all,1,pres,p1 ! 施加外壓alls ! 全選 solve ! 求解save ! 保存fini ! 退出求解器! * 后處理