summaryrefslogtreecommitdiff
path: root/3515/CH5/EX5.23/Ex_5_23.sce
blob: 9a9847309086913304f72d77078cfbfb10546f84 (plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
// Exa 5.23
format('v',5);
clc;
clear;
close;
// Given data
A=10^5;
Af= 10^3;
// Af= A/(1+A*Bita)
Bita= 1/Af-1/A;
GDF= 1+A*Bita;// gain densitivity factor
disp(GDF,"Gain densitivity factor is : ")
// Part (a) when A drops 10 %
A_desh= A-A*10/100;
Af_desh= A_desh/(1+A_desh*Bita);
CorresPer= (Af-Af_desh)/Af*100;// corresponding percentage in %
disp(CorresPer,"When A drops by 10 % then corresponding percentage is ")
// Part (b) when A drops 30 %
A_desh= A-A*30/100;
Af_desh= A_desh/(1+A_desh*Bita);
CorresPer= (Af-Af_desh)/Af*100;// corresponding percentage in %
disp(CorresPer,"When A drops by 30 % then corresponding percentage is ")