summaryrefslogtreecommitdiff
path: root/3864/CH7/EX7.12/Ex7_12.sce
blob: 40bfce33156f64728112042cb8dde3df61a8868f (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
clear
//
//

//Initilization of Variables

//Direct stresses
p_x=120 //N/mm**2 //Tensile stress
p_y=-100 //N/mm**2 //Compressive stress
p1=160 //N/mm**2 //Major principal stress

//Calculations

//Let q be the shearing stress

//p1=(p_x+p_y)*2**-1+((((p_x+p_y)*2**-1)**2)+q**2)**0.5
//After further simplifying we get
q=(p1-((p_x+p_y)*2**-1))**2-((p_x-p_y)*2**-1)**2 //N/mm**2
q2=(q)**0.5 //N/mm**2

//Minimum Principal stress
p2=(p_x+p_y)*2**-1-(((p_x-p_y)*2**-1)**2+q2**2)**0.5 //N/mm**2

//Max shearing stress
q_max=(((p_x-p_y)*2**-1)**2+q2**2)**0.5 //N/mm**2

//Result
printf("\n Shearing stress of material %0.2f  N/mm**2",q)
printf("\n Min Principal stress %0.2f  N/mm**2",p2)
printf("\n Max shearing stress %0.2f  N/mm**2",q_max)