initial commit / add all books

15 files changed, 130 insertions, 0 deletions

diff --git a/257/CH3/EX3.1/example_3_1.sce b/257/CH3/EX3.1/example_3_1.sce
new file mode 100644
index 000000000..25746735e
--- /dev/null
+++ b/257/CH3/EX3.1/example_3_1.sce
@@ -0,0 +1,8 @@
+//applying KVL we have Vi(t) = R*i(t) + 1/C * int(i(t)) dt

+//                     Vo(t) = 1/C * int(i(t)) dt

+

+syms s R C I

+Vi= R*I + I/(s*C)   

+Vo = I/(C*s)

+

+disp(Vo/Vi,"transfer function=")                
\ No newline at end of file
diff --git a/257/CH3/EX3.10/example_3_10.sce b/257/CH3/EX3.10/example_3_10.sce
new file mode 100644
index 000000000..226c2ece3
--- /dev/null
+++ b/257/CH3/EX3.10/example_3_10.sce
@@ -0,0 +1,5 @@
+syms s t R C

+

+C=R*(1+2*%e^-s)/(2*s^2 + 2*s +1)

+

+disp(C/R,'transfer function=')

diff --git a/257/CH3/EX3.11/example_3_11.sce b/257/CH3/EX3.11/example_3_11.sce
new file mode 100644
index 000000000..b9affc5fb
--- /dev/null
+++ b/257/CH3/EX3.11/example_3_11.sce
@@ -0,0 +1,20 @@
+// given gain of buffer amplifier is 1

+s=%s

+I=1;

+R=10^6;

+C=10^-6

+C2=0.5*10^-6;

+

+Vi=1/(C*s)*I + R*I

+V1=R * I

+disp(V1/Vi,"V1/Vi is ")

+

+V2=I/(C2*s) + I*R

+Vo= I*R

+disp(Vo/V2,"Vo/V2 is ")

+

+V1=V2   //because gain=1

+(s/(s+1))*Vi == (s+2)/s * Vo       //

+

+disp(s^2/((s+2)*(s+1)),"transfer function is")

+

diff --git a/257/CH3/EX3.12/example_3_12.sce b/257/CH3/EX3.12/example_3_12.sce
new file mode 100644
index 000000000..548b5f395
--- /dev/null
+++ b/257/CH3/EX3.12/example_3_12.sce
@@ -0,0 +1,18 @@
+//given poles are -1, -2+%i , -2-%i and zero is s=-3

+

+num=poly([-3],'s','roots');

+den=poly([5 9 5 1 ],'s','coeff');

+G=k*num/den;

+disp(G,"G(s)=")

+

+//to find k

+//G(0)=10  given

+

+k=(10*(0+1)*(0+0+5))/3

+disp(k,"value of k is")

+

+disp(G,"transfer function is")

+

+

+

+

diff --git a/257/CH3/EX3.13/example_3_13.sce b/257/CH3/EX3.13/example_3_13.sce
new file mode 100644
index 000000000..4dd64c9f1
--- /dev/null
+++ b/257/CH3/EX3.13/example_3_13.sce
@@ -0,0 +1,4 @@
+syms s t X

+Y=(s+4)/(s^2+2*s+5)*X

+y=ilaplace(Y,s,t)

+disp(y,'kj')
\ No newline at end of file
diff --git a/257/CH3/EX3.14/example_3_14.sce b/257/CH3/EX3.14/example_3_14.sce
new file mode 100644
index 000000000..377ac2a47
--- /dev/null
+++ b/257/CH3/EX3.14/example_3_14.sce
@@ -0,0 +1,8 @@
+s=%s

+syms Vi C1 R1 L C2 R2

+V1=Vi/(1+s*C1*R1)

+V2=I*(R2+s*L+(1/(s*C2)))

+V2=k*V1

+k*Vi/(1+s*C1*R1) == I*(R2 + s*L + (1/(s*C2)))

+

+disp((k*s*C2)/((1+s*C1*R1)*(1+s*C2*R2+(s^2)*L*C2)),'I/Vi=')
\ No newline at end of file
diff --git a/257/CH3/EX3.15/example_3_15.sce b/257/CH3/EX3.15/example_3_15.sce
new file mode 100644
index 000000000..70224bf28
--- /dev/null
+++ b/257/CH3/EX3.15/example_3_15.sce
@@ -0,0 +1,5 @@
+syms V2 I1 V1 

+I1=V1

+V2=V1*((s+1)/(s^2+3*s+1))

+

