TP-probleme-inverse-3D/TP2/exercice_1.m

23 lines
517 B
Mathematica
Raw Normal View History

2023-06-25 14:38:01 +00:00
clear;
close all;
load E_estimee;
% Estimation de la pose (4 solutions) :
[t_4,R_4] = estimation_4_poses(E_estimee);
% Vérification :
verification = zeros(1,4);
for i = 1:4
t = t_4(:,i);
t_chapeau = [0 -t(3) t(2) ; t(3) 0 -t(1) ; -t(2) t(1) 0];
R = R_4(:,:,i);
matrice_verif = (t_chapeau*R)./E_estimee;
verification(i) = abs(abs(prod(matrice_verif(:)))-1)<1e-2;
end
if prod(verification)
fprintf('Vous avez tout bon : passez a l''exercice 2 !\n');
else
fprintf('Erreur : revoyez votre code, svp !\n');
end