21.07.2013 Views

nr. 477 - 2011 - Institut for Natur, Systemer og Modeller (NSM)

nr. 477 - 2011 - Institut for Natur, Systemer og Modeller (NSM)

nr. 477 - 2011 - Institut for Natur, Systemer og Modeller (NSM)

SHOW MORE
SHOW LESS

Create successful ePaper yourself

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

158 matlab Code<br />

w(r+1)=w(r)+dw;<br />

g=w(end);<br />

[M]=newtonRaphson2(@eqdefT1D_full,ini_1);<br />

M=M’;<br />

end<br />

s(r)=M(end,2,:);<br />

Q(r,:)=M(end,:);<br />

V_1(r)=E(1);<br />

V_2(r)=E(2);<br />

V_3(r)=E(3);<br />

V_4(r)=E(4);<br />

V_5(r)=E(5);<br />

w(1)=[];<br />

%<br />

% %--------------------------------------------------------------------<br />

%<br />

n=855;<br />

w_2=8.6e-6;<br />

dw_2=0.002e-05;<br />

s_2=zeros(1,n);<br />

Q_2=zeros(n,5);<br />

V=zeros(n,5);<br />

ini_2 =[1.177753840657023e+006 5.017144005834548e+006...<br />

1.967867544648059e+005 1.588274974061828e+003...<br />

1.593754564310941e+000]<br />

<strong>for</strong> r=1:n;<br />

w_2(r+1)=w_2(r)+dw_2;<br />

g=w_2(end);<br />

[M]=newtonRaphson2(@eqdefT1D_full,ini_2);<br />

M=M’;<br />

Q_2(r,:)=M(end,:);

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

Saved successfully!

Ooh no, something went wrong!