1 files changed, 32 insertions, 0 deletions
diff --git a/2702/CH5/EX5.23/Ex_5_23.sce b/2702/CH5/EX5.23/Ex_5_23.sce
new file mode 100644
index 000000000..5fbd6f07a
--- /dev/null
+++ b/2702/CH5/EX5.23/Ex_5_23.sce
@@ -0,0 +1,32 @@
+// Exa 5.23
+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 ")
+
+
+
+
+
+
+
+
+
+
+