finish ! von Präprozessor-Level auf Begin-Level wechseln /clear ! eventuell vorhandene Datenbasis löschen /graphics,full ! wichtig, sonst nur Spannungen-Resultate für Oberflächenknoten /NERR,0,99999999 ! Programmabbruch von ANSYS nach 99999999 Warnungen/Fehlermeldungen /UIS,msgpop,3 ! nur Fehlermeldungen anzeigen, keine Warnungen !/PNUM,LINE,1 ! Einschalten der Liniennummerierung und Farbkodierung im Plot !/PNUM,KPOI,1 ! Einschalten der Keypointnummerierung und Farbkodierung im Plot /PNUM,area,1 ! Einschalten der Flächennummerierung und Farbkodierung im Plot /PNUM,volu,1 ! Einschalten der Volumennummerierung und Farbkodierung im Plot /PLOPTS,INFO,auto ! Auto-legend-Modus, es folgen Legendeneinstellungen /PLOPTS,LEG1,on /PLOPTS,LEG2,on /PLOPTS,LEG3,on /PLOPTS,FRAME,on ! Rahmen um Darstellungsfenster /PLOPTS,TITLE,on ! Titel an /PLOPTS,MINM,on ! Minima- und Maximasymbole ein /PLOPTS,FILE,on ! Dateiname in Legende wiedergeben /PLOPTS,LOGO,off ! kein Ansys-Logo in der Legende darstellen /PLOPTS,WINS,on ! Darstellung automatisch skalieren und an Rahmen anpassen /PLOPTS,WP,0 ! Darstellung der Arbeitsebenen aus /PLOPTS,DATE,2 ! Zeige Datum und Zeit in Legende /VSCALE,1,1,0 ! Vektoren, z. B. Koordinatenkreuz (triad), skalieren /TRIAD,ORIG ! Globales Koordinatenkreuz im Ursprung anzeigen /pbc,forc,,2 ! Numerischen Wert der Kraft in Darstellung wiedergeben /REPLOT /units,si ! SI-Einheiten (1N/mm^2=1e6N/m^2) *abbr,Prueflager,/input, Prueflager.inp !Abkürzung anlegen /title,Prueflager !-Variablen------------- PI=2*ASIN(1) Baugruppe=0 ! 0 = Polygonring und Dämpfer werden nicht vernetzt ! 1 = Polygonring und Dämpfer werden vernetzt Einruecklast=10e3 ! [N], Last auf gesamten Körper Einrueckung=1e-4 Anfangseinrueckung=7e-4 Hydraulikzylinder_1=10e3 ! [N], Last durch Hydraulikzylinder 1 Hydraulikzylinder_2=15e3 ! [N], Last durch Hydraulikzylinder 2 Hydraulikzylinder_3=20e3 ! [N], Last durch Hydraulikzylinder 3 Kegelradius_klein=0.0725 Kegelradius_groß=0.0765 Kegelmantellaenge=0.08 Baugruppenlaenge=0.1 Reibwert=0.05 ! Öl im System E_Modul_50CrV4=2.06e11 ! 50CrV4 - Federstahl G_Modul_50CrV4=7.85e10 Poisson_50CrV4=0.3 ! Querkontraktionszahl des Stahls 50CrV4 E_Modul_100Cr6=2.12e11 ! 100CR6 - Wälzlagerstahl Poisson_100Cr6=0.3 ! Querkontraktionszahl des Stahls 100Cr6 E_Modul_Kautschuk=2e7 ! E-Modul von Kautschuk rd. 20 MPa Poisson_Kautschuk=0.4999 ! Querkontraktionszahl von Kautschuk Solid45_Groeße=0.01 Solid92_Groeße_global=0.05 Solid92_Groeße_fein=0.003 Smartsizelevel_global=6 Smartsizelevel_fein=4 Solid=92 ! 45 = Solid45 ! 92 = Solid92 Kontakt=0 ! 0 = surface-to-surface-contact, Conta173 bei Solid45, Conta174 bei Solid92 ! 1 = node-to-surface-contact, Conta175 Kegeltrennung=0 ! 0 = Innenkegel werden durch bonded contact verbunden ! 1 = Innenkegel werden getrennt und durch Bolzen fixiert Substeps=8 ! Schritte der Lastaufbringung Initialisierungsschritt=1 ! 1 = Initialisierungsschritt wird vorgeschaltet Laststeuerung=1 ! 0 = Last wird weggesteuert aufgebracht, ! 1 = Last wird kraftgesteuert aufgebracht Hydrauliklast=0 ! 0 = kein Lastschritt 3 (Zylinder mit Druck beaufschlagt) ! 1 = Lastschritt 3 (Zylinder mit Druck beaufschlagt) ! Contact Technology Guide | Chapter 3. Surface-to-Surface Contact | 3.6. Defining the Target Surface: ! Contact on target primitives (such as a complete circle, cylinder, cone, or sphere), ! can occur only on the outside surfaces of such target bodies. ! => kein Target-Element (tshap,cone, siehe 'Positioniert_Baugruppe_40') als Ersatz des Aussenrings zulässig !-Preprocesseing-------- /prep7 SHPP,LSTET,OFF seltol,1e-5 !ET,1,Mesh200 ! ein nur zum Vernetzen vorgesehenes Element ET,1,solid45 ET,2,TARGE170 *if,Solid,eq,45,then ET,4,solid45 *if,Kontakt,eq,1,then ET,3,CONTA175 ! für Kegelfläche Innenring (solid45) ET,5,CONTA175 ! in Kegeltrennfuge (solid45) ET,6,CONTA175 ! für Bolzenkontakt an Innenringen (solid45) ET,7,CONTA175 ! für Bolzenkontakt an Bolzen (solid45) ET,8,CONTA175 ! für Aussenring, Dämpfer und Polygonring (solid45) *else ET,3,CONTA173 ! für Kegelfläche Innenring (solid45) ET,5,CONTA173 ! in Kegeltrennfuge (solid45) ET,6,CONTA173 ! für Bolzenkontakt an Innenringen (solid45) ET,7,CONTA173 ! für Bolzenkontakt an Bolzen (solid45) ET,8,CONTA173 ! für Aussenring, Dämpfer und Polygonring (solid45) *endif *elseif,Solid,eq,92,then ET,4,solid92 *if,Kontakt,eq,1,then ET,3,CONTA175 ! für Kegelfläche Innenring (solid92) ET,5,CONTA175 ! in Kegeltrennfuge (solid92) ET,6,CONTA175 ! für Bolzenkontakt an Innenringen (solid92) ET,7,CONTA175 ! für Bolzenkontakt an Bolzen (solid45) ET,8,CONTA175 ! für Aussenring, Dämpfer und Polygonring (solid45) *else ET,3,CONTA174 ! für Kegelfläche Innenring (solid92) ET,5,CONTA174 ! in Kegeltrennfuge (solid92) ET,6,CONTA174 ! für Bolzenkontakt an Innenringen (solid92) ET,7,CONTA173 ! für Bolzenkontakt an Bolzen (solid45) ET,8,CONTA173 ! für Aussenring, Dämpfer und Polygonring (solid45) *endif *else *endif KEYOPT,3,3,1 ! Kontaktmodell zur Ausgabe der Knotenreaktion KEYOPT,3,5,3 ! CLOSE GAP & REDUCE INITIAL PENETRATION KEYOPT,3,10,2 ! Each iteration based on current mean stress of underlying elements (pair based) KEYOPT,5,3,1 ! Kontaktmodell zur Ausgabe der Knotenreaktion KEYOPT,5,5,3 ! CLOSE GAP & REDUCE INITIAL PENETRATION KEYOPT,5,10,2 ! Each iteration based on current mean stress of underlying elements (pair based) KEYOPT,6,3,1 ! Kontaktmodell zur Ausgabe der Knotenreaktion KEYOPT,6,5,3 ! CLOSE GAP & REDUCE INITIAL PENETRATION KEYOPT,6,10,2 ! Each iteration based on current mean stress of underlying elements (pair based) KEYOPT,6,12,3 ! bonded contact (festhaftend) KEYOPT,7,3,1 ! Kontaktmodell zur Ausgabe der Knotenreaktion KEYOPT,7,5,3 ! CLOSE GAP & REDUCE INITIAL PENETRATION KEYOPT,7,10,2 ! Each iteration based on current mean stress of underlying elements (pair based) KEYOPT,7,12,3 ! bonded contact (festhaftend) KEYOPT,8,3,1 ! Kontaktmodell zur Ausgabe der Knotenreaktion KEYOPT,8,5,3 ! CLOSE GAP & REDUCE INITIAL PENETRATION KEYOPT,8,10,2 ! Each iteration based on current mean stress of underlying elements (pair based) MP,EX,1,E_Modul_50CrV4 ! Zuweisung Materialeigenschaften Material 1, E-Modul MP,NUXY,1,Poisson_50CrV4 ! Zuweisung Materialeigenschaften Material 1, Querkontraktionszahl MP,EX,2,E_Modul_50CrV4 ! Zuweisung Materialeigenschaften Material 2, E-Modul MP,NUXY,2,Poisson_50CrV4 ! Zuweisung Materialeigenschaften Material 2, Querkontraktionszahl MP,MU,3,Reibwert ! Zuweisung Materialeigenschaften Material 3, Reibwert MP,EX,4,E_Modul_Kautschuk ! Zuweisung Materialeigenschaften Material 4, E-Modul MP,NUXY,4,Poisson_Kautschuk ! Zuweisung Materialeigenschaften Material 4, Querkontraktionszahl FKN=0.1 ! Kontaksteifigkeit r,2,,,FKN ! Real Constant Set 2 definieren r,3,,,FKN ! Real Constant Set 3 definieren r,4,,,FKN ! Real Constant Set 4 definieren r,5,,,FKN ! Real Constant Set 5 definieren r,6,,,FKN ! Real Constant Set 6 definieren r,7,,,FKN ! Real Constant Set 7 definieren r,8,,,FKN ! Real Constant Set 8 definieren r,9,,,FKN ! Real Constant Set 9 definieren r,10,,,FKN ! Real Constant Set 10 definieren r,11,,,FKN ! Real Constant Set 11 definieren r,12,,,FKN ! Real Constant Set 12 definieren r,13,,,FKN ! Real Constant Set 13 definieren r,14,,,FKN ! Real Constant Set 14 definieren r,15,,,FKN ! Real Constant Set 15 definieren r,16,,,FKN ! Real Constant Set 16 definieren r,17,,,FKN ! Real Constant Set 17 definieren !-Geometrie------------- allsel,all,all ~PARAIN,Positioniert_Polygonring,.x_t,,all,0, ! Body1 vplot vsel,s,loc,y,-0.3,-0.2,,1 vdele,all,,,1 allsel,all,all nummrg,kp numcmp,volu numcmp,area numcmp,line numcmp,kp vplot *get,Y_StirnBody1,kp,0,mnloc,y ! Y-Koordinate der Stirnfläche (fern des globalen Koordinatensystems) *get,Body1_Volu_min,volu,,num,min *get,Body1_Volu_max,volu,,num,max *get,Body1_Area_min,area,,num,min *get,Body1_Area_max,area,,num,max *get,Body1_Line_min,line,,num,min *get,Body1_Line_max,line,,num,max *get,Body1_KP_min,kp,,num,min *get,Body1_KP_max,kp,,num,max allsel,all,all allsel,all,all ~PARAIN,Positioniert_Daempfer,.x_t,,all,0, ! Body2 vplot vsel,s,loc,y,-0.3,-0.2,,1 vdele,all,,,1 allsel,all,all vsel,u,volu,,1,Body1_Volu_max asel,u,area,,1,Body1_Area_max lsel,u,line,,1,Body1_Line_max ksel,u,kp,,1,Body1_KP_max nummrg,kp numcmp,volu numcmp,area numcmp,line numcmp,kp vplot *get,Body2_Volu_min,volu,,num,min *get,Body2_Volu_max,volu,,num,max *get,Body2_Area_min,area,,num,min *get,Body2_Area_max,area,,num,max *get,Body2_Line_min,line,,num,min *get,Body2_Line_max,line,,num,max *get,Body2_KP_min,kp,,num,min *get,Body2_KP_max,kp,,num,max allsel,all,all allsel,all,all ~PARAIN,Positioniert_Kegelaussenring,.x_t,,all,0, ! Body3 vplot vsel,s,loc,y,-0.3,-0.2,,1 vdele,all,,,1 allsel,all,all vsel,u,volu,,1,Body2_Volu_max asel,u,area,,1,Body2_Area_max lsel,u,line,,1,Body2_Line_max ksel,u,kp,,1,Body2_KP_max nummrg,kp numcmp,volu numcmp,area numcmp,line numcmp,kp vplot *get,Body3_Volu_min,volu,,num,min *get,Body3_Volu_max,volu,,num,max *get,Body3_Area_min,area,,num,min *get,Body3_Area_max,area,,num,max *get,Body3_Line_min,line,,num,min *get,Body3_Line_max,line,,num,max *get,Body3_KP_min,kp,,num,min *get,Body3_KP_max,kp,,num,max allsel,all,all allsel,all,all ~PARAIN,Positioniert_BolzenD10x20,.x_t,,all,0, ! Body4 vplot vsel,s,loc,y,-0.3,-0.2,,1 vdele,all,,,1 allsel,all,all vsel,u,volu,,1,Body3_Volu_max asel,u,area,,1,Body3_Area_max lsel,u,line,,1,Body3_Line_max ksel,u,kp,,1,Body3_KP_max nummrg,kp numcmp,volu numcmp,area numcmp,line numcmp,kp vplot *get,Body4_Volu_min,volu,,num,min *get,Body4_Volu_max,volu,,num,max *get,Body4_Area_min,area,,num,min *get,Body4_Area_max,area,,num,max *get,Body4_Line_min,line,,num,min *get,Body4_Line_max,line,,num,max *get,Body4_KP_min,kp,,num,min *get,Body4_KP_max,kp,,num,max allsel,all,all allsel,all,all ~PARAIN,Positioniert_BolzenD8x20,.x_t,,all,0, ! Body5 vplot vsel,s,loc,y,-0.3,-0.2,,1 vdele,all,,,1 allsel,all,all vsel,u,volu,,1,Body4_Volu_max asel,u,area,,1,Body4_Area_max lsel,u,line,,1,Body4_Line_max ksel,u,kp,,1,Body4_KP_max nummrg,kp numcmp,volu numcmp,area numcmp,line numcmp,kp vplot *get,Body5_Volu_min,volu,,num,min *get,Body5_Volu_max,volu,,num,max *get,Body5_Area_min,area,,num,min *get,Body5_Area_max,area,,num,max *get,Body5_Line_min,line,,num,min *get,Body5_Line_max,line,,num,max *get,Body5_KP_min,kp,,num,min *get,Body5_KP_max,kp,,num,max allsel,all,all allsel,all,all ~PARAIN,Positioniert_Kegelinnenring_unten,.x_t,,all,0, ! Body6 vplot vsel,s,loc,y,-0.3,-0.2,,1 vdele,all,,,1 allsel,all,all vsel,u,volu,,1,Body5_Volu_max asel,u,area,,1,Body5_Area_max lsel,u,line,,1,Body5_Line_max ksel,u,kp,,1,Body5_KP_max nummrg,kp numcmp,volu numcmp,area numcmp,line numcmp,kp vplot *get,Y_Stirn2,kp,0,mnloc,y ! Y-Koordinate der Stirnfläche (fern des globalen Koordinatensystems) *get,Body6_Volu_min,volu,,num,min *get,Body6_Volu_max,volu,,num,max *get,Body6_Area_min,area,,num,min *get,Body6_Area_max,area,,num,max *get,Body6_Line_min,line,,num,min *get,Body6_Line_max,line,,num,max *get,Body6_KP_min,kp,,num,min *get,Body6_KP_max,kp,,num,max allsel,all,all allsel,all,all ~PARAIN,Positioniert_Kegelinnenring_oben,.x_t,,all,0, ! Body7 vplot vsel,s,loc,y,-0.3,-0.2,,1 vdele,all,,,1 allsel,all,all vsel,u,volu,,1,Body6_Volu_max asel,u,area,,1,Body6_Area_max lsel,u,line,,1,Body6_Line_max ksel,u,kp,,1,Body6_KP_max nummrg,kp numcmp,volu numcmp,area numcmp,line numcmp,kp vplot *get,Body7_Volu_min,volu,,num,min *get,Body7_Volu_max,volu,,num,max *get,Body7_Area_min,area,,num,min *get,Body7_Area_max,area,,num,max *get,Body7_Line_min,line,,num,min *get,Body7_Line_max,line,,num,max *get,Body7_KP_min,kp,,num,min *get,Body7_KP_max,kp,,num,max allsel,all,all local,101,1,0,-0.2,0,0,-90,0 ! Zylinderkoordinatensystem in Kegelachse local,401,1,-0.064,Y_Stirn2+(Baugruppenlaenge/2),0,0,0,0 ! Zylinderkoordinatensystem in Achse von Body4 local,501,1,0.064,Y_Stirn2+(Baugruppenlaenge/2),0,0,0,0 ! Zylinderkoordinatensystem in Achse von Body5 local,1000,0,0,Y_StirnBody1+(Baugruppenlaenge/2),0,0,0,270 ! für Lastfläche 1, Lastfläche 1 liegt gegenüber der Abflussbohrung local,2000,0,0,Y_StirnBody1+(Baugruppenlaenge/2),0,0,0,150 ! für Lastfläche 2 local,3000,0,0,Y_StirnBody1+(Baugruppenlaenge/2),0,0,0,30 ! für Lastfläche 3 csys,0 allsel,all,all csys,101 ! Koordinatensystem 101 gewählt vsel,s,volu,,Body6_Volu_min,Body7_Volu_max,,1 asel,r,loc,x,Kegelradius_klein,Kegelradius_groß asel,r,loc,z,Y_Stirn2+0.2,Y_Stirn2+0.28 cm,A1,area ksel,r,loc,x,0,0.065 lslk,r,0 asll,r,0 cm,A2,area allsel,all,all cmsel,s,A1 cmsel,u,A2 cm,Kegelflaeche_Innenring,area ! Kegelflächen Innenring in Komponente Dsys,0 csys,0 allsel,all,all allsel,all,all csys,101 vsel,s,volu,,Body3_Volu_min,Body3_Volu_max,,1 asel,r,loc,x,Kegelradius_klein,Kegelradius_groß asel,r,loc,z,-0.4,-0.32 ksel,r,loc,x,0.078,0.1 lslk,r,0 asll,u,0 cm,Kegelflaeche_Aussenring,area ! Kegelfläche Aussenring in Komponente Dsys,0 csys,0 allsel,all,all allsel,all,all csys,101 vsel,s,volu,,Body3_Volu_min,Body3_Volu_max,,1 asel,r,loc,x,0.0975 cm,Aussenflaeche_Aussenring,area ! Aussenfläche Aussenring in Komponente Dsys,0 csys,0 allsel,all,all allsel,all,all csys,101 vsel,s,volu,,Body2_Volu_min,Body2_Volu_max,,1 asel,r,loc,x,0.0975 ksel,r,loc,x,0.0976,0.1 lslk,r,0 asll,u,0 cm,Innenflaeche_Daempfer,area ! Innenfläche Daempfer in Komponente Dsys,0 csys,0 allsel,all,all allsel,all,all csys,101 vsel,s,volu,,Body2_Volu_min,Body2_Volu_max,,1 asel,r,loc,x,0.1 cm,Aussenflaeche_Daempfer,area ! Aussenfläche Daempfer in Komponente Dsys,0 csys,0 allsel,all,all allsel,all,all csys,101 vsel,s,volu,,Body1_Volu_min,Body1_Volu_max,,1 asel,r,loc,x,0.1 cm,Innenflaeche_Polygonring,area ! Innenflaeche Polygonring in Komponente Dsys,0 csys,0 allsel,all,all allsel,all,all csys,1000 vsel,s,volu,,Body1_Volu_min,Body1_Volu_max,,1 asel,r,loc,x,0.145 asel,r,loc,y,-0.0315,0.0315 cm,Lastflaeche_1,area ! Lastflaeche_1 in Komponente, Lastfläche 1 liegt gegenüber der Abflussbohrung Dsys,0 csys,0 allsel,all,all allsel,all,all csys,2000 vsel,s,volu,,Body1_Volu_min,Body1_Volu_max,,1 asel,r,loc,x,0.145 asel,r,loc,y,-0.0315,0.0315 cm,Lastflaeche_2,area ! Lastflaeche_2 in Komponente Dsys,0 csys,0 allsel,all,all allsel,all,all csys,3000 vsel,s,volu,,Body1_Volu_min,Body1_Volu_max,,1 asel,r,loc,x,0.145 asel,r,loc,y,-0.0315,0.0315 cm,Lastflaeche_3,area ! Lastflaeche_3 in Komponente Dsys,0 csys,0 allsel,all,all allsel,all,all vsel,s,volu,,Body6_Volu_min,Body6_Volu_max,,1 asel,r,loc,z,0 cm,Trennfuge_Kegelinnenring_unten,area ! Kegeltrennfuge Unterteil in Komponente allsel,all,all vsel,s,volu,,Body7_Volu_min,Body7_Volu_max,,1 asel,r,loc,z,0 cm,Trennfuge_Kegelinnenring_oben,area ! Kegeltrennfuge Oberteil in Komponente allsel,all,all vsel,s,volu,,Body6_Volu_min,Body7_Volu_max,,1 asel,r,loc,y,Y_Stirn2+Baugruppenlaenge cm,Stirn_1_Innenringe,area ! Stirnflächen Innenringe bei y=-0.495 allsel,all,all vsel,s,volu,,Body6_Volu_min,Body7_Volu_max,,1 asel,r,loc,y,Y_Stirn2 asel,u,loc,y,Y_Stirn2+0.005 cm,Stirn_2_Innenringe,area ! Stirnflächen Innenringe bei y=-0.595 allsel,all,all csys,101 vsel,s,volu,,Body6_Volu_min,Body6_Volu_max,,1 asel,r,loc,x,0.024 vsla,r,0 cm,Body6_2,volu allsel,all,all vsel,s,volu,,Body6_Volu_min,Body6_Volu_max,,1 cmsel,u,Body6_2 cm,Body6_1,volu Dsys,0 csys,0 allsel,all,all allsel,all,all csys,101 vsel,s,volu,,Body7_Volu_min,Body7_Volu_max,,1 asel,r,loc,x,0.024 vsla,r,0 cm,Body7_2,volu allsel,all,all vsel,s,volu,,Body7_Volu_min,Body7_Volu_max,,1 cmsel,u,Body7_2 cm,Body7_1,volu Dsys,0 csys,0 allsel,all,all allsel,all,all csys,401 vsel,s,volu,,Body4_Volu_min,Body4_Volu_max,,1 asel,r,loc,x,0.005 cm,Bolzen4_Kontakt_Bolzen,area ! Kontaktfläche am Bolzen4 Dsys,0 csys,0 allsel,all,all allsel,all,all csys,401 vsel,s,volu,,Body6_Volu_min,Body6_Volu_max,,1 asel,r,loc,x,0.005 cm,Bolzen4_Kontakt_Kegelinnenring_unten,area ! Kontaktfläche Bolzen4-Kegelinnenring_unten am Kegelinnenring_unten Dsys,0 csys,0 allsel,all,all allsel,all,all csys,401 vsel,s,volu,,Body7_Volu_min,Body7_Volu_max,,1 asel,r,loc,x,0.005 cm,Bolzen4_Kontakt_Kegelinnenring_oben,area ! Kontaktfläche Bolzen4-Kegelinnenring_oben am Kegelinnenring_oben Dsys,0 csys,0 allsel,all,all allsel,all,all csys,501 vsel,s,volu,,Body5_Volu_min,Body5_Volu_max,,1 asel,r,loc,x,0.004 cm,Bolzen5_Kontakt_Bolzen,area ! Kontaktfläche am Bolzen5 Dsys,0 csys,0 allsel,all,all allsel,all,all csys,501 vsel,s,volu,,Body6_Volu_min,Body6_Volu_max,,1 asel,r,loc,x,0.004 cm,Bolzen5_Kontakt_Kegelinnenring_unten,area ! Kontaktfläche Bolzen5-Kegelinnenring_unten am Kegelinnenring_unten Dsys,0 csys,0 allsel,all,all allsel,all,all csys,501 vsel,s,volu,,Body7_Volu_min,Body7_Volu_max,,1 asel,r,loc,x,0.004 cm,Bolzen5_Kontakt_Kegelinnenring_oben,area ! Kontaktfläche Bolzen5-Kegelinnenring_oben am Kegelinnenring_oben Dsys,0 csys,0 allsel,all,all !-Vernetzung------------ Dsys,0 csys,0 allsel,all,all *if,Baugruppe,eq,0,then *else allsel,all,all mshape,0,3d ! 0 = brick meshing mshkey,2 ! 1 = mapped meshing mat,1 esize,Solid45_Groeße type,1 vmesh,Body1_Volu_min,Body1_Volu_max ! Polygonring allsel,all,all mshape,0,3d ! 0 = brick meshing mshkey,2 ! 1 = mapped meshing mat,4 esize,Solid45_Groeße type,1 vmesh,Body2_Volu_min,Body2_Volu_max ! Daempfer *endif allsel,all,all mshape,0,3d ! 0 = brick meshing mshkey,2 ! 1 = mapped meshing mat,1 esize,Solid45_Groeße type,1 vmesh,Body3_Volu_min,Body3_Volu_max ! Kegelaussenring allsel,all,all mshape,0,3d ! 0 = brick meshing mshkey,2 ! 1 = mapped meshing mat,1 esize type,1 vmesh,Body4_Volu_min,Body4_Volu_max ! BolzenD10x20 allsel,all,all mshape,0,3d ! 0 = brick meshing mshkey,2 ! 1 = mapped meshing mat,1 esize type,1 vmesh,Body5_Volu_min,Body5_Volu_max ! BolzenD8x20 *if,Solid,eq,45,then mshape,1,3d ! 0 = brick meshing mshkey,0 ! 1 = mapped meshing *elseif,Solid,eq,92,then mshape,0,3d ! 0 = brick meshing mshkey,0 ! 1 = mapped meshing *else *endif allsel,all,all mat,1 esize,Solid92_Groeße_global type,4 SMRTSIZE,Smartsizelevel_global !SMRTSIZE,Smartsizelevel_global,,,,,,,,off vmesh,Body6_1 ! Kegelinnenring unten esize,Solid92_Groeße_fein SMRTSIZE,off vmesh,Body6_2 ! Kegelinnenring unten in Nähe Prüflager allsel,all,all mat,1 esize,Solid92_Groeße_global type,4 SMRTSIZE,Smartsizelevel_global !SMRTSIZE,Smartsizelevel_global,,,,,,,,off vmesh,Body7_1 ! Kegelinnenring oben esize,Solid92_Groeße_fein SMRTSIZE,off vmesh,Body7_2 allsel,all,all vsel,s,volu,,Body6_Volu_min,Body7_Volu_max vimp,all,1,3 ! Improves the quality of the tetrahedral elements in the selected volume(s). allsel,all,all allsel,all,all vsel,s,volu,,Body3_Volu_min,Body3_Volu_max,,1 ! Komponente Kegelaussenring eslv,s nsle,s,all cm,Aussenring_Elemente,elem cm,Aussenring_Knoten,node allsel,all,all vsel,s,volu,,Body6_Volu_min,Body6_Volu_max,,1 ! Komponente Kegelinnenring unten eslv,s nsle,s,all cm,Kegelinnenring_unten_Elemente,elem cm,Kegelinnenring_unten_Knoten,node csys,101 nsel,r,loc,x,0.024 cm,Gleitlageraufnahme_unten_Knoten,node Dsys,0 csys,0 allsel,all,all allsel,all,all vsel,s,volu,,Body7_Volu_min,Body7_Volu_max,,1 ! Komponente Kegelinnenring oben eslv,s nsle,s,all cm,Kegelinnenring_oben_Elemente,elem cm,Kegelinnenring_oben_Knoten,node csys,101 nsel,r,loc,x,0.024 cm,Gleitlageraufnahme_oben_Knoten,node Dsys,0 csys,0 allsel,all,all allsel,all,all cmsel,s,Gleitlageraufnahme_unten_Knoten cmsel,a,Gleitlageraufnahme_oben_Knoten cm,Gleitlageraufnahme_Knoten,node *GET,GLA_Min,NODE,,NUM,MIN *GET,GLA_Max,NODE,,NUM,MAX *GET,GLA_Num,NODE,,COUNT dsys,101 csys,101 nlist CurrentNode=0 *dim,GLA_Rkt,array,GLA_Num,10 ! array,Zeilen,Spalten *do,j,1,GLA_Num,1 cmsel,s,Gleitlageraufnahme_Knoten *get,CurrentNode,node,CurrentNode,nxth ! Knoten mit nächstshöherer Nr. im selektierten Set bestimmen *get,GLA_Loc_x,NODE,CurrentNode,Loc,x ! Knotenkoordinate x in 101 *get,GLA_Loc_y,NODE,CurrentNode,Loc,y ! Knotenkoordinate y in 101 *get,GLA_Loc_z,NODE,CurrentNode,Loc,z ! Knotenkoordinate z in 101 GLA_Rkt(j,1)=CurrentNode ! Knotennr. in Array 'GLA_Rkt' speichern GLA_Rkt(j,2)=GLA_Loc_x ! Knotenkoordinate x in 101 in Array 'GLA_Rkt' speichern GLA_Rkt(j,3)=GLA_Loc_y ! Knotenkoordinate y in 101 in Array 'GLA_Rkt' speichern GLA_Rkt(j,4)=GLA_Loc_z ! Knotenkoordinate z in 101 in Array 'GLA_Rkt' speichern *enddo dsys,0 csys,0 allsel,all,all allsel,all,all !/status,global /VIEW,1,0,1 /ANG,1,180 /ANG,1,30,YS,1 /ANG,1,30,XS,1 /AUTO,1 ! Autozoom eplot /REPLOT !-Kontakte-------------- !-symmetrischer Kontakt der Kegelinnenringe *if,Kegeltrennung,eq,0,then KEYOPT,5,12,3 ! bonded contact (festhaftend) *else !-symmetrischer Kontakt Bolzen4-Kegelinnenring_oben allsel,all,all cmsel,s,Bolzen4_Kontakt_Bolzen nsla,s,1 REAL,4 ! real constant set für Kontaktpaar zuweisen TYPE,7 ! 3D ContaXXX Elemente MAT,3 ESURF allsel,all,all cmsel,s,Bolzen4_Kontakt_Kegelinnenring_oben nsla,s,1 REAL,4 ! real constant set für Kontaktpaar zuweisen TYPE,2 ! 3D Targe170 Elemente MAT,3 ESURF allsel,all,all cmsel,s,Bolzen4_Kontakt_Bolzen nsla,s,1 REAL,5 ! real constant set für Kontaktpaar zuweisen TYPE,2 ! 3D Targe170 Elemente MAT,3 ESURF allsel,all,all cmsel,s,Bolzen4_Kontakt_Kegelinnenring_oben nsla,s,1 REAL,5 ! real constant set für Kontaktpaar zuweisen TYPE,6 ! 3D ContaXXX Elemente MAT,3 ESURF !-symmetrischer Kontakt Bolzen4-Kegelinnenring_unten allsel,all,all cmsel,s,Bolzen4_Kontakt_Bolzen nsla,s,1 REAL,6 ! real constant set für Kontaktpaar zuweisen TYPE,7 ! 3D ContaXXX Elemente MAT,3 ESURF ! Kontaktpaar 1 allsel,all,all cmsel,s,Bolzen4_Kontakt_Kegelinnenring_unten nsla,s,1 REAL,6 ! real constant set für Kontaktpaar zuweisen TYPE,2 ! 3D Targe170 Elemente MAT,3 ESURF ! Kontaktpaar 1 allsel,all,all cmsel,s,Bolzen4_Kontakt_Bolzen nsla,s,1 REAL,7 ! real constant set für Kontaktpaar zuweisen TYPE,2 ! 3D Targe170 Elemente MAT,3 ESURF ! Kontaktpaar 2 allsel,all,all cmsel,s,Bolzen4_Kontakt_Kegelinnenring_unten nsla,s,1 REAL,7 ! real constant set für Kontaktpaar zuweisen TYPE,6 ! 3D ContaXXX Elemente MAT,3 ESURF ! Kontaktpaar 2 !-symmetrischer Kontakt Bolzen5-Kegelinnenring_oben allsel,all,all cmsel,s,Bolzen5_Kontakt_Bolzen nsla,s,1 REAL,8 ! real constant set für Kontaktpaar zuweisen TYPE,7 ! 3D ContaXXX Elemente MAT,3 ESURF allsel,all,all cmsel,s,Bolzen5_Kontakt_Kegelinnenring_oben nsla,s,1 REAL,8 ! real constant set für Kontaktpaar zuweisen TYPE,2 ! 3D Targe170 Elemente MAT,3 ESURF allsel,all,all cmsel,s,Bolzen5_Kontakt_Bolzen nsla,s,1 REAL,9 ! real constant set für Kontaktpaar zuweisen TYPE,2 ! 3D Targe170 Elemente MAT,3 ESURF allsel,all,all cmsel,s,Bolzen5_Kontakt_Kegelinnenring_oben nsla,s,1 REAL,9 ! real constant set für Kontaktpaar zuweisen TYPE,6 ! 3D ContaXXX Elemente MAT,3 ESURF !-symmetrischer Kontakt Bolzen5-Kegelinnenring_unten allsel,all,all cmsel,s,Bolzen5_Kontakt_Bolzen nsla,s,1 REAL,10 ! real constant set für Kontaktpaar zuweisen TYPE,7 ! 3D ContaXXX Elemente MAT,3 ESURF allsel,all,all cmsel,s,Bolzen5_Kontakt_Kegelinnenring_unten nsla,s,1 REAL,10 ! real constant set für Kontaktpaar zuweisen TYPE,2 ! 3D Targe170 Elemente MAT,3 ESURF allsel,all,all cmsel,s,Bolzen5_Kontakt_Bolzen nsla,s,1 REAL,11 ! real constant set für Kontaktpaar zuweisen TYPE,2 ! 3D Targe170 Elemente MAT,3 ESURF allsel,all,all cmsel,s,Bolzen5_Kontakt_Kegelinnenring_unten nsla,s,1 REAL,11 ! real constant set für Kontaktpaar zuweisen TYPE,6 ! 3D ContaXXX Elemente MAT,3 ESURF *endif allsel,all,all cmsel,s,Trennfuge_Kegelinnenring_unten nsla,s,1 REAL,2 ! real constant set für Kontaktpaar zuweisen TYPE,5 ! 3D ContaXXX Elemente MAT,3 ESURF allsel,all,all cmsel,s,Trennfuge_Kegelinnenring_oben nsla,s,1 REAL,2 ! real constant set für Kontaktpaar zuweisen TYPE,2 ! 3D Targe170 Elemente MAT,3 ESURF allsel,all,all cmsel,s,Trennfuge_Kegelinnenring_unten nsla,s,1 REAL,3 ! real constant set für Kontaktpaar zuweisen TYPE,2 ! 3D Targe170 Elemente MAT,3 ESURF allsel,all,all cmsel,s,Trennfuge_Kegelinnenring_oben nsla,s,1 REAL,3 ! real constant set für Kontaktpaar zuweisen TYPE,5 ! 3D ContaXXX Elemente MAT,3 ESURF allsel,all,all !-Kontakt der Kegelinnenringe mit dem Kegelaussenring allsel,all,all cmsel,s,Kegelflaeche_Innenring nsla,s,1 REAL,12 ! real constant set für Kontaktpaar zuweisen TYPE,3 ! 3D ContaXXX Elemente MAT,3 ESURF allsel,all,all cmsel,s,Kegelflaeche_Aussenring nsla,s,1 REAL,12 ! real constant set für Kontaktpaar zuweisen TYPE,2 ! 3D Targe170 Elemente MAT,3 ESURF allsel,all,all cmsel,s,Kegelflaeche_Aussenring nsla,s,1 REAL,13 ! real constant set für Kontaktpaar zuweisen TYPE,8 ! 3D ContaXXX Elemente MAT,3 ESURF allsel,all,all cmsel,s,Kegelflaeche_Innenring nsla,s,1 REAL,13 ! real constant set für Kontaktpaar zuweisen TYPE,2 ! 3D Targe170 Elemente MAT,3 ESURF allsel,all,all cmsel,s,Kegelflaeche_Innenring nsla,s,1 esln,s,all /psymb,esys,1 eplot allsel,all,all cmsel,s,Kegelflaeche_Aussenring nsla,s,1 esln,s,all /psymb,esys,1 eplot /psymb,esys,0 allsel,all,all !-Kontakt des Kegelaussenrings mit dem Dämpfer *if,Baugruppe,eq,0,then *else allsel,all,all cmsel,s,Aussenflaeche_Aussenring nsla,s,1 REAL,14 ! real constant set für Kontaktpaar zuweisen TYPE,8 ! 3D ContaXXX Elemente MAT,3 ESURF allsel,all,all cmsel,s,Innenflaeche_Daempfer nsla,s,1 REAL,14 ! real constant set für Kontaktpaar zuweisen TYPE,2 ! 3D Targe170 Elemente MAT,3 ESURF allsel,all,all cmsel,s,Aussenflaeche_Aussenring nsla,s,1 REAL,15 ! real constant set für Kontaktpaar zuweisen TYPE,2 ! 3D ContaXXX Elemente MAT,3 ESURF allsel,all,all cmsel,s,Innenflaeche_Daempfer nsla,s,1 REAL,15 ! real constant set für Kontaktpaar zuweisen TYPE,8 ! 3D Targe170 Elemente MAT,3 ESURF !-Kontakt des Dämpfers mit dem Polygonring allsel,all,all cmsel,s,Innenflaeche_Polygonring nsla,s,1 REAL,16 ! real constant set für Kontaktpaar zuweisen TYPE,8 ! 3D ContaXXX Elemente MAT,3 ESURF allsel,all,all cmsel,s,Aussenflaeche_Daempfer nsla,s,1 REAL,16 ! real constant set für Kontaktpaar zuweisen TYPE,2 ! 3D Targe170 Elemente MAT,3 ESURF allsel,all,all cmsel,s,Innenflaeche_Polygonring nsla,s,1 REAL,17 ! real constant set für Kontaktpaar zuweisen TYPE,2 ! 3D ContaXXX Elemente MAT,3 ESURF allsel,all,all cmsel,s,Aussenflaeche_Daempfer nsla,s,1 REAL,17 ! real constant set für Kontaktpaar zuweisen TYPE,8 ! 3D Targe170 Elemente MAT,3 ESURF *endif allsel,all,all CNCHECK,all ! Kontaktparameter ermitteln allsel,all,all !-Randbedingungen------- allsel,all,all vsel,s,volu,,Body6_Volu_min,Body7_Volu_max,,1 eslv,s nsle,s,all cm,Knoten_Innenkegel,node csys,101 nrotat,all /psymb,ndir,1 allsel,all,all Dsys,0 csys,0 /psymb,ndir,0 *if,Baugruppe,eq,0,then cmsel,s,Aussenflaeche_Aussenring nsla,s,1 csys,101 nrotat,all /psymb,ndir,1 *else cmsel,s,Aussenflaeche_Aussenring nsla,s,1 csys,101 nrotat,all /psymb,ndir,1 *if,Hydrauliklast,eq,1,then allsel,all,all cmsel,s,Lastflaeche_1 nsla,s,1 csys,1000 nrotat,all /psymb,ndir,1 CP,1000,UX,ALL ! Knotenfreiheitsgrade koppeln in nodaler x-Richtung (Set 1000) *GET,LF1,NODE,,NUM,MIN ! niedrigste Knotennummer in der Auswahl ermitteln (MASTER) allsel,all,all cmsel,s,Lastflaeche_2 nsla,s,1 csys,2000 nrotat,all /psymb,ndir,1 CP,2000,UX,ALL ! Knotenfreiheitsgrade koppeln in nodaler x-Richtung (Set 2000) *GET,LF2,NODE,,NUM,MIN ! niedrigste Knotennummer in der Auswahl ermitteln (MASTER) allsel,all,all cmsel,s,Lastflaeche_3 nsla,s,1 csys,3000 nrotat,all /psymb,ndir,1 CP,3000,UX,ALL ! Knotenfreiheitsgrade koppeln in nodaler x-Richtung (Set 3000) *GET,LF3,NODE,,NUM,MIN ! niedrigste Knotennummer in der Auswahl ermitteln (MASTER) *else *endif *endif allsel,all,all Dsys,0 csys,0 /psymb,ndir,0 *if,Baugruppe,eq,0,then cmsel,s,Aussenflaeche_Aussenring nsla,s,1 d,all,all,0 ! Flächen fixiert allsel,all,all Dsys,0 csys,0 *else cmsel,s,Aussenflaeche_Aussenring nsla,s,1 d,all,UZ,0 ! Flächen axial fixiert allsel,all,all ! d,LF1,UX,0 ! Lastfläche 1 in nodaler x-Richtung fixiert ! d,LF2,UX,0 ! Lastfläche 2 in nodaler x-Richtung fixiert ! d,LF3,UX,0 ! Lastfläche 3 in nodaler x-Richtung fixiert *endif allsel,all,all Dsys,0 csys,0 CHECK allsel,all,all !-Lasten---------------- allsel,all,all cmsel,s,Stirn_1_Innenringe nsla,s,1 CP,1,UZ,ALL ! Knotenfreiheitsgrade koppeln in nodaler z-Richtung (Set 1) *GET,NC,NODE,,NUM,MIN ! niedrigste Knotennummer in der Auswahl ermitteln (MASTER) allsel,all,all seltol /status,all FINISH ! Help: contact analysis, contact algorithm /SOLU !---nichtlineare Berechnung--- antype,static,new ! statische Analyse eqslv,spar ! Löser wählen pred,-1 ! Praediktor Methode vom Programm wählen lassen nlgeom,on ! große Verformungen zulassen !NROPT,FULL,,OFF ! Use full Newton-Raphson NROPT,UNSYM ! Use full Newton-Raphson with unsymmetric matrices of elements ncnv,0 ! 2 = Abbruch der Analyse, nicht aber des Programms bei Nichtkonvergenz neqit,100 ! Maximale Anzahl der Gleichgewichtsiterationen je Substep outres,nsol,all ! Knotenlösungen in Datei schreiben !MONITOR,NC,1,fy ! Teilergebnis für Knoten NC in Datei schreiben allsel,all,all *if,Initialisierungsschritt,eq,1,then D,NC,UZ,-Anfangseinrueckung ! Verschiebungslast auf MASTER-Knoten nsubst,Substeps,Substeps,Substeps allsel,all,all LSWRITE,1 ! Initialisierungslastschritt lösen *else *endif allsel,all,all *if,Laststeuerung,eq,0,then ! Abfrage der Variablen „Laststeuerung“ (s. o.) DDELE,NC,UZ ! aufgeprägte Verschiebungslast löschen D,NC,UZ,-Einrueckung ! Verschiebungslast auf MASTER-Knoten nsubst,Substeps,Substeps,Substeps allsel,all,all LSWRITE,2 ! Lastschritt 2 lösen *elseif,Laststeuerung,eq,1,then DDELE,NC,UZ ! aufgeprägte Verschiebungslast löschen F,NC,FZ,-Einruecklast ! Kraft auf MASTER-Knoten nsubst,Substeps,Substeps,Substeps AUTOTS,ON LNSRCH,auto ! pred,on,,on allsel,all,all LSWRITE,2 ! Lastschritt 2 lösen *else *endif allsel,all,all *if,Hydrauliklast,eq,1,then *if,Baugruppe,eq,0,then *else F,LF1,FX,-Hydraulikzylinder_1 ! Kraft auf MASTER-Knoten F,LF2,FX,-Hydraulikzylinder_2 ! Kraft auf MASTER-Knoten F,LF3,FX,-Hydraulikzylinder_3 ! Kraft auf MASTER-Knoten nsubst,Substeps,Substeps,Substeps AUTOTS,ON LNSRCH,auto ! pred,on,,on allsel,all,all LSWRITE,3 ! Lastschritt 3 lösen *endif *else *endif allsel,all,all *if,Initialisierungsschritt,eq,1,then LSSOLVE,1,2,1 *else LSSOLVE,2 *endif allsel,all,all SAVE finish /RGB,INDEX,100,100,100,0 /RGB,INDEX,80,80,80,13 /RGB,INDEX,60,60,60,14 /RGB,INDEX,0,0,0,15 /REPLOT /post1 /pbc,all,,0 /pbc,u,,1 /pbc,cp,,1 /pbc,f,,2 ! plot force value next to symbol Set,LAST,LAST /graphics,full /dscale,1,1 allsel,all,all /VIEW,1,0,1 /ANG,1,180 /ANG,1,150,YS,1 /ANG,1,30,XS,1 /AUTO,1 ! Autozoom !PLNSOL,U,SUM,2,1.0 /REPLOT allsel,all,all rsys,101 dsys,101 csys,101 CurrentNode=0 *do,j,1,GLA_Num,1 cmsel,s,Gleitlageraufnahme_Knoten,node *get,CurrentNode,node,CurrentNode,nxth ! Knoten mit nächstshöherer Nr. im selektierten Set bestimmen *GET,Rkt_UX,NODE,CurrentNode,u,x *GET,Rkt_UY,NODE,CurrentNode,u,y *GET,Rkt_UZ,NODE,CurrentNode,u,z GLA_Rkt(j,5)=Rkt_UX ! radiale Verschiebung in Array 'GLA_Rkt' speichern GLA_Rkt(j,6)=Rkt_UY ! Verschiebung in Umfangsrichtung in Array 'GLA_Rkt' speichern GLA_Rkt(j,7)=Rkt_UZ ! axiale Verschiebung in Array 'GLA_Rkt' speichern *enddo rsys,0 dsys,0 csys,0 allsel,all,all *create,Ausgabe_GLA_Rkt !Makro generieren (zwingend notwendig) *cfopen,Gleitlageraufnahme_Rundheit,txt !Datei erstellen *vwrite,'NODE','X_101','Y_101','Z_101','UX_101','UY_101','UZ_101' (a10,' ',a10,' ',a10,' ',a10' ',a10) !Formatierung *vwrite,GLA_Rkt(1,1),GLA_Rkt(1,2),GLA_Rkt(1,3),GLA_Rkt(1,4),GLA_Rkt(1,5),GLA_Rkt(1,6),GLA_Rkt(1,7) (f10.0,' ',f0.6,' ',f0.6,' ',f0.6,' ',f0.11,' ',f0.11,' ',f0.11) *cfclos !Datei schließen *end !Makro beenden *use,Ausgabe_GLA_Rkt !Makro ausführen allsel,all,all rsys,101 dsys,0 csys,101 cmsel,s,Kegelinnenring_unten_Knoten cmsel,a,Kegelinnenring_oben_Knoten /dscale,1,10000 PLNSOL,S,X,1,1 allsel,all,all rsys,101 dsys,0 csys,101 allsel,all,all cmsel,s,Kegelflaeche_Aussenring nsla,s,1 /dscale,1,10000 PLNSOL,S,X,1,1 allsel,all,all PLCONV,all ! Plots the convergence curve for specified items from a p-method solution. allsel,all,all rsys,0 dsys,0 csys,0 allsel,all,all