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

finish		!aktuellen Prozess beenden
/clear,start	!Speicher leeren und ANSYS neustarten

!*******************************************************************
!Eingangswerte

n =	0.2	!Netzgröße

!*******************************************************************
/prep7		!Preprozessor starten
ET,1,184,0,1	!Elementtyp 1 MPC184 as rigid beam with constraint equations
ET,2,186	!Elementtyp 2 Solid186
!*******************************************************************
!Material
MPTEMP,1,0	!Bezugstemperatur Material 1
MPDATA,EX,1,,210000
MPDATA,EY,1,,210000
MPDATA,EZ,1,,210000
MPDATA,PRXY,1,,0.3
TB,PLASTIC,1,1,10,MISO
TBPT,DEFI,0.0000,461.0
TBPT,DEFI,0.0003,471.2
TBPT,DEFI,0.0008,501.5
TBPT,DEFI,0.0023,537.4
TBPT,DEFI,0.0058,554.4
TBPT,DEFI,0.0177,593.6
TBPT,DEFI,0.0371,639.6
TBPT,DEFI,0.0562,667.8
TBPT,DEFI,0.0721,682.8
TBPT,DEFI,0.2341,802.6

!*******************************************************************
!Geometrie 
BLC4,0,0,-1,1,-1
SPHERE,0,0.6,,
VSBV,1,2,,,


!*******************************************************************
!Netzgenerierung
TYPE,1

n,100,-2,0.5,-0.5	!Master-Knoten X-Achse	
n,200,-0.5,0.5,-2	!Master-Knoten Z-Achse	
n,300,-0.5,2,-0.5	!Master-Knoten Y-Achse	


mshape,1,3D		!Netzart 
TYPE,2			!Elementtyp 2 aktiv setzen

mat,1			!Material 1 aktiv setzen
esize,n			!Elementgröße
vsel,s,VOLU,,3		!Volumen 3 aktiv setzen
vmesh,all		!Vernetzen	


!Master-SLAVE-Beziehung

TYPE,1

ASEL,s,area,,5
NSLA,s,0
*get,nnode,node,,count                  !number of interface nodes 
nn=0                                    !initialize counter
*do,i,1,nnode                          	!loop over interface nodes
   nn=ndnext(nn)                        !next highest selected node number 
   nsel,a,node,,100                    	!also select pilot node 
   e,nn,100                             !define Element
   nsel,u,node,,100                     !unselect pilot node
*enddo


LSEL,s,line,,9
LSEL,a,line,,8
LSEL,a,line,,12
LSEL,a,line,,1
NSLL,s,0
*get,nnode,node,,count                 
nn=0                                    
*do,i,1,nnode                          
   nn=ndnext(nn)                        
   nsel,a,node,,100                    	
   e,nn,100                             
   nsel,u,node,,100                     
*enddo

ASEL,s,area,,1
NSLA,s,0
*get,nnode,node,,count                  
nn=0                                    
*do,i,1,nnode                          	
   nn=ndnext(nn)                         
   nsel,a,node,,200                    	
   e,nn,200                             
   nsel,u,node,,200                     
*enddo

LSEL,s,line,,3
LSEL,a,line,,4
LSEL,a,line,,2
LSEL,a,line,,1
NSLL,s,0
*get,nnode,node,,count                  
nn=0                                    
*do,i,1,nnode                          	
   nn=ndnext(nn)                        
   nsel,a,node,,200                    	
   e,nn,200                             
   nsel,u,node,,200                     
*enddo

ASEL,s,area,,4
NSLA,s,0
*get,nnode,node,,count                  
nn=0                                    
*do,i,1,nnode                          	
   nn=ndnext(nn)                        
   nsel,a,node,,300                    	
   e,nn,300                             
   nsel,u,node,,300                     
*enddo

LSEL,s,line,,11
LSEL,a,line,,7
LSEL,a,line,,2
LSEL,a,line,,12
NSLL,s,0
*get,nnode,node,,count                
nn=0                                   
*do,i,1,nnode                         
   nn=ndnext(nn)                       
   nsel,a,node,,300                    
   e,nn,300                            
   nsel,u,node,,300                     
*enddo

!*******************************************************************
!Randbedingungen

ASEL,s,AREA,,12
DA,all,UZ

ASEL,s,AREA,,10
DA,all,UX

ASEL,S,AREA,,11
DA,all,UY

!*******************************************************************
!Belastung
NSEL,s,node,,100
f,100,Fx,800                           !define load at pilot node
AUTOTS,ON
NSUBST,100,1000,30

NSEL,s,node,,200                          
f,200,Fz,800                           !define load at pilot node
AUTOTS,ON
NSUBST,100,1000,30

NSEL,s,node,,300                           
f,300,Fy,0                           	 !define load at pilot node
AUTOTS,ON
NSUBST,100,1000,30
!*******************************************************************

ksel,s,KP,,all
lsel,s,LINE,,all
asel,s,AREA,,all
allsel
finish			!Preprozessor beenden

!*******************************************************************
/solu
antype,0

NLGEOM,ON
PRED,ON

outres,all,all
solve
finish

!*******************************************************************
/POST1
/VIEW,1,1,1,1