summaryrefslogtreecommitdiff
path: root/1826/CH12/EX12.9/ex12_9.sce
blob: 468100de3c149578416fcf45407a161aa45e8bc8 (plain)
1
2
3
4
5
6
7
8
9
10
// Example 12.9, page no-355
clear
clc
alfe=20*10^-6//per K
t1=293//K
sig=172///MPa
E=100 //GPa
delT=(sig*10^6)/(E*alfe*10^9)
printf("\nTf-Ti=%.0f",delT)
printf("\n\nthe maximum temperature at which the rod may be heated without\nexceeding a compresssive stress of %.0f MPa is %.0f K",sig,delT+t1)