function [ K ] = ProjektMacierzSztywnosciBelka3(E, A, Iz, l, s, c)

K = E*Iz*[A/(Iz*l), 0, 0, -A/(Iz*l), 0, 0;
          0, 12/l^3, 6/l^2, 0, -12/l^3, 6/l^2;
          0,  6/l^2, 4/l  , 0,  -6/l^2, 2/l;
         -A/(Iz*l), 0, 0,  A/(Iz*l), 0, 0;
          0,-12/l^3,-6/l^2, 0,  12/l^3,-6/l^2;
          0,  6/l^2, 2/l,   0,  -6/l^2, 4/l];

T = TransformationMatrix(s, c);

K = T'*K*T;