summaryrefslogtreecommitdiff
path: root/1757/CH5/EX5.18/EX5_18.sce
blob: 9b6a7c24634a9c38a617d18606aeda72d2086f8e (plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
//Example5.18  // to design compensating network
clc;
clear;
close;
fp = 500*10^3 ;  // pole frequency
C = 0.02*10^-6 ; // F  // we choose
// loop gain of compensated network

// ACom =(1)/(1+j(f/fp))
// fp = (1/2*pie*R*C)
R = (1/(2*3.14*C*fp));
disp('The compensating resistor value is = '+string(R)+' ohm ');