summaryrefslogtreecommitdiff
path: root/3864/CH2/EX2.23/Ex2_23.sce
blob: b1ee4ddd9902039ce940e84245f44fe77ce1dad1 (plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
clear
//
//

//Initilization of Variables

D_s=20 //mm //Diameter of steel
D_Ci=20 //mm //Internal Diameter of Copper
t=5 //mm //THickness of copper bar
P=100*10**3 //N //Load
E_s=2*10**5 //N/mm**2 //modulus of elasticity of steel
E_c=1.2*10**5 //N/mm**2 //Modulus of Elasticity of Copper

//Calculations

A_s=%pi*4**-1*D_s**2 //mm**2 //Area of steel
D_Ce=D_s+2*t //mm //External Diameterof Copper Tube

A_c=%pi*4**-1*(D_Ce**2-D_Ci**2) //mm**2 //Area of Copper

//From static Equilibrium condition
//Let P_s and P_c be the Load shared by steel and copper in KN
//P_s+P_c=100 ....................................(1)

//From compatibility Equation,dell_l_s=dell_l_c
//P_s*L*(A_s*E_s)**-1=P_c*L*(A_c*E_c)**-1

//Substituting values in above Equation we get
//P_s=1.3333*P_C 

//Now Substituting value of P_s in Equation (1),we get
P_c=100*2.3333**-1 //KN
P_s=100-P_c //KN

//Stress in steel
sigma_s=P_s*10**3*A_s**-1 //N/mm**2   

//Stress in copper
sigma_c=P_c*10**3*A_c**-1 //N/mm**2

//Result
printf("\n Stresses Developed in Two material are:sigma_s %0.2f  N/mm**2",sigma_s)
printf("\n                                       :sigma_c %0.2f  N/mm**2",sigma_c)