summaryrefslogtreecommitdiff
path: root/2498/CH5/EX5.25/ex5_25.sce
blob: a4dbd763b10ec03bb8d09619d629bdfdc633eb56 (plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
// Exa 5.25
clc;
clear;
close;
format('v',6)
// Given data
A = 54.8;
A = 20 * log(A);
Beta = 1/50;// feedback factor
// gain with feedback
Af = A/(1+(A*Beta));
//Distortion with feedback, Df = D/(1+(A*Beta))
Df = 1;
D = 12;
Pd = (Df/D)*100;// percenatge change in distortion in %
disp(Pd,"The percentage reduction in harmonic distortion in  % is");