44 lines
1.5 KiB
Mathematica
44 lines
1.5 KiB
Mathematica
|
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');
|