!******************************************************************* ! Name: 01_Zugversuch_SG_690Q-G79_16_Werte ! Bearbeiter: ! EINHEITEN: MM, S, T, N !******************************************************************* finish !aktuellen Prozess beenden /clear,start !Speicher leeren und ANSYS neustarten !******************************************************************* !Probengeometrie: b1 = 6 !Kopfbreite b = 3 !Breite der parallelen Länge t = 1.5 !Dicke L0 = 10 !Messlänge Lc = 10 !Versuchslänge Lt = 135 !Gesamtlänge r = 20 !Ausrundungsradius !Materialparameter: EM = 210000 !E-Modul v = 0.3 !Querkontraktionszahl !Belastung: vx = 3.0 !Verschiebungsgröße !Netzgröße: GW_fein = 0.5 GW_mittel = 1.5 GW_grob = 3 !Substeps: NSBSTP = 1000 NSBMX = 1000 NSBMN = 200 !******************************************************************* /prep7 !Preprozessor starten Et,1,186, !Element-Typ 1 Solid186 !******************************************************************* !Geometrie !******************************************************************* ! Material Type,all !Zuweistung zu Elementtyp 1 MPTEMP,1,0 ! Definiere Temperatur MPDATA,EX,1,,EM ! Definiere E-Modul MPDATA,PRXY,1,,v ! Definiere Querdehnungszahl TB,PLASTIC,1,1,33,MISO ! Aktiviere TB,PLASTIC Dateneingabe TBTEMP,0.0 ! Temperatur = 0.0 TBPT,DEFI,0.0000,420 TBPT,DEFI,0.0029,665 TBPT,DEFI,0.0058,728 TBPT,DEFI,0.0087,759 TBPT,DEFI,0.0116,779 TBPT,DEFI,0.0145,794 TBPT,DEFI,0.0173,806 TBPT,DEFI,0.0202,817 TBPT,DEFI,0.0230,826 TBPT,DEFI,0.0259,834 TBPT,DEFI,0.0287,841 TBPT,DEFI,0.0315,848 TBPT,DEFI,0.0344,855 TBPT,DEFI,0.0372,860 TBPT,DEFI,0.0400,865 TBPT,DEFI,0.0428,870 TBPT,DEFI,0.0455,874 TBPT,DEFI,0.0483,878 TBPT,DEFI,0.0511,881 TBPT,DEFI,0.0539,885 TBPT,DEFI,0.0566,888 TBPT,DEFI,0.1352,944 TBPT,DEFI,0.2138,976 TBPT,DEFI,0.2925,999 TBPT,DEFI,0.3711,1016 TBPT,DEFI,0.4497,1031 TBPT,DEFI,0.5283,1043 TBPT,DEFI,0.6069,1053 TBPT,DEFI,0.6855,1063 TBPT,DEFI,0.7642,1071 TBPT,DEFI,0.8428,1079 TBPT,DEFI,0.9214,1086 TBPT,DEFI,1.0000,1093 !******************************************************************* !Geometrie !Keypoints k,100,Lc/2,b/2,0 k,101,Lc/2,-b/2,0 k,102,0,-b/2,0 k,103,0,b/2,0 k,150,Lc/2,b/2,t k,151,Lc/2,-b/2,t k,152,0,-b/2,t k,153,0,b/2,t k,200,Lc/2,b1/2,0 k,201,Lc/2,-b1/2,0 k,202,Lc/2+r/2,b1/2,0 k,203,Lc/2+r/2,-b1/2,0 k,250,Lc/2,b1/2,t k,251,Lc/2,-b1/2,t k,252,Lc/2+r/2,b1/2,t k,253,Lc/2+r/2,-b1/2,t k,400,Lt/2,b1/2,0 k,401,Lt/2,-b1/2,0 k,450,Lt/2,b1/2,t k,451,Lt/2,-b1/2,t k,1000,L0/2,0,0 k,1001,0,0,0 !Flächen a,100,101,102,103 !Fläche 01 a,150,151,152,153 !Fläche 02 a,100,101,151,150 !Fläche 03 a,102,103,153,152 !Fläche 04 a,101,102,152,151 !Fläche 05 a,100,103,153,150 !Fläche 06 a,100,200,250,150 !Fläche 07 a,101,201,251,151 !Fläche 08 a,100,200,202,203,201,101 !Fläche 09 a,150,250,252,253,251,151 !Fläche 10 a,200,202,252,250 !Fläche 11 a,201,203,253,251 !Fläche 12 a,202,203,253,252 !Fläche 13 a,202,400,401,203 !Fläche 14 a,252,450,451,253 !Fläche 15 a,202,400,450,252 !Fläche 16 a,203,401,451,253 !Fläche 17 a,400,450,451,401 !Fläche 18 !Volumen va,1,2,3,4,5,6 !Volumen 1 va,3,7,8,9,10,11,12,13 !Volumen 2 va,13,14,15,16,17,18 !Volumen 3 cyl4,Lc/2,b/2+r,r,,,,t !Volumen 4_Ausrundung cyl4,Lc/2,-b/2-r,r,,,,t !Volumen 5_Ausrundung !Boolsche Operationen (Hat eine Umnummerierung der Volumina zur Folge!) vsbv,2,4 vsbv,6,5 vglue,all !******************************************************************* !Netzgenerierung mshape,0,3D !Netzart TYPE,1 !Elementtyp !Messknoten mat,1 !Material 1 aktiv setzen esize,GW_fein !Elementgröße vsel,s,VOLU,,1 !Volumen 1 aktiv setzen vmesh,all esize,GW_grob vsel,s,VOLU,,3 vmesh,all mshape,1,3D !Netzart TYPE,1 !Elementtyp esize,GW_mittel vsel,s,VOLU,,2 vmesh,all !******************************************************************* !Lagerungsbedingungen asel,s,AREA,,4 DA,all,UX asel,s,AREA,,14 asel,a,AREA,,15 DA,all,UY DA,all,UZ !******************************************************************* !Lasten Da,14,ux,vx Da,15,ux,vx AUTOTS,ON NSUBST,NSBSTP,NSBMX,NSBMN alls !******************************************************************* 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 !Bestimmung der Knotennummern der Auswertungsknoten *get,kx_,kp,1000,loc,x *get,ky_,kp,1000,loc,y *get,kz_,kp,1000,loc,z MP_1=node(kx_,ky_,kz_) !Bestimmung der Knotennummern der Auswertungsknoten *get,kx_,kp,1001,loc,x *get,ky_,kp,1001,loc,y *get,kz_,kp,1001,loc,z MP_2=node(kx_,ky_,kz_) set,1,,,,,,, *get,subst,active,0,solu,ncmss *DO,n,1,subst,1 SET,1,n,,,,,, nsort,u,x,0,0 *get,ix,sort,,imax nsel,s,node,,ix *GET,ux_glob,node,ix,u,x nsel,s,node,,MP_1 ! Referenzknoten - Messlänge *GET,ux_1,node,MP_1,u,x ! Verschiebung an Messknoten nsel,s,node,,MP_2 ! Referenzknoten - Messlänge *GET,ux_2,node,MP_2,u,x ! Verschiebung an Messknoten asel,s,area,,14 ! Lasteinleitungsfläche asel,a,area,,15 nsla,s,1 fsum *GET,FX,FSUM,0,ITEM,FX *cfopen,01_Zugversuch_SG_690Q-G79_16_Werte_Ergebnisse,txt, ,append *vwrite,n,FX,ux_glob,ux_1,ux_2 ! Schreibt Daten des Array in Datei %10.5f, %14.5f, %14.5f, %14.5f, %14.5f *cfclos *ENDDO