From b1f5c3f8d6671b4331cef1dcebdf63b7a43a3a2b Mon Sep 17 00:00:00 2001 From: priyanka Date: Wed, 24 Jun 2015 15:03:17 +0530 Subject: initial commit / add all books --- 2609/CH1/EX1.1/ex_1_1.sce | 13 ++++++++++++ 2609/CH1/EX1.10/ex_1_10.sce | 16 +++++++++++++++ 2609/CH1/EX1.2/ex_1_2.sce | 13 ++++++++++++ 2609/CH1/EX1.3/ex_1_3.sce | 13 ++++++++++++ 2609/CH1/EX1.4/ex_1_4.sce | 13 ++++++++++++ 2609/CH1/EX1.5/ex_1_5.sce | 13 ++++++++++++ 2609/CH1/EX1.6/ex_1_6.sce | 16 +++++++++++++++ 2609/CH1/EX1.7/ex_1_7.sce | 17 ++++++++++++++++ 2609/CH1/EX1.8/ex_1_8.sce | 22 ++++++++++++++++++++ 2609/CH1/EX1.9/ex_1_9.sce | 22 ++++++++++++++++++++ 2609/CH10/EX10.1/Ex10_1.sce | 16 +++++++++++++++ 2609/CH10/EX10.2/ex_10_2.sce | 12 +++++++++++ 2609/CH10/EX10.3/ex_10_3.sce | 13 ++++++++++++ 2609/CH10/EX10.4/Ex10_4.sce | 19 +++++++++++++++++ 2609/CH10/EX10.5/ex_10_5.sce | 18 +++++++++++++++++ 2609/CH11/EX11.1/ex_11_1.sce | 13 ++++++++++++ 2609/CH11/EX11.3/ex_11_3.sce | 11 ++++++++++ 2609/CH11/EX11.4/ex_11_4.sce | 12 +++++++++++ 2609/CH11/EX11.7/ex_11_7.sce | 26 ++++++++++++++++++++++++ 2609/CH11/EX11.8/ex_11_8.sce | 35 ++++++++++++++++++++++++++++++++ 2609/CH12/EX12.1/ex_12_1.sce | 9 +++++++++ 2609/CH13/EX13.1/ex_13_1.sce | 10 +++++++++ 2609/CH13/EX13.10/ex_13_10.sce | 24 ++++++++++++++++++++++ 2609/CH13/EX13.2/ex_13_2.sce | 11 ++++++++++ 2609/CH13/EX13.3/ex_13_3.sce | 11 ++++++++++ 2609/CH13/EX13.4/ex_13_4.sce | 12 +++++++++++ 2609/CH13/EX13.5/ex_13_5.sce | 17 ++++++++++++++++ 2609/CH13/EX13.6/ex_13_6.sce | 27 +++++++++++++++++++++++++ 2609/CH13/EX13.7/ex_13_7.sce | 13 ++++++++++++ 2609/CH13/EX13.8/ex_13_8.sce | 18 +++++++++++++++++ 2609/CH13/EX13.9/ex_13_9.sce | 19 +++++++++++++++++ 2609/CH2/EX2.1/ex_2_1.sce | 15 ++++++++++++++ 2609/CH2/EX2.10/ex_2_10.sce | 16 +++++++++++++++ 2609/CH2/EX2.11/ex_2_11.sce | 23 +++++++++++++++++++++ 2609/CH2/EX2.2/ex_2_2.sce | 19 +++++++++++++++++ 2609/CH2/EX2.3/ex_2_3.sce | 28 +++++++++++++++++++++++++ 2609/CH2/EX2.4/ex_2_4.sce | 18 +++++++++++++++++ 2609/CH2/EX2.5/ex_2_5.sce | 27 +++++++++++++++++++++++++ 2609/CH2/EX2.6/ex_2_6.sce | 20 ++++++++++++++++++ 2609/CH2/EX2.7/ex_2_7.sce | 26 ++++++++++++++++++++++++ 2609/CH2/EX2.8/ex_2_8.sce | 19 +++++++++++++++++ 2609/CH2/EX2.9/ex_2_9.sce | 29 ++++++++++++++++++++++++++ 2609/CH3/EX3.1/ex_3_1.sce | 9 +++++++++ 2609/CH3/EX3.2/ex_3_2.sce | 11 ++++++++++ 2609/CH3/EX3.3/ex_3_3.sce | 9 +++++++++ 2609/CH3/EX3.4/ex_3_4.sce | 10 +++++++++ 2609/CH3/EX3.5/ex_3_5.sce | 11 ++++++++++ 2609/CH3/EX3.6/ex_3_6.sce | 10 +++++++++ 2609/CH3/EX3.7/ex_3_7.sce | 14 +++++++++++++ 2609/CH4/EX4.1/ex_4_1.sce | 11 ++++++++++ 2609/CH4/EX4.10/ex_4_10.sce | 18 +++++++++++++++++ 2609/CH4/EX4.11/ex_4_11.sce | 15 ++++++++++++++ 2609/CH4/EX4.12/ex_4_12.sce | 22 ++++++++++++++++++++ 2609/CH4/EX4.13/ex_4_13.sce | 14 +++++++++++++ 2609/CH4/EX4.2/ex_4_2.sce | 27 +++++++++++++++++++++++++ 2609/CH4/EX4.3/ex_4_3.sce | 14 +++++++++++++ 2609/CH4/EX4.4/ex_4_4.sce | 14 +++++++++++++ 2609/CH4/EX4.5/ex_4_5.sce | 15 ++++++++++++++ 2609/CH4/EX4.6/ex_4_6.sce | 13 ++++++++++++ 2609/CH4/EX4.7/ex_4_7.sce | 14 +++++++++++++ 2609/CH4/EX4.8/ex_4_8.sce | 11 ++++++++++ 2609/CH4/EX4.9/ex_4_9.sce | 17 ++++++++++++++++ 2609/CH5/EX5.1/ex_5_1.sce | 10 +++++++++ 2609/CH5/EX5.11/ex_5_11.sce | 13 ++++++++++++ 2609/CH5/EX5.13/Ex5_13.sce | 23 +++++++++++++++++++++ 2609/CH5/EX5.14/ex_5_14.sce | 13 ++++++++++++ 2609/CH5/EX5.16/Ex5_16.sce | 16 +++++++++++++++ 2609/CH5/EX5.17/Ex5_17.sce | 16 +++++++++++++++ 2609/CH5/EX5.18/Ex5_18.sce | 20 ++++++++++++++++++ 2609/CH5/EX5.19/Ex5_19.sce | 21 +++++++++++++++++++ 2609/CH5/EX5.2/ex_5_2.sce | 17 ++++++++++++++++ 2609/CH5/EX5.20/Ex5_20.sce | 19 +++++++++++++++++ 2609/CH5/EX5.3/ex_5_3.sce | 11 ++++++++++ 2609/CH5/EX5.4/ex_5_4.sce | 12 +++++++++++ 2609/CH5/EX5.5/ex_5_5.sce | 15 ++++++++++++++ 2609/CH5/EX5.6/ex_5_6.sce | 23 +++++++++++++++++++++ 2609/CH5/EX5.8/ex_5_8.sce | 20 ++++++++++++++++++ 2609/CH5/EX5.9/ex_5_9.sce | 10 +++++++++ 2609/CH6/EX6.1/Ex6_1.sce | 27 +++++++++++++++++++++++++ 2609/CH6/EX6.10/Ex6_10.sce | 19 +++++++++++++++++ 2609/CH6/EX6.11/Ex6_11.sce | 13 ++++++++++++ 2609/CH6/EX6.12/Ex6_12.sce | 11 ++++++++++ 2609/CH6/EX6.13/Ex6_13.sce | 19 +++++++++++++++++ 2609/CH6/EX6.14/Ex6_14.sce | 16 +++++++++++++++ 2609/CH6/EX6.15/Ex6_15.sce | 20 ++++++++++++++++++ 2609/CH6/EX6.16/Ex6_16.sce | 15 ++++++++++++++ 2609/CH6/EX6.17/Ex6_17.sce | 15 ++++++++++++++ 2609/CH6/EX6.18/Ex6_18.sce | 21 +++++++++++++++++++ 2609/CH6/EX6.19/Ex6_19.sce | 46 ++++++++++++++++++++++++++++++++++++++++++ 2609/CH6/EX6.3/Ex6_3.sce | 20 ++++++++++++++++++ 2609/CH6/EX6.5/Ex6_5.sce | 20 ++++++++++++++++++ 2609/CH6/EX6.6/Ex6_6.sce | 12 +++++++++++ 2609/CH6/EX6.7/Ex6_7.sce | 20 ++++++++++++++++++ 2609/CH6/EX6.8/Ex6_8.sce | 12 +++++++++++ 2609/CH6/EX6.9/Ex6_9.sce | 31 ++++++++++++++++++++++++++++ 2609/CH7/EX7.1/ex_7_1.sce | 21 +++++++++++++++++++ 2609/CH7/EX7.2/ex_7_2.sce | 12 +++++++++++ 2609/CH7/EX7.3/ex_7_3.sce | 18 +++++++++++++++++ 2609/CH7/EX7.4/ex_7_4.sce | 19 +++++++++++++++++ 2609/CH7/EX7.5/ex_7_5.sce | 18 +++++++++++++++++ 2609/CH7/EX7.6/ex_7_6.sce | 18 +++++++++++++++++ 2609/CH7/EX7.7/ex_7_7.sce | 18 +++++++++++++++++ 2609/CH8/EX8.1/ex_8_1.sce | 21 +++++++++++++++++++ 2609/CH8/EX8.2/ex_8_2.sce | 21 +++++++++++++++++++ 2609/CH8/EX8.3/ex_8_3.sce | 12 +++++++++++ 2609/CH9/EX9.10/Ex9_10.sce | 25 +++++++++++++++++++++++ 2609/CH9/EX9.11/Ex9_11.sce | 24 ++++++++++++++++++++++ 2609/CH9/EX9.12/Ex9_12.sce | 24 ++++++++++++++++++++++ 2609/CH9/EX9.13/Ex9_13.sce | 23 +++++++++++++++++++++ 2609/CH9/EX9.14/Ex9_14.sce | 37 +++++++++++++++++++++++++++++++++ 2609/CH9/EX9.15/Ex9_15.sce | 38 ++++++++++++++++++++++++++++++++++ 2609/CH9/EX9.16/Ex9_16.sce | 30 +++++++++++++++++++++++++++ 2609/CH9/EX9.17/Ex9_17.sce | 31 ++++++++++++++++++++++++++++ 2609/CH9/EX9.18/Ex9_18.sce | 34 +++++++++++++++++++++++++++++++ 2609/CH9/EX9.2/Ex9_2.sce | 20 ++++++++++++++++++ 2609/CH9/EX9.20/Ex9_20.sce | 18 +++++++++++++++++ 2609/CH9/EX9.3/Ex9_3.sce | 11 ++++++++++ 2609/CH9/EX9.4/Ex9_4.sce | 15 ++++++++++++++ 2609/CH9/EX9.5/Ex9_5.sce | 22 ++++++++++++++++++++ 2609/CH9/EX9.6/Ex9_6.sce | 21 +++++++++++++++++++ 2609/CH9/EX9.7/Ex9_7.sce | 17 ++++++++++++++++ 2609/CH9/EX9.8/Ex9_8.sce | 32 +++++++++++++++++++++++++++++ 2609/CH9/EX9.9/Ex9_9.sce | 35 ++++++++++++++++++++++++++++++++ 123 files changed, 2254 insertions(+) create mode 100755 2609/CH1/EX1.1/ex_1_1.sce create mode 100755 2609/CH1/EX1.10/ex_1_10.sce create mode 100755 2609/CH1/EX1.2/ex_1_2.sce create mode 100755 2609/CH1/EX1.3/ex_1_3.sce create mode 100755 2609/CH1/EX1.4/ex_1_4.sce create mode 100755 2609/CH1/EX1.5/ex_1_5.sce create mode 100755 2609/CH1/EX1.6/ex_1_6.sce create mode 100755 2609/CH1/EX1.7/ex_1_7.sce create mode 100755 2609/CH1/EX1.8/ex_1_8.sce create mode 100755 2609/CH1/EX1.9/ex_1_9.sce create mode 100755 2609/CH10/EX10.1/Ex10_1.sce create mode 100755 2609/CH10/EX10.2/ex_10_2.sce create mode 100755 2609/CH10/EX10.3/ex_10_3.sce create mode 100755 2609/CH10/EX10.4/Ex10_4.sce create mode 100755 2609/CH10/EX10.5/ex_10_5.sce create mode 100755 2609/CH11/EX11.1/ex_11_1.sce create mode 100755 2609/CH11/EX11.3/ex_11_3.sce create mode 100755 2609/CH11/EX11.4/ex_11_4.sce create mode 100755 2609/CH11/EX11.7/ex_11_7.sce create mode 100755 2609/CH11/EX11.8/ex_11_8.sce create mode 100755 2609/CH12/EX12.1/ex_12_1.sce create mode 100755 2609/CH13/EX13.1/ex_13_1.sce create mode 100755 2609/CH13/EX13.10/ex_13_10.sce create mode 100755 2609/CH13/EX13.2/ex_13_2.sce create mode 100755 2609/CH13/EX13.3/ex_13_3.sce create mode 100755 2609/CH13/EX13.4/ex_13_4.sce create mode 100755 2609/CH13/EX13.5/ex_13_5.sce create mode 100755 2609/CH13/EX13.6/ex_13_6.sce create mode 100755 2609/CH13/EX13.7/ex_13_7.sce create mode 100755 2609/CH13/EX13.8/ex_13_8.sce create mode 100755 2609/CH13/EX13.9/ex_13_9.sce create mode 100755 2609/CH2/EX2.1/ex_2_1.sce create mode 100755 2609/CH2/EX2.10/ex_2_10.sce create mode 100755 2609/CH2/EX2.11/ex_2_11.sce create mode 100755 2609/CH2/EX2.2/ex_2_2.sce create mode 100755 2609/CH2/EX2.3/ex_2_3.sce create mode 100755 2609/CH2/EX2.4/ex_2_4.sce create mode 100755 2609/CH2/EX2.5/ex_2_5.sce create mode 100755 2609/CH2/EX2.6/ex_2_6.sce create mode 100755 2609/CH2/EX2.7/ex_2_7.sce create mode 100755 2609/CH2/EX2.8/ex_2_8.sce create mode 100755 2609/CH2/EX2.9/ex_2_9.sce create mode 100755 2609/CH3/EX3.1/ex_3_1.sce create mode 100755 2609/CH3/EX3.2/ex_3_2.sce create mode 100755 2609/CH3/EX3.3/ex_3_3.sce create mode 100755 2609/CH3/EX3.4/ex_3_4.sce create mode 100755 2609/CH3/EX3.5/ex_3_5.sce create mode 100755 2609/CH3/EX3.6/ex_3_6.sce create mode 100755 2609/CH3/EX3.7/ex_3_7.sce create mode 100755 2609/CH4/EX4.1/ex_4_1.sce create mode 100755 2609/CH4/EX4.10/ex_4_10.sce create mode 100755 2609/CH4/EX4.11/ex_4_11.sce create mode 100755 2609/CH4/EX4.12/ex_4_12.sce create mode 100755 2609/CH4/EX4.13/ex_4_13.sce create mode 100755 2609/CH4/EX4.2/ex_4_2.sce create mode 100755 2609/CH4/EX4.3/ex_4_3.sce create mode 100755 2609/CH4/EX4.4/ex_4_4.sce create mode 100755 2609/CH4/EX4.5/ex_4_5.sce create mode 100755 2609/CH4/EX4.6/ex_4_6.sce create mode 100755 2609/CH4/EX4.7/ex_4_7.sce create mode 100755 2609/CH4/EX4.8/ex_4_8.sce create mode 100755 2609/CH4/EX4.9/ex_4_9.sce create mode 100755 2609/CH5/EX5.1/ex_5_1.sce create mode 100755 2609/CH5/EX5.11/ex_5_11.sce create mode 100755 2609/CH5/EX5.13/Ex5_13.sce create mode 100755 2609/CH5/EX5.14/ex_5_14.sce create mode 100755 2609/CH5/EX5.16/Ex5_16.sce create mode 100755 2609/CH5/EX5.17/Ex5_17.sce create mode 100755 2609/CH5/EX5.18/Ex5_18.sce create mode 100755 2609/CH5/EX5.19/Ex5_19.sce create mode 100755 2609/CH5/EX5.2/ex_5_2.sce create mode 100755 2609/CH5/EX5.20/Ex5_20.sce create mode 100755 2609/CH5/EX5.3/ex_5_3.sce create mode 100755 2609/CH5/EX5.4/ex_5_4.sce create mode 100755 2609/CH5/EX5.5/ex_5_5.sce create mode 100755 2609/CH5/EX5.6/ex_5_6.sce create mode 100755 2609/CH5/EX5.8/ex_5_8.sce create mode 100755 2609/CH5/EX5.9/ex_5_9.sce create mode 100755 2609/CH6/EX6.1/Ex6_1.sce create mode 100755 2609/CH6/EX6.10/Ex6_10.sce create mode 100755 2609/CH6/EX6.11/Ex6_11.sce create mode 100755 2609/CH6/EX6.12/Ex6_12.sce create mode 100755 2609/CH6/EX6.13/Ex6_13.sce create mode 100755 2609/CH6/EX6.14/Ex6_14.sce create mode 100755 2609/CH6/EX6.15/Ex6_15.sce create mode 100755 2609/CH6/EX6.16/Ex6_16.sce create mode 100755 2609/CH6/EX6.17/Ex6_17.sce create mode 100755 2609/CH6/EX6.18/Ex6_18.sce create mode 100755 2609/CH6/EX6.19/Ex6_19.sce create mode 100755 2609/CH6/EX6.3/Ex6_3.sce create mode 100755 2609/CH6/EX6.5/Ex6_5.sce create mode 100755 2609/CH6/EX6.6/Ex6_6.sce create mode 100755 2609/CH6/EX6.7/Ex6_7.sce create mode 100755 2609/CH6/EX6.8/Ex6_8.sce create mode 100755 2609/CH6/EX6.9/Ex6_9.sce create mode 100755 2609/CH7/EX7.1/ex_7_1.sce create mode 100755 2609/CH7/EX7.2/ex_7_2.sce create mode 100755 2609/CH7/EX7.3/ex_7_3.sce create mode 100755 2609/CH7/EX7.4/ex_7_4.sce create mode 100755 2609/CH7/EX7.5/ex_7_5.sce create mode 100755 2609/CH7/EX7.6/ex_7_6.sce create mode 100755 2609/CH7/EX7.7/ex_7_7.sce create mode 100755 2609/CH8/EX8.1/ex_8_1.sce create mode 100755 2609/CH8/EX8.2/ex_8_2.sce create mode 100755 2609/CH8/EX8.3/ex_8_3.sce create mode 100755 2609/CH9/EX9.10/Ex9_10.sce create mode 100755 2609/CH9/EX9.11/Ex9_11.sce create mode 100755 2609/CH9/EX9.12/Ex9_12.sce create mode 100755 2609/CH9/EX9.13/Ex9_13.sce create mode 100755 2609/CH9/EX9.14/Ex9_14.sce create mode 100755 2609/CH9/EX9.15/Ex9_15.sce create mode 100755 2609/CH9/EX9.16/Ex9_16.sce create mode 100755 2609/CH9/EX9.17/Ex9_17.sce create mode 100755 2609/CH9/EX9.18/Ex9_18.sce create mode 100755 2609/CH9/EX9.2/Ex9_2.sce create mode 100755 2609/CH9/EX9.20/Ex9_20.sce create mode 100755 2609/CH9/EX9.3/Ex9_3.sce create mode 100755 2609/CH9/EX9.4/Ex9_4.sce create mode 100755 2609/CH9/EX9.5/Ex9_5.sce create mode 100755 2609/CH9/EX9.6/Ex9_6.sce create mode 100755 2609/CH9/EX9.7/Ex9_7.sce create mode 100755 2609/CH9/EX9.8/Ex9_8.sce create mode 100755 2609/CH9/EX9.9/Ex9_9.sce (limited to '2609') diff --git a/2609/CH1/EX1.1/ex_1_1.sce b/2609/CH1/EX1.1/ex_1_1.sce new file mode 100755 index 000000000..7fbb7253d --- /dev/null +++ b/2609/CH1/EX1.1/ex_1_1.sce @@ -0,0 +1,13 @@ +//Ex 1.1 +clc; +clear; +close; +format('v',5); +Iout=8;//micro A +VBE=0.7;//V +Beta=80;//unitless +VCC=20;//V +IREF=Iout*(1+2/Beta);//micro A +R=(VCC-VBE)/IREF;//Mohm +disp(IREF,"Reference current(micro A)"); +disp(R,"Resistance required(Mohm)");; diff --git a/2609/CH1/EX1.10/ex_1_10.sce b/2609/CH1/EX1.10/ex_1_10.sce new file mode 100755 index 000000000..8787cd92f --- /dev/null +++ b/2609/CH1/EX1.10/ex_1_10.sce @@ -0,0 +1,16 @@ +//Ex 1.10 +clc; +clear; +close; +format('v',5); +Vout=5;//V +Beta=180;//unitless +R=22;//kohm +VCC=10;//V +VBE=0.7;//V +IREF=(VCC-VBE)/R;//mA +IC=(IREF-VBE/R)/(1+2/Beta);//mA +RC=(VCC-Vout)/IC;//kohm +disp(IC,"IC1 & IC2 in mA are "); +disp(RC,"RC in kohm is "); +//Answer in the book is wrong. diff --git a/2609/CH1/EX1.2/ex_1_2.sce b/2609/CH1/EX1.2/ex_1_2.sce new file mode 100755 index 000000000..0fd5ae4f6 --- /dev/null +++ b/2609/CH1/EX1.2/ex_1_2.sce @@ -0,0 +1,13 @@ +//Ex 1.2 +clc; +clear; +close; +format('v',5); +Iout=1;//mA +VBE=0.7;//V +Beta=100;//unitless +VCC=30;//V +IREF=Iout*(1+2/Beta);//mA +R=(VCC-VBE)/IREF;//kohm +disp(IREF,"Reference current(mA)"); +disp(R,"Resistance required(kohm)");; diff --git a/2609/CH1/EX1.3/ex_1_3.sce b/2609/CH1/EX1.3/ex_1_3.sce new file mode 100755 index 000000000..6f9d53446 --- /dev/null +++ b/2609/CH1/EX1.3/ex_1_3.sce @@ -0,0 +1,13 @@ +//Ex 1.3 +clc; +clear; +close; +format('v',5); +Iout=0.5;//mA +Beta=50;//unitless +VEB=0.7;//V +VCC=5;//V +IREF=Iout*(1+2/Beta);//mA +R=(VCC-VEB)/IREF;//kohm +disp(IREF,"Reference current(mA)"); +disp(R,"Resistance required(kohm)");; diff --git a/2609/CH1/EX1.4/ex_1_4.sce b/2609/CH1/EX1.4/ex_1_4.sce new file mode 100755 index 000000000..81ccf261f --- /dev/null +++ b/2609/CH1/EX1.4/ex_1_4.sce @@ -0,0 +1,13 @@ +//Ex 1.4 +clc; +clear; +close; +format('v',5); +Iout=8;//micro A +Beta=100;//unitless +VBE=0.7;//V +VCC=20;//V +IREF=Iout/(1+2/Beta/(1+Beta));//micro A +R=(VCC-2*VBE)/IREF;//Mohm +disp(IREF,"Reference current(micro A)"); +disp(R,"Resistance required(Mohm)");; diff --git a/2609/CH1/EX1.5/ex_1_5.sce b/2609/CH1/EX1.5/ex_1_5.sce new file mode 100755 index 000000000..37c11b991 --- /dev/null +++ b/2609/CH1/EX1.5/ex_1_5.sce @@ -0,0 +1,13 @@ +//Ex 1.5 +clc; +clear; +close; +format('v',7); +Iout=60;//micro A +VBE=0.7;//V +Beta=150;//unitless +VCC=30;//V +IREF=Iout*(1+2/Beta/(1+Beta));//micro A +R=(VCC-2*VBE)/IREF;//Mohm +disp(IREF,"Reference current(micro A)"); +disp(R*1000,"Resistance required(kohm)");; diff --git a/2609/CH1/EX1.6/ex_1_6.sce b/2609/CH1/EX1.6/ex_1_6.sce new file mode 100755 index 000000000..267e90855 --- /dev/null +++ b/2609/CH1/EX1.6/ex_1_6.sce @@ -0,0 +1,16 @@ +//Ex 1.6 +clc; +clear; +close; +format('v',5); +VBE=0.7;//V +Beta=120;//unitless +VCC=10;//V +R=5.6;//kohm +//KCL at node x : IREF=IC1+I1;//as Beta>>1 +//KCL at node y : I1=IC2+IB3;//as Beta>>1 +IREF=(VCC-VBE)/R;//mA +//as IREF=2*IC+IB3=IC*(2+1/Beta)=2*IC;//as Beta>>1 +IC=IREF/2;//mA +Iout=IC;//mA +disp(Iout,"Output current(mA)"); diff --git a/2609/CH1/EX1.7/ex_1_7.sce b/2609/CH1/EX1.7/ex_1_7.sce new file mode 100755 index 000000000..fa4c6fa23 --- /dev/null +++ b/2609/CH1/EX1.7/ex_1_7.sce @@ -0,0 +1,17 @@ +//Ex 1.7 +clc; +clear; +close; +format('v',5); +Iout=6;//micro A +IREF=1.2;//mA +VBE2=0.7;//V +VT=26;//mV +Beta=120;//unitless +VCC=20;//V +R=(VCC-VBE2)/IREF;//kohm +disp(R,"Value of resistance R(kohm)") +IC1=Iout;//micro A +IC2=(IREF-IC1*10^-3/Beta)/(1+1/Beta);//mA +RS=1/(IC1*10^-6)*VT*10^-3*log(IC2*1000/IC1);//ohm +disp(RS/1000,"Value of resistance RS(kohm)"); diff --git a/2609/CH1/EX1.8/ex_1_8.sce b/2609/CH1/EX1.8/ex_1_8.sce new file mode 100755 index 000000000..daf516232 --- /dev/null +++ b/2609/CH1/EX1.8/ex_1_8.sce @@ -0,0 +1,22 @@ +//Ex 1.8 +clc; +clear; +close; +format('v',6); +IREF=1;//mA +Io2=20;//micro A +Io3=40;//micro A +VBE1=0.7;//V +VT=26;//mV +VCC=10;//V +VEE=-10;//V +R=(VCC-VBE1-VEE)/IREF;//kohm +disp(R,"Value of resistance R(kohm)"); +RE2=VT/Io2*log(IREF*1000/Io2);//kohm +disp(RE2,"Value of resistance RE2(kohm)"); +RE3=VT/Io3*log(IREF*1000/Io3);//kohm +disp(RE3,"Value of resistance RE3(kohm)"); +VBE2=VBE1-RE2*Io2/1000;//V +disp(VBE2,"Value of Base emitter voltage of transistor Q2(V)"); +VBE3=VBE1-RE3*Io3/1000;//V +disp(VBE3,"Value of Base emitter voltage of transistor Q3(V)"); diff --git a/2609/CH1/EX1.9/ex_1_9.sce b/2609/CH1/EX1.9/ex_1_9.sce new file mode 100755 index 000000000..844ee3fb4 --- /dev/null +++ b/2609/CH1/EX1.9/ex_1_9.sce @@ -0,0 +1,22 @@ +//Ex 1.9 +clc; +clear; +close; +format('v',5); +Beta=100;//unitless +VBE=0.715;//V +R=5.6;//kohm +RC=1;//kohm +VCC=10;//V +VCB1=0;//V(Q1 will act as diode) +IREF=(VCC-VBE)/R;//mA +//KCL at node x : IREF=IC1+2*IB; +//KCL at node y : I1=IC2+IB3;//as Beta>>1 +IREF=(VCC-VBE)/R;//mA +//as IREF=2*IC1/Beta+IC1 +IC1=IREF/(1+2/Beta);//mA +IC2=IC1;//mA +IC3=IC1;//mA +disp(IC1,"Collector current in each transistor, IC1=IC2=IC3 in mA"); +IRC=IC1+IC2+IC3;//mA +disp(IRC,"Current through RC(mA)"); diff --git a/2609/CH10/EX10.1/Ex10_1.sce b/2609/CH10/EX10.1/Ex10_1.sce new file mode 100755 index 000000000..60c8cc65e --- /dev/null +++ b/2609/CH10/EX10.1/Ex10_1.sce @@ -0,0 +1,16 @@ +////Ex 10.1 +clc; +clear; +close; +format('v',5); +t=0:0.01:5;//sec(Assumed) +Vin=5*sin(2*%pi*t);//V +VCC=15;//V +R2=1;//kohm +R1=6.8;//kohm +VEE=-15;//V +Vsat=13;//V +Vref=R2*VCC/(R1+R2);//V +disp(Vref,"Reference Voltage(V)") +disp(Vsat,"If Vin>Vref , Vout (V):"); +disp(-Vsat,"If VinVEB, hence Q1 is on +Iout=(ILmax+Beta*VEB/RCS)/(Beta+1);//A +Iext=ILmax-Iout;//A +disp(Iext,"For 10 ohm load, Output current Iext(A)"); diff --git a/2609/CH13/EX13.7/ex_13_7.sce b/2609/CH13/EX13.7/ex_13_7.sce new file mode 100755 index 000000000..ca745d9c6 --- /dev/null +++ b/2609/CH13/EX13.7/ex_13_7.sce @@ -0,0 +1,13 @@ +////Ex 13.7 +clc; +clear; +close; +format('v',6); +RL=1:10;//ohm +R1=5;//ohm +Vref=5;//V +IL=1;//A +IQ=0;//A +Iref=IL;//A +R1=Vref/Iref;//ohm +disp(R1,"Value of resistor R1(ohm)"); diff --git a/2609/CH13/EX13.8/ex_13_8.sce b/2609/CH13/EX13.8/ex_13_8.sce new file mode 100755 index 000000000..b43ea4ded --- /dev/null +++ b/2609/CH13/EX13.8/ex_13_8.sce @@ -0,0 +1,18 @@ +////Ex 13.8 +clc; +clear; +close; +format('v',6); +Vout=15:20;//V +Vin=24;//V +VR1=12;//V +Vref=12;//V +I4=0;//A(Assumed) +Iout=1;//A(Assumed) +R1=VR1/Iout;//ohm +//Vout=VR1*(1+R2/R1) +R2min=R1*(min(Vout)/VR1-1);//Putting min Vout +R2max=R1*(max(Vout)/VR1-1);//Putting min Vout +disp(R1,"Resistance R1(ohm)"); +disp(R2max,R2min,"Minimum & maximum value of R2(ohm)"); +disp("A pot of 10 ohm should be used."); diff --git a/2609/CH13/EX13.9/ex_13_9.sce b/2609/CH13/EX13.9/ex_13_9.sce new file mode 100755 index 000000000..633b552fb --- /dev/null +++ b/2609/CH13/EX13.9/ex_13_9.sce @@ -0,0 +1,19 @@ +////Ex 13.9 +clc; +clear; +close; +format('v',6); +Vout=6;//V +IL=100;//mA +Vref=7.15;//V(For LM 723) +Iref=1;//mA(Assumed) +R1=(Vref-Vout)/Iref;//kohm +R2=Vout/Iref;//kohm +disp("Design values are : "); +disp(R1,"R1 should be used 1.2kohm. Calculated R1(kohm) is"); +disp(R2,"R2 should be used 6.2kohm. Calculated R2(kohm)"); +R1=1.2;R2=6.2;//kohm +R3=R1*R2/(R1+R2);//kohm +disp(R3,"Resistance R3(kohm)"); +RCL=0.65/(IL/1000);//kohm +disp(RCL,"Resistance RCL(kohm)"); diff --git a/2609/CH2/EX2.1/ex_2_1.sce b/2609/CH2/EX2.1/ex_2_1.sce new file mode 100755 index 000000000..9b0eca331 --- /dev/null +++ b/2609/CH2/EX2.1/ex_2_1.sce @@ -0,0 +1,15 @@ +//Ex 2.1 +clc; +clear; +close; +format('v',5); +v1=7;//mV +v2=9;//mV +Ad=80;//dB +CMRR=90;//dB +vid=v2-v1;//mV +vcm=(v1+v2)/2;//mV +Ad=10^(Ad/20);//unitless +CMRR=10^(CMRR/20);//unitless +vout=Ad*(vid+vcm/CMRR)/1000;//V +disp(vout,"Output Voltage(V)");; diff --git a/2609/CH2/EX2.10/ex_2_10.sce b/2609/CH2/EX2.10/ex_2_10.sce new file mode 100755 index 000000000..8d83c3599 --- /dev/null +++ b/2609/CH2/EX2.10/ex_2_10.sce @@ -0,0 +1,16 @@ +////Ex 2.10 +clc; +clear; +close; +format('v',9); +Beta=100;//unitless +VBE=0.7;//V +R=18.6;//kohm +VT=26;//mV +VCC=5;//V +VEE=5;//V +IExt=(VCC-VBE-(-VEE))/R;//mA +IT=IExt;;//mA +re=2*VT/IT;//ohm(let re1=re2=re) +Rid=2*Beta*re/1000;//kohm(let Rid1=Rid2=Rid) +disp(Rid,"Differntial input resistances, Rid1=Rid2(kohm)"); diff --git a/2609/CH2/EX2.11/ex_2_11.sce b/2609/CH2/EX2.11/ex_2_11.sce new file mode 100755 index 000000000..6f560ceff --- /dev/null +++ b/2609/CH2/EX2.11/ex_2_11.sce @@ -0,0 +1,23 @@ +////Ex 2.11 +clc; +clear; +close; +format('v',6); +Beta=100;//unitless +VBE=0.7;//V +RC=2.7;//kohm +R=2.2;//kohm +VT=26;//mV +VCC=10;//V +VEE=10;//V +IExt=(VEE-VBE)/R;//mA +IT=IExt;;//mA +IE=IT/2;//mA(Let IE1=IE2=IE) +re=2*VT/IT;re1=re;re2=re;re3=re;re4=re//ohm +reD=re1+re2;//ohm +BetaD=Beta^2;//unitless +Ad=-RC*1000/reD;//unitless +disp(Ad,"Differential voltage gain, Ad") +Rid=2*BetaD*reD/1000;//kohm(let Rid1=Rid2=Rid) +disp(Rid,"Differntial input resistances, Rid1=Rid2(kohm)"); +//Answer in the bok is not accurate. diff --git a/2609/CH2/EX2.2/ex_2_2.sce b/2609/CH2/EX2.2/ex_2_2.sce new file mode 100755 index 000000000..a84aaca7d --- /dev/null +++ b/2609/CH2/EX2.2/ex_2_2.sce @@ -0,0 +1,19 @@ +////Ex 2.2 +clc; +clear; +close; +format('v',7); +v1=50;//micro V +v2=55;//micro V +Ad=2*10^5;//unitless +CMRR=80;//dB +vid=v2-v1;//micro V +vcm=(v1+v2)/2;//mV +CMRR=10^(CMRR/20);//unitless +vout=Ad*(vid+vcm/CMRR)/10^6;//V +disp(vout,"Output Voltage(V)");; +Verror=vout-Ad*vid/10^6;//V +disp(Verror,"Error Voltage(V)"); +error_p=(Verror/vout)*100;//% error +disp(error_p,"Percentage error(%)"); +//Percentage error answer is not correct in the book. diff --git a/2609/CH2/EX2.3/ex_2_3.sce b/2609/CH2/EX2.3/ex_2_3.sce new file mode 100755 index 000000000..d54bc0a02 --- /dev/null +++ b/2609/CH2/EX2.3/ex_2_3.sce @@ -0,0 +1,28 @@ +////Ex 2.3 +clc; +clear; +close; +format('v',6); +IT=1;//mA +VCC=15;//V +RE=50;//kohm +RC=15;//kohm +Beta=120;//unitless +alfa=Beta/(Beta+1);//unitless +Vid=6;//mV +VT=26;//mV +//Part (a) +iC1=alfa*IT/(1+exp(-Vid/VT));//mA +iC2=IT-iC1;//mA +disp(iC2,"dc Collector current through transistors(mA)"); +//Part (b) +iC=IT/2;//mA(let iC1=iC2=iC) +re=VT/iC;//ohm(let re1=re2=re) +Ad=-RC*1000/re;//unitless +Acm=-RC*1000/(re+2*RE*1000);//unitless +Acm=abs(Acm);////unitless +CMRR=abs(Ad/Acm);////unitless +disp(Ad,"Ad"); +disp(Acm,"Acm"); +CMRR=20*log10(CMRR);//dB +disp(CMRR,"CMRR(dB)"); diff --git a/2609/CH2/EX2.4/ex_2_4.sce b/2609/CH2/EX2.4/ex_2_4.sce new file mode 100755 index 000000000..28b6a877d --- /dev/null +++ b/2609/CH2/EX2.4/ex_2_4.sce @@ -0,0 +1,18 @@ +////Ex 2.4 +clc; +clear; +close; +format('v',6); +RC=2;//kohm +RE=4.3;//kohm +VEE=5;//V +VBE=0.7;//V +IT=(VEE-VBE)/RE;//mA +VT=26;//mV +re=2*VT/IT;//ohm +Ad=-RC*1000/2/re;//unitless +disp(Ad,"Ad"); +Acm=-RC*1000/(re+2*RE*1000);//unitless +disp(Acm,"Acm"); +CMRR=abs(Ad/Acm);////unitless +disp(CMRR,"CMRR"); diff --git a/2609/CH2/EX2.5/ex_2_5.sce b/2609/CH2/EX2.5/ex_2_5.sce new file mode 100755 index 000000000..4fbab02fa --- /dev/null +++ b/2609/CH2/EX2.5/ex_2_5.sce @@ -0,0 +1,27 @@ +////Ex 2.5 +clc; +clear; +close; +format('v',5); +Beta=100;//unitless +VBE=0.715;VD1=0.715;//V +VZ=6.2;//V +VT=26;//mV +IZt=41;//mA +VCC=10;//V +VEE=10;//V +RE=2.7;//kohm +RC=4.7;//kohm +VB=-VEE+VZ+VD1;//V +VE=VB-VBE;//V +IE3=(VE-(-VEE))/(RE);//mA +IT=IE3;//mA +ICQ=IT/2;//mA(let ICQ1=ICQ2=ICQ) +VCEQ=VCC+VBE-ICQ*RC;//V +Q=[ICQ VCEQ];//[mA V](Q point) +disp(Q,"Q point (ICQ(mA), VCEQ(V)) is "); +re=2*VT/IT;//ohm +Ad=-RC*1000/re;//unitless +Rid=2*Beta*re/1000;//kohm +disp(Ad,"Ad"); +disp(Rid,"Rid(kohm)"); diff --git a/2609/CH2/EX2.6/ex_2_6.sce b/2609/CH2/EX2.6/ex_2_6.sce new file mode 100755 index 000000000..672894c66 --- /dev/null +++ b/2609/CH2/EX2.6/ex_2_6.sce @@ -0,0 +1,20 @@ +////Ex 2.6 +clc; +clear; +close; +format('v',6); +Beta=100;//unitless +VBE=0.7;//V +VCC=10;//V +VEE=10;//V +VT=26;//mV +RC=2.7;//kohm +R=2.2;//kohm +IExt=(VEE-VBE)/R;//mA +IC3=IExt;IT=IExt;;//mA +ICQ=IT/2;//mA +re=2*VT/IT;//ohm(let re1=re2=re) +Ad=-RC*1000/re;//unitless +Rid=2*Beta*re/1000;//kohm(let Rid1=Rid2=Rid) +disp(Ad,"Differntial moe gain, Ad"); +disp(Rid,"Differntial input resistance, Rid(kohm)"); diff --git a/2609/CH2/EX2.7/ex_2_7.sce b/2609/CH2/EX2.7/ex_2_7.sce new file mode 100755 index 000000000..a286f9be7 --- /dev/null +++ b/2609/CH2/EX2.7/ex_2_7.sce @@ -0,0 +1,26 @@ +////Ex 2.7 +clc; +clear; +close; +format('v',7); +Beta=100;//unitless +VBE=0.7;//V +VD1=0.7;VD2=0.7//V +VCC=15;//V +VEE=15;//V +VT=26;//mV +RE=560;//ohm +RC=6.8;//kohm +R=220;//ohm +VB=-VEE+VD1+VD2;//V +VE=VB-VBE;//V +IE3=(VE-(-VEE))/RE*1000;//mA +IT=IE3;//mA +ICQ=IT/2;//mA +VCEQ=VCC+VBE-ICQ*RC;//V +Q=[ICQ VCEQ];//[mA V](Q point) +disp(Q,"Q point (ICQ(mA), VCEQ(V)) is "); +re=2*VT/IT;//ohm +Ad=-RC*1000/re;//unitless +disp(Ad,"Differntial moe gain, Ad"); +//Answer in the book is wrong for Q point. diff --git a/2609/CH2/EX2.8/ex_2_8.sce b/2609/CH2/EX2.8/ex_2_8.sce new file mode 100755 index 000000000..9d9deb810 --- /dev/null +++ b/2609/CH2/EX2.8/ex_2_8.sce @@ -0,0 +1,19 @@ +////Ex 2.8 +clc; +clear; +close; +format('v',5); +ICQ=200;//micro A +Beta=1000;//unitless +Ad=180;//unitless +CMRR=80;//dB +VT=26;//mV +re=VT/(ICQ/1000);//ohm(Let re=re1=re2) +RC=Ad*re/1000;//kohm +CMRR=10^(CMRR/20);//untless +RE=(CMRR-1)*re/2/1000;//kohm +disp(RE,RC,"Value of RC & RE(kohm)"); +Rid=2*Beta*re/1000;//kohm(Let Rid=Rid1=Rid2) +disp(Rid,"Differntial input resistance, Rid(kohm)"); +Ric=(Beta+1)*(re+2*RE*1000)/10^6;//Mohm +disp(Ric,"Common mode input resistance, Ric(Mohm)"); diff --git a/2609/CH2/EX2.9/ex_2_9.sce b/2609/CH2/EX2.9/ex_2_9.sce new file mode 100755 index 000000000..f5d587ed5 --- /dev/null +++ b/2609/CH2/EX2.9/ex_2_9.sce @@ -0,0 +1,29 @@ +////Ex 2.9 +clc; +clear; +close; +format('v',5); +Beta=110;//unitless +VBE=0.7;//V +VT=26;//mV +VCC=10;//V +VEE=10;//V +RC=1.8;//kohm +R=3.9;//kohm +IExt=(VCC-VBE-(-VEE))/R;//mA +IT=IExt;;//mA +ICQ=IT/2;//mA +V1=0;V2=0;//V +VE=-2*VBE;//V +VC=VCC-ICQ*RC;//V +VCEQ=VC-VE;//V +Q=[ICQ VCEQ];//[mA V](Q point) +disp(Q,"Q point (ICQ(mA), VCEQ(V)) is "); +re=2*VT/IT;//ohm(let re1=re2=re) +reD=2*re;//ohm +Ad=-RC*1000/reD;//unitless +disp(Ad,"Differntial moe gain, Ad"); +BetaD=Beta^2;//unitless +Rid=2*BetaD*reD/1000;//kohm(let Rid1=Rid2=Rid) +disp(Rid,"Differntial input resistance, Rid(kohm)"); +//Answer for Ad is wrong(+ve) in the book while it is negative. diff --git a/2609/CH3/EX3.1/ex_3_1.sce b/2609/CH3/EX3.1/ex_3_1.sce new file mode 100755 index 000000000..d97d36a63 --- /dev/null +++ b/2609/CH3/EX3.1/ex_3_1.sce @@ -0,0 +1,9 @@ +//Ex 3.1 +clc; +clear; +close; +format('e',8); +fBW=4;//MHz +fo=10;//Hz +AOL=fBW*10^6/fo;//unitless +disp(AOL,"Open loop gain is"); diff --git a/2609/CH3/EX3.2/ex_3_2.sce b/2609/CH3/EX3.2/ex_3_2.sce new file mode 100755 index 000000000..2a6cd88c4 --- /dev/null +++ b/2609/CH3/EX3.2/ex_3_2.sce @@ -0,0 +1,11 @@ +//Ex 3.2 +clc; +clear; +close; +format('v',5); +V1=-10;//V +V2=10;//V +SR=0.5;//V/micro second +delta_Vo=V2-V1;//V +delta_t=delta_Vo/SR;//micro second +disp(delta_t,"Time taken by op-amp is(micro second)"); diff --git a/2609/CH3/EX3.3/ex_3_3.sce b/2609/CH3/EX3.3/ex_3_3.sce new file mode 100755 index 000000000..86b6f64d4 --- /dev/null +++ b/2609/CH3/EX3.3/ex_3_3.sce @@ -0,0 +1,9 @@ +//Ex 3.3 +clc; +clear; +close; +format('v',6); +SR=0.6;//V/micro second +f=100;//kHz +Vm=(SR/10^-6)/(2*%pi*f*1000);//V +disp(Vm,"Maximum voltage, Vm is(V)"); diff --git a/2609/CH3/EX3.4/ex_3_4.sce b/2609/CH3/EX3.4/ex_3_4.sce new file mode 100755 index 000000000..c66ba9c3b --- /dev/null +++ b/2609/CH3/EX3.4/ex_3_4.sce @@ -0,0 +1,10 @@ +//Ex 3.4 +clc; +clear; +close; +format('v',5); +SR=0.5;//V/micro second +Vm=10;//V +f=100;//kHz +fm=(SR/10^-6)/(2*%pi*Vm);//Hz +disp(fm/1000,"Maximum frequency, fm is(kHz)"); diff --git a/2609/CH3/EX3.5/ex_3_5.sce b/2609/CH3/EX3.5/ex_3_5.sce new file mode 100755 index 000000000..11c10b083 --- /dev/null +++ b/2609/CH3/EX3.5/ex_3_5.sce @@ -0,0 +1,11 @@ +//Ex 3.5 +clc; +clear; +close; +format('v',5); +delta_t=0.3/2;//micro second +V1=-3;//V +V2=3;//V +delta_Vo=V2-V1;//V +SR=delta_Vo/delta_t;//V/micro second +disp(SR,"Slew rate is(V/micro second)"); diff --git a/2609/CH3/EX3.6/ex_3_6.sce b/2609/CH3/EX3.6/ex_3_6.sce new file mode 100755 index 000000000..651b9914c --- /dev/null +++ b/2609/CH3/EX3.6/ex_3_6.sce @@ -0,0 +1,10 @@ +//Ex 3.6 +clc; +clear; +close; +format('v',5); +SR=2;//V/micro second +delta_Vin=0.8;//V +delta_t=10;//micro second +Acl_max=SR/(delta_Vin/delta_t);//unitless +disp(Acl_max,"Maximum close loop voltage gain is"); diff --git a/2609/CH3/EX3.7/ex_3_7.sce b/2609/CH3/EX3.7/ex_3_7.sce new file mode 100755 index 000000000..2ba91bfc4 --- /dev/null +++ b/2609/CH3/EX3.7/ex_3_7.sce @@ -0,0 +1,14 @@ +//Ex 3.7 +clc; +clear; +close; +format('v',5); +SR=6;//V/micro second +//Part (i) +Vm=1;//V +fm=(SR/10^-6)/(2*%pi*Vm);//Hz +disp(fm/1000,"part (i) Maximum frequency, fm is(kHz)"); +//Part (i) +Vm=10;//V +fm=(SR/10^-6)/(2*%pi*Vm);//Hz +disp(fm/1000,"part (ii) Maximum frequency, fm is(kHz)"); diff --git a/2609/CH4/EX4.1/ex_4_1.sce b/2609/CH4/EX4.1/ex_4_1.sce new file mode 100755 index 000000000..5fd9c2f9e --- /dev/null +++ b/2609/CH4/EX4.1/ex_4_1.sce @@ -0,0 +1,11 @@ +////Ex 4.1 +clc; +clear; +close; +format('v',9); +AOL=2*10^5;//unitless +fo=5;//Hz +ACL=100;//unitless +SF=AOL/ACL;//unitless +fodash=SF*fo;//Hz +disp(fodash/1000,"Bandwidth with feedback(kHz)"); diff --git a/2609/CH4/EX4.10/ex_4_10.sce b/2609/CH4/EX4.10/ex_4_10.sce new file mode 100755 index 000000000..62609a250 --- /dev/null +++ b/2609/CH4/EX4.10/ex_4_10.sce @@ -0,0 +1,18 @@ +////Ex 4.10 +clc; +clear; +close; +format('v',5); +AOL=2*10^5;//unitless +Rio=2;//Mohm +Ro=75;//ohm +Ri=1;//kohm +Rf=10;//kohm +ACL=-AOL*Rf/(Rf+Ri+AOL*Ri);//unitless(Exact) +disp(ACL,"Exact close loop voltage gain"); +ACL=-Rf/Ri;//unitless(Approximate) +disp(ACL,"Approximate close loop voltage gain"); +Beta=Ri/(Ri+Rf);//unitless +SF=1+AOL*Beta;//unitless +Rif=Rio*10^6/SF;//ohm +disp(Rif,"Input impedence after feedback(ohm)"); diff --git a/2609/CH4/EX4.11/ex_4_11.sce b/2609/CH4/EX4.11/ex_4_11.sce new file mode 100755 index 000000000..a04ad73e3 --- /dev/null +++ b/2609/CH4/EX4.11/ex_4_11.sce @@ -0,0 +1,15 @@ +////Ex 4.11 +clc; +clear; +close; +format('v',5); +Ri=2;//kohm +Rf=200;//kohm +//For 741C +fo=5;//Hz +AOL=2*10^5;//unitless +UGB=1;//MHz +ACL=-AOL*Rf/(Rf+Ri+AOL*Ri);//unitless(Exact) +disp(ACL,"Close loop voltage gain"); +fodash=fo*AOL/-ACL;//Hz +disp(fodash/1000,"Bandwidth, fo_dash(kHz)"); diff --git a/2609/CH4/EX4.12/ex_4_12.sce b/2609/CH4/EX4.12/ex_4_12.sce new file mode 100755 index 000000000..d298c415b --- /dev/null +++ b/2609/CH4/EX4.12/ex_4_12.sce @@ -0,0 +1,22 @@ +////Ex 4.12 +clc; +clear; +close; +format('v',6); +Beta=0.06;//feedback factor +fo=100;//Hz +AOL=40000;//unitless(at dc) +SFdc=1+AOL*Beta;//sacrifice factor at dc +f=1;//kHz +f=f*10^3;//Hz +SF1=1+AOL*Beta/sqrt(1+f^2/fo^2);//sacrifice factor at 1 kHz +//(a) +ACL=AOL/SFdc;//(unitless)exact close loop gain at dc +disp(ACL,"Exact close loop gain at dc"); +//(b) +ACL=1/Beta;//(unitless)approximate close loop gain at dc +disp(ACL,"Approximate close loop gain at dc"); +//(c) +AOL=3980;//unitless(at dc) +ACL=AOL/SF1;//(unitless)exact close loop gain at 1kHz +disp(ACL,"Exact close loop gain at 1kHz"); diff --git a/2609/CH4/EX4.13/ex_4_13.sce b/2609/CH4/EX4.13/ex_4_13.sce new file mode 100755 index 000000000..80034ca41 --- /dev/null +++ b/2609/CH4/EX4.13/ex_4_13.sce @@ -0,0 +1,14 @@ +////Ex 4.13 +clc; +clear; +close; +format('v',5); +Beta=0.04;//feedback factor +AOL=5000;//unitless(at dc) +Rio=40;//kohm +Ro=1;//kohm +SF=1+AOL*Beta;//sacrifice factor at dc +Rif=Rio/SF*1000;//ohm +disp(Rif,"Input impedence(ohm)"); +Rof=Ro*1000/SF;//ohm +disp(Rof,"Output impedence(ohm)"); diff --git a/2609/CH4/EX4.2/ex_4_2.sce b/2609/CH4/EX4.2/ex_4_2.sce new file mode 100755 index 000000000..125113d0c --- /dev/null +++ b/2609/CH4/EX4.2/ex_4_2.sce @@ -0,0 +1,27 @@ +////Ex 4.2 +clc; +clear; +close; +format('v',6); +AOL=2*10^5;//unitless +Ri=1.5;//kohm +Rf=12;//kohm +Rio=1;//Mohm +Ro=100;//ohm +fo=5;//Hz +Beta=Ri/(Ri+Rf);//unitless +SF=(1+AOL)*Beta;//unitless +ACL=AOL/SF;//unitless +disp(ACL,"Value of ACL"); +//In case of ideal opamp +ACL=1+Rf/Ri;//unitless +disp(ACL,"In case of ideal opamp, Value of ACL"); +Rif=Rio*SF;//kohm +disp(Rif,"Value of Rif(Mohm)"); +disp("This is a large value can be assumed as infity resistance."); +format('v',5); +Rof=Ro/SF;//mohm +disp(Rof*1000,"Value of Rof(mohm)"); +fodash=SF*fo;//Hz +disp(fodash/1000,"Bandwidth with feedback, fo_dash(kHz)"); +//Answer for Rif in the book has mistake of unit. diff --git a/2609/CH4/EX4.3/ex_4_3.sce b/2609/CH4/EX4.3/ex_4_3.sce new file mode 100755 index 000000000..8277d8b63 --- /dev/null +++ b/2609/CH4/EX4.3/ex_4_3.sce @@ -0,0 +1,14 @@ +////Ex 4.3 +clc; +clear; +close; +format('v',9); +AOL=%inf;//unitless +Rio=%inf;//ohm +Ri=1;//kohm +Rf=15;//kohm +SF=%inf;//unitless;//as SF=1+AOL*Beta +Beta=Ri/(Ri+Rf);//unitless +ACL=1/Beta;//unitless +disp(Rio,"Input impedence(ohm) for ideal opamp is "); +disp(ACL,"Gain of the circuit, ACL"); diff --git a/2609/CH4/EX4.4/ex_4_4.sce b/2609/CH4/EX4.4/ex_4_4.sce new file mode 100755 index 000000000..b844e960c --- /dev/null +++ b/2609/CH4/EX4.4/ex_4_4.sce @@ -0,0 +1,14 @@ +////Ex 4.4 +clc; +clear; +close; +format('v',9); +AOL=400;//unitless +Rio=500;//kohm +Ro=75;//ohm +ACL=100;//unitless +SF=AOL/ACL;//unitless +Rif=Rio*SF;//kohm +disp(Rif/1000,"Input impedence, Rif(Mohm)"); +Rof=Ro/SF;//ohm +disp(Rof,"Output impedence, Rof(ohm)"); diff --git a/2609/CH4/EX4.5/ex_4_5.sce b/2609/CH4/EX4.5/ex_4_5.sce new file mode 100755 index 000000000..56755cf13 --- /dev/null +++ b/2609/CH4/EX4.5/ex_4_5.sce @@ -0,0 +1,15 @@ +////Ex 4.5 +clc; +clear; +close; +format('v',5); +ACL=200;//unitless +AOL=2*10^5;//unitless +Rio=2;//Mohm +Ro=75;//ohm +Ri=1;//kohm(Assumed) +SF=AOL/ACL;//unitless +Beta=(SF-1)/AOL;//unitless +Rf=Ri*(1-Beta)/Beta;//kohm +disp(Ri,"Input impedence, Rif(kohm)"); +disp(Rf,"Feedback impedence, Rf(kohm)"); diff --git a/2609/CH4/EX4.6/ex_4_6.sce b/2609/CH4/EX4.6/ex_4_6.sce new file mode 100755 index 000000000..aa6658270 --- /dev/null +++ b/2609/CH4/EX4.6/ex_4_6.sce @@ -0,0 +1,13 @@ +////Ex 4.6 +clc; +clear; +close; +format('v',5); +AOL=50;//unitless +Beta=0.8;//unitless +deltaAOL=-20;//%(Change in open loop gain) +deltaBeta=15;//%(Change in feedback factor) +AOLnew=AOL+AOL*deltaAOL/100;//unitless(AOL after change) +Betanew=Beta+Beta*deltaBeta/100;//unitless(Beta after change) +ACL=AOLnew/(1+AOLnew*Betanew);//unitless +disp(ACL,"Close loop gain, ACL"); diff --git a/2609/CH4/EX4.7/ex_4_7.sce b/2609/CH4/EX4.7/ex_4_7.sce new file mode 100755 index 000000000..1ca151040 --- /dev/null +++ b/2609/CH4/EX4.7/ex_4_7.sce @@ -0,0 +1,14 @@ +////Ex 4.7 +clc; +clear; +close; +format('v',5); +AOL=500;//unitless +Rio=300;//kohm +Ro=100;//ohm +ACL=AOL/(1+AOL);//unitless +Rif=Rio*(1+AOL)/1000;//Mohm +Rof=Ro/(1+AOL);//ohm +disp(ACL,"Close loop gain, ACL"); +disp(Rif,"Value of Rif(Mohm)"); +disp(Rof,"Value of Rof(ohm)"); diff --git a/2609/CH4/EX4.8/ex_4_8.sce b/2609/CH4/EX4.8/ex_4_8.sce new file mode 100755 index 000000000..b5400d148 --- /dev/null +++ b/2609/CH4/EX4.8/ex_4_8.sce @@ -0,0 +1,11 @@ +////Ex 4.8 +clc; +clear; +close; +format('v',5); +Iin=1;//mA +Rf=1;//kohm +IB=0;//for ideal opamp +If=Iin-IB;//mA +Vout=-If*Rf;//V +disp(Vout,"Output Voltage(V)"); diff --git a/2609/CH4/EX4.9/ex_4_9.sce b/2609/CH4/EX4.9/ex_4_9.sce new file mode 100755 index 000000000..2d1689658 --- /dev/null +++ b/2609/CH4/EX4.9/ex_4_9.sce @@ -0,0 +1,17 @@ +////Ex 4.9 +clc; +clear; +close; +format('v',5); +I2=1;//mA +Rf=4.7;//kohm +//Case 1st +I1=500;//micro A +Vout1=-I1*10^-6*Rf*10^3;//V +disp(Vout1,"For 500 micro A current, Output Voltage(V)"); +//Case 2nd +I2=1;//mA +Vout2=-I2*10^-3*Rf*10^3;//V +disp(Vout2,"For 1 mA current, Output Voltage(V)"); +deltaVout=Vout2-Vout1;//V +disp(deltaVout,"Variation in Output Voltage(V)"); diff --git a/2609/CH5/EX5.1/ex_5_1.sce b/2609/CH5/EX5.1/ex_5_1.sce new file mode 100755 index 000000000..214198dcb --- /dev/null +++ b/2609/CH5/EX5.1/ex_5_1.sce @@ -0,0 +1,10 @@ +//Ex 5.1 +clc; +clear; +close; +format('v',5); +V1=2;V2=3;V3=4;V4=5;//V +R1=10;R2=15;R3=22;R4=50;//kohm +Rf=10;//kohm +Vout=-Rf/R1*V1-Rf/R2*V2-Rf/R3*V3-Rf/R4*V4;//V +disp(Vout,"Output voltage of the circuit(V)");; diff --git a/2609/CH5/EX5.11/ex_5_11.sce b/2609/CH5/EX5.11/ex_5_11.sce new file mode 100755 index 000000000..e46aeadd6 --- /dev/null +++ b/2609/CH5/EX5.11/ex_5_11.sce @@ -0,0 +1,13 @@ +//Ex 5.11 +clc; +clear; +close; +format('v',4); +G=20;//dB(Gain) +f3dB=2;//kHz +Cf=0.05;//micro F +Rf=1/(f3dB*1000*2*%pi*Cf/1000000)/1000;//kohm +G=10^(G/20);//Gain(unitless) +Ri=Rf*1000/G;//ohm +disp(Rf,"Resistance Rf(kohm)"); +disp(Ri,"Resistance Ri(ohm)"); diff --git a/2609/CH5/EX5.13/Ex5_13.sce b/2609/CH5/EX5.13/Ex5_13.sce new file mode 100755 index 000000000..9c413f3ee --- /dev/null +++ b/2609/CH5/EX5.13/Ex5_13.sce @@ -0,0 +1,23 @@ +//Ex 5.13 +clc; +clear; +close; +format('v',4); +t2=50;//ms(After open the switch) +R=40;//kohm +C=0.2;//micro F +V2=3;//V +Vin=5;//V +//For Ideal op-amp V1=V2 +t1=0;//s +Vout1=V2;//V +V1=V2;//V +t2=t2*10^-3;//s +Vout2=-1/(R*10^3*C*10^-6)*integrate('Vin-V1','T',0,t2)+Vout1;//V +//Here we have t=0 switch closed Vout=3V +t=[t1*1000 t2*1000];//ms +Vout=[Vout1 Vout2];//V +plot(t,Vout); +title('Vout Vs time after switch is opened'); +xlabel('t(ms)'); +ylabel('Vout(V)'); diff --git a/2609/CH5/EX5.14/ex_5_14.sce b/2609/CH5/EX5.14/ex_5_14.sce new file mode 100755 index 000000000..2a70b2f03 --- /dev/null +++ b/2609/CH5/EX5.14/ex_5_14.sce @@ -0,0 +1,13 @@ +//Ex 5.14 +clc; +clear; +close; +format('v',4); +R1=1;//kohm +R2=1;//kohm +R3=1;//kohm +Rf=R2+R3;//kohm +Vin=1;//V +//Capacitor remains open circuited for steady state in both cases. +Vout=-Rf/R1*Vin;//V +disp(Vout,"Output Voltage(V)"); diff --git a/2609/CH5/EX5.16/Ex5_16.sce b/2609/CH5/EX5.16/Ex5_16.sce new file mode 100755 index 000000000..62d0e90af --- /dev/null +++ b/2609/CH5/EX5.16/Ex5_16.sce @@ -0,0 +1,16 @@ +//Ex 5.16 +clc; +clear; +close; +format('v',4); +//From the given equationVout=-integrate('5*Vx+2*Vy+4*Vz','t',0,t) : +R1Cf=1/5;R2Cf=1/2;R3Cf=1/4; +disp("Various design parameters are : "); +Cf=10;//micro F////Chosen for the design +disp(Cf,"Capacitance(micro F)"); +R1=R1Cf/(Cf*10^-6)/1000;//kohm +R2=R2Cf/(Cf*10^-6)/1000;//kohm +R3=R3Cf/(Cf*10^-6)/1000;//kohm +disp(R1,"Resistance R1(kohm)"); +disp(R2,"Resistance R1(kohm)"); +disp(R3,"Resistance R1(kohm)"); diff --git a/2609/CH5/EX5.17/Ex5_17.sce b/2609/CH5/EX5.17/Ex5_17.sce new file mode 100755 index 000000000..dd1b80f5e --- /dev/null +++ b/2609/CH5/EX5.17/Ex5_17.sce @@ -0,0 +1,16 @@ +//Ex 5.17 +clc; +clear; +close; +format('v',4); +f=10;//kHz +Rf=3.2;//kohm +Ci=0.001;//micro F +dt=5;//micro seconds +dVin=5-(-5);//V(When voltage changes from -5V to +5V) +Vout=-Rf*1000*Ci*10^-6*dVin/(dt*10^-6);//V +disp(Vout,"When voltage changes from -5V to +5V, The output Voltage(V)"); +dVin=-5-(+5);//V(When voltage changes from +5V to -5V) +Vout=-Rf*1000*Ci*10^-6*dVin/(dt*10^-6);//V +disp(Vout,"When voltage changes from +5V to -5V, The output Voltage(V)"); + diff --git a/2609/CH5/EX5.18/Ex5_18.sce b/2609/CH5/EX5.18/Ex5_18.sce new file mode 100755 index 000000000..d67d924ef --- /dev/null +++ b/2609/CH5/EX5.18/Ex5_18.sce @@ -0,0 +1,20 @@ +//Ex 5.18 +clc; +clear; +close; +format('v',5); +fmin=200;//Hz +fmax=1;//kHz +fa=fmax;//kHz +disp("Various design parameters are : "); +Ci=0.05;//micro F////Chosen for the design +disp(Ci,"Capacitance Ci(micro F)"); +format('v',4); +fb=10*fa;//kHz +Rf=1/(2*%pi*fa*10^3*Ci*10^-6)/1000;//kohm +disp(Rf,"Resistance Rf(kohm)"); +Ri=1/(2*%pi*fb*10^3*Ci*10^-6);//ohm +disp(Ri,"Resistance Ri(ohm)"); +format('v',6); +Cf=Ri*Ci/(Rf*10^3);//micro F +disp(Cf,"Capacitance Cf(micro F)"); diff --git a/2609/CH5/EX5.19/Ex5_19.sce b/2609/CH5/EX5.19/Ex5_19.sce new file mode 100755 index 000000000..fe701762e --- /dev/null +++ b/2609/CH5/EX5.19/Ex5_19.sce @@ -0,0 +1,21 @@ +//Ex 5.19 +clc; +clear; +close; +format('v',5); +fmax=100;//Hz +fa=fmax;//Hz +disp("Various design parameters are : "); +Ci=0.1;//micro F////Chosen for the design +disp(Ci,"Capacitance Ci(micro F)"); +Rf=1/(2*%pi*fa*Ci*10^-6)/1000;//kohm +disp(Rf,"Resistance Rf(kohm)"); +disp("Use f=15 kohm"); +fb=15*fa;//kHz +Ri=1/(2*%pi*fb*Ci*10^-6)/1000;//kohm +disp(Ri,"Resistance Ri(kohm)"); +disp("Use Ri=1 kohm"); +format('v',6); +Cf=Ri*Ci/Rf;//micro F +disp(Cf,"Capacitance Cf(micro F)"); +//Answer in the book is not accurate for Cf. diff --git a/2609/CH5/EX5.2/ex_5_2.sce b/2609/CH5/EX5.2/ex_5_2.sce new file mode 100755 index 000000000..07b64eae7 --- /dev/null +++ b/2609/CH5/EX5.2/ex_5_2.sce @@ -0,0 +1,17 @@ +//Ex 5.1 +clc; +clear; +close; +format('v',5); +Rf=240;//kohm +//Vout=-4*Vx+3*Vy; +//case 1st +Vy=0;//V(But Vx is not=0) +//Vox=-Rf/R1*Vx=-4*Vx +R1=Rf/4;//kohm +//case 2nd +Vx=0;//V(But Vy is not=0) +//Voy=(1+Rf/R1)*R2*Vy/(R1+R2)=3*Vy +R2=3/(1+Rf/R1)*R1/((1-3/(1+Rf/R1))) +disp(R1,"Resistance R1(kohm)"); +disp(R2,"Resistance R2(kohm)"); diff --git a/2609/CH5/EX5.20/Ex5_20.sce b/2609/CH5/EX5.20/Ex5_20.sce new file mode 100755 index 000000000..3b6dc2304 --- /dev/null +++ b/2609/CH5/EX5.20/Ex5_20.sce @@ -0,0 +1,19 @@ +//Ex 5.20 +clc; +clear; +close; +format('v',5); +f=50;//Hz +T=1/f;//s(Period) +Ci=0.05;//micro F +RiCi=0.01*T;//Given +Ri=RiCi/(Ci*10^-6)/1000;//kohm +disp(Ri,"Resistance Ri(kohm)"); +//Vout=-.002*dVin/dt given +//On comparing with Vout=-Rf*Ci*dVin/dt +RfCi=0.002;//on comparing +Rf=RfCi/(Ci*10^-6)/1000;//kohm +disp(Rf,"Resistance Rf(kohm)"); +Cf=Ri*Ci/Rf;//micro F +format('v',6); +disp(Cf,"Capacitance Cf(micro F)"); diff --git a/2609/CH5/EX5.3/ex_5_3.sce b/2609/CH5/EX5.3/ex_5_3.sce new file mode 100755 index 000000000..c0af1eeb8 --- /dev/null +++ b/2609/CH5/EX5.3/ex_5_3.sce @@ -0,0 +1,11 @@ +//Ex 5.3 +clc; +clear; +close; +format('v',5); +V1=-2;V2=3;//V +R1=50;R2=100;//kohm +Rf=250;//kohm +//I1+I2=If with IB=0 & Vx=0 +Vout=-(V1/R1+V2/R2)*Rf;//V +disp(Vout,"Output Voltage(V)"); diff --git a/2609/CH5/EX5.4/ex_5_4.sce b/2609/CH5/EX5.4/ex_5_4.sce new file mode 100755 index 000000000..f29b9a690 --- /dev/null +++ b/2609/CH5/EX5.4/ex_5_4.sce @@ -0,0 +1,12 @@ +//Ex 5.4 +clc; +clear; +close; +format('v',5); +V1=-2;V2=3;//V +R1=12;R2=12;R3=10//kohm +Rf=12;Ri=12;//kohm +Rt=2;//kohm +Vyx=200*10^-6;//V +Vout=Rf/Ri*(1+2*R3/Rt)*Vyx;//V +disp(Vout*1000,"Output Voltage(mV)"); diff --git a/2609/CH5/EX5.5/ex_5_5.sce b/2609/CH5/EX5.5/ex_5_5.sce new file mode 100755 index 000000000..c79431e9b --- /dev/null +++ b/2609/CH5/EX5.5/ex_5_5.sce @@ -0,0 +1,15 @@ +//Ex 5.5 +clc; +clear; +close; +format('v',4); +Ad=5:200;//Gain +R1max=50;//kohm(Potentiometer) +R4=10;R3=10;//kohm +//Case 1st : Ad=Admin &R1=R1max +R1=R1max;//kohm +R2=(min(Ad)-1)/2*R1max +//Case 2nd : Ad=Admax &R1=R1min +R1min=2*R2/(max(Ad)-1);//kohm +disp(R2,"Resistance R2(kohm)"); +disp(R1min,"Minimum value of resistance R1(kohm)"); diff --git a/2609/CH5/EX5.6/ex_5_6.sce b/2609/CH5/EX5.6/ex_5_6.sce new file mode 100755 index 000000000..ebc8f426a --- /dev/null +++ b/2609/CH5/EX5.6/ex_5_6.sce @@ -0,0 +1,23 @@ +//Ex 5.6 +clc; +clear; +close; +format('v',8); +R3=1;//kohm +Rt=5;//kohm +Ri=1.8;R1=1.8;//kohm +Rf=18;R2=18;//kohm +Vs=15;//V +AoL=2*10^5;//Gain(for 741C) +Rio=2//Mohm +Ro=75//Mohm +fo=5;//Hz +fBW=1;//MHz +Ad=Rf/Ri*(1+2*R3/Rt);//differential gain +disp(Ad,"Differential gain"); +Beta=(R3+Rt)/(2*R3+Rt);//unitless +Rix=Rio*10^6*(1+AoL*Beta);//ohm +disp(Rix,"Input impedence, Rix(ohm)"); +Rof=Ro/(1+AoL/Ad);//ohm +disp(Rof,"Output impedence, Rof(ohm)"); +//Answer in the book is wron for Rix. diff --git a/2609/CH5/EX5.8/ex_5_8.sce b/2609/CH5/EX5.8/ex_5_8.sce new file mode 100755 index 000000000..d9fbdc226 --- /dev/null +++ b/2609/CH5/EX5.8/ex_5_8.sce @@ -0,0 +1,20 @@ +//Ex 5.8 +clc; +clear; +close; +format('v',8); +Ri=10;//kohm +Rf=15;//kohm +Vs=9;//V +//Part (a) +Ra=120;Rb=120;Rc=120;Rd=120;//ohm +Vx=0;Vy=0//V(as Bridge is balanced) +Vout=(Vy-Vx)*Rf/Ri;//V +disp(Vout,"(a) Output Voltage(V)"); +//Part (b) +Ra=120;Rb=120;Rc=120;Rd=150;//ohm +Vx=Rb*Vs/(Ra+Rb);//V +Vy=Rc*Vs/(Rc+Rd)//V +Vyx=Vy-Vx;//V +Vout=(Vy-Vx)*Rf/Ri;//V +disp(Vout,"(b) Output Voltage(V)"); diff --git a/2609/CH5/EX5.9/ex_5_9.sce b/2609/CH5/EX5.9/ex_5_9.sce new file mode 100755 index 000000000..969c8ebb8 --- /dev/null +++ b/2609/CH5/EX5.9/ex_5_9.sce @@ -0,0 +1,10 @@ +//Ex 5.9 +clc; +clear; +close; +format('v',8); +Vin=2;//V +Rf=2*2/(2+2)+2;//kohm +R1=1;//kohm +Vout=-Rf/R1*Vin;//V +disp(Vout,"Output Voltage(V)"); diff --git a/2609/CH6/EX6.1/Ex6_1.sce b/2609/CH6/EX6.1/Ex6_1.sce new file mode 100755 index 000000000..5c3cc9e30 --- /dev/null +++ b/2609/CH6/EX6.1/Ex6_1.sce @@ -0,0 +1,27 @@ +//Ex 6.1 +clc; +clear; +close; +format('v',6); +f0=600;//Hz//Oscillating Frequency +disp("Various design parameters are :-"); +C=0.05;//micro F//Chosen for the design +disp(C,"Capacitance(micro F)"); +format('v',5); +R=1/(2*%pi*f0*sqrt(6)*C*10^-6);//ohm +R=R/1000;//kohm +disp(R,"Resistance R(kohm)"); +disp("We can use R=2.2 kohm for design purpose.") +//To avoid loading effect +Ri=10*R;//kohm//Ri>=10*R +Ri=ceil(Ri);//kohm +disp(Ri,"Resistance Ri(kohm)"); +Rf=29*Ri;//kohm//Rf>=29*Ri +disp(Rf,"Resistance Rf(kohm)"); +disp("We can use Rf=640 kohm for design purpose.") +Rf=640;//kohm +//Balancing the circuit +Rom=Rf*Ri/(Rf+Ri);//kohm +Rom=ceil(Rom);//kohm +format('v',6); +disp(Rom,"Resistance Rom(kohm)"); diff --git a/2609/CH6/EX6.10/Ex6_10.sce b/2609/CH6/EX6.10/Ex6_10.sce new file mode 100755 index 000000000..7337ccd9c --- /dev/null +++ b/2609/CH6/EX6.10/Ex6_10.sce @@ -0,0 +1,19 @@ +//Ex 6.10 +clc; +clear; +close; +format('v',6); +f0=1;///kHz +Vsat=14;//V +disp("Various design parameters are :-"); +C1=0.05;//micro F//Chosen for the design +disp(C1,"Capacitance(micro F)"); +Rf=1/(2*f0*10^3*C1*10^-6)/1000;//kohm +disp(Rf,"Resistance Rf(kohm)"); +//R2=0.86*R1 and Rf=R1||R2 +R2byR1=0.86;//from R2=0.86*R1 +R2=Rf*(1+R2byR1);//kohm +R1=R2/R2byR1;//kohm +disp(R1,"Resistance R1(kohm)"); +disp("Use R1=22 kohm for the design."); +disp(R2,"Resistance R2(kohm)"); diff --git a/2609/CH6/EX6.11/Ex6_11.sce b/2609/CH6/EX6.11/Ex6_11.sce new file mode 100755 index 000000000..e6fb3cffb --- /dev/null +++ b/2609/CH6/EX6.11/Ex6_11.sce @@ -0,0 +1,13 @@ +//Ex 6.11 +clc; +clear; +close; +format('v',6); +T=10;//ms//(Time period) +f0=1/(T*10^-3);//Hz +C=0.05;//micro F//Chosen for the design +//Formula : f0=1/{2*Rf*C*log(1+2*R2/R1)} +Rf=1/(f0*2*C*10^-6*log(1+2))/1000;//kohm//By putting R1=R2 for this case +Rf=round(Rf);//kohm +disp(Rf,"Resistance Rf(kohm)"); +disp(C,"Capacitance for the design(micro F)"); diff --git a/2609/CH6/EX6.12/Ex6_12.sce b/2609/CH6/EX6.12/Ex6_12.sce new file mode 100755 index 000000000..b0d83a3dc --- /dev/null +++ b/2609/CH6/EX6.12/Ex6_12.sce @@ -0,0 +1,11 @@ +//Ex 6.12 +clc; +clear; +close; +format('v',6); +R1=4.7;//kohm +R2=3.3;//kohm +Rf=2;//kohm +C=0.1;//micro F +f0=1/2/(Rf*1000)/(C*10^-6)/log(1+2*R2/R1)/1000;//kHz +disp(f0,"Frequency of output signal(kHz)"); diff --git a/2609/CH6/EX6.13/Ex6_13.sce b/2609/CH6/EX6.13/Ex6_13.sce new file mode 100755 index 000000000..4dfb195ef --- /dev/null +++ b/2609/CH6/EX6.13/Ex6_13.sce @@ -0,0 +1,19 @@ +//Ex 6.13 +clc; +clear; +close; +format('v',6); +f0=1.5;//kHz +Vout=6;//V////peak to peak +Vsat=13.5;//V +disp("Various design parameters are : "); +R2=10;//kohm///choosen for the design +R1=R2*2*Vsat/Vout;//kohm +disp(R1,"R1(kohm)"); +disp(R2,"R2(kohm)"); +disp("Use R1=50 kohm for the design"); +//Let Cf=0.05 micro F for the design +Cf=0.05;//micro F +disp(Cf,"Cf(micro F)"); +Ri=R1*1000/(f0*1000)/4/(Cf*10^-6*R2*1000)/1000;//kohm +disp(Ri,"Ri(kohm)"); diff --git a/2609/CH6/EX6.14/Ex6_14.sce b/2609/CH6/EX6.14/Ex6_14.sce new file mode 100755 index 000000000..a2ee02b49 --- /dev/null +++ b/2609/CH6/EX6.14/Ex6_14.sce @@ -0,0 +1,16 @@ +//Ex 6.14 +clc; +clear; +close; +format('v',4); +//Data given +R1=6.8;//kohm +Ri=100;//kohm +R2=1.5;//kohm +Cf=0.01;//micro F +Vsat=14;//V +Vo_pp=2*R2/R1*Vsat;//V////Peak to peak output of triangular wave +disp(Vo_pp,"Peak to peak output of triangular wave(V)"); +format('v',5); +f0=R1*1000/(4*Ri*10^3*Cf*10^-6*R2*10^3)/1000;//kHz//Oscillating Frequency +disp(f0,"Oscillation frequency(Hz)"); diff --git a/2609/CH6/EX6.15/Ex6_15.sce b/2609/CH6/EX6.15/Ex6_15.sce new file mode 100755 index 000000000..dac52471b --- /dev/null +++ b/2609/CH6/EX6.15/Ex6_15.sce @@ -0,0 +1,20 @@ +//Ex 6.15 +clc; +clear; +close; +format('v',4); +//Data given +f0=1;//kHz +Vo_pp=7;//V +Vsat=14;//V +disp("Various design parameters are :-"); +//Let R2=10;//kohm for the design +R2=10;//kohm +R1=2*R2*Vsat/Vo_pp;//kohm +disp(R1,"R1(kohm)"); +disp(R2,"R2(kohm)"); +//Choose Cf=0.1 micro F for the design +Cf=0.1;//micro F +disp(Cf,"Cf(micro F)"); +Ri=R1*10^3/(4*f0*10^3*Cf*10^-6*R2*10^3)/1000;//kohm +disp(Ri,"Ri(kohm)"); diff --git a/2609/CH6/EX6.16/Ex6_16.sce b/2609/CH6/EX6.16/Ex6_16.sce new file mode 100755 index 000000000..f0a3ed40a --- /dev/null +++ b/2609/CH6/EX6.16/Ex6_16.sce @@ -0,0 +1,15 @@ +//Ex 6.16 +clc; +clear; +close; +format('v',4); +//Data given +tau=1;//ms(time period) +R1byR2=1.8:0.2:9;//range of R1/R2 +Beta_min=1/(1+min(R1byR2));//minimum value of Beta +Beta_max=1/(1+max(R1byR2));//maximum value of Beta +Tmax=2*tau*log((1+Beta_min)/(1-Beta_min));//ms////For minimum value of Beta +fmin=1/(Tmax*10^-3);//Hz +Tmin=2*tau*log((1+Beta_max)/(1-Beta_max));//ms////For maximum value of Beta +fmax=1/(Tmin*10^-3)/1000;//kHz +disp("Frequency range is "+string(fmin)+" Hz to "+string(fmax)+" kHz."); diff --git a/2609/CH6/EX6.17/Ex6_17.sce b/2609/CH6/EX6.17/Ex6_17.sce new file mode 100755 index 000000000..b30826e46 --- /dev/null +++ b/2609/CH6/EX6.17/Ex6_17.sce @@ -0,0 +1,15 @@ +//Ex 6.17 +clc; +clear; +close; +format('v',4); +//Data given +Ls=3;//H +Cs=0.05;//pF +Rs=2;//kohm +Cm=10;//pF +fS=1/2/%pi/sqrt(Ls*Cs*10^-12)/1000;//kHz +disp(fS,"Series resonant frequency(kHz)"); +CT=Cm*Cs/(Cm+Cs);//pF////Equivalent capacitance +fP=1/2/%pi/sqrt(Ls*CT*10^-12)/1000;//kHz +disp(fP,"Parallel resonant frequency(kHz)"); diff --git a/2609/CH6/EX6.18/Ex6_18.sce b/2609/CH6/EX6.18/Ex6_18.sce new file mode 100755 index 000000000..6fc9919c0 --- /dev/null +++ b/2609/CH6/EX6.18/Ex6_18.sce @@ -0,0 +1,21 @@ +//Ex 6.18 +clc; +clear; +close; +format('v',5); +//Data given +f0=5;//kHz +D=60;//%////duty cycle +VCC=12;//V +//As D=t1/(t1+t2) +t2BYt1=1/(D/100)-1;//ratio of t1 & t2 +//RB/(2*RA-RB)=t2/t1 +RAbyRB=(1/t2BYt1+1)/2;//Ratio of RA & RB +disp("Various design parameters are :"); +//Let CT=0.05 micro F for this design choosing between 0.01 & 1 microo F +CT=0.05;//micro F +disp(CT,"CT(micro F)"); +RA=1/(f0*10^3)/(5/3)^2/(CT*10^-6)/1000;//kohm +disp(RA,"RA(kohm)"); +RB=RA/RAbyRB;//kohm +disp(RB,"RB(kohm)"); diff --git a/2609/CH6/EX6.19/Ex6_19.sce b/2609/CH6/EX6.19/Ex6_19.sce new file mode 100755 index 000000000..e94fcb231 --- /dev/null +++ b/2609/CH6/EX6.19/Ex6_19.sce @@ -0,0 +1,46 @@ +//Ex 6.19 +clc; +clear; +close; +format('v',6); +//Data given +Rf=15;//kohm +RT1=4.7;//kohm +R1=56;//kohm +R2=6.8;//kohm +R3=10;//kohm +R4=1;//kohm +R5=1;//kohm +CB=1;//micro F +CT=0.05;//mic +VCC=15;//V +V1=-15;//V////Voltage given through the resistance(R1) 56 kohm +disp("Part (i)"); +Vin=2;//V +Vo=Rf/R1*(-V1)-Rf/R2*Vin;//V +disp(Vo,"Voltage Vo(V)"); +N_VCC=0;//V////-VCC////voltage given to the 12th pin of IC +V7=N_VCC+3;//V +disp(V7,"Voltage V7(V)"); +I=(V7-Vo)/RT1;//mA +disp(I,"Current I(mA)"); +Rmult=R4*R5/(R4+R5)+R3;//kohm////on pin 3 +disp(Rmult,"Total resistance on pin 3, Rmult(kohm)"); +format('v',4); +f0=0.32*I*10^-3/(CT*10^-6)/1000;//kHz +disp(f0,"Oscillation frequency(kHz)"); +disp("Part (ii)"); +format('v',4); +Vin=5;//V +Vo=Rf/R1*(-V1)-Rf/R2*Vin;//V +disp(Vo,"Voltage Vo(V)"); +N_VCC=0;//V////-VCC////voltage given to the 12th pin of IC +V7=N_VCC+3;//V +disp(V7,"Voltage V7(V)"); +I=(V7-Vo)/RT1;//mA +format('v',6); +disp(I,"Current I(mA)"); +Rmult=R4*R5/(R4+R5)+R3;//kohm////on pin 3 +disp(Rmult,"Total resistance on pin 3, Rmult(kohm)"); +f0=0.32*I*10^-3/(CT*10^-6)/1000;//kHz +disp(f0,"Oscillation frequency(kHz)"); diff --git a/2609/CH6/EX6.3/Ex6_3.sce b/2609/CH6/EX6.3/Ex6_3.sce new file mode 100755 index 000000000..50c251696 --- /dev/null +++ b/2609/CH6/EX6.3/Ex6_3.sce @@ -0,0 +1,20 @@ +//Ex 6.3 +clc; +clear; +close; +format('v',5); +f0=12;//kHz//Oscillating Frequency +disp("Various design parameters are :-"); +C=0.01;//micro F//Chosen for the design between 0.01 & 1 micro F +disp(C,"Capacitance(micro F)"); +R=1/(2*%pi*f0*1000*C*10^-6);//ohm +R=R/1000;//kohm +disp(R,"Resistance R(kohm)"); +format('v',5); +Ri=3*R/2;//kohm//Ri>=3*R/2 +disp(Ri,"Resistance Ri(kohm)"); +disp("We can use Ri=2.2 kohm for design purpose.") +Ri=2.2;//kohm +Rf=2*Ri;//kohm +disp(Rf,"Resistance Rf(kohm)"); +disp("We should use Rf=4.7 kohm for design purpose.") diff --git a/2609/CH6/EX6.5/Ex6_5.sce b/2609/CH6/EX6.5/Ex6_5.sce new file mode 100755 index 000000000..6d4288587 --- /dev/null +++ b/2609/CH6/EX6.5/Ex6_5.sce @@ -0,0 +1,20 @@ +//Ex 6.5 +clc; +clear; +close; +format('v',5); +f0=2;//kHz//Oscillating Frequency +disp("Various design parameters are :-"); +C=0.05;//micro F//Chosen for the design +disp(C,"Capacitance(micro F)"); +R=1/(2*%pi*f0*1000*C*10^-6);//ohm +R=R/1000;//kohm +disp(R,"Resistance R(kohm)"); +format('v',5); +Ri=3*R/2;//kohm//Ri>=3*R/2 +format('v',4); +disp(Ri,"Resistance Ri(kohm)"); +disp("We can use Ri=2.2 kohm for design purpose.") +Rf=2*Ri;//kohm +disp(Rf,"Resistance Rf(kohm)"); +disp("We should use 5k pot for Rf.") diff --git a/2609/CH6/EX6.6/Ex6_6.sce b/2609/CH6/EX6.6/Ex6_6.sce new file mode 100755 index 000000000..13009e2c7 --- /dev/null +++ b/2609/CH6/EX6.6/Ex6_6.sce @@ -0,0 +1,12 @@ +//Ex 6.6 +clc; +clear; +close; +format('v',6); +//Data given +R1=1;//kohm +R2=1;//kohm +R=1;//kohm +C=4.7;//micro F +f0=1/(2*%pi*R*10^3*C*10^-6);//Hz//Oscillating Frequency +disp(f0,"Oscillation frequency(Hz)"); diff --git a/2609/CH6/EX6.7/Ex6_7.sce b/2609/CH6/EX6.7/Ex6_7.sce new file mode 100755 index 000000000..80cb41272 --- /dev/null +++ b/2609/CH6/EX6.7/Ex6_7.sce @@ -0,0 +1,20 @@ +//Ex 6.7 +clc; +clear; +close; +format('v',5); +f0=200;//Hz//Oscillating Frequency +disp("Various design parameters are :-"); +C=0.05;//micro F//Chosen for the design +disp(C,"Capacitance(micro F)"); +R=0.159/(f0*C*10^-6);//ohm +R=R/1000;//kohm +disp(R,"Resistance R(kohm)"); +disp("We should use R=510 kohm for the design.") +R=510;//kohm +C1=C;C2=C;C3=C;//micro F +disp(C3,C2,C1,"Capacitance C1, C2 & C3(micro F)"); +R2=R;R3=R;//kohm +disp(R3,R2,"Resistance R2, R3(kohm)"); +disp("1000k pot can be used.") +//Answer for R is calculated wrong in the textbook. diff --git a/2609/CH6/EX6.8/Ex6_8.sce b/2609/CH6/EX6.8/Ex6_8.sce new file mode 100755 index 000000000..c225e8ad7 --- /dev/null +++ b/2609/CH6/EX6.8/Ex6_8.sce @@ -0,0 +1,12 @@ +//Ex 6.8 +clc; +clear; +close; +format('v',5); +Rf=570;//kohm +Ri=15;//kohm +A=Rf/Ri;//Gain of the circuit +Amin=29;//Minimum Gain requirement of RC phase shift oscillator +deltaA=(A-Amin)/Amin*100;//%(Exceeding Gain) +disp(deltaA,"Gain is exceeded by(%) "); +disp("It will cause distortion at output."); diff --git a/2609/CH6/EX6.9/Ex6_9.sce b/2609/CH6/EX6.9/Ex6_9.sce new file mode 100755 index 000000000..540e9f913 --- /dev/null +++ b/2609/CH6/EX6.9/Ex6_9.sce @@ -0,0 +1,31 @@ +//Ex 6.9 +clc; +clear; +close; +format('v',6); +disp("Part (a)"); +L1=25;//micro H +L2=10;//micro H +Rf=22;//kohm +C=0.01;//micro F +LT=L1+L2;//micro H +fr=1/(2*%pi*sqrt(C*10^-6*LT*10^-6));//Hz +fr=fr/1000;//kHz +f0=fr;///kHz +disp(f0,"Oscillation frequency(kHz)"); +Ri=Rf/(L1/L2);//kohm +disp(Ri,"Resistance Ri(kohm)"); +disp("Part (b)"); +C1=220;//pF +C2=680;//pF +Rf=22;//kohm +L=1;//mH +CT=C1*C2/(C1+C2);//pF +fr=1/(2*%pi*sqrt(L*10^-3*CT*10^-12));//Hz +fr=fr/1000;//kHz +f0=fr;///kHz +f0=round(f0);//kHz +disp(f0,"Oscillation frequency(kHz)"); +Ri=Rf/(C1/C2);//kohm +disp(Ri,"Resistance Ri(kohm)"); + diff --git a/2609/CH7/EX7.1/ex_7_1.sce b/2609/CH7/EX7.1/ex_7_1.sce new file mode 100755 index 000000000..71073c5b1 --- /dev/null +++ b/2609/CH7/EX7.1/ex_7_1.sce @@ -0,0 +1,21 @@ +////Ex 7.1 +clc; +clear; +close; +format('v',9); +th=4;//ms +VCC=10;//V +C=0.05;//micro F(choosen between 0.01<=C<=1) +R=th*10^-3/(1.1*C*10^-6)/1000;//kohm +C1=0.01;//micro F(assumed) +C2=0.01;//micro F(choosen between 0.01<=C<=1) +R2=th*10^-3/(10*C2*10^-6)/1000;//kohm +C3=10;//micro F +disp("Design values are : "); +disp(C,"Capacitance C(micro F)"); +disp(R,"Resistance R(kohm)"); +disp(C1,"Capacitance C1(micro F)"); +disp(C2,"Capacitance C2(micro F)"); +disp(R2,"Resistance R2(kohm)"); +disp(C3,"Capacitance C3(micro F)"); +//Answer of R2 is wrong in the book. diff --git a/2609/CH7/EX7.2/ex_7_2.sce b/2609/CH7/EX7.2/ex_7_2.sce new file mode 100755 index 000000000..ce444cf44 --- /dev/null +++ b/2609/CH7/EX7.2/ex_7_2.sce @@ -0,0 +1,12 @@ +////Ex 7.2 +clc; +clear; +close; +format('v',9); +ft=2;//kHz +C=0.01;//micro F +T=1/ft;//ms +n=3;//for divide-by-3 circuit +th=(0.2+(n-1))*T;//ms +R=th/(1.1*C);//kohm +disp(R,"Value of Resistance R(kohm)"); diff --git a/2609/CH7/EX7.3/ex_7_3.sce b/2609/CH7/EX7.3/ex_7_3.sce new file mode 100755 index 000000000..40d07a347 --- /dev/null +++ b/2609/CH7/EX7.3/ex_7_3.sce @@ -0,0 +1,18 @@ +////Ex 7.3 +clc; +clear; +close; +format('v',9); +fo=2;//kHz +D=70;//%(duty cycle) +T=1/fo;//ms +VCC=12;//V +tC=D*T/100;//ms +tD=T-tC;//ms +C=0.05;//micro F(choosen between 0.01<=C<=1) +RB=tD*10^-3/(0.69*C*10^-6)/1000;//kohm +RA=tC*10^-3/(0.69*C*10^-6)/1000-RB;//kohm +disp("Design values are : "); +disp(C,"Capacitance C(micro F)"); +disp(RA,"Resistance RA(kohm)"); +disp(RB,"Resistance RB(kohm)"); diff --git a/2609/CH7/EX7.4/ex_7_4.sce b/2609/CH7/EX7.4/ex_7_4.sce new file mode 100755 index 000000000..d6b27132c --- /dev/null +++ b/2609/CH7/EX7.4/ex_7_4.sce @@ -0,0 +1,19 @@ +////Ex 7.4 +clc; +clear; +close; +format('v',9); +fo=2;//kHz +D=50;//%(duty cycle) +T=1/fo;//ms +VCC=10;//V +tC=D*T/100;//ms +tD=T-tC;//ms +C=0.1;//micro F(choosen between 0.01<=C<=1) +RB=tD*10^-3/(0.69*C*10^-6)/1000;//kohm +RA=T*10^-3*1.45/(C*10^-6)/1000-RB;//kohm +disp("Design values are : "); +disp(C,"Capacitance C(micro F)"); +disp(RA,"Resistance RA(kohm)"); +disp(RB,"Resistance RB(kohm)"); +disp("RA & RB should be equal for 50% duty cycle.") diff --git a/2609/CH7/EX7.5/ex_7_5.sce b/2609/CH7/EX7.5/ex_7_5.sce new file mode 100755 index 000000000..c5951fb9d --- /dev/null +++ b/2609/CH7/EX7.5/ex_7_5.sce @@ -0,0 +1,18 @@ +////Ex 7.5 +clc; +clear; +close; +format('v',9); +fo=2;//kHz +D=40;//%(duty cycle) +T=1/fo;//ms +VCC=10;//V +tC=D*T/100;//ms +tD=T-tC;//ms +C=0.22;//micro F(choosen between 0.01<=C<=1) +RB=tD*10^-3/(0.69*C*10^-6)/1000;//kohm +RA=T*10^-3*1.45/(C*10^-6)/1000-RB;//kohm +disp("Design values are : "); +disp(C,"Capacitance C(micro F)"); +disp(RA,"Resistance RA(kohm)"); +disp(round(RB),"Resistance RB(kohm)"); diff --git a/2609/CH7/EX7.6/ex_7_6.sce b/2609/CH7/EX7.6/ex_7_6.sce new file mode 100755 index 000000000..7428d8615 --- /dev/null +++ b/2609/CH7/EX7.6/ex_7_6.sce @@ -0,0 +1,18 @@ +////Ex 7.6 +clc; +clear; +close; +format('v',9); +fo=700;//Hz +D=50;//%(duty cycle) +T=1/fo*1000;//ms +VCC=10;//V +tC=D*T/100;//ms +tD=T-tC;//ms +C=0.05;//micro F(choosen between 0.01<=C<=1) +RB=tD*10^-3/(0.69*C*10^-6)/1000;//kohm +RA=T*10^-3*1.45/(C*10^-6)/1000-RB;//kohm +disp("Design values are : "); +disp(C,"Capacitance C(micro F)"); +disp(round(RA),"Resistance RA(kohm)"); +disp(round(RB),"Resistance RB(kohm)"); diff --git a/2609/CH7/EX7.7/ex_7_7.sce b/2609/CH7/EX7.7/ex_7_7.sce new file mode 100755 index 000000000..3027c274a --- /dev/null +++ b/2609/CH7/EX7.7/ex_7_7.sce @@ -0,0 +1,18 @@ +////Ex 7.7 +clc; +clear; +close; +format('v',9); +fo=800;//Hz +D=60;//%(duty cycle) +T=1/fo*1000;//ms +VCC=10;//V +tC=D*T/100;//ms +tD=T-tC;//ms +C=0.047;//micro F(choosen between 0.01<=C<=1) +RB=tD*10^-3/(0.69*C*10^-6)/1000;//kohm +RA=tC*10^-3*1.45/(C*10^-6)/1000-RB;//kohm +disp("Design values are : "); +disp(C,"Capacitance C(micro F)"); +disp(round(RA),"Resistance RA(kohm)"); +disp(round(RB),"Resistance RB(kohm)"); diff --git a/2609/CH8/EX8.1/ex_8_1.sce b/2609/CH8/EX8.1/ex_8_1.sce new file mode 100755 index 000000000..e76d6ccc2 --- /dev/null +++ b/2609/CH8/EX8.1/ex_8_1.sce @@ -0,0 +1,21 @@ +////Ex 8.1 +clc; +clear; +close; +format('v',9); +VCC=6;//V +VEE=6;//V +RT=4;//kohm +CT=330;//pF +C=240;//pF +fo=0.3/(RT*1000*CT*10^-12)/1000;//kHz +disp(fo,"Free running frequency(kHz)"); +Vplus=(VCC-(-VEE))/2;//V +deltafL=8*fo/Vplus;//kHz +disp(deltafL,"Lock Range(+ve & -ve in kHz)"); +//For LM 565 +R=3.6;//kohm +deltafC=sqrt(deltafL*1000/(2*%pi*R*1000*C*10^-12))/1000;//kHz + disp(deltafC,"Capture Range(+ve & -ve in kHz)"); +deltafP=2*deltafC/2;//kHz + disp(deltafP,"Pull-in Range(kHz)"); diff --git a/2609/CH8/EX8.2/ex_8_2.sce b/2609/CH8/EX8.2/ex_8_2.sce new file mode 100755 index 000000000..519e0a1e8 --- /dev/null +++ b/2609/CH8/EX8.2/ex_8_2.sce @@ -0,0 +1,21 @@ +////Ex 8.2 +clc; +clear; +close; +format('v',9); +fo=450;//kHz +deltafL=240;//kHz(+ve & -ve) +deltafC=40;//kHz(+ve & -ve) +Vplus=8*fo/deltafL;//V +//Vplus=(VCC-(-VEE))/2 but |VCC|=|-VEE| +VCC=Vplus;//V +VEE=Vplus;//V +disp(VCC,"For the design |VCC|=|-VEE| in Volt"); +RT=4.7;//kohm(Assumed for design) +R=3.6;//kohm +CT=0.3/(RT*1000*fo*1000)*10^12;//pF +C=1/((deltafC*10^3)^2*(2*%pi*R*10^3)/(deltafL*1000))*10^9;//nF +disp(RT,"Value of RT(kohm)"); +disp(CT,"Value of CT(pF)"); +disp(C,"Value of C(nF)"); +//Answer in the book is not accurate. diff --git a/2609/CH8/EX8.3/ex_8_3.sce b/2609/CH8/EX8.3/ex_8_3.sce new file mode 100755 index 000000000..012cddac5 --- /dev/null +++ b/2609/CH8/EX8.3/ex_8_3.sce @@ -0,0 +1,12 @@ +////Ex 8.3 +clc; +clear; +close; +format('v',9); +fmax=160;//kHz +fr=4;//Hz(Resolution) +M=2.4;//unitless +fclk=M*fmax;//kHz +disp(fclk,"Clock frequency(kHz)"); +N=log(fclk*1000/fr)/log(2);//no. of bits +disp(round(N),"No. of bits"); diff --git a/2609/CH9/EX9.10/Ex9_10.sce b/2609/CH9/EX9.10/Ex9_10.sce new file mode 100755 index 000000000..3fac8b246 --- /dev/null +++ b/2609/CH9/EX9.10/Ex9_10.sce @@ -0,0 +1,25 @@ +//Ex 9.10 +clc; +clear; +close; +format('v',5); +f0=2;//kHz(Critical frequency) +fH=f0;//kHz +f_3dB=f0;//kHz +//For Butterworth filter using sallen key +alfa=1.414;klp=1;//constant +Ap=3-alfa;// band pass gain +RfBYRi=Ap-1;//ratio +disp("Various design parameters are :-"); +C=0.05;//micro F//Chosen for the design +disp(C,"Capacitance C(micro F)"); +format('v',4); +R=1/(2*%pi*fH*10^3*C*10^-6)/1000;//kohm +disp(R,"Resistance R(kohm)"); +//For offset minimization +//2*R=Rf||Ri=Rf/(RfBYRi+1) +Rf=2*R*(RfBYRi+1);//kohm +disp(Rf,"Resistance Rf(kohm)"); +Ri=Rf/RfBYRi;//kohm +disp(Ri,"Resistance Ri(kohm)"); +//Answer in the book is not accurate. Some calculation mistake is there while working for offset minimization. diff --git a/2609/CH9/EX9.11/Ex9_11.sce b/2609/CH9/EX9.11/Ex9_11.sce new file mode 100755 index 000000000..5e484d486 --- /dev/null +++ b/2609/CH9/EX9.11/Ex9_11.sce @@ -0,0 +1,24 @@ +//Ex 9.11 +clc; +clear; +close; +format('v',5); +f0=2;//kHz(Critical frequency) +fH=f0;//kHz +f_3dB=f0;//kHz +//For Bessel filter of 2nd order +alfa=1.73;klp=0.785;//constant +Ap=3-alfa;// band pass gain +RfBYRi=Ap-1;//ratio +disp("Various design parameters are :-"); +C=0.05;//micro F//Chosen for the design +disp(C,"Capacitance C(micro F)"); +format('v',4); +R=klp/(2*%pi*fH*10^3*C*10^-6)/1000;//kohm +disp(R,"Resistance R(kohm)"); +//For offset minimization +//2*R=Rf||Ri=Rf/(RfBYRi+1) +Rf=2*R*(RfBYRi+1);//kohm +disp(Rf,"Resistance Rf(kohm)"); +Ri=Rf/RfBYRi;//kohm +disp(Ri,"Resistance Ri(kohm)"); diff --git a/2609/CH9/EX9.12/Ex9_12.sce b/2609/CH9/EX9.12/Ex9_12.sce new file mode 100755 index 000000000..67673c461 --- /dev/null +++ b/2609/CH9/EX9.12/Ex9_12.sce @@ -0,0 +1,24 @@ +//Ex 9.12 +clc; +clear; +close; +format('v',5); +f0=.12;//kHz(Cutoff frequency) +fH=f0;//kHz +//For Butterworth filter of 2nd order +alfa=1.414;klp=1;//constant +Ap=3-alfa;// band pass gain +RfBYRi=Ap-1;//ratio +disp("Various design parameters are :-"); +C=0.33;//micro F//Chosen for the design choosing between 0.01 & 1 micro F +disp(C,"Capacitance C(micro F)"); +format('v',4); +R=klp/(2*%pi*fH*10^3*C*10^-6)/1000;//kohm +disp(R,"Resistance R(kohm)"); +disp("Use R=3.9 kohm"); +//For offset minimization +//2*R=Rf||Ri=Rf/(RfBYRi+1) +Rf=2*R*(RfBYRi+1);//kohm +disp(Rf,"Resistance Rf(kohm)"); +Ri=Rf/RfBYRi;//kohm +disp(Ri,"Resistance Ri(kohm)"); diff --git a/2609/CH9/EX9.13/Ex9_13.sce b/2609/CH9/EX9.13/Ex9_13.sce new file mode 100755 index 000000000..56c25b88d --- /dev/null +++ b/2609/CH9/EX9.13/Ex9_13.sce @@ -0,0 +1,23 @@ +//Ex 9.13 +clc; +clear; +close; +format('v',5); +fL=20;//Hz(Cutoff frequency) +//For Butterworth filter of 2nd order +alfa=1.414;klp=1;//constant +Ap=3-alfa;// band pass gain +RfBYRi=Ap-1;//ratio +disp("Various design parameters are :-"); +C=0.22;//micro F//Chosen for the design choosing between 0.01 & 1 micro F +disp(C,"Capacitance C(micro F)"); +format('v',4); +R=klp/(2*%pi*fL*C*10^-6)/1000;//kohm +disp(R,"Resistance R(kohm)"); +//For offset minimization +//R=Rf||Ri=Rf/(RfBYRi+1) +Rf=R*(RfBYRi+1);//kohm +disp(Rf,"Resistance Rf(kohm)"); +Ri=Rf/RfBYRi;//kohm +Ri=floor(Ri);//kohm +disp(Ri,"Resistance Ri(kohm)"); diff --git a/2609/CH9/EX9.14/Ex9_14.sce b/2609/CH9/EX9.14/Ex9_14.sce new file mode 100755 index 000000000..d679266b2 --- /dev/null +++ b/2609/CH9/EX9.14/Ex9_14.sce @@ -0,0 +1,37 @@ +//Ex 9.14 +clc; +clear; +close; +format('v',5); +fH=2;//kHz(Cutoff frequency) +Ap=4;//Pass band gain +disp("Butterworth filter of 3rd order can be obtained by cascading of first and second order high pass filter."); +//Butterworth polynomial is (s+1)*(s^2+s+1) +alfa=1;//for sallen key +Ap2=3-alfa;//gain for 2nd order filter +Ap1=Ap/Ap2;//gain for 1st order filter +//Design parameters for 1st order filter : +disp("Various design parameters for 1st order filter are :-"); +C=0.01;//micro F//Chosen for the design +disp(C,"Capacitance C(micro F)"); +R=1/(2*%pi*fH*10^3*C*10^-6)/1000;//kohm +disp(R,"Resistance R(kohm)"); +disp("Use R=8.2 kohm"); +R=8.2;//kohm +//Ap1=Rf/Ri+1 ; with Ap1=2 we have Rf=Ri +Rf=2*R;//kohm +Ri=2*R;//kohm +disp(Ri,Rf,"Resistance Rf & Ri(kohm)"); +format('v',6); +//Design parameters for 2nd order filter : +kLp=1/alfa;//unitless +//Ap2=Rfdash/Ridash+1 ; with Ap2=2 we have Rfdash=Ridash +disp("Various design parameters for 2nd order filter are :-"); +C=0.033;//micro F//Chosen for the design +disp(C,"Capacitance C(micro F)"); +format('v',4); +R=kLp/(2*%pi*fH*10^3*C*10^-6)/1000;//kohm +disp(R,"Resistance R(kohm)"); +Rf=2*R;//kohm +Ri=2*R;//kohm +disp(Ri,Rf,"Resistance Rfdash & Ridash(kohm)"); diff --git a/2609/CH9/EX9.15/Ex9_15.sce b/2609/CH9/EX9.15/Ex9_15.sce new file mode 100755 index 000000000..208ae6e16 --- /dev/null +++ b/2609/CH9/EX9.15/Ex9_15.sce @@ -0,0 +1,38 @@ +//Ex 9.15 +clc; +clear; +close; +format('v',6); +fL=200;//Hz +fH=1; //kHz +Ap=4;//Pass band gain +fc=sqrt(fH*1000*fL);//Hz(Cutoff frequency) +BW=fH*1000-fL;//Hz +Q=fc/BW;//Quality Factor +disp(Q,"Quality factor is "); +disp("As Q<12, it is a wide band filter."); +Ap1=2;//Pass band gain for high pass section +disp("Various design parameters for high pass section are :-"); +C=0.033;//micro F//Chosen for the design +disp(C,"Capacitance C(micro F)"); +format('v',4); +R=1/(2*%pi*fL*C*10^-6)/1000;//kohm +disp(R,"Resistance R(kohm)"); +//Ap1=Rf/Ri+1 ; with Ap1=2 we have Rf=Ri +Rf=2*R;//kohm +Ri=2*R;//kohm +disp(Ri,Rf,"Resistance Rf & Ri(kohm)"); +Ap2=2;//Pass band gain for low pass section +disp("Various design parameters for low pass section are :-"); +format('v',6); +C=0.033;//micro F//Chosen for the design +disp(C,"Capacitance C(micro F)"); +format('v',4); +K=fL/(fH*1000);//unitless +Rdash=K*R;//kohm +disp(Rdash,"Resistance Rdash(kohm)"); +//Ap1=Rf/Ri+1 ; with Ap1=2 we have Rf=Ri +Rf=2*Rdash;//kohm +Ri=2*Rdash;//kohm +disp(Ri,Rf,"Resistance Rf & Ri(kohm)"); +disp("Use Rf=Ri=10 kohm"); diff --git a/2609/CH9/EX9.16/Ex9_16.sce b/2609/CH9/EX9.16/Ex9_16.sce new file mode 100755 index 000000000..d7c939382 --- /dev/null +++ b/2609/CH9/EX9.16/Ex9_16.sce @@ -0,0 +1,30 @@ +//Ex 9.16 +clc; +clear; +close; +format('v',5); +disp("Part(a)"); +fc=1.2;//kHz +Q=4;//Quality Factor +Ap=10;//Pass band gain +disp("Here 2*Q^2=32>AP=10, hence it can be designed using single op-amp."); +disp("Various design parameters are :-"); +C=0.05;//micro F//Chosen for the design +disp(C,"Capacitance C(micro F)"); +//fc/Q=1/(%pi*R2*C) +R2=Q/(fc*1000)/%pi/(C*10^-6)/1000;//kohm +disp(R2,"Resistance R2(kohm)"); +disp("Use R2=22 kohm"); +format('v',5); +R1=R2/(2*Ap);//kohm +disp(R1,"Resistance R1(kohm)"); +R3=R1*1000/(4*%pi^2*R1*1000*R2*1000*(C*10^-6)^2*(fc*1000)^2-1);//ohm +disp(R3,"Resistance R3(ohm)"); +disp("Use R3=460 ohm"); +disp("Part(b)"); +R3=460;//ohm +fc_new=1.5;//kHz +fc_old=1.2;//kHz +R3new=R3*(fc_old/fc_new)^2;//ohm +disp("Resistance R3 should be changed from "+string(R3)+" ohm to "+string(R3new)+" ohm"); +///Answer for R3 is wrong in the book diff --git a/2609/CH9/EX9.17/Ex9_17.sce b/2609/CH9/EX9.17/Ex9_17.sce new file mode 100755 index 000000000..78966f9db --- /dev/null +++ b/2609/CH9/EX9.17/Ex9_17.sce @@ -0,0 +1,31 @@ +//Ex 9.17 +clc; +clear; +close; +format('v',5); +fL=3;//kHz +fH=3.6;//kHz +Ap=-6;//Pass band gain +fc=sqrt(fH*fL)*1000;//Hz +BW=(fH-fL)*1000;//Hz +Q=fc/BW;//Quality factor +disp(Q,"Quality factor is "); +disp("Here 1<=Q<=12 criteria fulfills, hence it can be designed using single op-amp."); +disp("Various design parameters are :-"); +C=0.01;//micro F//Chosen for the design +disp(C,"Capacitance C(micro F)"); +//fc/Q=1/(%pi*R2*C) +format('v',4); +R2=1/%pi/(BW)/(C*10^-6)/1000;//kohm +disp(R2,"Resistance R2(kohm)"); +format('v',5); +R1=-R2/(2*Ap);//kohm +disp(R1,"Resistance R1(kohm)"); +R3=R1*1000/(4*%pi^2*R1*1000*R2*1000*(C*10^-6)^2*(fc)^2-1);//ohm +disp(R3,"Resistance R3(ohm)"); +disp("Design Verification : "); +disp(2*Q^2>abs(Ap),"(i) Is 2*Q^2>|Ap| ?"); +disp("For op-amp 741, GBW=1 MHz"); +GBW=1;//MHz +disp(GBW*10^6>20*Q^2*fc,"Is GBW*10^6>20*Q^2*fc ?"); +disp("2nd criteria failed. The op-amp should have higher GBW product. Use LF411"); diff --git a/2609/CH9/EX9.18/Ex9_18.sce b/2609/CH9/EX9.18/Ex9_18.sce new file mode 100755 index 000000000..891a73cf7 --- /dev/null +++ b/2609/CH9/EX9.18/Ex9_18.sce @@ -0,0 +1,34 @@ +//Ex 9.18 +clc; +clear; +close; +format('v',5); +Ap=-10;//Pass band gain +Q=22;//Quality factor +fc=50;//Hz +R=60;//dB/decade(Roll off rate) +disp("Roll off rate of single op-amp=20 dB/decade. No. of stages will be 3. Desired design can be obtained by cascading three stages."); +n=3;//no. of op-amps(as single op-amp has 20 dB/decade) +fc1=fc;//Hz +fc2=fc;//Hz +fc3=fc;//Hz +Q1=Q*sqrt(2^(1/n)-1);//Quality factor of each stage +Q2=Q1;//Quality factor +Q3=Q1;//Quality factor +Ap1=-(-Ap)^(1/n);//Band pass gain of each stage +Ap2=Ap1;//Band pass gain +Ap3=Ap1;//Band pass gain +//Design of a single op-amp +C=0.1;//micro F//Chosen for the design +disp("Various design parameters for a single stages are :"); +disp(C,"Capacitance C(micro F)"); +format('v',4); +R2=Q1/%pi/(fc)/(C*10^-6)/1000;//kohm +disp(R2,"Resistance R2(kohm)"); +format('v',5); +R1=-R2/(2*Ap1);//kohm +disp(R1,"Resistance R1(kohm)"); +format('v',4); +R3=R1/(4*%pi^2*R1*1000*R2*1000*(C*10^-6)^2*(fc)^2-1);//kohm +disp(R3,"Resistance R3(ohm)"); +//Answer for R2 is wrong in the book. diff --git a/2609/CH9/EX9.2/Ex9_2.sce b/2609/CH9/EX9.2/Ex9_2.sce new file mode 100755 index 000000000..6594521ed --- /dev/null +++ b/2609/CH9/EX9.2/Ex9_2.sce @@ -0,0 +1,20 @@ +//Ex 9.2 +clc; +clear; +close; +format('v',5); +fH=1;//kHz +Ap=2;//Pass band gain +disp("Various design parameters are :-"); +C=0.05;//micro F//Chosen for the design +disp(C,"Capacitance(micro F)"); +format('v',4); +R=1/(2*%pi*fH*1000*C*10^-6)/1000;//kohm +disp(R,"Resistance R(kohm)"); +//Ap=1+Rf/Ri +RfBYRi=Ap-1;//Rf=Ri here +//R=Rf||Ri +Ri=2*R;//kohm +Rf=Ri;//kohm +disp(Ri,"Resistance Ri(kohm)"); +disp(Rf,"Resistance Rf(kohm)"); diff --git a/2609/CH9/EX9.20/Ex9_20.sce b/2609/CH9/EX9.20/Ex9_20.sce new file mode 100755 index 000000000..d60afeeef --- /dev/null +++ b/2609/CH9/EX9.20/Ex9_20.sce @@ -0,0 +1,18 @@ +//Ex 9.20 +clc; +clear; +close; +format('v',5); +fNO=50;//Hz +Q=20;//Quality Factor +disp("Various design parameters are :-"); +C=1;//micro F//Chosen for the design +disp(C,"Capacitance C(micro F)"); +R=1/(2*%pi*fNO)/(C*10^-6)/1000;//kohm +disp(R,"Resistance R(kohm)"); +disp("Use R=3.2 kohm"); +//Q=(RA+RB)/4/RA +RA=1;//kohm(chosen for the design) +RB=Q*4*RA-RA;//kohm +disp(RA,"Resistance RA(kohm)"); +disp(RB,"Resistance RB(kohm)"); diff --git a/2609/CH9/EX9.3/Ex9_3.sce b/2609/CH9/EX9.3/Ex9_3.sce new file mode 100755 index 000000000..cbc56fad2 --- /dev/null +++ b/2609/CH9/EX9.3/Ex9_3.sce @@ -0,0 +1,11 @@ +//Ex 9.3 +clc; +clear; +close; +format('v',5); +f0=800;//Hz +//For Butterworth filter : f0=fH=f_3dB +fH=f0;//Hz +f_3dB=f0;//Hz +BW=fH;//Hz +disp(BW,"Bandwidth(Hz)"); diff --git a/2609/CH9/EX9.4/Ex9_4.sce b/2609/CH9/EX9.4/Ex9_4.sce new file mode 100755 index 000000000..d0d7a8691 --- /dev/null +++ b/2609/CH9/EX9.4/Ex9_4.sce @@ -0,0 +1,15 @@ +//Ex 9.4 +clc; +clear; +close; +format('v',5); +fH=2;//kHz(Cutoff frequency) +Ap=1;//Pass band gain +disp("Various design parameters are :-"); +C=0.05;//micro F//Chosen for the design between 0.01 & 1 micro F +disp(C,"Capacitance(micro F)"); +format('v',4); +R=1/(2*%pi*fH*1000*C*10^-6)/1000;//kohm +disp(R,"Resistance R(kohm)"); +Rdash=R;///kohm(To eliminate the effect of offset) +disp(Rdash,"Resistance R*(kohm)"); diff --git a/2609/CH9/EX9.5/Ex9_5.sce b/2609/CH9/EX9.5/Ex9_5.sce new file mode 100755 index 000000000..402ce6f66 --- /dev/null +++ b/2609/CH9/EX9.5/Ex9_5.sce @@ -0,0 +1,22 @@ +//Ex 9.5 +clc; +clear; +close; +format('v',4); +f0=1;//kHz(Cutoff frequency) +f0dash=1.5;//kHz(Cutoff frequency) +disp("Various design parameters are :-"); +//For Butterworth filter +fH=f0;//kHz +fHdash=f0dash;//kHz +K=f0/f0dash;//ratio +R=3.2;//kohm +Rdash=K*R;//kohm +disp(Rdash,"Resistance Rdash(kohm)"); +disp("Use Rdash=2.2 kohm"); +format('v',5); +C=0.05;//micro F//Chosen for the design +disp(C,"Capacitance(micro F)"); +format('v',4); +fHdash=1/(2*%pi*Rdash*1000*C*10^-6)/1000;//kHz +disp(fHdash,"Cutoff frequency(kHz)"); diff --git a/2609/CH9/EX9.6/Ex9_6.sce b/2609/CH9/EX9.6/Ex9_6.sce new file mode 100755 index 000000000..343f0d1ca --- /dev/null +++ b/2609/CH9/EX9.6/Ex9_6.sce @@ -0,0 +1,21 @@ +//Ex 9.6 +clc; +clear; +close; +format('v',5); +fL=400;//Hz +Ap=2;//Pass band gain +disp("Various design parameters are :-"); +C=0.05;//micro F//Chosen for the design between 0.01 & 1 micro F +disp(C,"Capacitance(micro F)"); +R=1/(2*%pi*fL*C*10^-6)/1000;//kohm +format('v',4); +disp(R,"Resistance R(kohm)"); +disp("Use R=8.2 kohm"); +//Ap=1+Rf/Ri +RfBYRi=Ap-1;//Rf=Ri here +//R=Rf||Ri +Ri=2*R;//kohm +Rf=Ri;//kohm +disp(Ri,"Resistance Ri(kohm)"); +disp(Rf,"Resistance Rf(kohm)"); diff --git a/2609/CH9/EX9.7/Ex9_7.sce b/2609/CH9/EX9.7/Ex9_7.sce new file mode 100755 index 000000000..a4b609e9d --- /dev/null +++ b/2609/CH9/EX9.7/Ex9_7.sce @@ -0,0 +1,17 @@ +//Ex 9.7 +clc; +clear; +close; +format('v',5); +fL=400;//Hz +fLdash=800;//Hz +K=fL/fLdash;//ratio +disp("Various parameters for retuning are :-"); +R=8.2;//kohm +Rdash=K*R;//kohm +disp(Rdash,"Resistance Rdash(kohm)"); +disp("Use Rdash=4.2 kohm"); +Rf=2*Rdash;//kohm +Ri=2*Rdash;//kohm +disp(Ri,"Resistance Ri(kohm)"); +disp(Rf,"Resistance Rf(kohm)"); diff --git a/2609/CH9/EX9.8/Ex9_8.sce b/2609/CH9/EX9.8/Ex9_8.sce new file mode 100755 index 000000000..af35c2141 --- /dev/null +++ b/2609/CH9/EX9.8/Ex9_8.sce @@ -0,0 +1,32 @@ +//Ex 9.8 +clc; +clear; +close; +format('v',6); +f0=3;//kHz(Critical frequency) +Ap=4;//Pass band gain +//For Butterworth filter using sallen key +alfa=1.414;klp=1;//constant +fH=f0;//kHz +f_3dB=f0;//kHz +disp("Various design parameters are :-"); +C1=0.01;//micro F//Chosen for the design +disp(C1,"Capacitance C1(micro F)"); +C2=alfa^2*C1/4;//micro F +disp(C2,"Capacitance C2(micro F)"); +disp("Use C2=0.004 micro F"); +C2=0.004;// micro F +R=1/(2*%pi*fH*10^3*sqrt(C1*10^-6*C2*10^-6))/1000;//kohm +format('v',4); +disp(R,"Resistance R(kohm)"); +disp("Use R=8.2 kohm"); +R=8.2;//kohm +//For offset minimization +Rdash=2*R;//kohm +disp(Rdash,"Resistance R*(kohm)"); +RfBYRi=Ap-1;//Rf=Ri here +//Ri=10 kohm chosen for design +Ri=10;//kohm +Rf=RfBYRi*Ri;//kohm +disp(Ri,"Resistance Ri(kohm)"); +disp(Rf,"Resistance Rf(kohm)"); diff --git a/2609/CH9/EX9.9/Ex9_9.sce b/2609/CH9/EX9.9/Ex9_9.sce new file mode 100755 index 000000000..104630d40 --- /dev/null +++ b/2609/CH9/EX9.9/Ex9_9.sce @@ -0,0 +1,35 @@ +//Ex 9.9 +clc; +clear; +close; +format('v',5); +f0=2;//kHz(Critical frequency) +Ap=5;//dc gain +//For Butterworth filter using sallen key +alfa=1.414;klp=1;//constant +fH=f0;//kHz +f_3dB=f0;//kHz +Ap1=3-alfa;//gain +RfBYRi=Ap1-1;//ratio +disp("Various design parameters are :-"); +C=0.05;//micro F//Chosen for the design +disp(C,"Capacitance C(micro F)"); +R=klp/(2*%pi*fH*10^3*C*10^-6)/1000;//kohm +disp(R,"Resistance R(kohm)"); +disp("Use R=1.6 kohm"); +//For offset minimization +//2*R=Rf||Ri=Rf/(RfBYRi+1) +Rf=2*R*(RfBYRi+1);//kohm +disp(Rf,"Resistance Rf(kohm)"); +Ri=Rf/RfBYRi;//kohm +format('v',4); +disp(Ri,"Resistance Ri(kohm)"); +//Ap=4;//dc gain in this case +Ap=4;//dc gain +Ap2=Ap/Ap1;//remainimg gain after 2nd order butterworth filter +RfdashBYRidash=Ap2-1;//ratio +//Ridash=10;//kohm chosen for design +Ridash=10;//kohm +disp(Ridash,"Resistance Ridash(kohm)"); +Rfdash=RfdashBYRidash*Ridash;//kohm +disp(Rfdash,"Resistance Rfdash(kohm)"); -- cgit