Politechnika Poznańska Zastosowanie algorytmów genetycznych do ...
Politechnika Poznańska Zastosowanie algorytmów genetycznych do ...
Politechnika Poznańska Zastosowanie algorytmów genetycznych do ...
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