1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24
| clc
close all
clear all
a=4; % abssice du centre du cercle
b=4; % ordonnée du centre du cercle
r=1.5; % rayon du cercle
teta=linspace(pi/3,pi/6,10); % defini en fonction de a, b, r
delta=4*(a.*cos(teta)+b.*sin(teta)).^2-4*(a^2+b^2-r^2) %discriminant
d = (2.*a.*cos(teta)+2.*b.*sin(teta)-sqrt(delta))./2
polar(teta,d,'r*')
F = @(x,tdata)(2.*x(1).*cos(tdata)+2.*x(2).*sin(tdata)-sqrt(4*(x(1).*cos(tdata)+x(2).*sin(tdata)).^2-4*(x(1)^2+x(2)^2-r^2)))./2;
x0=[1 1]
[x,resnorm,~,exitflag,output] = lsqcurvefit(F,x0,teta,d)
hold on
polar(teta,F(x,teta))
hold off
A=real(x(1))
B=real(x(2)) |
Partager