1076/CH13/EX13.12/13_12.sce


1
2
3
4
5
6
7
8
9
10
11
12
13
14
15

clear
clc

G=100
f=50
H=5
dL=50
t=.6


J = G*H*1e3;
dJ=dL*1e3*t
f2=sqrt((J-dJ)/J)*f
fd=(f-f2)/f;
mprintf("Freq deviation = %.3f percent", fd*1e2)