iCAx开思网

标题: 【原创】高速冲击仿真命令流 [打印本页]

作者: mulin    时间: 2003-9-14 11:17
标题: 【原创】高速冲击仿真命令流
我的冲击仿真命令流,希望同行们多多交流。  
  
冲击仿真效果见:https://www.icax.org/viewthread. ... %3D1&page=#pid=&age=60
  
/PREP7  
ET,1,SOLID164  
ET,2,SOLID164  
ET,3,SOLID164  
ET,4,SOLID164  
MP,DENS,1,7800  
MP,EX,1,2e11  
MP,NUXY,1,0.3  
MP,DENS,2,2500  
MP,EX,2,40E9  
MP,NUXY,2,0.2  
MPDE,DENS,2  
MP,DENS,2,2500  
MPDE,EX,2  
MP,EX,2,4E+010  
MP,GXY,2,16.6666666667e9  
TB,PLAW,2,,,9,  
TBDAT,1,50e6  
TBDAT,2,20e9  
TBDAT,3,0  
TBDAT,4,0.005  
TBDAT,5,0  
TBDAT,6,4.61034E-4  
TBDAT,7,9.22067E-4  
TBDAT,8,0.00138  
TBDAT,9,0.0019  
TBDAT,10,0.00231  
TBDAT,11,0.00277  
TBDAT,12,0.00323  
TBDAT,13,0.00369  
TBDAT,14,0.00415  
TBDAT,15,0.00461  
TBDAT,16,0.00507  
TBDAT,17,0.00553  
TBDAT,18,0.00599  
TBDAT,19,0.00645  
TBDAT,20,0.00692  
TBDAT,21,0  
TBDAT,22,12.12368e6  
TBDAT,23,27.46958e6  
TBDAT,24,42.72184e6  
TBDAT,25,50e6  
TBDAT,26,45.80153e6  
TBDAT,27,34.52491e6  
TBDAT,28,21.75754e6  
TBDAT,29,11.90225e6  
TBDAT,30,9.03357e6  
TBDAT,31,7.24005e6  
TBDAT,32,5.86651e6  
TBDAT,33,4.77667e6  
TBDAT,34,4.10548e6  
TBDAT,35,3.49351e6  
TBDAT,36,2.91365e6  
TBDAT,37,  
TBDAT,38,  
TBDAT,39,  
TBDAT,40,  
TBDAT,41,  
TBDAT,42,  
TBDAT,43,  
TBDAT,44,  
CYLIND,0.037, ,-0.405,-0.05,0,90,  
CYLIND,0.037, ,0,2.8,0,90,  
CYLIND,0.037, ,2.8,2.835,0,90,  
CYLIND,0.037, ,2.835,4.435,0,90,  
FLST,5,9,4,ORDE,6  
FITEM,5,7  
FITEM,5,-9  
FITEM,5,16  
FITEM,5,-18  
FITEM,5,34  
FITEM,5,-36  
CM,_Y,LINE  
LSEL, , , ,P51X  
CM,_Y1,LINE  
CMSEL,,_Y  
LESIZE,_Y1,0.04, , , , , , ,1  
FLST,5,6,4,ORDE,6  
FITEM,5,1  
FITEM,5,-2  
FITEM,5,10  
FITEM,5,-11  
FITEM,5,32  
FITEM,5,-33  
CM,_Y,LINE  
LSEL, , , ,P51X  
CM,_Y1,LINE  
CMSEL,,_Y  
LESIZE,_Y1, , ,3, , , , ,1  
FLST,5,4,4,ORDE,4  
FITEM,5,14  
FITEM,5,-15  
FITEM,5,28  
FITEM,5,-29  
CM,_Y,LINE  
LSEL, , , ,P51X  
CM,_Y1,LINE  
CMSEL,,_Y  
LESIZE,_Y1, , ,3, , , , ,1  
FLST,5,3,4,ORDE,2  
FITEM,5,25  
FITEM,5,-27  
CM,_Y,LINE  
LSEL, , , ,P51X  
CM,_Y1,LINE  
CMSEL,,_Y  
LESIZE,_Y1, , ,6, , , , ,1  
FLST,5,4,4,ORDE,4  
FITEM,5,19  
FITEM,5,-20  
FITEM,5,23  
FITEM,5,-24  
CM,_Y,LINE  
LSEL, , , ,P51X  
CM,_Y1,LINE  
CMSEL,,_Y  
LESIZE,_Y1, , ,6, , , , ,1  
TYPE, 1  
MAT, 1  
REAL,  
ESYS, 0  
SECNUM,  
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  
TYPE, 2  
MAT, 1  
REAL,  
ESYS, 0  
SECNUM,  
CM,_Y,VOLU  
VSEL, , , , 2  
CM,_Y1,VOLU  
CHKMSH,'VOLU'  
CMSEL,S,_Y  
VMESH,_Y1  
CMDELE,_Y  
CMDELE,_Y1  
CMDELE,_Y2  
TYPE, 3  
MAT, 2  
REAL,  
ESYS, 0  
SECNUM,  
CM,_Y,VOLU  
VSEL, , , , 3  
CM,_Y1,VOLU  
CHKMSH,'VOLU'  
CMSEL,S,_Y  
VMESH,_Y1  
CMDELE,_Y  
CMDELE,_Y1  
CMDELE,_Y2  
TYPE, 4  
MAT, 1  
REAL,  
ESYS, 0  
SECNUM,  
CM,_Y,VOLU  
VSEL, , , , 4  
CM,_Y1,VOLU  
CHKMSH,'VOLU'  
CMSEL,S,_Y  
VMESH,_Y1  
CMDELE,_Y  
CMDELE,_Y1  
CMDELE,_Y2  
VSEL,S, , , 1  
NSLV,S,1  
CM,ZIDANN,NODE  
CM,ZIDAN,VOLU  
VSEL,S, , , 3  
ESLV,S  
NSLV,S,1  
CM,CONCRETE,VOLU  
CM,CONCRETEE,ELEM  
CM,CONCRETEN,NODE  
ALLSEL,ALL  
GPLOT  
EPLOT  
APLOT  
FLST,2,2,5,ORDE,2  
FITEM,2,4  
FITEM,2,-5  
/GO  
DA,P51X,UX,  
FLST,2,2,5,ORDE,2  
FITEM,2,4  
FITEM,2,-5  
/GO  
DA,P51X,UY,  
FLST,2,2,5,ORDE,2  
FITEM,2,4  
FITEM,2,-5  
/GO  
DA,P51X,AX,  
FLST,2,2,5,ORDE,2  
FITEM,2,4  
FITEM,2,-5  
/GO  
DA,P51X,AY,  
FLST,2,2,5,ORDE,2  
FITEM,2,4  
FITEM,2,-5  
/GO  
DA,P51X,AZ,  
FLST,2,2,5,ORDE,2  
FITEM,2,4  
FITEM,2,-5  
/GO  
DA,P51X,AZ,  
FLST,2,2,5,ORDE,2  
FITEM,2,9  
FITEM,2,-10  
/GO  
DA,P51X,UX,  
FLST,2,2,5,ORDE,2  
FITEM,2,9  
FITEM,2,-10  
/GO  
DA,P51X,UY,  
FLST,2,2,5,ORDE,2  
FITEM,2,9  
FITEM,2,-10  
/GO  
DA,P51X,AX,  
FLST,2,2,5,ORDE,2  
FITEM,2,9  
FITEM,2,-10  
/GO  
DA,P51X,AY,  
FLST,2,2,5,ORDE,2  
FITEM,2,9  
FITEM,2,-10  
/GO  
DA,P51X,AZ,  
FLST,2,4,5,ORDE,4  
FITEM,2,14  
FITEM,2,-15  
FITEM,2,19  
FITEM,2,-20  
/GO  
DA,P51X,UX,  
FLST,2,4,5,ORDE,4  
FITEM,2,14  
FITEM,2,-15  
FITEM,2,19  
FITEM,2,-20  
/GO  
DA,P51X,UY,  
FLST,2,4,5,ORDE,4  
FITEM,2,14  
FITEM,2,-15  
FITEM,2,19  
FITEM,2,-20  
/GO  
DA,P51X,AX,  
FLST,2,4,5,ORDE,4  
FITEM,2,14  
FITEM,2,-15  
FITEM,2,19  
FITEM,2,-20  
/GO  
DA,P51X,AY,  
FLST,2,4,5,ORDE,4  
FITEM,2,14  
FITEM,2,-15  
FITEM,2,19  
FITEM,2,-20  
/GO  
DA,P51X,AZ,  
EDVE,VELO,ZIDANN,0,0,30,0,0,0, , , , , ,  
EDPART,CREATE  
EDCGEN,STS, 1, 2,0,0,0,0,0, , , , ,0,10000000,0,0  
EDCGEN,STS, 2, 3,0,0,0,0,0, , , , ,0,10000000,0,0  
EDCGEN,STS, 3, 4,0,0,0,0,0, , , , ,0,10000000,0,0  
FINISH  
/SOL  
TIME,0.003,  
EDCTS,0,0.5,




欢迎光临 iCAx开思网 (https://www.icax.org/) Powered by Discuz! X3.3