function B=bmx(A)
[n,m]=size(A);%az A mx n sorból és m oszlopból áll
B=zeros(n);%a B mx kezdoértéke az n-sor n-oszlopból álló null mátrix
for i=1:n %ez a ciklus kijelöli melyik sorban dolgozunk
    B(i,:)=A(i,:)/A(i,n-i+1); %az adott sorban végigosztunk a mellékátlóbeli elemmel A(i,n+1-i))
    B(i,n-i+1)=0; %a B mx mellékátlóját 0-zuk 
end