summaryrefslogtreecommitdiff
path: root/3862/CH8/EX8.21/Ex8_21.sce
blob: 5c7a1f805f29cede35774e3a604fdff87568e497 (plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
clear
//

//variable declaration
//Es/Ec=18(given)
Er=(18)                //young modulus ratio Er=Es/Ec
d=(16)                           //steel bar diameter,mm
//8 steel bars
As=8*%pi*(d**2)/4               //Area of steel bar**mm^2
Ac=(300*500)-As                      //Area of concrete,mm^2

P=800                           //Compressive force, KN
//From equation of equilibrium, Ps+Pc=P,where Ps is the load shared by steel bar and Pc is the load shared by the Concrete
//From compatibility condition,deltaS=deltaC

Pc=(P*1000)/(1+((As*Er)/(Ac)))
Ps=Pc*((As*Er)/(Ac))

SIC=Pc/Ac            //stress in Concrete, N/mm^2
SIS=Ps/As            //stress in steel,N/mm^2

printf("\n stress in Concrete= %0.2f  N/mm^2",SIC)
printf("\n stress in Steel= %0.2f  N/mm^2",SIS)