finish /clear,start /filname,Modell_Bohrung,1 /uis,msgpop,3 /config,nproc,2 /prep7 !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! !!!!!!!!!!!Eingangsgroeßen!!!!!!!!!! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! !Bauteilbezogene Größen(auch Material) B_Laenge=50 !Bauteillänge(z) B_Breite=56 !Bauteilbreite(x) B_Hoehe=5 !Bauteilhöhe(y) Grund=0 Quer=0.34 !Querkontraktionszahl Alu Quer_S=0.30 !Querkontraktionszahl Stahl !Bohrungsgeometrie und Werkzeugdaten Loch=8.5 !Lochdurchmesser Fraeser=5 !Fräserdurchmesser FH=Fraeser/2 Bohrung_Z=B_Breite/2 !X-Koord_Bohrung Bohrung_X=B_Laenge/2 !Y-Koord_Bohrung DRM=Loch/2 FRB_X=Bohrung_X+FH SNE_X=Bohrung_X+Loch/2 Segmente=24 !Die Anzahl der Segmente steurt auch die Anzahl der Masterknoten alpha=360/Segmente SPD=alpha*1/120 !Vorschub YOT=(Loch-Fraeser)/2 GKR=0.35 !Glättungskreisradius um spitze Winkel zu vermeiden !!!!!!!!!!!!!!!!!!!!!!!!!!!!!! !!!!!!!!!!Start Programm!!!!!! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!! block,Grund,B_Laenge,Grund,B_Hoehe,Grund,B_Breite !Keypoints für 1.Verstärkung numstr,kp,20 k,20,0,2.15,11 k,21,0,2.15,15 k,22,0,2.85,15 k,23,0,2.85,11 !Keypoints verbinden numstr,line,30 l,20,21 l,21,22 l,22,23 l,23,20 !Linen durhc das Blech ziehen numstr,area,20 adrag,30,31,32,33,,,4, !Verstärkung kopieren agen,3,20,23,1,0,0,15,,1,0 !Volumen erstellen asel,s,area,,20,31 vsba,1,all,,, allsel !Bohrung *get,KP_1,KP,0,Num,maxd k,KP_1+1,Bohrung_X,Grund,Bohrung_Z k,KP_1+2,Bohrung_X,B_Hoehe,Bohrung_Z k,KP_1+3,Bohrung_X+DRM,Grund,Bohrung_Z K,KP_1+4,Bohrung_X+DRM,B_Hoehe,Bohrung_Z l,KP_1+1,KP_1+2 !Dummylinie rotieren *get,Linie_max,line,0,num,maxd numstr,line,Linie_max+1 l,KP_1+3,KP_1+4 Numstr,area,60 arotat,Linie_max+1,,,,,,KP_1+1,KP_1+2,360,4 asel,s,area,,60,63 !Flächend er späteren Bohrung auswählen numstr,volu,30 vsel,s,volu,,3 vsel,a,volu,,5 VSBA,all,all,,delete,KEEP allsel wpoff,B_Laenge/2, ,B_Breite/2 wprota,0,90,0 cswpla,20,1 !Loch auswählen ksel,s,loc,x,0,loch/2+0.001 lslk,s,1 asll,s,1 vsla,s,1 !Lokales Koordiantensystem erstellen local,11,1,Bohrung_X,B_Hoehe,Bohrung_Z !WP Verschieben WPCSYS,,11 !Loch in Tortenstücke unterteilen numstr,volu,40 *do,i,1,Segmente wprota,0,0,alpha vsbw,all,,delete *enddo allsel !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! !!!!!!Tortenstücke horizontal unterteilen!!! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! wprota,0,90 !EDIT: WP 90grad um x drehen ==> Z antlang Zylinder achse csys,wp !EDIT: WP aktivieren *get,Max_V,volu,0,num,maxd *do,i,1,segmente vsel,s,volu,,40,Max_V VSEL,r,LOC,Y,-((i-1)*alpha),-(i*alpha) wpoffs,0,0,SPD vsbw,all,,delete *enddo allsel !Nochmal schneiden CSWPLA,12,1, wpcsys,,12 csys,wp *get,Max_V,volu,0,num,maxd *do,i,1,segmente vsel,s,volu,,40,Max_V VSEL,r,LOC,Y,-((i-1)*alpha),-(i*alpha) wpoffs,0,0,SPD vsbw,all,,delete *enddo allsel csys,0 *get,GK,KP,0,Num,maxd k,GK+1,Bohrung_X,Grund,Bohrung_Z k,GK+2,Bohrung_X,B_Hoehe,Bohrung_Z k,GK+3,Bohrung_X+GKR,Grund,Bohrung_Z K,GK+4,Bohrung_X+GKR,B_Hoehe,Bohrung_Z l,GK+1,GK+2 !Dummylinie rotieren *get,GK_max_II,line,0,num,maxd numstr,line,GK_max_II+1 l,GK+3,GK+4 !Bohrungswand erstellen *get,GK_Area_max,area,0,num,maxd Numstr,area,GK_Area_max+1 arotat,GK_max_II+1,,,,,,GK+1,GK+2,360,4 asel,s,area,,GK_Area_max+1,(GK_Area_max+1)+3 !Volumen erstellen *get,GK_Volu_max,volu,0,num,maxd Numstr,volu,GK_Volu_max+1 vsel,s,volu,,40,GK_Volu_max+1 VSBA,all,all,,delete,KEEP allsel csys,0 *get,BVB,KP,0,Num,maxd k,BVB+1,Bohrung_X,Grund,Bohrung_Z k,BVB+2,Bohrung_X,B_Hoehe,Bohrung_Z k,BVB+3,Bohrung_X+YOT,Grund,Bohrung_Z K,BVB+4,Bohrung_X+YOT,B_Hoehe,Bohrung_Z l,BVB+1,BVB+2 !Dummylinie rotieren *get,Linie_max_II,line,0,num,maxd numstr,line,Linie_max_II+1 l,BVB+3,BVB+4 !Bohrungswand erstellen *get,Area_max,area,0,num,maxd Numstr,area,Area_max+1 arotat,Linie_max_II+1,,,,,,BVB+1,BVB+2,360,4 asel,s,area,,Area_max+1,(Area_max+1)+3 !Volumen erstellen *get,Volu_max,volu,0,num,maxd Numstr,volu,Volu_max+1 vsel,s,volu,,40,Volu_max+1 VSBA,all,all,,delete,KEEP allsel csys,0 ksel,s,loc,y,2.15,2.85 ksel,r,loc,z,26,30 lslk,s,1 asll,s,1 vsla,s,1 vsel,u,,,30 vsel,u,,,31 cm,MV,volu alls cmsel,S,MV,volu local,16,1,Bohrung_X,B_Hoehe,Bohrung_Z wpcsys,,16 wprota,0,90 csys,wp vsel,s,loc,x,0,GKR vsel,u,,,34 vdele,all allsel !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! !Vernetzung des Modells (unterschiedliche Emodule) et,1,solid187 et,2,solid187 EModul=73394.6 !E-Modul_Alu [MPa] Quer_S=0.34 !Querkontraktionszahl Alu mp,prxy,1,Quer mp,reft,1,480 EModul_S=196000 !E-Modul_Stahl [MPa] Quer_S=0.30 !Querkontraktionszahl Stahl mp,ex,2,EModul_S mp,prxy,2,Quer_S mp,alpx,2,15e-6 !Wärmeausdehungkoeffizient mp,reft,2,480 mpamod,2,20 !Wärmeabhängigkeiten Alu MPTEMP,1,20,100,200,300,480 MPDATA,ALPX,1,1,22.4e-6,23.4e-6,24.4e-6,25.4e-6,26.4e-6 MPDATA,Ex,1,1,69000,64844,52075,40076,15467 TB,MKIN,1,5 TBTEMP,,STRAIN ! Next TBDATA values are strains TBDATA,1,0.001,0.002,0.25 ! Strains for all temps TBTEMP,20 ! Temperature = 20 TBDATA,1,69,95,227 ! Stresses at temperature = 20 TBTEMP,100 ! Temperature = 100 TBDATA,1,64.8,72,158 ! Stresses at temperature =100 TBTEMP,200 ! Temperature = 200 TBDATA,1,52.075,66,138 ! Stresses at temperature = 200 TBTEMP,300 ! Temperature = 300 TBDATA,1,40.076,46,88 ! Stresses at temperature =300 TBTEMP,480 ! Temperature = 480 TBDATA,1,15.467,16,17 ! Stresses at temperature = 480 !Wärmeabhängigkeiten STAHL MPTEMP,1,20,100,200,300,480 MPDATA,ALPX,2,1,1.61e-5,1.72e-5,1.81e-5,1.88e-5,1.95e-5 MPDATA,Ex,2,1,196000,190000,182000,174000,166000 *do,i,1,Segmente nsel,s,node,,N_max+i type,3 r,1 d,all,ux,0 d,all,uz,0 d,all,rotx,0 d,all,rotz,0 e,N_max+i allsel *enddo vsel,s,volu,,547 MSHAPE,1,3D type,1 mat,1 esize,0.07 vmesh,all allsel vsel,s,volu,,424 vsel,a,volu,,426 vsel,a,volu,,525 vsel,a,volu,,535 vsel,a,volu,,385 vsel,a,volu,,382 MSHAPE,1,3D type,1 mat,1 esize,0.2 vmesh,all allsel !Zylinder vernetzen *get,Volu_max_II,volu,0,num,maxd vsel,s,volu,,Volu_max+1,Volu_max_II cmsel,u,MV,volu vsel,u,,,424 vsel,u,,,426 vsel,u,,,525 vsel,u,,,535 vsel,u,,,547 vsel,u,,,385 vsel,u,,,382 MSHAPE,1,3D type,1 mat,1 esize,0.3 vmesh,all allsel vsel,s,volu,,2,4 vsel,a,volu,,30 vsel,a,volu,,31 type,2 mat,2 esize,0.8 vmesh,all allsel !Teil vernetzen, welches im Zylinder liegt cmsel,s,MV,volu type,2 mat,2 esize,0.1 vmesh,all allsel !Platte vernetzen vsel,s,volu,,34 type,1 mat,1 esize,3 vmesh,all allsel !Lagerung asel,a,area,,38,39 nsla,s,1 d,all,all,0 allsel finish /solu antype,0 eqslv,pcg nlgeom,on TOFFST,273 !Temperatur in Celsius TREF,20 !Referenztemperatur solc,on nropt,full autots,on deltim,0.5,0.1,0.5 tunif,480 bf,all,temp,200 kbc,0 ALLSEL solve bf,all,temp,20 kbc,0 ALLSEL solve