function const = getConstants()
% BERECHNET KONSTANTEN FUER BALKENBIEGESCHWINGUNG


E = 2e11;
I = 1e-4 / 12;
EI = E*I;

mu = 100;
Om = 0.25;

l=25;
m=100;

k1 = 5000;

F = 1000;

k = (mu*Om*Om/EI)^(0.25);

s  = sin(k*l);
sh = sinh(k*l);
c  = cos(k*l);
ch = cosh(k*l);

Delta = (k1-m*Om*Om)*(s-sh)*(c+ch) - (k1-m*Om*Om)*(c-ch)*(s+sh);
Delta = Delta + EI*k*k*k*(c*c + s*s - ch*ch -sh*sh);

C(1) = -(1/Delta)*(s+sh)*F;
C(2) =  (1/Delta)*(c+ch)*F;
C(3) = -C(1);
C(4) = -C(2);

const.C = C;
const.k = k;
const.l = l;
const.Om = Om;