From f35ea80659b6a49d1bb2ce1d7d002583f3f40947 Mon Sep 17 00:00:00 2001
From: prashantsinalkar
Date: Tue, 10 Oct 2017 12:38:01 +0530
Subject: updated the code

---
 226/CH12/EX12.11/example11_sce.sce | 45 +++++++++++++++++++-------------------
 226/CH12/EX12.13/example13_sce.sce | 25 +++++++++++----------
 226/CH12/EX12.23/example23_sce.sce | 34 ++++++++++++++--------------
 3 files changed, 54 insertions(+), 50 deletions(-)

(limited to '226/CH12')

diff --git a/226/CH12/EX12.11/example11_sce.sce b/226/CH12/EX12.11/example11_sce.sce
index af2d47651..31676bf49 100755
--- a/226/CH12/EX12.11/example11_sce.sce
+++ b/226/CH12/EX12.11/example11_sce.sce
@@ -1,23 +1,24 @@
-//chapter 12
-//example 12.11
-//page 497
-printf("\n")
-printf("given")
-Vp=100*10^-3;Rl=100;Vbe=.7;Vcc=20;
-ip=Vp/Rl
-disp("select Ie2>ip")
-Ie2=2*10^-3;
-Ve1=5;Vce1=3;
-Vb2=Ve1+Vce1
-Vc1=Vb2;
-Ve2=Vb2-Vbe
-R5=Ve2/Ie2//use 3.3Kohm standard value
-R5=3.3*10^3;
-Ic1=1*10^-3;
-Vr3=Vcc-Vb2
-R3=Vr3/Ic1
-R4=Ve1/Ic1//use 4.7Kohm standard value
-R4=4.7*10^3;
-Vb1=Ic1*R4+Vbe
-R2=10*R4
+//chapter 12
+//example 12.11
+//page 497
+printf("\n")
+printf("given")
+Vp=100*10^-3;Rl=100;Vbe=.7;Vcc=20;
+ip=Vp/Rl
+disp("select Ie2>ip")
+Ie2=2*10^-3;
+Ve1=5;Vce1=3;
+Vb2=Ve1+Vce1
+Vc1=Vb2;
+Ve2=Vb2-Vbe;
+Vr2=Ve1+Vbe;
+R5=Ve2/Ie2//use 3.3Kohm standard value
+R5=3.3*10^3;
+Ic1=1*10^-3;
+Vr3=Vcc-Vb2
+R3=Vr3/Ic1
+R4=Ve1/Ic1//use 4.7Kohm standard value
+R4=4.7*10^3;
+Vb1=Ic1*R4+Vbe
+R2=10*R4
 R1=((Vcc-Vb1)*R2)/Vr2
\ No newline at end of file
diff --git a/226/CH12/EX12.13/example13_sce.sce b/226/CH12/EX12.13/example13_sce.sce
index cf6c9e47f..1a75f7bc6 100755
--- a/226/CH12/EX12.13/example13_sce.sce
+++ b/226/CH12/EX12.13/example13_sce.sce
@@ -1,13 +1,14 @@
-//chapter 12
-//example 12.13
-//page 499
-printf("\n")
-printf("given")
-Ie2=2*10^-3;hfe=50;R5=3.3*10^3;Rl=100;hfc2=51;R3=12*10^3;
-re=26*10^-3/Ie2
-hic=hfe*re
-Zi2=hic+hfc2*((Rl*R5)/(Rl+R5))
-Av1=-(hfe*((R3*Zi2)/(R3+Zi2)))/hie
-Av2=1
-disp("overall voltage gain is Av=Av1*Av2")
+//chapter 12
+//example 12.13
+//page 499
+printf("\n")
+printf("given")
+Ie2=2*10^-3;hfe=50;R5=3.3*10^3;Rl=100;hfc2=51;R3=12*10^3;
+re=26*10^-3/Ie2
+hic=hfe*re;
+hie=2*(1+hfe)*re
+Zi2=hic+hfc2*((Rl*R5)/(Rl+R5))
+Av1=-(hfe*((R3*Zi2)/(R3+Zi2)))/hie
+Av2=1
+disp("overall voltage gain is Av=Av1*Av2")
 Av=Av1*Av2
\ No newline at end of file
diff --git a/226/CH12/EX12.23/example23_sce.sce b/226/CH12/EX12.23/example23_sce.sce
index d673d3aef..709efb02f 100755
--- a/226/CH12/EX12.23/example23_sce.sce
+++ b/226/CH12/EX12.23/example23_sce.sce
@@ -1,17 +1,19 @@
-//chapter 12
-//example 12.23
-//page 528
-printf("\n")
-printf("given")
-hie=1*10^3;hfe=50;hoe=10*10^-6;Cc=5*10^-12;Cp=330*10^-12;Lp=75*10^-6;Rw=1;Rl=5*10^3;fo=1*10^6;zP=224*10^3;rC=100*10^3;K=.015;Ls=50*10^-6;
-RL=(Zp*Rc)/(Rc+Zp)
-disp("voltage gain from the input to the primary memory winding")
-Avp=(hfe*RL)/hie
-Vsp=K*sqrt(Ls/Lp)
-disp("overall voltage gain from the input to teh secondary winding")
-Av=Avp*Vsp
-Qp=Rc/(2*3.14*fo*Lp)
-Ql=471;
-Q=(Ql*Qp)/(Ql+Qp)
-B=fo/Q;
+//chapter 12
+//example 12.23
+//page 528
+printf("\n")
+printf("given")
+hie=1*10^3;hfe=50;hoe=10*10^-6;Cc=5*10^-12;Cp=330*10^-12;Lp=75*10^-6;Rw=1;Rl=5*10^3;fo=1*10^6;K=.015;Ls=50*10^-6;
+Zp=Lp/((Cp+Cc)*Rw);
+Rc=(1.0/hoe)/1000;
+RL=(Zp*Rc)/(Rc+Zp)
+disp("voltage gain from the input to the primary memory winding")
+Avp=(hfe*RL)/hie
+Vsp=K*sqrt(Ls/Lp)
+disp("overall voltage gain from the input to teh secondary winding")
+Av=Avp*Vsp
+Qp=Rc/(2*3.14*fo*Lp)
+Ql=471;
+Q=(Ql*Qp)/(Ql+Qp)
+B=fo/Q;
 printf("bandwidth is %dHz\n",B)
\ No newline at end of file
-- 
cgit