diff options
Diffstat (limited to '3863/CH1/EX1.30/Ex1_30.sce')
| -rw-r--r-- | 3863/CH1/EX1.30/Ex1_30.sce | 24 |
1 files changed, 24 insertions, 0 deletions
diff --git a/3863/CH1/EX1.30/Ex1_30.sce b/3863/CH1/EX1.30/Ex1_30.sce new file mode 100644 index 000000000..9afac61f6 --- /dev/null +++ b/3863/CH1/EX1.30/Ex1_30.sce @@ -0,0 +1,24 @@ +clear +// +// +//Given +//Variable declaration +Ds=20 //Diameter of steel rod in mm +Di_c=40 //Internal diameter of copper tube in mm +De_c=50 //External diameter of copper tube in mm +Es=200*10**3 //Youngs modulus of steel in N/sq.mm +Ec=100*10**3 //Youngs modulus of copper in N/sq.mm +alpha_s=12e-6 //Co-efficient of linear expansion of steel in per degree celsius +alpha_c=18e-6 //Co-efficient of linear expansion of copper in per degree celsius +T=50 //Rise of temperature in degree celsius + +//Calculation +As=(%pi/4)*(Ds**2) //Area of steel rod in sq.mm +Ac=(%pi/4)*(De_c**2-Di_c**2) //Area of copper tube in sq.mm +sigmac=(((alpha_c-alpha_s)*T)/(((Ac/As)/Es)+(1/Ec))) //Compressive stress in copper +sigmas=(sigmac*(Ac/As)) //Tensile stress in steel + + +//Result +printf("\n Stress in copper = %0.3f N/mm^2",sigmac) +printf("\n Stress in steel = %0.3f N/mm^2",sigmas) |