!Superlementmatrix
!----------------------------------------------------------------------------------------------------------
! Berechnung des Plattformmodels
! mit Ansysversion 12.1
finish				! Beenden aller Prozessoren
/clear				! Ruecksetzen der Ansys Datenbank

/units,mks 			! Einheiten: Meter, Kilogramm, Sekunde, Celsius

! Arbeitsverzeichniss wechseln
/CWD, 'F:\Tetraeder Test'

/filname, Tetraeder
/title, Tetraeder

/AUX15  			! IGES Dateitransferprozessor starten
IOPTN,IGES,SMOOTH 	!(or RV52)  —  Use more robust IGES revision 5.2 import function (default).
IOPTN,SOLID,YES		! automatische Erzegung eines Solid Modell
IOPTN,SMALL,NO		! Entfernen kleiner Flächen
IOPTN,GTOLER, DEFA	! Entity merging tolerance: Use system defaults (default).  	
IOPTN,MERGE,YES		! Verschmelzen der einschalten
! IGES importieren
IGESIN,'Model','IGS'

/prep7				! Preprozessor starten
!Materialeigenschaften
ESt = 1				! Variable fuar Materialnummer erstellen
et,ESt,SOLID72 !SOLID45 !SOLID92		! Definition des Elementtyps
MP,EX,ESt,2.1e11 	! Definition E-Modul

allsel,all			! Alle Flaechen selektieren

TYPE,ESt
MAT,ESt				! Zeiger auf Material-Eigenschaften
SMRTSIZE, 5
VMESH,1				! generiert Knoten und Volumen innerhalb von Volumen (Vernetzung)

! Handgelenkpunkte definieren
allsel
HG1=NODE(0.4, 0, 0.4)
HG2=NODE(0.4, 0,-0.4)
HG3=NODE(-0.4,0,-0.4)
HG4=NODE(-0.4,0, 0.4)
HG5=NODE(0, 800, 0)

allsel				! Alles Selektieren

/solu				! Loesungsprozessor starten
antype,substr		! Analysetyp statisch
seopt, Superelement, 1, 1, 0	! generieren der Steifigkeitsmatrix mit Name Superlement
NSEL, s, node,, HG1
NSEL, a, node,, HG2
NSEL, a, node,, HG3
NSEL, a, node,, HG4
NSEL, a, node,, HG5
M, all, all

allsel

solve				! loesen

/post1

SELIST, Superelement, 3

!Lastversuche
!---------------------------------------------------------------------------------------------------------

! Berechnung des Plattformmodels
! mit Ansysversion 12.1
finish				! Beenden aller Prozessoren
/clear				! Ruecksetzen der Ansys Datenbank

/units,mks 			! Einheiten: Meter, Kilogramm, Sekunde, Celsius

! Arbeitsverzeichniss wechseln
/CWD, 'F:\Tetraeder Test'

/filname, Tetraeder
/title, Tetraeder

/AUX15  			! IGES Dateitransferprozessor starten
IOPTN,IGES,SMOOTH 	!(or RV52)  —  Use more robust IGES revision 5.2 import function (default).
IOPTN,SOLID,YES		! automatische Erzegung eines Solid Modell
IOPTN,SMALL,NO		! Entfernen kleiner Flächen
IOPTN,GTOLER, DEFA	! Entity merging tolerance: Use system defaults (default).  	
IOPTN,MERGE,YES		! Verschmelzen der einschalten
! IGES importieren
IGESIN,'Model','IGS'

/prep7				! Preprozessor starten
!Materialeigenschaften
ESt = 1				! Variable fuar Materialnummer erstellen
et,ESt,SOLID72 !SOLID45 !SOLID92		! Definition des Elementtyps
MP,EX,ESt,2.1e11 	! Definition E-Modul

allsel,all			! Alle Flaechen selektieren

TYPE,ESt
MAT,ESt				! Zeiger auf Material-Eigenschaften
SMRTSIZE, 5
VMESH,1				! generiert Knoten und Volumen innerhalb von Volumen (Vernetzung)

! Handgelenkpunkte definieren
allsel
HG1=NODE(0.4, 0, 0.4)
HG2=NODE(0.4, 0,-0.4)
HG3=NODE(-0.4,0,-0.4)
HG4=NODE(-0.4,0, 0.4)
HG5=NODE(0, 800, 0)

! Liste aller Bezugspunkte erstellen
NSEL, s, node,, HG1
NSEL, a, node,, HG2
NSEL, a, node,, HG3
NSEL, a, node,, HG4
NSEL, a, node,, HG5
!NLIST,,,,coord		! Ausgabe der Liste aller ausgewählter Knoten
allsel

! Nebenbedingungen

! Scheibe als Lagerung
NSEL,s,node,,HG1,,1	! Knoten selektieren
D, all, ux, 0		! Verschiebung in X-Richtung 0 setzen
D, all, uy, 0		! Verschiebung in Y-Richtung 0 setzen
D, all, uz, 0		! Verschiebung in Z-Richtung 0 setzen
D, all, rotx, 0
D, all, roty, 0
D, all, rotz, 0

! HG 1
NSEL,s,node,,HG5	! Knoten selektieren
F, all, fx, 0		! Kraft in X-Richtung in N
F, all, fy, 0		! Kraft in Y-Richtung in N
F, all, fz, 0		! Kraft in Z-Richtung in N
F, all, mx, 0		! Moment in X-Richtung in Nm
F, all, my, 0		! Moment in X-Richtung in Nm
F, all, mz, 100		! Moment in X-Richtung in Nm

allsel				! Alles Selektieren

/solu				! Loesungsprozessor starten
antype,static		! Analysetyp statisch
solve				! loesen

/post1

NSEL, s, node,, HG1
NSEL, a, node,, HG2
NSEL, a, node,, HG3
NSEL, a, node,, HG4
NSEL, a, node,, HG5

PRNSOL, u, comp		! Ausgabe der Verschiebung

NSEL, s, node,, HG1
NSEL, a, node,, HG2
NSEL, a, node,, HG3
NSEL, a, node,, HG4
NSEL, a, node,, HG5
PRNSOL, rot, comp	! Ausgabe der Rotation