+disp(((s+1)/(s^2+3*s+1)),'V2/V1=')
\ No newline at end of file
diff --git a/257/CH3/EX3.2/example_3_2.sce b/257/CH3/EX3.2/example_3_2.sce
new file mode 100644
index 000000000..a7f62daf7
--- /dev/null
+++ b/257/CH3/EX3.2/example_3_2.sce
@@ -0,0 +1,6 @@
+syms s t R L C

+

+Eo= I/(C*s)

+Ei= I*(R+s*L+1/(s*C))

+

+disp(Eo/Ei,'transfer function=')

diff --git a/257/CH3/EX3.3/example_3_3.sce b/257/CH3/EX3.3/example_3_3.sce
new file mode 100644
index 000000000..e4ef1db88
--- /dev/null
+++ b/257/CH3/EX3.3/example_3_3.sce
@@ -0,0 +1,6 @@
+syms s t R L C

+

+Ei= I*L*s + I/(C*s) + R*I

+Eo= I*R

+

+disp(Eo/Ei,'transfer function=')

diff --git a/257/CH3/EX3.4/example_3_4.sce b/257/CH3/EX3.4/example_3_4.sce
new file mode 100644
index 000000000..53a44d5c5
--- /dev/null
+++ b/257/CH3/EX3.4/example_3_4.sce
@@ -0,0 +1,5 @@
+//laplace transform of unit impulse response is transfer function

+syms s t

+

+y=laplace(%e^(-4*t),t,s)

+disp(y,"transfer function=")
\ No newline at end of file
diff --git a/257/CH3/EX3.5/example_3_5.sce b/257/CH3/EX3.5/example_3_5.sce
new file mode 100644
index 000000000..9d335ac23
--- /dev/null
+++ b/257/CH3/EX3.5/example_3_5.sce
@@ -0,0 +1,10 @@
+syms s t

+

+R=laplace(2,t,s)

+C=laplace(%e^(-5*t),t,s)

+

+TF=C/R

+

+c=ilaplace(2/(s*(s+5)),s,t) // as C= TF * R

+

+disp(c,"output is c(t)=")
\ No newline at end of file
diff --git a/257/CH3/EX3.6/example_3_6.sce b/257/CH3/EX3.6/example_3_6.sce
new file mode 100644
index 000000000..b51fe0f5b
--- /dev/null
+++ b/257/CH3/EX3.6/example_3_6.sce
@@ -0,0 +1,18 @@
+s=%s;

+TF=syslin('c',(k*(s+6))/(s*(s+2)*(s+5)*(s^2+7*s+12)));

+disp(TF,"T(s)=")

+

+x=denom(TF);

+disp(x,"Characteristics equation=")

+

+y=roots(x);

+disp(y,"Poles of a system=")

+

+disp("zeroes of the system is -6")

+

+//pole zero plot 

+

+p=poly([6 1],'s',"coeff")

+q=poly([0 120 154 71 14 1],'s',"coeff")    //expanding the denominator

+V=syslin('c',p,q)

+plzr(V)

diff --git a/257/CH3/EX3.7/example_3_7.sce b/257/CH3/EX3.7/example_3_7.sce
new file mode 100644
index 000000000..d04966cf0
--- /dev/null
+++ b/257/CH3/EX3.7/example_3_7.sce
@@ -0,0 +1,5 @@
+syms s t

+

+T=laplace(%e^(-t)*(1-cos(2*t)))

+

+disp(T,"transfer function=")
\ No newline at end of file
diff --git a/257/CH3/EX3.8/example_3_8.sce b/257/CH3/EX3.8/example_3_8.sce
new file mode 100644
index 000000000..43eb2df2e
--- /dev/null
+++ b/257/CH3/EX3.8/example_3_8.sce
@@ -0,0 +1,6 @@
+syms  R2 Z

+

+Eo= I*R2

+Ei= I*Z + I*R2        //where Z= R1/(1+s*R1*C)

+

+disp(Eo/Ei,'transfer function=')

diff --git a/257/CH3/EX3.9/example_3_9.sce b/257/CH3/EX3.9/example_3_9.sce
new file mode 100644
index 000000000..0b26f5610
--- /dev/null
+++ b/257/CH3/EX3.9/example_3_9.sce
@@ -0,0 +1,6 @@
+syms R2 R1 C

+

+Eo= I*(1+R2*C*s)/(s*C)

+Ei= I*(R1+R2+(1/(s*C)))

+

+disp(Eo/Ei,'transfer function=')