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

---
 1850/CH7/EX7.1/exa_7_1.sce   | 20 ++++++++++++++++++++
 1850/CH7/EX7.11/exa_7_11.sce | 21 +++++++++++++++++++++
 1850/CH7/EX7.12/exa_7_12.sce | 18 ++++++++++++++++++
 1850/CH7/EX7.2/exa_7_2.sce   | 33 +++++++++++++++++++++++++++++++++
 1850/CH7/EX7.3/exa_7_3.sce   | 28 ++++++++++++++++++++++++++++
 1850/CH7/EX7.4/exa_7_4.sce   | 12 ++++++++++++
 1850/CH7/EX7.6/exa_7_6.sce   | 11 +++++++++++
 1850/CH7/EX7.7/exa_7_7.sce   | 13 +++++++++++++
 1850/CH7/EX7.8/exa_7_8.sce   | 15 +++++++++++++++
 1850/CH7/EX7.9/exa_7_9.sce   | 25 +++++++++++++++++++++++++
 10 files changed, 196 insertions(+)
 create mode 100755 1850/CH7/EX7.1/exa_7_1.sce
 create mode 100755 1850/CH7/EX7.11/exa_7_11.sce
 create mode 100755 1850/CH7/EX7.12/exa_7_12.sce
 create mode 100755 1850/CH7/EX7.2/exa_7_2.sce
 create mode 100755 1850/CH7/EX7.3/exa_7_3.sce
 create mode 100755 1850/CH7/EX7.4/exa_7_4.sce
 create mode 100755 1850/CH7/EX7.6/exa_7_6.sce
 create mode 100755 1850/CH7/EX7.7/exa_7_7.sce
 create mode 100755 1850/CH7/EX7.8/exa_7_8.sce
 create mode 100755 1850/CH7/EX7.9/exa_7_9.sce

(limited to '1850/CH7')

