!Bremsscheibe /FILENAME,Bremsscheibe /TITLE, 45Grad-Scheibe /prep7 *afun,deg !* /VIEW,1,1,1,1 et,1,solid5,0 BTOL, !BTOL,2 !**********************************************Materialdaten************************************************************************************************ !Alle Materialkennwerte sind in SI-Einheiten angegeben! !Material 1: Bremsscheibenmaterial MP,KXX,1,37.5 !Wärmeleitfähigkeit [W/m*K] MP,DENS,1,7.1e3 !Dichte [kg/m^3] MP,C,1,577 !Wärmekapazität [J/kg*K] MP,EX,1,1.2e11 !E-Modul [Pa] MP,NUXY,1,0.3 !Querkontratktionszahl MP,ALPX,1,11e-6 !Wärmeausdehnung [1/K] !heat penetration number fehlt! !Material 2: Bremsbelagsmaterial MP,KXX,2,1.0 !Wärmeleitfähigkeit [W/m*K] MP,DENS,2,2.8e3 !Dichte [kg/m^3] MP,C,2,600 !Wärmekapazität [J/kg*K] !heat penetration number fehlt! !*******************************Variablendeklaration************************************************************************************************** di=214 !Scheibeninnendurchmesser da=300 !Scheibenaußendurchmesser ri=di/2 ra=da/2 s1=6.5 !Dicke des Scheibensegments 1 (ohne Bohrung) s2=9.5 !Dicke des Scheibensegments 2 (mit Bohrung) b1=9 !Horizontaler Abssind der 1. Bohrung oben b2=14 !Horizontaler Abssind der 1. Bohrung unten h1=16 !Vertikaler Abssind der 1. Bohrung unten h2=38 !Vertikaler Abssind der 1. Bohrung oben a1=68 !Horizontaler Abssind Unterkante zur 2. Bohrung unten a2=73 !Horizontaler Abssind Unterkante zur 2. Bohrung oben alpha=45 !Winkel Viertelscheibensegment !ANMERKUNG: alpha muss eine durch 9 teilbare Zahl sein!!!! h=cos(alpha/2)*di/2 !Abstand Kreismittelpunkt zur Unterkante Scheibe b=sin(alpha/2)*di/2 !Abstand Symmetrielinie des Scheibensegments zur Unterkante der Scheibe rib=sqrt(((h+h1)*(h+h1))+((a1-b)*(a1-b))) !Abstand Bohrungsmittelpunkt innere Bohrung zum Kreismittelpunkt der Scheibe rab=sqrt(((h+h2)*(h+h2))+((a2-b)*(a2-b))) !Abstand Bohrungsmittelpunkt äußere Bohrung zum Kreismittelpunkt der Scheibe beta=asin((a1-b)/(h+h1)) !Winkel zwischen Symmetrielinie Scheibe und Bohrungsmittelpunkt db=6 !Bohrungsdurchmesser as=6 !Abstand Steg zur Außenkante der Scheibe ts=((da-di)/2)-as !Tiefe des Steges ls=6 !Länge des Steges bs=9 !Breite des Steges rs=2 !Radius an der Kante des Steges gamma1=4.5 !Winkel linke Kante der Scheibe zur Symmetrielinie des ersten Steges gamma2=9 !Winkel der Stege zueinander deltai=asin((bs/2)/(di/2)) !Winkel innere Kante vom Steg zur Symmetrielinie Steg deltaa=asin((bs/2)/((da/2)-as)) !Winkel äußere Kante vom Steg zur Symmetrielinie Steg !delri=deltai epsi=asin(((bs/2)-rs)/ri) !Winkel Symmetrielinie bis zur Rundung; innen epsa=asin(((bs/2)-rs)/(ra-as)) !Winkel Symmetrielinie bis zur Rundung; außen tk=3.5 !Tiefe der Aussparung an Scheibensegment 1 S=((alpha-2*gamma1)/(gamma2))+1 !Anzahl der Stege !***************************************************************************************************************************************************** !*****************************************************Modellierung der Stege************************************************************************** !***************************************************************************************************************************************************** !****************************************************************************************************************************************************** !**************************************************Steg 1********************************************************************************************** !Definition der einzelnen Keypoints:("FOR"-Schleife für i=1:S) *DO,I,1,S xI1=ri*cos(gamma1+(I-1)*gamma2+deltai-(alpha/2)) yI1=ri*sin(gamma1+(I-1)*gamma2+deltai-(alpha/2)) zI1=0+s2 xI2=ri*cos(gamma1+(I-1)*gamma2-deltai-(alpha/2)) yI2=ri*sin(gamma1+(I-1)*gamma2-deltai-(alpha/2)) zI2=0+s2 xI3=(ra-as)*cos(gamma1+(I-1)*gamma2+deltaa-(alpha/2)) yI3=(ra-as)*sin(gamma1+(I-1)*gamma2+deltaa-(alpha/2)) zI3=0+s2 xI4=(ra-as)*cos(gamma1+(I-1)*gamma2-deltaa-(alpha/2)) yI4=(ra-as)*sin(gamma1+(I-1)*gamma2-deltaa-(alpha/2)) zI4=0+s2 xI5=xI4 yI5=yI4 zI5=ls+s2 xI6=xI3 yI6=yI3 zI6=ls+s2 xI7=xI1 yI7=yI1 zI7=ls+s2 xI8=xI2 yI8=yI2 zI8=ls+s2 xI9=ri*cos(gamma1+(I-1)*gamma2-epsi-(alpha/2)) yI9=ri*sin(gamma1+(I-1)*gamma2-epsI-(alpha/2)) zI9=ls-rs+s2 xI10=ri*cos(gamma1+(I-1)*gamma2-epsi-(alpha/2)) yI10=ri*sin(gamma1+(I-1)*gamma2-epsi-(alpha/2)) zI10=rs+s2 xI11=ri*cos(gamma1+(I-1)*gamma2+epsi-(alpha/2)) yI11=ri*sin(gamma1+(I-1)*gamma2+epsi-(alpha/2)) zI11=rs+s2 xI12=ri*cos(gamma1+(I-1)*gamma2+epsi-(alpha/2)) yI12=ri*sin(gamma1+(I-1)*gamma2+epsi-(alpha/2)) zI12=ls-rs+s2 xI13=(ra-as)*cos(gamma1+(I-1)*gamma2+epsa-(alpha/2)) yI13=(ra-as)*sin(gamma1+(I-1)*gamma2+epsa-(alpha/2)) zI13=ls-rs+s2 xI14=(ra-as)*cos(gamma1+(I-1)*gamma2+epsa-(alpha/2)) yI14=(ra-as)*sin(gamma1+(I-1)*gamma2+epsa-(alpha/2)) zI14=rs+s2 xI15=(ra-as)*cos(gamma1+(I-1)*gamma2-epsa-(alpha/2)) yI15=(ra-as)*sin(gamma1+(I-1)*gamma2-epsa-(alpha/2)) zI15=rs+s2 xI16=(ra-as)*cos(gamma1+(I-1)*gamma2-epsa-(alpha/2)) yI16=(ra-as)*sin(gamma1+(I-1)*gamma2-epsa-(alpha/2)) zI16=ls-rs+s2 !*****************Erzeugung der einzelnen Keypoints***************************************************** K,I*10+1,xI1,yI1,zI1 K,I*10+2,xI2,yI2,zI2 K,I*10+3,xI3,yI3,zI3 K,I*10+4,xI4,yI4,zI4 K,I*10+5,xI5,yI5,zI5 K,I*10+6,xI6,yI6,zI6 K,I*10+7,xI7,yI7,zI7 K,I*10+8,xI8,yI8,zI8 K,I*10+9,xI9,yI9,zI9 K,I*100+10,xI10,yI10,zI10 K,I*100+11,xI11,yI11,zI11 K,I*100+12,xI12,yI12,zI12 K,I*100+13,xI13,yI13,zI13 K,I*100+14,xI14,yI14,zI14 K,I*100+15,xI15,yI15,zI15 K,I*100+16,xI16,yI16,zI16 !**********************Erzeugung der Linien aus den Keypoints************************************ L,I*10+1,I*10+2 !->L1 L,I*10+2,I*100+10 !->L2 L,I*100+10,I*10+9 !->L3 L,I*10+9,I*10+8 !->L4 L,I*10+8,I*10+7 !->L5 L,I*10+7,I*100+12 !->L6 L,I*100+12,I*100+11 !->L7 L,I*100+11,I*10+1 !->L8 L,I*10+3,I*10+4 !->L9 L,I*10+4,I*100+15 !->L10 L,I*100+15,I*100+16 !->L11 L,I*100+16,I*10+5 !->L12 L,I*10+5,I*10+6 !->L13 L,I*10+6,I*100+13 !->L14 L,I*100+13,I*100+14 !->L15 L,I*100+14,I*10+3 !->L16 L,I*10+1,I*10+3 !->L17 L,I*10+6,I*10+7 !->L18 L,I*10+8,I*10+5 !->L19 L,I*10+2,I*10+4 !->L20 !Extra-Linien für Flächenbildung L,I*100+10,I*100+11 !->L21 L,I*10+9,I*100+12 !->L22 L,I*100+10,I*100+15 !->L23 L,I*10+9,I*100+16 !->L24 L,I*100+11,I*100+14 !->L25 L,I*100+12,I*100+13 !->L26 L,I*100+14,I*100+15 !->L27 L,I*100+13,I*100+16 !->L28 !********************************Flächenerzeugung************************************************** lsel,all !Rechte Seite al,(I-1)*28+2,(I-1)*28+23,(I-1)*28+10,(I-1)*28+20 !->Fläche 1 al,(I-1)*28+23,(I-1)*28+3,(I-1)*28+24,(I-1)*28+11 !->Fläche 2 al,(I-1)*28+4,(I-1)*28+19,(I-1)*28+12,(I-1)*28+24 !->Fläche 3 !Linke Seite al,(I-1)*28+8,(I-1)*28+25,(I-1)*28+16,(I-1)*28+17 ! ->Fläche 4 al,(I-1)*28+7,(I-1)*28+26,(I-1)*28+15,(I-1)*28+25 ! ->Fläche 5 al,(I-1)*28+6,(I-1)*28+18,(I-1)*28+14,(I-1)*28+26 ! ->Fläche 6 !Vorderseite al,(I-1)*28+13,(I-1)*28+5,(I-1)*28+18,(I-1)*28+19 ! ->Fläche 7 !Rückseite al,(I-1)*28+1,(I-1)*28+9,(I-1)*28+17,(I-1)*28+20 ! ->Fläche 8 !Oberseite al,(I-1)*28+9,(I-1)*28+10,(I-1)*28+27,(I-1)*28+16 ! ->Fläche 9 al,(I-1)*28+11,(I-1)*28+28,(I-1)*28+15,(I-1)*28+27 ! ->Fläche 10 al,(I-1)*28+12,(I-1)*28+13,(I-1)*28+14,(I-1)*28+28 ! ->Fläche 11 !Unterseite al,(I-1)*28+1,(I-1)*28+2,(I-1)*28+21,(I-1)*28+8 !->Fläche 12 al,(I-1)*28+3,(I-1)*28+22,(I-1)*28+7,(I-1)*28+21 !->Fläche 13 al,(I-1)*28+4,(I-1)*28+5,(I-1)*28+6,(I-1)*28+22 !->Fläche 14 asel,S,,,(I-1)*14+1,(I-1)*14+14 aplot,all va,all asel,all vplot,all *ENDDO !********************************************************************************************************************************************** !**********************************************Scheibe mit Bohrungen********************************************************************************* csys,1 !Segment 1 !Erzeugung des 1. Scheibensegments (zunächst ohne Bohrungen) als Vollscheibe !Hierbei Erzeugung zweier Scheiben, da sich die Querschnittsfläche ändert, wenn nachher das "Tortenstück! für die Einspannung herausgeschnitten !wird -> Probleme mit der Vernetzung!!!! cylind,,da/2,,tk,-alpha/2,alpha/2 cylind,,da/2,tk,s2,-alpha/2,alpha/2 vplot,all !*********************************************************************************************************************************************** !**********************************************Scheibe ohne Bohrungen************************************************************************** !Segment 2 !Erzeugung des 2. Scheibensegments (ohne Bohrung) als Vollscheibe cylind,,da/2,ls+s2,ls+s1+s2,-alpha/2,alpha/2 VGLUE,all !VADD,all !Abziehen der inneren Scheibe cylind,,di/2,,ls+s1+s2,-alpha/2,alpha/2 VSBV,6,7 cylind,,di/2,,ls+s1+s2,-alpha/2,alpha/2 VSBV,9,6 cylind,,di/2,,ls+s1+s2,-alpha/2,alpha/2 VSBV,10,6 !************************************Abziehen der Bohrung und der Kante******************************************************************************* x1=cos((alpha/2)-beta-(alpha/2))*rib !Koordinaten der ersten Bohrung y1=sin((alpha/2)-beta-(alpha/2))*rib x2=cos((alpha/2)-beta-(alpha/2))*rab !Koordinaten der zweiten Bohrung y2=sin((alpha/2)-beta-(alpha/2))*rab x3=cos((alpha/2)+beta-(alpha/2))*rib !Koordinaten der dritten Bohrung y3=sin((alpha/2)+beta-(alpha/2))*rib x4=cos((alpha/2)+beta-(alpha/2))*rab !Koordinaten der vierten Bohrung y4=sin((alpha/2)+beta-(alpha/2))*rab cyl4,x1,y1,db/2,0,db/2,360,s2 !Erzeugung der ersten Bohrung cyl4,x2,y2,db/2,0,db/2,360,s2 !Erzeugung der zweiten Bohrung cyl4,x3,y3,db/2,0,db/2,360,s2 !Erzeugung der dritten Bohrung cyl4,x4,y4,db/2,0,db/2,360,s2 !Erzeugung der vierten Bohrung !Boole'sche Operation zur Erzeugung der Bohrungen im Segment 1 (Außenteil) VSBV,8,6 VSBV,13,10 VSBV,6,11 VSBV,8,12 x1=cos((alpha/2)-beta-(alpha/2))*rib !Koordinaten der ersten Bohrung y1=sin((alpha/2)-beta-(alpha/2))*rib x2=cos((alpha/2)-beta-(alpha/2))*rab !Koordinaten der zweiten Bohrung y2=sin((alpha/2)-beta-(alpha/2))*rab x3=cos((alpha/2)+beta-(alpha/2))*rib !Koordinaten der dritten Bohrung y3=sin((alpha/2)+beta-(alpha/2))*rib x4=cos((alpha/2)+beta-(alpha/2))*rab !Koordinaten der vierten Bohrung y4=sin((alpha/2)+beta-(alpha/2))*rab cyl4,x1,y1,db/2,0,db/2,360,s2 !Erzeugung der ersten Bohrung cyl4,x2,y2,db/2,0,db/2,360,s2 !Erzeugung der zweiten Bohrung cyl4,x3,y3,db/2,0,db/2,360,s2 !Erzeugung der dritten Bohrung cyl4,x4,y4,db/2,0,db/2,360,s2 !Erzeugung der vierten Bohrung !Boole'sche Operation zur Erzeugung der Bohrungen im Segment 1 (Innenteil) VSBV,9,8 VSBV,13,10 VSBV,8,11 VSBV,9,12 !Erzeugung des Eckstücks und Abziehen durch Boole'sche Operationen tol=15 CYL4,ri*cos(alpha/2),ri*sin(alpha/2),ra-ri+tol,alpha/2,,,tk VSBV,6,9