Program 4
Program 4
%Inputs
Lx=input('\n Enter the shorter span dimension (m) = ');
Ly=input('\n Enter the larger span dimension (m) = ');
Fck=input('\n Enter the compressive strength of concrete (N/sq.mm) = ');
Fy=input('\n Enter the yield strength of steel (N/sq.mm) = ');
LL=input('\n Enter the live load(kN/sq.mm) = ');
FF=input('\n Enter the floor finish(kN/sq.mm) = ');
cc=input('\n Enter the clear cover of slab (mm) = ');
d1=input('\n Enter the diameter of the reinforcement (mm) = ');
else
fprintf('\n Type 1 : Simply supported slab'); %end conditions for two way
fprintf('\n Type 2 : Continous slab');
Fixity=input('\n\n Enter the type of slab (1/2) = ');
if (Fixity==1)
a=30;
else
a=32;
end
end
dx=D-cc-(d1/2);
dy=dx-d1;
lx=Lx+(dx/1000);
ly=Ly+(dy/1000);
r=(ly/lx);
fprintf(fid,'\n\n Aspect ratio, r =%6.3f ',r);
s=(1000*pi*d1^2)/(4*Ast);
if (s<300)
fprintf(fid,'\n\n Spacing povided for the main reinforcement along shorter
span =%6.3f mm ',s-rem(s,10));
else
fprintf(fid,'\n\n Spacing provided for the secondary reinforcement along
longer span = 300 mm');
end
s1=5*dx;
if (s1<450)
fprintf(fid,'\n\n Spacing provided for the secondary reinforcement along
longer span =%6.3f mm ',s1-rem(s1,10));
else
fprintf(fid,'\n\n Spacing provided for the secondary reinforcement along
longer span = 450 mm ');
end
else
fprintf(fid,'\n\n This is a Two way slab'); %Design for two way slab
if (Fixity==1)
alpha_x=(0.125*r^4)/(1+r^4);
alpha_y=(0.125*r^2)/(1+r^4);
Mx=alpha_x*Wu*lx^2;
My=alpha_y*Wu*lx^2;
else
Nd=input('\n\n Enter the number of discontinous edges = ');
alpha_y=((4/3)*(24+2*Nd+1.5*Nd^2))/1000;
if(T==1)
As=3.055;
Al=3.055;
elseif(T==2)
As=2.528;
Al=3.055;
elseif(T==3)
As=3.055;
Al=2.528;
elseif(T==4)
As=2.528;
Al=2.528;
elseif(T==5)
As=2;
Al=3.055;
elseif(T==6)
As=3.055;
Al=2;
elseif(T==7)
As=2;
Al=2.528;
elseif(T==8)
As=2.528;
Al=2;
elseif(T==9)
As=2;
Al=2;
else
fprintf('\n Invalid input')
end
alpha_x=(8/27)*(3-(sqrt(18*alpha_y)*As)/r)/(Al);
Mx=alpha_x*Wu*lx^2;
My=alpha_y*Wu*lx^2;
end
Sx=(1000*pi*d1^2)/(4*Astrx);
Sy=(1000*pi*d1^2)/(4*Astry);
if(Sx>300)
s4=3*dx-rem((3*dx),10);
fprintf(fid,'\n\n Spacing povided for the main reinforcement in shorter
span =%6.3f mm',min(300,s4));
else
fprintf(fid,'\n\n Spacing povided for the main reinforcement in shorter
span =%6.3f mm',Sx-rem(Sx,10));
end
if(Sy>300)
s3=3*dx-rem((3*dx),10);
fprintf(fid,'\n\n Spacing povided for the main reinforcement in shorter
span =%6.3f mm',min(300,s3));
else
fprintf(fid,'\n\n Spacing povided for the main reinforcement in shorter
span =%6.3f mm',Sy-rem(Sy,10));
end
end
INPUT
Design of Slab
--------------
Total depth of the slab =155.000 mm