summaryrefslogtreecommitdiff
path: root/3863/CH3/EX3.13/Ex3_13.sce
blob: 6582284133e8b8de32091abeda9c7faf53ba8da9 (plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
clear
//

//Given
//Variable declaration
sigma1=120       //Major tensile stress in N/sq.mm
sigma2=-90       //Minor compressive stress in N/sq.mm
sigma_gp=150     //Greatest principal stress in N/sq.mm

//Calculation
 //case(a):Magnitude of the shearing stresses on the two planes
tau=(sqrt(((sigma_gp-((sigma1+sigma2)/2))**2)-(((sigma1-sigma2)/2)**2)))

 //case(b):Maximum shear stress at the point
sigmat_max=int((sqrt((sigma1-sigma2)**2+(4*tau**2)))/2)

//Result
printf("\n Shear stress on the two planes = %0.3f  N/mm^2",tau)
printf("\n Maximum shear stress at the point = %0.3f  N/mm^2",sigmat_max)