FINI
/CLEAR
/BATCH
/PREP7

  !/DELETE, File, err
  /INPUT, Geometrie, dat,,,1						!*** Geometrieinformationen
!*********************************************************************
!	Elementdefinitionen
!*********************************************************************


  ET,10,TARGE170							!*** Targetelement für 3D-Simulation
  ET,11,CONTA173							!*** Kontaktelement abhaengig von Solidelement (Knotenanzahl)


!*********************************************************************
!	Real-Sets definieren
!*********************************************************************


  

  R,10,d_Stange/2,,							!*** Radius der Target-Fläche
  R,11,d_Gelenk_innen/2
  R,12,d_Fitting/2
  R,13,d_Fitting/2


!*********************************************************************
!	Keyoptions definieren
!*********************************************************************


  KEYOPT, 11, 1, 0							!*** Freiheitsgrade der Knoten
  KEYOPT, 11, 2, 0							!*** Art des Kontaktalgorithmuses
!  KEYOPT, 11, 4							!*** Position der Kontaktuntersuchung
  KEYOPT, 11, 5, 4
!  KEYOPT, 11, 6, 1
!  KEYOPT, 11, 7,
!  KEYOPT, 11, 8,
!  KEYOPT, 11, 9, 3
  KEYOPT, 11, 10,2
!  KEYOPT, 11, 11,
!  KEYOPT, 11, 12,

!  KEYOPT, 12, 1, 0							!*** Freiheitsgrade der Knoten
!  KEYOPT, 12, 2, 0							!*** Art des Kontaktalgorithmuses
!  KEYOPT, 12, 5, 3
!  KEYOPT, 12, 10,2


!*********************************************************************
!	Geometrie der Komponeten importieren 
!*********************************************************************


  CLOCAL, 11,0,0,0,b_gesamt/2

  /INPUT, Fitting_komplett, txt,,,1

  CSYS,0
  CLOCAL, 16,0,0,0,-(b_gesamt/2+b_Fitting)

  /INPUT, Fitting_komplett_rechts, txt,,,1

  CSYS,0

  /INPUT, Lager_komplett, txt,,,1

  CSYS,0  
  /INPUT, Bolzen, txt,,,1
  
  CSYS,0  
  /INPUT, Stange_DIN, txt,,,1


  ALLSEL
  EPLOT


!*********************************************************************
!	Kontakt generieren
!*********************************************************************

!********* Kontakt zwischen Stange und Lager *************************

  ASEL,S,AREA,,6002,6003,1						!*** auswaehlen der Flaechen (Stange) fuer Kontakt
  ASEL,A,AREA,,6103,6201,98
  ASEL,A,AREA,,6302,6403,100
  
  NSLA,S,1								!*** Konten der Flaechen selektieren
  TYPE,10								!*** aktuellen Elemttyp einstellen
  REAL,10
  MAT,1
  ESURF									!*** Oberflaeche mit Elementen belegen

  ALLSEL

  ASEL,S,AREA,,2013,2026,13
  
  NSLA,S,1
  TYPE,11
  REAL,10
  MAT,1
  ESURF  

!********* Kontakt zwischen Lager und Bolzen ************************

  ASEL,S,AREA,,2005,2009,4
  ASEL,A,AREA,,2015,2020,5
  ASEL,A,AREA,,2023,2028,5
  
  
  NSLA,S,1								!*** Konten der Flaechen selektieren
  TYPE,10								!*** aktuellen Elemttyp einstellen
  REAL,11
  MAT,1
  ESURF									!*** Oberflaeche mit Elementen belegen

  ASEL,S,AREA,,5002,5003,1
  ASEL,A,AREA,,5006,5007,1

  NSLA,S,1
  NSEL,R,LOC,Z,-b_Gelenk_innen/2-2,b_Gelenk_innen/2+2
  TYPE,11
  REAL,11
  MAT,1
  ESURF 

!********* Kontakt zwischen Bolzen und Fitting rechts ****************


  ALLSEL

  ASEL,S,AREA,,4104, 4304, 100						!*** Flaechen des Fittings
  ASEL,A,AREA,,4403
  ASEL,A,AREA,,4001
  ASEL,A,AREA,,4006,4008,1
 
  NSLA,S,1								!*** Konten der Flaechen selektieren
  TYPE,10								!*** aktuellen Elemttyp einstellen
  REAL,12
  MAT,1
  ESURF	

  ALLSEL

  ASEL,S,AREA,,5002,5003,1						!*** Flaechen des Bolzens
  ASEL,A,AREA,,5006,5007,1

  NSLA,S,1
  NSEL,R,LOC,Z,-(b_gesamt/2+b_Fitting),-(b_gesamt/2)
  ESLN
  TYPE,11
  REAL,12
  MAT,1
  ESURF 


!********* Kontakt zwischen Bolzen und Fitting links ****************


  ALLSEL

  ASEL,S,AREA,,1104, 1304, 100						!*** Flaechen des Fittings
  ASEL,A,AREA,,1403
  ASEL,A,AREA,,1001
  ASEL,A,AREA,,1006,1008,1
 
  NSLA,S,1								!*** Konten der Flaechen selektieren
  TYPE,10								!*** aktuellen Elemttyp einstellen
  REAL,13
  MAT,1
  ESURF	

  ALLSEL

  ASEL,S,AREA,,5002,5003,1						!*** Flaechen des Bolzens
  ASEL,A,AREA,,5006,5007,1

  NSLA,S,1
  NSEL,R,LOC,Z,(b_gesamt/2+b_Fitting),(b_gesamt/2)
  ESLN
  TYPE,11
  REAL,13
  MAT,1
  ESURF 




!*********************************************************************
!	Randbedingungen definieren
!*********************************************************************

  ASEL, S, LOC, Y, -3*d_Fitting  					!*** Lagerung der aeusseren Fittings
  DA, ALL, ALL

  NSEL,S,LOC,Z,b_gesamt/2+b_Fitting+10					!*** Lagerung Bolzen aussen
  NSEL,A,LOC,Z,-(b_gesamt/2+b_Fitting+10)
  NSEL,R,LOC,Y,-0.2,0.2
  D, ALL, UZ,0

  ALLSEL

  ESEL,S,TYPE,,8							!*** Blockieren der Stangenbewegung in z
  NSLE,S,ALL
  NSEL,R,LOC,Z,b_Stange/2
  NSEL,R,LOC,Y,2*d_Stange,3*d_Stange
  D, ALL, UZ,0

  ALLSEL
 
  ASEL,S,LOC,Y,3*d_Stange
  SFA, ALL, ,PRES, -18000/(b_Stange*1.23*d_Stange)

  ALLSEL  

  ESEL,S,TYPE,,7
  NSLE,S,ALL
  NSEL,R,LOC,Z,b_Gelenk_innen/2
  D,ALL,UZ,0

  ALLSEL
  
  NSUBST, 2, 10, 2, ON
  EQSLV, SPARSE
  /SOLU
  /PBC,ALL,,0
!  SOLVE

  /INPUT, Auswertung, txt,,,1

  ALLSEL

 

