热设计论坛

标题: 一个点焊的例子 [打印本页]

作者: 采女孩的大蘑菇 时间: 2011-5-1 09:10
标题: 一个点焊的例子
/plopts,info,1
/color,pbak,0
/view,,1,2,3
/pbc,all,1
/pnum,type,1
/num,1
/eshape,1
/dscale,,1
/uis,abort,off

! ===========================================================================

/filnam,spot,1

/prep7
et,1,SHELL163,12 ! fully integrated Belytschko-Tsay shell
et,2,SHELL163,12 ! new TYPE number to create 2 Parts ...
r,1,,5,1.0 ! NIP=5, t= 1.0 mm
r,2,,5,1.0 ! NIP=5, t= 1.0 mm
mp,ex,1,210.0 ! GPa = kN/mm^2
mp,nuxy,1,0.29 ! unitless
mp,dens,1,7.85e-6 ! kg/mm^3
tb,bkin,1 ! bilinear kinematic hardening model
tbdata,1,0.80 ! GPa = kN/mm^2 (yield stress)
tbdata,2,21.0 ! GPa = kN/mm^2 (tangent modulus)

rectng,0,40,0,80 ! 80mm long, 40mm wide, and 1mm thick
wpoff,0,40,1.05
rect,0,40,0,80 ! 80mm long, 40mm wide, and 1mm thick
wpcsys,,0
wpstyl
/view,,1,1,1
mshape,0,2D
mshkey,1
esize,10.0
type,1
real,1
amesh,1
type,2
real,2
amesh,2
/auto
eplot

edpart,create ! create Part list
eddamp,all,,0.01 ! alpha damping for entire model
eddamp,1,,5.0e-2 ! beta damping for Part 1
eddamp,2,,5.0e-2 ! beta damping for Part 2

edcgen,ag ! define automatic general contact
fini

/solu
time,1.0 ! milli-seconds (termination time)
edrst,25
edhtime,500
edenergy,1,1,1,1
edout,glstat
edout,matsum

nsel,s,loc,y,35,85
cm,ntrack,node ! nodes to track in POST26
edhist,ntrack ! nodal component for .HIS file

nsel,s,loc,y,0
d,all,ux,0.0,,,,uy,uz ! fix base in all translational DOFs
d,all,rotx,0.0,,,,roty,rotz ! fix base in all rotational DOFs

nsel,s,loc,y,120
d,all,ux,0.0,,,,uz ! fix top translational DOFs except UY
d,all,rotx,,,,roty,rotz ! fix top in all rotational DOFs
cm,npull,node ! nodes to pull on top edge of top plate
nsel,all

*dim,etime,,2,0
etime(1)=0.0,1.01 ! run time array out past termination time

*dim,ydisp,,2,0
ydisp(1)=0.0,40.0 ! UY displacements for component npull

n1=node(20.0,60.0,1.05) ! spotweld node in top plate
n2=node(20.0,60.0,0.0) ! spotweld node in bottom plate

eplot
save
fini

/eof ! The following commands are generated by doing the workshop ...

/PREP7
!*
EDWELD,ADD,1,78,37,100,100,2,2,
FINISH
/SOLU
EDCURVE,ADD,1,ETIME,YDISP
EDCURVE,PLOT, 1
EDLOAD,ADD,UY,0,NPULL,' ',' ', 0,1, , , ,
EDLOAD,LIST
EDPL,1,
SAVE
/STATUS,SOLU
SOLVE
FINISH
/POST1
SET,LAST
/EFACE,1
AVPRIN,0, ,
!*
PLNSOL,S,EQV,0,1
!*
ANDATA,0.5, ,0,0,0,1,0,1
!*
FINISH
/POST26
/UI,COLL,0
RESET
FINISH
/POST1
RESET
FINISH
/POST26
FILE,'spot','his',''
KEYW,LSDYNA_H,1
/UI,COLL,1
NUMVAR,200
NSOL,191,node(0,0,0),UX
STORE,MERGE
NSOL,191,node(0,0,0),UX
STORE,MERGE
NSOL,191,node(0,0,0),UX
STORE,MERGE
FILLDATA,191,,,,1,1
REALVAR,191,191
EDREAD,2,GLSTAT
STORE,MERGE
XVAR,1
PLVAR,3,4,7,8,9,14,
!*
NSOL,15,78,U,Y, UY_15
STORE,MERGE
XVAR,1
PLVAR,15,
!*
NSOL,16,37,U,Y, UY_16
STORE,MERGE
XVAR,1
PLVAR,15,16,
! FINISH
! /EXIT,MODEL

作者: 秋末天空 时间: 2011-5-1 09:10

欢迎光临热设计论坛 (https://resheji.com/bbs/)