summaryrefslogtreecommitdiff
path: root/2741/CH2/EX2.3/Chapter2_Example3.sce
blob: 5f7bff95efe468b3d5c4d1847a440e10824cae09 (plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
clc
clear
//Input data
L=800;//The length of the wire in cm
r=0.2;//The radius of the wire in cm
t=10;//The temperature fall in degree centigrade 
a=12*10^-6;//The coefficient of linear expansion of steel wire in per degree centigrade 
y=2*10^12;//The youngs modulus of elasticity of steel in dynes/cm^2
pi=(22/7);//Mathematical constant pi

//Calculations 
I=y*a*t*pi*r^2;//The increase in tension in dynes 

//Output
printf('The increase in tension is %3g dynes',I)