1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33
| clc, close all, clear all
function y = fo(lambda,mu,alpha)
y = lambda - mu * tan (alpha) - 0.0030 / (2 * (lambda^2+mu^2)^0.5)
end
function[p,res,iter]=ptfixe(x0,y,eps,nmax)
for AOA=0,2,4,6,8,-2
while n<=21
alpha = AOA * pi / 180
lambda0 = [-100 100]; % Initial Values
lambda(n,1) = fzero(y, lambda0);
mu = mu + 0.5;
n = n + 1;
end
x0=0.5;
eps=0.0005;
nmax=21;
x=x0;
y=y(x);
iter=0;
err=abs(y-x);
while(err>eps)&(iter<=nmax)
iter=iter+1;
x=y;
y=y(x);
end
p=x;
res=y-x;
end
end |