clear, clc;
%Zadanie:

A=[1 2 3;2 7 4;4 2 5]
B=[-2 4 7;3 1 2;8 5 6]
Xi=[5;2;7]

%Vypocet:
Xa=inv(A)*Xi
Pab=inv(A)*B
Xb=inv(Pab)*Xa
I=[1 0 0;0 1 0; 0 0 1]
Pbi=inv(B)*I
Xi2=inv(Pbi)*Xb

% Dualna baza:
% A~=(A^-1)'
%A~*A'=I
A_dualna=(inv(A))'
A_dualna*A'
%
B_dualna=(inv(B))'
B_dualna*B'