blob: 45865309080f9a8ec7cb6ae2637cf2da7851c273 (
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
|
clc
//
//
//Variable declaration
n=-1
Sx=6
Sy=3.5
OC=4.75
CA=3.25
BC=3.25
//Calculation
// Case(a) Principal Planes and Principal Stresses
Save=(Sx+Sy)/2.0 // Average stress(ksi)
R=sqrt(1.25**2 + 3**2) // Radius of circle(ksi)
Sa=OC+CA // Principal stress(ksi)
Sb=OC-BC // Principal stress(ksi)
phyp=(67.4)/2.0
// Case(b) Maximum shearing stress
tmax=(1/2.0)*(Sa) // Maximum torque(ksi)
//Result
printf("\n Case(a) Principal stress at A = %0.3f ksi' ,Sa)
printf("\n Case(a) Principal stress at B = %0.3f ksi' ,Sb)
printf("\n Case(b) Principal plane = %0.3f ksi' ,phyp)
printf("\n Case(c) Maximum shearing stress = %0.3f ksi' ,tmax)
|
