function [transA,detA,invA]=mymatrix(A)
%Ypologismos tou anastrofou, orizousas kai antistrofou enos tetragwnikou 
%pinaka 
if size(A,1)==size(A,2)
transA=A';
detA=det(A);
invA=inv(A);  
else
%detA='H orizousa gia mi tetragwnikous pinakes den orizetai';
%invA='O antistrofos pinakas gia mi tetragwnikous pinakes den orizetai';
transA=A';
disp('O pinakas den einai tetragwnikos') 
end
