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 34 35 36 37 38 39 40 41 42 43 44
| clear all ;
axis([0 10 0 10]);
%hold on ;
[y,x]=getpts ;
n=length(x); %la longueur = le nbr de pt dessiné
[ymin i] = min(y); %le pt le plu min + l'indice de ymin
pery=y(1);
y(1)=ymin ; %%%de permutation de y pour débuter avec le pt le plus bas
y(i)=pery;
perx=x(1) ;
x(1)=x(i) ; %%% de permutation de x
x(i)=perx;
firstx=x(1) ;
firsty=y(1);
for k=2:n
t=zeros(1,length(x)-1); %declaration d'un vecteur dé 0
for j=1:length(x)-1
%%%% calculeeeer la tangente
tangente =y(j+1)-firsty/x(j+1)-firstx;
t(j)=tangente; %%%% mettre lé tg ds un tableau t
end
[tmin j] = min(t); % la tg min + l'indice de la tag min
%line([firstx, x(j+1)],[firsty, y(j+1)],'LineWidth',1,'Color','b')
plot(firstx,firsty,x(j+1),y(j+1)) ; % j car j c l'indice du tgmin
firstx=x(k); %aprés finir le 1er pt
firsty=y(k); %aller vers lé suivants
end |
Partager