summaryrefslogtreecommitdiff
path: root/1793/CH12/EX12.1/12Q1.sce
blob: 885c7d48e9851323744c13032ab7bdad94fbe9d1 (plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
clc
D=50 // in mm
A= %pi/4 *(D/1000)^2
// solving for test 1 
N=150
Sp=157.5
Sr=44.2
Tf=Sp/A
Tr=Sr/A
// from graph
k=tand(27)
k1=tand(14.6)

printf('Peak strength Tf = 40+ t*%f\n',k )
printf(' Residual strength Tr = t*%f',k1)