finish /clear /title,cyclic_Modell_Gechwindigkeit ABBRES,NEW,'Startersatz','inp',C:\Users\DaWink *afun,DEG !************Variablen rD = 4 !Durchmesser Draht rK = 0.3 !Durchmesser Kugel ALP = 10 !Winkelabschnitt vK = 60000 !Geschwindigkeit in mm/s ANZ = 2 !Anzahl Kugeln lD = rD*ALP*3.141/180 !Länge Drahtabschnitt !***************Prepos /prep7 etcon,set ! allow ANSYS to choose best KEYOP's for 180x elements et,1,solid186 !quadratische Hexader mit Mittelknoten keyo,1,2,1 ! set full integration on SOLID186 et,10,mesh200,7 !Quadratisch mit Mittelknoten et,2,solid187 et,11,mesh200,5 !----------------MATERIALDEFINITION MP,DENS,1,7.85e-09, ! tonne mm^-3 MP,EX,1,206000, ! tonne s^-2 mm^-1 MP,NUXY,1,0.3, TB,PLAS,1,1,25,MISO TBTEMP,20 TBPT,,0,1230.035825 TBPT,,9.13166e-05,1418.165204 TBPT,,0.000164771,1505.292233 TBPT,,0.000271642,1585.484733 TBPT,,0.000474533,1645.846456 TBPT,,0.000744508,1692.338024 TBPT,,0.001096038,1721.978835 TBPT,,0.001480966,1744.689107 TBPT,,0.001904144,1759.469379 TBPT,,0.002336668,1772.274097 TBPT,,0.002778548,1783.100961 TBPT,,0.003224968,1792.942209 TBPT,,0.004121789,1811.653864 TBPT,,0.005022321,1829.400388 TBPT,,0.006858798,1856.997515 TBPT,,0.010596629,1896.43565 TBPT,,0.014386225,1922.042233 TBPT,,0.01819908,1939.713864 TBPT,,0.02201609,1953.410777 TBPT,,0.025832663,1964.103102 TBPT,,0.02964512,1972.572241 TBPT,,0.033445739,1980.432524 TBPT,,0.038547343,1989.524973 TBPT,,0.04755611,2003.845915 TBPT,,0.050930198,2005.969715 MP,DENS,2,7.85e-09, ! tonne mm^-3 MP,EX,2,206000, ! tonne s^-2 mm^-1 MP,NUXY,2,0.3, TB,BISO,2,1, TBDATA,1,2305 TBDATA,2,2000 !.............PseudoMaterial_Kontak/Ziel MP,EX,20,206000, ! tonne s^-2 mm^-1 MP,NUXY,20,0.3 MP,EX,21,206000, ! tonne s^-2 mm^-1 MP,NUXY,21,0.3 !------------GEOMETRIE cylind,rD/6,11/12*rD,-lD/2,lD/2,90-ALP/2,90+ALP/2 cylind,11/12*rD,rD,-lD/2,lD/2,90-ALP/2,90+ALP/2 sph4,,rD+rK,rK vglue,1,2 !------------VERNETZUNG N1=3 !Anzahl Einteilungen Tiefe NS1=5 !SpaceRation zu N1 N2=4 !Anzahl Einteilungen Fläche N3=8 !Smrtsizefaktor Drahtinneres N4=7 !Smrtsizefaktor Kugel lesize,31,,,N1,1/NS1 !Oberes Drahtvolumen (Mapped Netz) lesize,29,,,N1,1/NS1 lesize,22,,,N2 lesize,10,,,N2 mshkey,2 type,10 amesh,18 mshcopy,area,18,17,1,,ALP lesize,4,,,N2 lesize,16,,,N2 amesh,15 mshcopy,area,15,16,0,,,lD mshkey,0 smrtsize,N3 type,11 amesh,5 mshcopy,area,5,6,1,,ALP lesize,2,,,1 amesh,1 mshcopy,area,1,2,0,,,lD smrt,off mshkey,2 type,1 mat,1 real,1 vmesh,4 mshkey,0 type,1 mat,1 real,1 mshape,1,3d vmesh,1 tchg,186,187 aclear,all mshkey,0 smrt,N4 type,2 mat,2 real,2 vmesh,3 !--------Komponenten local,11,2,,rD+rK !KOS Spherisch in Kugelmitte esel,s,mat,,2 !Element mit Mat 2 auswählen nsle !alle Knoten aus selektierten Elementen nsel,r,loc,x,rK !Reselect Kugeloberfläche csys,1 nsel,r,loc,x,rD,rD+rK !Reselect 2/3 der Kugeloberfläche unten cm,ZIEL,nodes esel,s,mat,,1 !Kontaktoberfläche nsle nsel,r,loc,x,rD cm,KONTAKT,nodes nsel,s,loc,x,rD/6 !Festlager cm,FESTLAGER,nodes esel,s,mat,,2 !Kugel nsle cm,KUGEL,nodes esel,s,mat,,1 !Low Seite radial nsle nsel,r,loc,y,90-ALP/2 cm,RLOW,nodes esel,s,mat,,1 !High Seite radial nsle nsel,r,loc,y,90+ALP/2 cm,RHIGH,nodes esel,s,mat,,1 nsle nsel,r,loc,z,-lD/2 nsel,u,loc,y,90-ALP/2 nsel,u,loc,y,90+ALP/2 cm,BACK,nodes esel,s,mat,,1 nsle nsel,r,loc,z,lD/2 nsel,u,loc,y,90-ALP/2 nsel,u,loc,y,90+ALP/2 cm,FRONT,nodes alls !--------------------Kontakt Kugel/draht *create,_KONTA,mac r,tid r,cid et,tid,170 et,cid,174 real,cid type,cid mat,cid cmsel,s,KONTAKT esurf allsel type,tid mat,tid cmsel,s,ZIEL esurf keyo,cid,10,2 ! adjust contact stiffness each NR iteration keyo,cid,12,0 ! standard contact keyo,cid,2,1 ! penalty function only keyo,cid,9,1 ! ignore initial gaps/penetration keyo,cid,5,1 ! auto CNOF adjustment to close geometric gap only keyo,cid,7,0 ! No Prediction rmod,tid,3,1. ! FKN rmod,tid,5,0. ! ICONT rmod,tid,6,0. ! PINB rmod,tid,10,0. ! CNOF rmod,tid,12,0. ! FKT rmod,cid,3,1. ! FKN rmod,cid,5,0. ! ICONT rmod,cid,6,0. ! PINB rmod,cid,10,0. ! CNOF rmod,cid,12,0. ! FKT allsel *end tid=20 !Kontakt Kugel/Draht cid=21 _konta tid=21 !Kontakt Draht/Kugel symmetrisch cid=20 _konta !---------------------Randbedingungen cmsel,s,RLOW cmsel,a,RHIGH cpcyc,all,,1,,ALP cmsel,s,FRONT cmsel,a,BACK cpcyc,all,,0,,,lD cmsel,s,FESTLAGER d,all,all alls finish !****************************Solution /solu antype,trans outres,all,all nlgeom,on solcontrol,on,on trnopt,full,,,,,hht cntr,print,1 tintp,0.2 csys,0 *do,i,1,ANZ,1 time,i timint,off nsubst,10,100,1 d,Kugel,all,0 d,Kugel,uy,1 solve time,i+1/vk d,Kugel,uy,0 solve time,i+i/vk+4e-6 timint,on autots,on ddele,kugel,all deltim,1e-7,1e-10,1e-3 solve *enddo /post1 /VIEW,1,1,1,1 /ANG,1 /REP,FAST plnsol,s,2 andata,0.1,,2,,,1,,1