13.04.2014 Views

Politechnika Poznańska Zastosowanie algorytmów genetycznych do ...

Politechnika Poznańska Zastosowanie algorytmów genetycznych do ...

Politechnika Poznańska Zastosowanie algorytmów genetycznych do ...

SHOW MORE
SHOW LESS

Create successful ePaper yourself

Turn your PDF publications into a flip-book with our unique Google optimized e-Paper software.

Załącznik 2 – kod programu - rozwiązanie zagadnienia Motza<br />

metodą rozwiązań podstawowych<br />

Program napisano w języku Matlab/Comsol Script<br />

function v=motz2(pkt,NZ,saveF)<br />

%function v=motz2()<br />

S=0.2;<br />

M=12;<br />

%saveF=1;<br />

%NZ=12;<br />

%[XZ,YZ]=zrodla(NZ,S);<br />

XZ=pkt(1,:);<br />

YZ=pkt(2,:);<br />

N0=6*M-3-NZ;<br />

N0=3;<br />

% kollokacja z rozwiązaniami podstawowymi<br />

%NZ=24; %podzielne przez 6;<br />

[XAB,YAB,XCB,YCB,XDC,YDC,XED,YED,XEO,YEO,XOA,YOA,E,F,P,O,H,G,T,Z]=wkolMFS(M);<br />

[A,B]=muklMFS(M,N0,NZ,XZ,YZ,XAB,YAB,XCB,YCB,XDC,YDC,XED,YED,XEO,YEO,XOA,YOA,E,F,P,O,H,G,<br />

T,Z);<br />

X=linsolve(A,B');<br />

bd1=0;<br />

bd2=0;<br />

bd3=0;<br />

bd4=0;<br />

bd5=0;<br />

bd6=0;<br />

xb1=1;<br />

xb2=0;<br />

xb3=1;<br />

xb4=0;<br />

yb1=0;<br />

yb2=0;<br />

num=201;<br />

for i=1:num<br />

wsp=(i-1)/num;<br />

[dfu,xdf,ydf]=rozprzy(1,wsp,XZ,YZ,X,NZ,N0);<br />

pd1=abs(dfu-1);<br />

if(bd1

Hooray! Your file is uploaded and ready to be published.

Saved successfully!

Ooh no, something went wrong!