WOJSKOWA AKADEMIA TECHNICZNA Wydział Mechatroniki
Metodyka projektowania i konstrukcji maszyn Temat : Zadanie optymalizacyjne-płytka. Ocena : .................
Grupa	Data
A5X1S0	15.01.2008
Prowadzący
dr inż. Stanisław Kachel

CEL ĆWICZENIA

Celem ćwiczenia jest dokonanie optymalizacji, dobranie takiej wartości kąta ALF1

i A3 aby uzyskać Lmin (aby zminimalizować odległość środka masy naszej płytki od środka masy płytki prostopadłościennej bez jakichkolwiek wcięć - płytki wyjściowej).

PROGRAM

*komentarz*

entity/p0,p1,p2,p3,p4,p5,p6,p7,ln1,ln2,ln3,ln4,ln5,fl1,cr1,plytka,pp0,pps *deklaracja obiektów*

number/xyz(3),xyz1(3),wyn(42) *deklaracja tablic na współrzędne środków masy i wyniki analizy masowej*

delete/all

print/'Przechodzimy do tworzenia geometrii płytki'

p0=point/0,0,0

a1=200 *wymiary płytki*

a2=180

r1=60

r2=72

gr=10

Lmin=200 *założenie dużej początkowej wartości minimalnej odległości środków masy*

DO/L1:,i,49,52,1 *pętla zewnętrzna (zmienia się a3)*

DO/L2:,j,1,30,1 *pętla wewnętrzna (zmienia się kąt alf1)*

a3=i

alf1=j

p1=point/0,a2,0

p7=point/0,(a1-a3)*(sinf(alf1)/cosf(alf1)),0

ln1=line/p7,p1 *określamy punkty p1..p7 oraz zarys płytki*

p2=point/a1-r2,a2,0

ln2=line/p1,p2

p5=point/a1,0,0

fl1=fillet/ln2,ln1,center,p5,radius,r1

p3=point/a1,a2,0

cr1=circle/center,p3,radius,r2,start,180,end,270

p4=point/a1,a2-r2,0

ln3=line/p4,p5

p6=point/a1-a3,0,0

ln4=line/p5,p6

ln5=line/p6,p7

plytka=solext/ln1,fl1,ln2,cr1,ln3,ln4,ln5,height,gr,axis,0,0,1 *tworzymy płytkę przez wyciagnięcie jej zarysu na

grubość gr*

anlsis/solid,plytka,gcm,wyn(1..42) *dokonujemy analizy powstałej bryły w celu otrzymania środka masy płytki z wcięciami*

$PRINT/USING,'SRODEK MASY XC=#@@@@.@gm',WYN(4)

$PRINT/USING,'SRODEK MASY YC=#@@@@.@gm',WYN(5)

$ DISTF(point1,point2)

pp0=point/a1/2,a2/2,gr/2 *środek masy płytki bez wcięć*

pps=point/wyn(4)*10,wyn(5)*10,wyn(6)*10 *środek masy płytki z wcięciami*

L=distf(pp0,pps) *odległość środka masy płytki bez wcięć i płytki z wcięciami przy aktualnych wielkościach a3 i alf1*

print/using,'ODLEGLOSC L=#@@@.@@@@ mm',L

IFTHEN/L<Lmin *sprawdzamy czy aktualna odległość L jest mniejsza od zapamiętanej jako minimalna*

*jeśli tak:*

a3min=a3 *zapamiętujemy dla jakiej wartości a3 otrzymaliśmy ten wynik*

alf1min=alf1 *zapamiętujemy dla jakiej wartości alf1 otrzymaliśmy ten wynik*

Lmin=L *przypisujemy odległości minimalnej otrzymaną wartość L *

xyz1=&point(pps) *zapamiętujemy współrzędne wyliczonego środka masy w tablicy xyz1*

ENDIF

Delete/all

L2: *powrót do początku pętli wewnętrznej *

L1: *powrót do początku pętli zewnętrznej *

a3=a3min *wartości a3 przypisujemy wartość minimalną otrzymaną w pętli *

alf1=alf1min *wartości alf1 przypisujemy wartość minimalną otrzymaną w pętli *

*tworzymy bryłę o właściwych wymiarach*

pp1:

param/'WYMIARY PLYTKI','A1=',a1,'A2=',a2,'A3=',a3,'R1=',r1,$

'R2=',r2,'GR=',gr,'ALFA=',alf1,rsp

jump/pp1:,term:,,rsp

*wypisujemy wymiary płytki*

print/'WYMIARY PLYTKI'

print/using,'A1:#@@@.@ mm; A2:#@@@.@ mm; A3:#@@@.@@ mm',a1,a2,a3

print/using,'R1=#@@.@ mm; R2=#@@.@ mm; GR=#@@.@ mm; ALFA=#@@.@ st',r1,r2,gr,alf1

p1=point/0,a2,0

p7=point/0,(a1-a3)*(sinf(alf1)/cosf(alf1)),0

ln1=line/p7,p1

p2=point/a1-r2,a2,0

ln2=line/p1,p2

p5=point/a1,0,0

fl1=fillet/ln2,ln1,center,p5,radius,r1

p3=point/a1,a2,0

cr1=circle/center,p3,radius,r2,start,180,end,270

p4=point/a1,a2-r2,0

ln3=line/p4,p5

p6=point/a1-a3,0,0

ln4=line/p5,p6

ln5=line/p6,p7

plytka=solext/ln1,fl1,ln2,cr1,ln3,ln4,ln5,height,gr,axis,0,0,1

print/'WYNIK OPTYMALIZACJI'

xyz=&point(pp0) *zapisujemy współrzędne środka masy w tablicy xyz*

anlsis/solid,plytka,gcm,wyn(1..42)

PRINT/USING,'SRODEK MASY XC=#@@@@.@mm',WYN(4)

PRINT/USING,'SRODEK MASY YC=#@@@@.@mm',WYN(5)

*wypisujemy wartość minimalnej odległości środków masy*

print/using,'ODLEGLOSC Lmin=#@@@.@@@@ mm',Lmin

term:

halt

WNIOSKI

Na podstawie powyższego programu udało się znaleźć płytkę z wcięciami, której środek masy był najbliższy środkowi masy płytki bez wcięć.

Otrzymaliśmy ją dla wartości a3=51 i alf1=21. Otrzymana dla takich wartości odległość środków masy wyniosła Lmin=0,064 mm.

---