| 查看: 568 | 回复: 0 | ||
[求助]
生死单元
|
|
我的本意是让他从下到上可是运行的时候他从上到下下面是命令流/Clear /FILENAME,WELD /TITLE,Ttemperaturre and stress analysis during welding /UNIT,SI /PREP7 ET,1,13,4 ET,2,13,4 MPTEMP,1,30,500,1000,1500,2000 MPDATA,EX,1,1,1.93E11,1.5E11,0.7E11,0.1E11,0.01E11 MPDATA,EX,2,1,1.02E11,0.5E11,0.08E11,0.001E11,0.0001E11 MPDATA,EX,3,1,1.17E11,0.9E11,0.3E11,0.05E11,0.005E11 TB,BKIN,1,5 TBTEMP,20,1 TBDATA,1,1.2E9,1.93E10 TBTEMP,500,2 TBDATA,1,0.933E9,1.5E10 TBTEMP,1000,3 TBDATA,1,0.435E9,0.7E10 TBTEMP,1500,4 TBDATA,1,0.07E9,0.1E10 TBTEMP,2000,5 TBDATA,1,0.007E9,0.01E10 TB,BKIN,2,5 TBTEMP,20,1 TBDATA,1,0.8E9,1.02E10 TBTEMP,500,2 TBDATA,1,0.4E9,0.5E10 TBTEMP,1000,3 TBDATA,1,0.07E9,0.08E10 TBTEMP,1500,4 TBDATA,1,0.0001E9,0.001E10 TBTEMP,2000,5 TBDATA,1,0.0001E9,0.00001E10 TB,BKIN,3,5 TBTEMP,20,1 TBDATA,1,0.9E9,1.17E10 TBTEMP,500,2 TBDATA,1,0.7E9,0.9E10 TBTEMP,1000,3 TBDATA,1,0.23E9,0.3E10 TBTEMP,1500,4 TBDATA,1,0.04E9,0.05E10 TBTEMP,2000,5 TBDATA,1,0.004E9,0.005E10 MP,DENS,1,7800 MP,DENS,2,4850 MP,DENS,3,8900 MP,ALPX,1,1.78E-5 MP,ALPX,2,9.36E-6 MP,ALPX,3,1.66E-5 MP,NUXY,1,0.29 MP,NUXY,2,0.30 MP,NUXY,3,0.29 MP,KXX,1,16.3 MP,KXX,2,7.44 MP,KXX,3,393 MP,C,1,502 MP,C,2,544 MP,C,3,385 K,1,0,0,0 K,2,0.5,0,0 K,3,1,0,0 K,4,0,0.26,0 K,5,0.35,0.26,0 K,6,0.65,0.26,0 K,7,1,0.26,0 LENGTH=DISTKP(2,5) K,8,0.5,LENGTH,0 L,1,2 L,2,5 L,5,4 L,4,1 L,2,3 L,3,7 L,7,6 L,6,2 LARC,6,5,8 AL,1,2,3,4 AL,2,8,9 AL,5,6,7,8 ESIZE,0.025 TYPE,2 MAT,2 MSHAPE,0,2D MSHKEY,1 AMESH,2 ESIZE,0.05 TYPE,1 MAT,1 AMESH,1 MAT,3 AMESH,3 AMESH,3 FINISH /SOLU ANTYPE,4 TRNOPT,FULL NSEL,S,LOC,X,0 D,ALL,UX D,ALL,UY NSEL,ALL NSEL,S,LOC,X,0 NSEL,A,LOC,X,1 D,ALL,TEMP,20 NNA=2 ESEL,ALL *GET,EMAX,ELEM,,NUM,MAX ASEL,S,,,NNA ESLA,S *GET,NSE,ELEM,,COUNT *DIM,NE,,NSE *DIM,NEX,,NSE *DIM,NEY,,NSE *DIM,NEORDER,,NSE MINE=0 *DO,II,1,NSE ESEL,U,ELEM,,MINE *GET,NSE1,ELEM,,COUNT II=0 *DO,I,1,EMAX *IF,ESEL(I),EQ,1,THEN II=II+1 NE(II)=I *ENDIF *ENDDO *DO,I,1,NSE1 *GET,NEY(I),ELEM,NE(I),CENT,Y *GET,NEX(I),ELEM,NE(I),CENT,X *ENDDO MINY=1E20 MINX=1E20 *DO,I,1,NSE1 *IF,NEY(I),LT,MINY,THEN MINY=NEY(I) MINX=NEX(I) MINE=NE(I) *ELSE *IF,NEY(I),EQ,MINY,THEN *IF,NEX(I),LT,MINX,THEN MINY=NEY(I) MINX=NEX(I) MINE=NE(I) *ENDIF *ENDIF *ENDIF *ENDDO NEORDER(II)=MINE *ENDDO MAX_TEMP=1500 DT1=1E-3 DT=5 T=0 ESEL,ALL /AUTO,1 *DO,I,1,NSE EKILL,NEORDER(I) ESEL,S,LIVE EPLOT *ENDDO ALLSEL,ALL OUTRES,ALL,ALL IC,ALL,TEMP,20 KBC,1 TIMINT,0,STRUCT TIMINT,1,THERM TIMINT,0,MAG TINTP,0.005,,,1,0.5,0.2 NSUB1=2 NSUB2=40 *DO,I,1,NSE EALIVE,NEORDER(I) ESEL,S,LIVE EPLOT ESEL,ALL T=T+DT1 TIME,T NSUBST,1 *DO,J,1,4 D,NELEM(NEORDER(I),J),TEMP,MAX_TEMP *ENDDO SOLVE T=T+DT1 TIME,T SOLVE *DO,J,1,4 DDELE,NELEM(NEORDER(I),J),TEMP *ENDDO T=T+DT-2*DT1 TIME,T NSUBST,NSUB1 SOLVE *ENDDO T=T+50000 TIME,T NSUBST,NSUB2 SOLVE FINISH /POST1 @wuming524 发自小木虫Android客户端 |
回复此楼» 猜你喜欢
国社科又开始会评了，不知道这次命运如何
已经有13人回复
-
麻烦专家们看看评委们的意见（F口面上）
已经有13人回复
-
售SCI-T0P文章，我:8O.5.5.1.O.54,科目齐全,可+急
已经有4人回复
-
售SCI文章，我:8O5.5.1.O.54,科目齐全,可+急
已经有6人回复
-
为什么资助数各大高校都创新高，自己申请怎么就这么难
已经有15人回复
-
科研人应该花精力去思考如何解决问题，而不是去凝练问题
已经有14人回复
-
要骂人了，新模版改版就是要淡化问题凝练这种虚的东西，结果有个评委还在说凝练得不够
已经有17人回复
-
基金系统什么内容也没有
已经有10人回复
-
学科评审组评审是指会评吗？
已经有5人回复
-
面上函评意见出来了，像什么等级？
已经有17人回复
30