Skip to content

Commit

Permalink
feat: adding spotweld inp file (#218)
Browse files Browse the repository at this point in the history
  • Loading branch information
clatapie authored Jan 11, 2024
1 parent 5a57137 commit 895cd7b
Showing 1 changed file with 133 additions and 0 deletions.
133 changes: 133 additions & 0 deletions pymapdl/spotweld/spotweld.inp
Original file line number Diff line number Diff line change
@@ -0,0 +1,133 @@
!----------------------------------------
! Example problem for demonstrating
! Spotweld technology
!----------------------------------------
!
!----------------------------------------
! Originated in 9.0 JJDoyle 2004/09/01
!----------------------------------------
/prep7
/num,0
/pnum,area,1

k,1,2,10,
k,2,10,10
k,3,10,0.15
k,4,14,0.15
!
l,1,2
l,2,3
l,3,4
lfillt,1,2,3
lfillt,2,3,2
!
k,9,,
k,10,11,
k,11,15,
l,9,10
l,10,11

k,12,,10
lsel,s,,,6,7
AROTAT,all,,,,,,9,12,12,1,

lsel,s,,,1,5
AROTAT,all,,,,,,9,12,12,1,
areverse,1
areverse,2

asel,s,,,3,7
ARSYM,Y,all, , , ,0,0
allsel

!********
!define weld location with hardpoint
!********
HPTCREATE,AREA,7,0,COORD,12.9,0.15,-1.36,

/view,1,1,1,1
gplo
!
et,1,181
r,1,0.15
r,2,0.1
!
mp,ex,1,30e6
mp,prxy,1,0.3
!
esize,0.25
real,1
amesh,1
amesh,2
real,2
asel,s,,,3,12
amesh,all
!
lsel,s,,,1,9
lsel,a,,,12,17
lsel,a,,,26,38,3
lsel,a,,,24,36,3
nsll,s,1
wpstyle,0.05,0.1,-1,1,0.003,0,0,,5
WPSTYLE,,,,,,,,1
wpro,,-90.000000,
CSWPLA,11,1,1,1,
csys,11
nrotat,all
d,all,uy
d,all,rotx

csys,0

lsel,s,,,23
nsll,s,1
d,all,uz

lsel,s,,,17
nsll,s,1
d,all,uz,4

ALLSEL
/view,1,1,1,1
/eshape,1
ksel,s,,,33
nslk,s,1
*get,sw_node,node,,num,max

/solu
allsel
nlgeom,on
time,4
nsubst,10,25,5
outres,all,all
fini

!------------------------------------
!build flex spotweld with BEAM188, run the solution,
!and post process results
!------------------------------------
fini
allsel
/prep7
mp,ex,2,28e6
mp,prxy,2,0.3
!
SECTYPE,2,beam,csolid
SECDATA,0.25
!
et,2,188
type,2
mat,2
secnum,2

SWGEN,sweld1,0.50,7,2,sw_node,,
SWADD,sweld1,,12

/solu
allsel
nlgeom,on
time,4
nsubst,10,25,5
outres,all,all
solve
FINISH

0 comments on commit 895cd7b

Please sign in to comment.