Fini
/Clear,start
/CWD,'Z:\Maya\Endgültig'  
/FILNAME,Probe,0
!Preprozessor
/PREP7  
 

!Elementtype (2 Dimensional)
ET,1,PLANE42
MP,EX,1,75000		! Young's modulus
MP,PRXY,1,0.3		! Poisson's ratio
TB,MELA,1,1,12, 	! Create a table of 12 data points
			! to map the stress-strain curve
TBPT,,.001,75   	! Data points
TBPT,,.002,150  
TBPT,,.003,225  
TBPT,,.004,240  
TBPT,,.005,250  
TBPT,,.025,300  
TBPT,,.06,355   
TBPT,,.1,390
TBPT,,.15,420   
TBPT,,.2,435
TBPT,,.25,449   
TBPT,,.275,450  

!Keypoints
K,1 ,0,0,0,  
K,2 ,1,0,0,  
K,3 ,1,0.1,0,
K,4 ,0,0.1,0,
!Fläche
A,1,2,3,4


!Meshing
Amesh,all

MSHKEY,1

!Ende des Preprozessors

!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!

/SOLU

rescont,,all,all            

ANTYPE,4
TRNOPT,FULL 
LUMPM,0 
NROPT,Full
NLGEOM,ON   	!Größe Verformungen ON

outres,all,all	!Alle Verformungen Speichern

!Randbedingung (DOF von Keypoints = 0)  

NSEL,S,LOC,X,0,	!Select Node
NSEL,A,LOC,X,1,	!Add Node to Selection
NSEL,A,LOC,Y,0,	!Add Node to Selection
D,All,UX
D,All,UY
alls		

TIME,1
SOLVE
SAVE

!!!!!!!!!!!!!!!!DO SCHLEIFE!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!

*do,xx,0.2,0.8,0.1
kn_nr=NODE(xx,0.1,0) !NODE(x,y,z) liefert Knotennummer
NSEL,S,,,kn_nr
F,ALL,FY,-22 !Kraft auf selektieren Knoten bringen  
alls
*enddo


TIME,2
SOLVE
SAVE


*do,xx,0.2,0.8,0.1 
kn_nr=NODE(xx,0.1,0) !NODE(x,y,z) liefert Knotennummer
NSEL,S,,,kn_nr
FDELE,ALL,ALL  !Kraft löschen  
alls
*enddo


TIME,3
SOLVE
SAVE







!!!!!!!!!!!!!!!!!!!!!!! 3: SYSTEM OHNE LASTEN WEITER RECHNEN (NUR DOF = 0)!!!!

!letzter Schritt (DOF des Randes Auflösen, K1 Fixieren, K2 nur UX Frei)

NSEL,S,LOC,X,0,	
NSEL,A,LOC,X,1,
NSEL,A,LOC,Y,0,
DDELE,ALL,ALL

DK,1,ALL,0
Dk,2,UY,0

TIME,4
SOLVE
SAVE

/REPLOT,RESIZE  
FINISH