/FILNAM, Seatbelt
/TITLE, Seatbelt Geometry
!
/PREP7
fillet=0.03125
fillet2=0.0625
thickness=0.09375
!
/PNUM,KP,1
/PNUM,LINE,1
/PNUM,AREA,1
!
RECTING,0,1.5,0,0.75,
RECTING,0,0.375,0,0.40625,
!
AGEN,,2,,,0.75,,,,,1
PCIRC,0.35, , 0,90,
!
AOVLAP,all
ADELE,4, , ,1
ADELE,2, , ,1
!
adel,all
!
LFILLT,3,2,0.25,,
LFILLT,7,8,0.0625,,
LFILLT,7,6,fillet,,
!
al,all
/color,area,1
!
ET,1,PLANE183
KEYOPT,1,2,3
R,1,thickness,
!
MP,EX,1,30.0E06
MP,NUXY,1,0.3
!
LESIZE,5,,,8 ,,,,,1
AESIZE,all,0.02,
AMESH,all
fini

/SOL
DL,16, SYMM
DL,14, , SYMM
DL,15, , UX,0
!
basinc=1000/(thickness*0.75)
SFL,6,PRES,basinc,
!
alls
solve
FINISH

/POST1
PLNSOL, U,X ,2,1.0
PLNSOL,S,EQV,2
/edge,,1
/repl
/EXPAND,2,RECT,HALF,,0.0001
fini
/exit,nosave