Zadanie 1 Matlab

function pe1=p1

p1=[-1 0 0; 0 1 0; 0 0 1]

function pe3=p3

p3=[1 0 0; 0 1 0; 0 0 -1]

function er1=r1(alfa)

er1=[1 0 0;0 cos(alfa) sin(alfa); 0 -sin(alfa) cos(alfa)];

function er2=r2(alfa)

er2=[cos(alfa) 0 -sin(alfa);0 1 0;sin(alfa) 0 cos(alfa)];

function er3=r3(alfa)

er3=[cos(alfa) sin(alfa) 0; -sin(alfa) cos(alfa) 0; 0 0 1];

function iks1=x1

X1=(N1+h1)*cos(B1)*cos(L1);