summaryrefslogtreecommitdiff
path: root/3764/CH3/EX3.8/Ex3_8.sce
blob: 955d988014ddb20ffceefc883df5d9a5ad0c5c89 (plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
clc
//

//Variable declaration
Tp=44.1
phyF=8.59

// Calculation
// Elastic Unloading
Tmax=((44.1)*(1.125))/2.02
Tmin=(Tmax)*(0.75/1.125)
phyl=(((44.1*(10**3)*60)*(360/(2*%pi)))/((2.02)*(11.2*(10**6)))**2)

phy=phyF-phyl

// Result
printf("\n Case(a: Residual stress = %1f kip.in' ,0)
printf("\n Case(b: Permanent angle of twist= %1f degree ' ,phy)