ANSYS課程設計.doc

目錄一、梁的靜力分析1二、桁架的靜力分析4三、板的靜力分析6四、孔板的靜力分析9五、熱分析12六、焊接接頭穩(wěn)態(tài)傳熱過程分析16七、三維靜力分析19八、扳手的受力分析23九、工字鋼梁的分析28十、梁的優(yōu)化設計33十一、 心得體會40一、梁的靜力分析qLhb一個梁結構如圖所示，求梁結構受力后的變形、剪力及彎矩圖。,，。試分析梁的彎矩和剪力圖。圖1、梁的變形圖圖2、梁的剪力彎矩圖命令流：41/input,menust,tmp,1 /GRA,POWER/GST,ON/PLO,INFO,3/GRO,CURL,ON/CPLANE,1 /REPLOT,RESIZE WPSTYLE,0!* /NOPR /PMETH,OFF,0KEYW,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 !* /COM, /COM,Preferences for GUI filtering have been set to display:/COM, Structural !* /PREP7 !* ET,1,BEAM3 !* R,1,0.0001,2.08e-10,0.005, , , ,!* !* MPTEMP, MPTEMP,1,0 MPDATA,EX,1,2e11 MPDATA,PRXY,1,0.3 K,1,0,0,0, K,2,0.3,0,0,LSTR, 1, 2 !* LESIZE,ALL, , ,6, ,1, , ,1, LMESH, 1 /UI,MESH,OFF/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 !* FINISH /SOLFLST,2,1,3,ORDE,1 FITEM,2,1 !* /GO DK,P51X, , , ,0,ALL, , , , , , FLST,2,1,2,ORDE,1 FITEM,2,1 SFBEAM,P51X,1,PRES,0,100, , , , , FLST,2,1,2,ORDE,1 FITEM,2,2 SFBEAM,P51X,1,PRES,100,200, , , , , FLST,2,1,2,ORDE,1 FITEM,2,3 SFBEAM,P51X,1,PRES,200,300, , , , , FLST,2,1,2,ORDE,1 FITEM,2,4 SFBEAM,P51X,1,PRES,300,400, , , , , FLST,2,1,2,ORDE,1 FITEM,2,5 SFBEAM,P51X,1,PRES,400,500, , , , , FLST,2,1,2,ORDE,1 FITEM,2,6 SFBEAM,P51X,1,PRES,500,600, , , , , /STATUS,SOLUSOLVE FINISH /POST1 PLDISP,1AVPRIN,0, , ETABLE,IMOMENT,SMISC, 6 !* AVPRIN,0, , ETABLE,JMOMENT,SMISC, 12!* AVPRIN,0, , ETABLE,ISHEAR,SMISC, 2 !* AVPRIN,0, , ETABLE,JSHEAR,SMISC, 8 !* PLLS,IMOMENT,JMOMENT,1,0PLLS,ISHEAR,JSHEAR,1,0 /RGB,INDEX,100,100,100, 0 /RGB,INDEX, 80, 80, 80,13 /RGB,INDEX, 60, 60, 60,14 /RGB,INDEX, 0, 0, 0,15 /REPLOT FINISH ! /EXIT,MODEL /BATCH 二、桁架的靜力分析問題如圖所示，水平放置的桿長為12m，傾斜放置的桿長為10m，截面積為0.5m的桁架結構，右端節(jié)點5固定，節(jié)點2在Y方向固定，在左端節(jié)點3施加一個Y方向的2000N的力，在中間節(jié)點4施加一個Y方向的1000N的力，試以靜力來進行分析，寫出節(jié)點3和節(jié)點4的位移。條件 泊松比0.3圖3、桁架變形圖命令流：/input,menust,tmp,1 /GRA,POWER/GST,ON/PLO,INFO,3/GRO,CURL,ON/CPLANE,1 /REPLOT,RESIZE WPSTYLE,0!* /NOPR /PMETH,OFF,0KEYW,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 !* /COM, /COM,Preferences for GUI filtering have been set to display:/COM, Structural !* /PREP7 !* ET,1,LINK1 !* R,1,0.5, , !* !* MPTEMP, MPTEMP,1,0 MPDATA,EX,1,36e6 MPDATA,PRXY,1,0.3 !* N,1,6,0,0, N,2,18,0,0, N,3,0,8,0, N,4,12,8,0, N,5,24,8,0, FLST,2,2,1 FITEM,2,1 FITEM,2,2 E,P51X FLST,2,2,1 FITEM,2,1 FITEM,2,3 E,P51X FLST,2,2,1 FITEM,2,3 FITEM,2,4 E,P51X FLST,2,2,1 FITEM,2,4 FITEM,2,1 E,P51X FLST,2,2,1 FITEM,2,4 FITEM,2,2 E,P51X FLST,2,2,1 FITEM,2,4 FITEM,2,5 E,P51X FLST,2,2,1 FITEM,2,5 FITEM,2,2 E,P51X /PNUM,KP,0 /PNUM,LINE,0/PNUM,AREA,0/PNUM,VOLU,0/PNUM,NODE,1/PNUM,TABN,0/PNUM,SVAL,0/NUMBER,0 !* /PNUM,ELEM,1/REPLOT !* FINISH /SOLFLST,2,1,1,ORDE,1 FITEM,2,2 !* /GO D,P51X, ,0, , , ,UY, , , , ,FLST,2,1,1,ORDE,1 FITEM,2,5 !* /GO D,P51X, ,0, , , ,ALL, , , , , FLST,2,1,1,ORDE,1 FITEM,2,3 !* /GO F,P51X,FY,-2000 FLST,2,1,1,ORDE,1 FITEM,2,4 !* /GO F,P51X,FY,-1000 /STATUS,SOLUSOLVE FINISH /POST1 PLDISP,1!* PRNSOL,U,COMP /PNUM,KP,0 /PNUM,LINE,0/PNUM,AREA,0/PNUM,VOLU,0/PNUM,NODE,1/PNUM,TABN,0/PNUM,SVAL,0/NUMBER,0 !* /PNUM,ELEM,1/REPLOT !* /RGB,INDEX,100,100,100, 0 /RGB,INDEX, 80, 80, 80,13 /RGB,INDEX, 60, 60, 60,14 /RGB,INDEX, 0, 0, 0,15 /REPLOT FINI! /EXIT /BATCH 三、板的靜力分析例題：一長方形板，在底端約束固定，于頂端右側的節(jié)點上施以的集中力，其中，試以分析a、b兩點的；應力及位移。， 100Nxyz 圖4、板的節(jié)點應力值圖5、板的節(jié)點總和應力值圖6、板的節(jié)點自由度命令流：/input,menust,tmp,1 /GRA,POWER/GST,ON/PLO,INFO,3/GRO,CURL,ON/CPLANE,1 /REPLOT,RESIZE WPSTYLE,0/PREP7 !* ET,1,SHELL63!* R,1,1, , , , , ,RMORE, , , ,RMORE RMORE, ,!* !* MPTEMP, MPTEMP,1,0 MPDATA,EX,1,2e11 MPDATA,PRXY,1,0.3 BLC4, , ,10,20 ESIZE,0,2, MSHKEY,0CM,_Y,AREA ASEL, , , , 1 CM,_Y1,AREA CHKMSH,AREA CMSEL,S,_Y !* AMESH,_Y1 !* CMDELE,_Y CMDELE,_Y1 CMDELE,_Y2 !* /VIEW, 1 ,1,1,1 /ANG, 1 /REP,FAST /PNUM,KP,0 /PNUM,LINE,0/PNUM,AREA,0/PNUM,VOLU,0/PNUM,NODE,1/PNUM,TABN,0/PNUM,SVAL,0/NUMBER,0 !* /PNUM,ELEM,1/REPLOT !* FINISH /SOLFLST,2,2,4,ORDE,2 FITEM,2,1 FITEM,2,-2 !* /GO DL,P51X, ,ALL, LSCLEAR,ALL FLST,2,1,4,ORDE,1 FITEM,2,1 !* /GO DL,P51X, ,ALL, FLST,2,1,1,ORDE,1 FITEM,2,4 !* /GO F,P51X,FZ,-100 /STATUS,SOLUSOLVE FINISH /POST1 !* /EFACET,1 PLNSOL, S,EQV, 0,1.0/RGB,INDEX,100,100,100, 0 /RGB,INDEX, 80, 80, 80,13 /RGB,INDEX, 60, 60, 60,14 /RGB,INDEX, 0, 0, 0,15 /REPLOT !* PRNSOL,S,PRIN !* PRNSOL,U,COMP !* PRNSOL,ROT,COMP 四、孔板的靜力分析如圖所示為一個承受雙向拉伸的板，在其中心位置有一個圓孔，其邊長為20米，孔的直徑為10米，板的厚度為0.2米，材料屬性為：彈性模量，泊松比，拉伸載荷為。 圖7、孔板的網格劃分圖圖8、孔板的負載約束圖圖9、孔板的變形圖命令流：/input,menust,tmp,1 /GRA,POWER/GST,ON/PLO,INFO,3/GRO,CURL,ON/CPLANE,1 /REPLOT,RESIZE WPSTYLE,0!* /NOPR /PMETH,OFF,0KEYW,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 !* /COM, /COM,Preferences for GUI filtering have been set to display:/COM, Structural !* /PREP7 !* ET,1,PLANE82!* KEYOPT,1,3,3KEYOPT,1,5,0KEYOPT,1,6,0!* !* MPTEMP, MPTEMP,1,0 MPDATA,EX,1,2e11 MPDATA,PRXY,1,0.3 !* R,1,0.2,!* RECTNG,0,10,0,10, CYL4,0,0,5 ASBA, 1, 2 ESIZE,0.5,0,MSHAPE,0,2D MSHKEY,0!* CM,_Y,AREA ASEL, , , , 3 CM,_Y1,AREA CHKMSH,AREA CMSEL,S,_Y !* AMESH,_Y1 !* CMDELE,_Y CMDELE,_Y1 CMDELE,_Y2 !* /UI,MESH,OFFFINISH /SOLFLST,2,1,4,ORDE,1 FITEM,2,10 !* /GO DL,P51X, ,UX, FLST,2,1,4,ORDE,1 FITEM,2,9 !* /GO DL,P51X, ,UY, FLST,2,2,4,ORDE,2 FITEM,2,2 FITEM,2,-3 /GO !* SFL,P51X,PRES,-1000,/STATUS,SOLUSOLVE /RGB,INDEX,100,100,100, 0 /RGB,INDEX, 80, 80, 80,13 /RGB,INDEX, 60, 60, 60,14 /RGB,INDEX, 0, 0, 0,15 /REPLOT FINISH /POST1 PLDISP,1!* /EFACET,1 PLNSOL, S,EQV, 0,1.0五、熱分析例題：有一雙層板(層1和層2),其幾何形狀與邊界條件如圖所示。板的上側流過流體介質。其中層1中間有一半徑為1cm的圓孔。求穩(wěn)態(tài)條件下，雙層板內的溫度分布。圖10、網格劃分圖11、網格劃分圖12、溫度場分布命令流：/input,menust,tmp,1 /GRA,POWER/GST,ON/PLO,INFO,3/GRO,CURL,ON/CPLANE,1 /REPLOT,RESIZE WPSTYLE,0!* /NOPR /PMETH,OFF,0KEYW,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 KEYW,PR_CFD,0 /GO !* /COM, /COM,Preferences for GUI filtering have been set to display:/COM, Thermal !* /PREP7 !* ET,1,PLANE55!* !* MPTEMP, MPTEMP,1,0 MPDATA,KXX,1,20MPTEMP, MPTEMP,1,0 MPDATA,KXX,2,50RECTNG,0,0.05,0,0.05, RECTNG,0.05,0.15,0,0.05,CYL4,0.025,0.025,0.01 FLST,3,2,5,ORDE,2 FITEM,3,1 FITEM,3,3 ASBA, 1,P51X FLST,2,2,5,ORDE,2 FITEM,2,2 FITEM,2,4 AGLUE,P51X SMRT,6 SMRT,4 MSHAPE,0,2D 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 !* /UI,MESH,OFF/RGB,INDEX,100,100,100, 0 /RGB,INDEX, 80, 80, 80,13 /RGB,INDEX, 60, 60, 60,14 /RGB,INDEX, 0, 0, 0,15 /REPLOT ASEL,S, , , 1 ESLA,S EPLOT /REPLOT EPLOT ESLA,S MPCHG,1,ALL,ALLSEL,ALL ALLSEL,ALL ALLSEL,ALL ESLA,S ASEL,S, , , 1 ESLA,S ALLSEL,ALL ESLA,S ALLSEL,ALL /VIEW, 1 ,1,1,1 /ANG, 1 /REP,FAST /VIEW,1,1 /ANG,1 /REP,FAST FINISH /SOLFLST,2,25,1,ORDE,17 FITEM,2,1 FITEM,2,-2 FITEM,2,11 FITEM,2,-19 FITEM,2,108 FITEM,2,117 FITEM,2,126 FITEM,2,134 FITEM,2,137 FITEM,2,144 FITEM,2,146 FITEM,2,-148FITEM,2,153 FITEM,2,158 FITEM,2,169 FITEM,2,287 FITEM,2,290 !* /GO D,P51X, ,200, , , ,TEMP, , , , ,FINISH /PREP7 FINISH /SOLFLST,2,4,4,ORDE,3 FITEM,2,6 FITEM,2,-8 FITEM,2,14 /GO !* SFL,P51X,CONV,150, ,25, FLST,2,4,4,ORDE,2 FITEM,2,9 FITEM,2,-12 /GO !* SFL,P51X,HFLUX,100, /STATUS,SOLUSOLVE FINISH /POST1 !* /EFACET,1 PLNSOL, TEMP, 0六、焊接接頭穩(wěn)態(tài)傳熱過程分析如圖 1 所示,圓形的冷凝管通過法蘭接頭進行對接。接頭的制作方法如下:先把法蘭移動到圓管接頭位置,然后沿圓周焊接兩道次,把法蘭連接到圓管上.用螺栓把兩個法蘭接頭拉緊,法蘭之間壓上一塊墊片.圓管內的液體溫度為 0,蒸汽冷凝在圓管的外表面上, 蒸汽溫度為 100.。圓管內表面換熱系數(shù)為 5000W/m2K，,外表面換熱系數(shù)為 20000 W/m2K。 圓管和法蘭材料的導熱系數(shù)為 20W/mK,彈性模量為 2 105 MPa，泊松比為 0.3,線膨脹系數(shù)為 1.2 10-5 /K.分析在圓管和法蘭內的穩(wěn)態(tài)溫度分布及熱應力分布。圖 a 一個典型的焊接接頭圖13、穩(wěn)態(tài)溫度分布圖14、熱流矢量分布圖15、應力分布命令流：/input,menust,tmp,1 /GRA,POWER/GST,ON/PLO,INFO,3/GRO,CURL,ON/CPLANE,1 /REPLOT,RESIZE WPSTYLE,0!* /NOPR /PMETH,OFF,0KEYW,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 KEYW,PR_CFD,0 /GO !* /COM, /COM,Preferences for GUI filtering have been set to display:/COM, Thermal !* /PREP7 !* ET,1,PLANE77!* KEYOPT,1,1,0KEYOPT,1,3,1!* !* MPTEMP, MPTEMP,1,0 MPDATA,KXX,1,0.02 K,1,77,0,0, K,2,156,0,0,K,3,156,39,0, K,4,102,39,0, K,5,102,48,0, K,6,84,66,0,K,7,84,156,0, K,8,77,156,0, FLST,2,8,3 FITEM,2,1 FITEM,2,2 FITEM,2,3 FITEM,2,4 FITEM,2,5 FITEM,2,6 FITEM,2,7 FITEM,2,8 A,P51X ESIZE,3.5,0,MSHKEY,0CM,_Y,AREA ASEL, , , , 1 CM,_Y1,AREA CHKMSH,AREA CMSEL,S,_Y !* AMESH,_Y1 !* CMDELE,_Y CMDELE,_Y1 CMDELE,_Y2 !* FLST,2,5,4,ORDE,2 FITEM,2,2 FITEM,2,-6 /GO !* SFL,P51X,CONV,0.02, ,100, FLST,2,1,4,ORDE,1 FITEM,2,8 /GO !* SFL,P51X,CONV,0.05, ,0, FINISH /SOLLSSOLVE, , ,1, /STATUS,SOLUSOLVE /RGB,INDEX,100,100,100, 0 /RGB,INDEX, 80, 80, 80,13 /RGB,INDEX, 60, 60, 60,14 /RGB,INDEX, 0, 0, 0,15 /REPLOT FINISH /POST1 !* /EFACET,1 PLNSOL, TEMP, 0!* /VSCALE,1,1,0 ! !* PLVECT,TF, , , ,VECT,ELEM,ON,0 FINISH /PREP7 ETCHG,TTS !* KEYOPT,1,3,1KEYOPT,1,5,0KEYOPT,1,6,0!* !* !* /NOPR /PMETH,OFF,0KEYW,PR_SET,1 KEYW,PR_STRUC,1 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,1 KEYW,PR_CFD,0 /GO !* /COM, /COM,Preferences for GUI filtering have been set to display:/COM, Structural /COM, Thermal !* !* MPTEMP, MPTEMP,1,0 MPDATA,EX,1,2.0e5 MPDATA,PRXY,1,0.3 !* MPTEMP, MPTEMP,1,0 UIMP,1,REFT, MPDATA,ALPX,1,1.2e-5 FLST,2,1,4,ORDE,1 FITEM,2,1 !* /GO DL,P51X, ,UY,0 LDREAD,TEMP, , ,joint,rth, FINISH /POST1 FINISH /SOL/STATUS,SOLUSOLVE FINISH /POST1 !* /EFACET,1 PLNSOL, S,EQV, 0,1.0七、三維靜力分析例題：如圖所示，一立方體，在底面施加固定約束，在頂端右側的節(jié)點上施以，的集中力，試以靜力分析其撓度。，圖16、三維節(jié)點解圖17、三維節(jié)點主應力值圖18、三維變形圖圖19、三維節(jié)點自由度命令流：/input,menust,tmp,1 /GRA,POWER/GST,ON/PLO,INFO,3/GRO,CURL,ON/CPLANE,1 /REPLOT,RESIZE WPSTYLE,0/PREP7 !* ET,1,SOLID45!* !* MPTEMP, MPTEMP,1,0 MPDATA,EX,1,2e11 MPDATA,PRXY,1,0.3 BLOCK,0,10,0,20,0,10, /VIEW,1,1,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 /ANG,1 /REP,FAST ESIZE,10,0, ESIZE,10,0, MSHAPE,0,3D MSHKEY,1!* CM,_Y,VOLU VSEL, , , , 1 CM,_Y1,VOLU CHKMSH,VOLU CMSEL,S,_Y !* VMESH,_Y1 !* CMDELE,_Y CMDELE,_Y1 CMDELE,_Y2 !* /VIEW,1,1 /ANG,1 /REP,FAST /VIEW,1,1,2,3 /ANG,1 /REP,FAST /UI,MESH,OFF/PNUM,KP,0 /PNUM,LINE,0/PNUM,AREA,0/PNUM,VOLU,0/PNUM,NODE,1/PNUM,TABN,0/PNUM,SVAL,0/NUMBER,0 !* /PNUM,ELEM,1/REPLOT !* FINISH /SOL/VIEW,1,-1 /ANG,1 /REP,FAST FLST,2,1,5,ORDE,1 FITEM,2,3 !* /GO DA,P51X,ALL,/VIEW,1,1,2,3 /ANG,1 /REP,FAST /VIEW,1,-1 /ANG,1 /REP,FAST FLST,2,1,5,ORDE,1 FITEM,2,3 !* /GO DA,P51X,ALL,/VIEW,1,1,2,3 /ANG,1 /REP,FAST FLST,2,1,1,ORDE,1 FITEM,2,4 !* /GO F,P51X,FX,1000 FLST,2,1,1,ORDE,1 FITEM,2,4 !* /GO F,P51X,FY,1000 FLST,2,1,1,ORDE,1 FITEM,2,4 !* /GO F,P51X,FZ,-1000 /STATUS,SOLUSOLVE FINISH /POST1 !* /EFACET,1 PLNSOL, S,EQV, 0,1.0/RGB,INDEX,100,100,100, 0 /RGB,INDEX, 80, 80, 80,13 /RGB,INDEX, 60, 60, 60,14 /RGB,INDEX, 0, 0, 0,15 /REPLOT !* PRNSOL,S,PRIN !* PRNSOL,S,PRIN PLDISP,1!* PRNSOL,U,COMP 八、扳手的受力分析 圖20、扳手應力分布圖圖21、扳手變形圖圖22、扳手應力分布圖命令流：/input,menust,tmp,1 /GRA,POWER/GST,ON/PLO,INFO,3/GRO,CURL,ON/CPLANE,1 /REPLOT,RESIZE WPSTYLE,0/FILNAME,EXAMPLE7,0 !* /NOPR /PMETH,OFF,0KEYW,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 !* /COM, /COM,Preferences for GUI filtering have been set to display:/COM, Structural !* /PREP7 !* ET,1,PLANE42!* ET,2,SOLID45!* !* MPTEMP, MPTEMP,1,0 MPDATA,EX,1,2e11 MPDATA,PRXY,1,0.3 RPR4,6,0,0,0.01,/VIEW, 1 ,1,1,1 /ANG, 1 /REP,FAST /AUTO, 1/REP/PNUM,KP,1 /PNUM,LINE,1/PNUM,AREA,0/PNUM,VOLU,0/PNUM,NODE,0/PNUM,TABN,0/PNUM,SVAL,0/NUMBER,0 !* /PNUM,ELEM,0/REPLOT !* K,7,0,0,0, K,8,0,0,0.05, K,9,0,0.1,0.05, /DIST,1,0.924021086472,1/REP,FAST /DIST,1,0.924021086472,1/REP,FAST /DIST,1,0.924021086472,1/REP,FAST /DIST,1,0.924021086472,1/REP,FAST LSTR, 7, 8 LSTR, 8, 9 !* LFILLT,7,8,0.01, , LSTR, 1, 4 ASBL, 1, 10 FLST,5,3,4,ORDE,2 FITEM,5,2 FITEM,5,-4 CM,_Y,LINE LSEL, , , ,P51X CM,_Y1,LINE CMSEL,_Y !* LESIZE,_Y1, , ,3, , , , ,1 !* FLST,5,3,4,ORDE,2 FITEM,5,7 FITEM,5,-9 CM,_Y,LINE LSEL, , , ,P51X CM,_Y1,LINE CMSEL,_Y !* LESIZE,_Y1,0.01, , , , , , ,1 !* MSHAPE,0,2D MSHKEY,1!* FLST,5,2,5,ORDE,2 FITEM,5,2 FITEM,5,-3 CM,_Y,AREA ASEL, , , ,P51X CM,_Y1,AREA CHKMSH,AREA CMSEL,S,_Y !* AMESH,_Y1 !* CMDELE,_Y CMDELE,_Y1 CMDELE,_Y2 !* /UI,MESH,OFFLPLOT FLST,2,2,5,ORDE,2 FITEM,2,2 FITEM,2,-3 FLST,8,3,4 FITEM,8,7 FITEM,8,9 FITEM,8,8 VDRAG,P51X, , , , , ,P51X /RGB,INDEX,100,100,100, 0 /RGB,INDEX, 80, 80, 80,13 /RGB,INDEX, 60, 60, 60,14 /RGB,INDEX, 0, 0, 0,15 /REPLOT /VIEW,1,1 /ANG,1 /REP,FAST /VIEW,1,-1/ANG,1 /REP,FAST FLST,2,2,5,ORDE,2 FITEM,2,3 FITEM,2,7 ACLEAR,P51X /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 EPLOT FINISH /SOL/VIEW,1,1 /ANG,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 /ANG,1 /REP,FAST /VIEW,1,1,1,1 /ANG,1 /REP,FAST /VIEW,1,-1/ANG,1 /REP,FAST FLST,2,2,5,ORDE,2 FITEM,2,2 FITEM,2,11 !* /GO DA,P51X,ALL,/VIEW,1,1 /ANG,1 /REP,FAST FLST,2,6,3,ORDE,2 FITEM,2,18 FITEM,2,-23 !* /GO FK,P51X,FZ,1500 /STATUS,SOLUSOLVE /VIEW,1,1,1,1 /ANG,1 /REP,FAST FINISH /POST1 PLDISP,0PLDISP,2!* /EFACET,1 PLNSOL, S,EQV, 0,1.0/DIST,1,1.08222638492,1 /REP,FAST /DIST,1,1.08222638492,1 /REP,FAST /DIST,1,0.924021086472,1/REP,FAST !* !* !* /EFACET,1 PLNSOL, S,EQV, 0,1.0!* /DIST,1,1.08222638492,1 /REP,FAST /DIST,1,1.08222638492,1 /REP,FAST /DIST,1,0.924021086472,1/REP,FAST /DIST,1,0.924021086472,1/REP,FAST !* /EFACET,1 PLNSOL, NL,SEPL, 0,1.0 /EFACET,1 PLNSOL, NL,SEPL, 0,1.0 /DIST,1,1.08222638492,1 /REP,FAST /DIST,1,0.924021086472,1/REP,FAST /DIST,1,0.924021086472,1/REP,FAST /DIST,1,0.924021086472,1/REP,FAST /DIST,1,1.08222638492,1 /REP,FAST /DIST,1,1.08222638492,1 /REP,FAST /DIST,1,1.08222638492,1 /REP,FAST /DIST,1,1.08222638492,1 /REP,FAST /DIST,1,1.08222638492,1 /REP,FAST /DIST,1,1.08222638492,1 /REP,FAST /DIST,1,1.08222638492,1 /REP,FAST /DIST,1,0.924021086472,1/REP,FAST /DIST,1,0.924021086472