clear all, close all, clc
format long
%_ delka tahla
l=2200;
% E11 = 135885;
E11 = 7487;
E12 = 362175;
E13 = 9797;
E14 = 9797;
E15 = 9797;

%%%%%%%%%%%%%%%%%%%%%%%%%%%%
% Eohyb = (E1*I1 + E2*I2 + ..... + E5*I5)/Icelkove

t1 = 0.210; % tloustka prvni vrstvy [mm]
t2 = 0.802;
t3 = 0.597/4;
t4 = 0.597/2;
t5 = 0.597/4;

Dcelkin = 28; % [mm]

D1in = Dcelkin
D1out = D1in + 2*t1;
D2in = D1out
D2out = D2in + 2*t2;
D3in = D2out
D3out = D3in + 2*t3;
D4in = D3out
D4out = D4in + 2*t4;
D5in = D4out
D5out = D5in + 2*t5;

Dcelkout = D5out;

I1 = (pi*(D1out^4 - D1in^4))/64
I2 = (pi*(D2out^4 - D2in^4))/64
I3 = (pi*(D3out^4 - D3in^4))/64
I4 = (pi*(D4out^4 - D4in^4))/64
I5 = (pi*(D5out^4 - D5in^4))/64

Icelk = (pi*(Dcelkout^4 - Dcelkin^4))/64;

E1celkohyb = (E11*I1 + E12*I2+ E13*I3+ E14*I4+ E15*I5)/Icelk;

Fkrit=pi^2*E1celkohyb*Icelk/l^2
  

Fk1=pi^2*I1*E11/l/l
Fk2=pi^2*I2*E12/l/l
Fk3=pi^2*I3*E13/l/l
Fk4=pi^2*I4*E14/l/l
Fk5=pi^2*I5*E15/l/l


    
    
    
    
    