summaryrefslogtreecommitdiff
path: root/3871/CH5/EX5.19/Ex5_19.sce
blob: b81b35f2416f68ba4cd05447ed95992e72466032 (plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
//===========================================================================
//chapter 5 example 19
clc;
clear all;

//variable declaration
L      = 150;		//length of working wire  at room temperature in mm
alpha  = 16*10^-6;		//coefficient of linear expansion 
T         = 85;			//temperature in  ° C
Si      =1;			//initial sag in mm
//calculations
dL     = alpha*L*T;		//increase in length of the wire when gets heated through 85 ° C in mm
M     = sqrt(L/(2*dL));		//magnification with no intial sag 
S      = sqrt((L*dL)/(2));	//Sag in mm
Sn    = S-Si;			//net increase in Sag in mm
M1   = Sn/(dL);			//magnification with initial Sag of 1 mm

//result
mprintf("magnification with no intial sag  = %3.2f",M);
mprintf("\nSag = %3.2f mm",S);
mprintf("\nnet increase in Sag =%3.2f mm",Sn);
mprintf("\nmagnification with initial Sag of 1 mm = %3.2f",M1);