!********************************************************************************************************************************

fini
/clear


/title,Biegebalken_10s
ABBRES,NEW,'Startersatz','inp',C:\Users\DaWink  

!Variablen____________________________________________________________

ZEIT=0.1	!Umformzeit
ALPHA=20	!Biegewinkel

GAMMA=0.15	!GAMMA Wert Perzyna
M=0.85		!M-Wert_Perzyna

ALPHA_RAD=ALPHA/180*3.141

H=10		!Höhe Balken
B=10		!Breite Balken
L=100		!Laenge Balken

N1=8		!Anzahl Elemente Dicke		
N2=10		!Anzahl Elemente Länge

/prep7

!Elementtypen______________________________________________

etcon,set
et,1,plane183
keyopt,1,3,3

!Material__________________________________________________

MP,DENS,1,7.85e-09,	! tonne mm^-3
MP,EX,1,206000,	! tonne s^-2 mm^-1
MP,NUXY,1,0.3,

TB,PLAS,1,1,25,MISO
TBTEMP,20
TBPT,,0,1230.035825
TBPT,,9.13166e-05,1418.165204
TBPT,,0.000164771,1505.292233
TBPT,,0.000271642,1585.484733
TBPT,,0.000474533,1645.846456
TBPT,,0.000744508,1692.338024
TBPT,,0.001096038,1721.978835
TBPT,,0.001480966,1744.689107
TBPT,,0.001904144,1759.469379
TBPT,,0.002336668,1772.274097
TBPT,,0.002778548,1783.100961
TBPT,,0.003224968,1792.942209
TBPT,,0.004121789,1811.653864
TBPT,,0.005022321,1829.400388
TBPT,,0.006858798,1856.997515
TBPT,,0.010596629,1896.43565
TBPT,,0.014386225,1922.042233
TBPT,,0.01819908,1939.713864
TBPT,,0.02201609,1953.410777
TBPT,,0.025832663,1964.103102
TBPT,,0.02964512,1972.572241
TBPT,,0.033445739,1980.432524
TBPT,,0.038547343,1989.524973
TBPT,,0.04755611,2003.845915
TBPT,,0.050930198,2005.969715

TB,RATE,1,,,PERZYNA              ! Activate RATE data table
TBTEMP,1                         ! Define first temperature
TBDATA,1,M,GAMMA		 !C1 ist m C2 ist gamma

!Geometrie und Vernetzung__________________________________________________________

rectng,-L/2,L/2,0,H
r,1,B				!Ebener Spannungszustand,Breite 20

lesize,4,,,N1
lesize,3,,,N2
type,1
mat,1
real,1
mshkey,2
amesh,1

!RB's_______________________________________________________________________________

nsel,s,loc,x,-50
d,all,all

!Externe Verschiebung______________________________________________________________

*set,tid,3
*set,cid,2
MP,EX,cid,206000,	! tonne s^-2 mm^-1
MP,NUXY,cid,0.3,
MP,EX,tid,206000,	! tonne s^-2 mm^-1
MP,NUXY,tid,0.3,
et,cid,172
et,tid,169
keyo,tid,2,1               ! Don't fix the pilot node
keyo,tid,4,0               ! Activate all DOF's due to large deformation
keyo,cid,12,5              ! Bonded Contact 
keyo,cid,4,2               ! Rigid CERIG style load
keyo,cid,2,2               ! MPC style contact


nsel,s,loc,x,50
type,cid
mat,cid
real,cid
esurf
type,tid
tshape,pilot
n,100000,50,H/2			!externer Punkt
en,100000,100000
tshape

*do,i,1,N1,1
nsel,s,loc,y,H-(i-1)*H/N1,H-i*H/N1  
esln,,1 
cm,s%i%,elem
*enddo 


!***********************************************SOLUTION**********************

/solu

antype,0
nlgeom,on
solcontrol,on,on
outres,all,all
autots,on


alls

time,ZEIT
nsub,10,10,10
d,100000,rotz,-ALPHA_RAD
alls
solve


/post1
/EFACET,1   
PLNSOL, S,X, 0,1.0 


/solu

antype,,rest

time,ZEIT+0.05
nsub,10,10,10
ddele,100000,all!,,,force
alls
solve


/post1
/EFACET,1   
PLNSOL, S,X, 0,1.0  

/solu

antype,stat,rest
time,ZEIT+0.1
solcontrol,on
nropt,full,,on
nsub,10
ekill,s1
alls
solve