TP-traitement-audio-visuel/TP2/nouveau_parametrage.m

44 lines
1.5 KiB
Mathematica
Raw Normal View History

2023-06-22 18:47:16 +00:00
clear;
close all;
taille_ecran = get(0,'ScreenSize');
L = taille_ecran(3);
H = taille_ecran(4);
% Calcul du mod<EFBFBD>le exact :
beta_0 = 115;
beta_d = 123;
beta = [133,96,139,118];
n_affichage = 200; % Utilisation de 200 points pour l'affichage
pas_affichage = 1/(n_affichage-1);
x = 0:pas_affichage:1;
y = bezier(beta_0,beta,beta_d,x);
% Trac<EFBFBD> du mod<EFBFBD>le exact (trait noir) :
figure('Name','parametres adaptes a la regularisation','Position',[0.4*L,0.05*H,0.6*L,0.7*H]);
plot(x,y,'-k','LineWidth',2);
set(gca,'FontSize',20);
xlabel('$x$','Interpreter','Latex','FontSize',30);
ylabel('$y$','Interpreter','Latex','FontSize',30);
hold on;
% Affichage des points de contr<EFBFBD>le (disques noirs) :
d = length(beta)+1;
alpha_0 = 0;
alpha_d = 1;
alpha = [1:d-1]/d;
plot([alpha_0 alpha alpha_d],[beta_0 beta beta_d],'ok','MarkerFaceColor','k','MarkerSize',10,'LineWidth',3);
% Trac<EFBFBD> de la droite reliant les points de contr<EFBFBD>le extr<EFBFBD>mes (trait bleu) :
line([alpha_0 alpha_d],[beta_0 beta_d],'Color','b','LineWidth',3);
% Affichage des projections verticales des points de contr<EFBFBD>le sur cette droite (disques bleus) :
beta_barre = beta_0+(beta_d-beta_0)*alpha;
plot(alpha,beta_barre,'ob','MarkerFaceColor','b','MarkerSize',10,'LineWidth',3);
% Mat<EFBFBD>rialisation des <EFBFBD>carts (pointill<EFBFBD>s noirs) :
for i = 1:d-1
plot([alpha(i),alpha(i)],[beta(i),beta_barre(i)],'--k','LineWidth',2)
end
legend(' Modele exact',' Points de controle du modele exact',...
' Modele simplifie',' Points de controle du modele simplifie','Location','SouthEast');