diff --git a/1850/CH7/EX7.1/exa_7_1.sce b/1850/CH7/EX7.1/exa_7_1.sce
new file mode 100755
index 000000000..4856eecce
--- /dev/null
+++ b/1850/CH7/EX7.1/exa_7_1.sce
@@ -0,0 +1,20 @@
+// Exa 7.1
+clc;
+clear;
+close;
+//given data
+f=200;// in Hz
+// Let us take
+C=0.1;// in micro F
+C=C*10^-6;// in F
+R=1/(2*%pi*f*C*sqrt(6));// in ohm
+R=R*10^-3;// in k ohm
+// R1>=10*R, Let
+R1=10*R;// in kohm
+R_f= 29*R1;// in k ohm
+R_f=R_f*10^-3; // in M ohm
+R_f=ceil(R_f);
+disp(R_f,"Resistor of phase-shift oscillator in Mohm")
+
+
+
diff --git a/1850/CH7/EX7.11/exa_7_11.sce b/1850/CH7/EX7.11/exa_7_11.sce
new file mode 100755
index 000000000..9d1acbd97
--- /dev/null
+++ b/1850/CH7/EX7.11/exa_7_11.sce
@@ -0,0 +1,21 @@
+// Exa 7.11
+clc;
+clear;
+close;
+//given data
+C1= 0.01;// in microF
+C1=C1*10^-6;// in F
+R1=120;// in kohm
+R1=R1*10^3;// in ohm
+R2=1.2;// in kohm
+R2=R2*10^3;// in ohm
+R3=6.8;// in kohm
+R3=R3*10^3;// in ohm
+V_sat= 15;// in volt
+// Part(a)
+Vp_p= 2*(R2/R3)*V_sat;//in volt
+disp(Vp_p,"Peak to peak amplitude of triangular wave in volt")
+
+// Part(b)
+fo= R3/(4*R1*C1*R2);//in Hz
+disp(fo*10^-3,"Frequency of triangular wave in kHz");
diff --git a/1850/CH7/EX7.12/exa_7_12.sce b/1850/CH7/EX7.12/exa_7_12.sce
new file mode 100755
index 000000000..19d26429a
--- /dev/null
+++ b/1850/CH7/EX7.12/exa_7_12.sce
@@ -0,0 +1,18 @@
+// Exa 7.12
+clc;
+clear;
+close;
+//given data
+T= 100;// in micro sec
+T=T*10^-6;//in se
+V_sat= 12;// in volt
+V1= 0.7;// in volt
+V= 0.7;// in volt
+V_D1= V;
+V_D2=V_D1;
+C1= 0.1;// in microF
+C1=C1*10^-6;// in F
+Bita1= 0.1;
+// Formula T= R3*C1*log((1+V1/V_sat)/(1-Bita1))
+R3= T/(C1*log((1+V1/V_sat)/(1-Bita1)));// in ohm
+disp(R3*10^-3,"Value of R3 in kohm")
diff --git a/1850/CH7/EX7.2/exa_7_2.sce b/1850/CH7/EX7.2/exa_7_2.sce
new file mode 100755
index 000000000..e29ff2af3
--- /dev/null
+++ b/1850/CH7/EX7.2/exa_7_2.sce
@@ -0,0 +1,33 @@
+// Exa 7.2
+clc;
+clear;
+close;
+//given data
+f=1;// in kHz
+f=f*10^3;// in Hz
+V_CC= 10;// in volt
+I_B_max= 500;// in nA (for 741 IC op-amp)
+I_B_max= I_B_max*10^-9;// in A
+I1= 100*I_B_max;// in A
+V_out= (V_CC-1);// in volt
+V_in= V_out/29;
+R1= V_in/I1;// in ohm
+R1=R1*10^-3;//in k ohm
+// 5.6 k ohm resistor may be used for R1, being standard value resistor
+R1=5.6;// in k ohm (standard value)
+A=29;
+R_f= A*R1;
+// 180 k ohm resistor may be used to provide A > 29
+R_f=180;// in k ohm (standard value)
+R_comp= R_f;
+R=R1;// in k ohm
+R=R*10^3;// in ohm
+C=1/(2*%pi*f*R*sqrt(6));// in F
+C=C*10^6;// in micro F
+disp(R_comp,"Value of R_comp and R_f in kohm");
+disp(R*10^-3,"Value of R and R1 in kohm");
+disp(C,"Used capacitor in micro F")
+
+
+
+
diff --git a/1850/CH7/EX7.3/exa_7_3.sce b/1850/CH7/EX7.3/exa_7_3.sce
new file mode 100755
index 000000000..9895b5acb
--- /dev/null
+++ b/1850/CH7/EX7.3/exa_7_3.sce
@@ -0,0 +1,28 @@
+// Exa 7.3
+clc;
+clear;
+close;
+//given data
+f=10;// in kHz
+f=f*10^3;// in Hz
+I_Bmax= 500;// in nA
+I_Bmax= I_Bmax*10^-9;// in amphere
+// Let current through resistor R1 be equal to 100 times I_Bmax, so
+I_1= 100*I_Bmax;// in amp
+Vcc= 10;// in volt
+Vout= Vcc-1;// in volt
+Addition_RfR1= Vout/(500*10^-6);// value of Rf+R1 in ohm
+Addition_RfR1=Addition_RfR1*10^-3;// in kohm
+// Rf= 2*R1, So
+R1= Addition_RfR1/3;// (used 5.6 kohm Standard value resistor)
+R1= 5.6;// in kohm
+Rf= 2*R1;// in kohm// (used 12 kohm standard value resistor)
+Rf=ceil(Rf);
+R=R1;// in kohm
+C= 1/(2*%pi*f*R);// in F (Used 2700pF standard value)
+C=2700;// in pF 
+disp(R1,"Value of R1 in kohm")
+disp(Rf,"Value of Rf in kohm")
+disp(R,"Value of R in kohm")
+disp(C,"Value of C in pF")
+
diff --git a/1850/CH7/EX7.4/exa_7_4.sce b/1850/CH7/EX7.4/exa_7_4.sce
new file mode 100755
index 000000000..2b9eb3603
--- /dev/null
+++ b/1850/CH7/EX7.4/exa_7_4.sce
@@ -0,0 +1,12 @@
+// Exa 7.4
+clc;
+clear;
+close;
+//given data
+R= 1;// in kohm
+R=R*10^3;// in ohm
+C= 4.7;// in micro F
+C=C*10^-6;// in F
+omega=1/(R*C);// in radians/second
+f=omega/(2*%pi);// in Hz
+disp(f,"Frequency of the oscillation of the circuit in Hz")
diff --git a/1850/CH7/EX7.6/exa_7_6.sce b/1850/CH7/EX7.6/exa_7_6.sce
new file mode 100755
index 000000000..0aa2c76d9
--- /dev/null
+++ b/1850/CH7/EX7.6/exa_7_6.sce
@@ -0,0 +1,11 @@
+// Exa 7.6
+clc;
+clear;
+close;
+//given data
+R= 10;// in kohm
+R=R*10^3;// in ohm
+C= 100;// in pF
+C=C*10^-12;// in F
+f=1/(2*%pi*R*C);// in Hz
+disp(f*10^-3,"Frequency of the oscillation of the circuit in kHz")
diff --git a/1850/CH7/EX7.7/exa_7_7.sce b/1850/CH7/EX7.7/exa_7_7.sce
new file mode 100755
index 000000000..ea0c1f66e
--- /dev/null
+++ b/1850/CH7/EX7.7/exa_7_7.sce
@@ -0,0 +1,13 @@
+// Exa 7.7
+clc;
+clear;
+close;
+//given data
+fo= 318;// in Hz
+C= 0.015;// in microF
+C=C*10^-6;// in F
+R=0.159/(fo*C);// in ohm
+R=R*10^-3;// in kohm
+R=floor(R);
+disp(C*10^6,"Value of C1, C2 and C3 in micro F");
+disp(R,"Value of R1, R2 and R3 in kohm")
diff --git a/1850/CH7/EX7.8/exa_7_8.sce b/1850/CH7/EX7.8/exa_7_8.sce
new file mode 100755
index 000000000..ade7cc038
--- /dev/null
+++ b/1850/CH7/EX7.8/exa_7_8.sce
@@ -0,0 +1,15 @@
+// Exa 7.8
+clc;
+clear;
+close;
+//given data
+fo= 1.5;// in kHz
+fo=fo*10^3;// in Hz
+
+C= 0.01;// in microF
+C=C*10^-6;// in F
+R=0.159/(fo*C);// in ohm
+R=R*10^-3;// in kohm
+R=floor(R);
+disp(C*10^6,"Value of C1, C2 and C3 in micro F");
+disp(R,"Value of R1, R2 and R3 in kohm")
diff --git a/1850/CH7/EX7.9/exa_7_9.sce b/1850/CH7/EX7.9/exa_7_9.sce
new file mode 100755
index 000000000..74d640cae
--- /dev/null
+++ b/1850/CH7/EX7.9/exa_7_9.sce
@@ -0,0 +1,25 @@
+// Exa 7.9
+clc;
+clear;
+close;
+//given data
+C= 0.1;// in microF
+C=C*10^-6;// in F
+R=12;// in kohm
+R=R*10^3;// in ohm
+R1=120;// in kohm
+R1=R1*10^3;// in ohm
+Rf=1;// in Mohm
+Rf=Rf*10^6;// in ohm
+V_sat= 10;// in volt
+// Part(i)
+f=Rf/(4*R1*R*C);//in Hz
+disp(f*10^-3,"Signal Frequency in kHz")
+
+// Part(ii)
+Vp_p= 2*R1*V_sat/Rf;// in Vp_p
+disp(Vp_p,"Amplitude of the triangular wave in Vp_p")
+
+// Part(iii)
+Vp_p= (V_sat)-(-V_sat);
+disp(Vp_p,"Amplitude of the square wave in Vp_p")
-- 
cgit