10 files changed, 101 insertions, 0 deletions
diff --git a/67/CH6/EX6.1/example61.sce b/67/CH6/EX6.1/example61.sce
new file mode 100755
index 000000000..5db3959ff
--- /dev/null
+++ b/67/CH6/EX6.1/example61.sce
@@ -0,0 +1,22 @@
+//Example 6.1
+clc;
+disp('x(t)=3cos(50%pi*t)+10sin(300%pi*t)-cos(100%pi*t)');
+w1=50*%pi;
+w2=300*%pi;
+w3=100*%pi;
+f1=w1/(2*%pi);
+f2=w2/(2*%pi);
+f3=w3/(2*%pi);
+if f1>f2 then
+    if f1>f3 then
+        disp(2*f1,'Nyquist rate=');
+    else 
+        disp(2*f3,'Nyquist rate=');
+    end
+else
+    if f2>f3 then
+        disp(2*f2,'Nyquist rate=');
+    else
+        disp(2*f3,'Nyquist rate=');
+    end
+end
+\ No newline at end of file
diff --git a/67/CH6/EX6.2/example62.sce b/67/CH6/EX6.2/example62.sce
new file mode 100755
index 000000000..1d4dc07ee
--- /dev/null
+++ b/67/CH6/EX6.2/example62.sce
@@ -0,0 +1,15 @@
+//Example 6.2
+clc;
+disp('x(t)=(1/2%pi)cos(4000%pi*t)cos(1000%pi*t)');
+w1=5000*%pi;
+w2=3000*%pi;
+f1=w1/(2*%pi);
+f2=w2/(2*%pi);
+if f1>f2 then
+    nyquist_rate=2*f1;
+else
+    nyquist_rate=2*f2;
+end
+nyquist_interval=1/nyquist_rate;
+disp(nyquist_rate,'Nyquist rate=');
+disp(nyquist_interval,'Nyquist interval in seconds');
+\ No newline at end of file
diff --git a/67/CH6/EX6.26/example626.sce b/67/CH6/EX6.26/example626.sce
new file mode 100755
index 000000000..779034aaf
--- /dev/null
+++ b/67/CH6/EX6.26/example626.sce
@@ -0,0 +1,6 @@
+//Example 6.26
+//Find laplace transform x(t)=2e^(-3t)u(t)-e^(-2t)u(t)
+clc;
+syms t;
+x=2*%e^(-3*t)-%e^(-2*t);
+X=laplace(x);
+\ No newline at end of file
diff --git a/67/CH6/EX6.27.a/example627a.sce b/67/CH6/EX6.27.a/example627a.sce
new file mode 100755
index 000000000..4ab352365
--- /dev/null
+++ b/67/CH6/EX6.27.a/example627a.sce
@@ -0,0 +1,6 @@
+//Example 6.27a
+//Laplace transform of x(t)=t^3+3*t^2-6*t+4
+clc;
+syms t;
+x=t^3+3*t^2-6*t+4;
+X=laplace(x);
+\ No newline at end of file
diff --git a/67/CH6/EX6.27.b/example627b.sce b/67/CH6/EX6.27.b/example627b.sce
new file mode 100755
index 000000000..580c86850
--- /dev/null
+++ b/67/CH6/EX6.27.b/example627b.sce
@@ -0,0 +1,6 @@
+//Example 6.27b
+//x(t)=(cos(3t))^3
+clc;
+syms t;
+x=(cos(3*t))^3;
+X=laplace(x);
+\ No newline at end of file
diff --git a/67/CH6/EX6.27.c/example627c.sce b/67/CH6/EX6.27.c/example627c.sce
new file mode 100755
index 000000000..a1a32beab
--- /dev/null
+++ b/67/CH6/EX6.27.c/example627c.sce
@@ -0,0 +1,5 @@
+//Example 6.27c
+clc;
+syms a b t;
+x=sin(a*t)*cos(b*t);
+X=laplace(x);
+\ No newline at end of file
diff --git a/67/CH6/EX6.27.d/example627d.sce b/67/CH6/EX6.27.d/example627d.sce
new file mode 100755
index 000000000..b41d846fb
--- /dev/null
+++ b/67/CH6/EX6.27.d/example627d.sce
@@ -0,0 +1,5 @@
+//Example 6.27d
+clc;
+syms t a;
+x=t*sin(a*t);
+X=laplace(x);
+\ No newline at end of file
diff --git a/67/CH6/EX6.27.e/example627e.sce b/67/CH6/EX6.27.e/example627e.sce
new file mode 100755
index 000000000..88fdaa2a3
--- /dev/null
+++ b/67/CH6/EX6.27.e/example627e.sce
@@ -0,0 +1,6 @@
+//Example 6.27e
+clc;
+syms t s;
+x1=1-%e^t;
+X1=laplace(x1);
+X=integ(X1,s,s,%inf);
+\ No newline at end of file
diff --git a/67/CH6/EX6.4/example64.sce b/67/CH6/EX6.4/example64.sce
new file mode 100755
index 000000000..5b5aa88ee
--- /dev/null
+++ b/67/CH6/EX6.4/example64.sce
@@ -0,0 +1,22 @@
+//Example 6.4
+clc;
+disp('x(t)=6cos(50%pi*t)+20sin(300%pi*t)-10cos(100%pi*t)');
+w1=50*%pi;
+w2=300*%pi;
+w3=100*%pi;
+f1=w1/(2*%pi);
+f2=w2/(2*%pi);
+f3=w3/(2*%pi);
+if f1>f2 then
+    if f1>f3 then
+        disp(2*f1,'Nyquist rate=');
+    else 
+        disp(2*f3,'Nyquist rate=');
+    end
+else
+    if f2>f3 then
+        disp(2*f2,'Nyquist rate=');
+    else
+        disp(2*f3,'Nyquist rate=');
+    end
+end
+\ No newline at end of file
diff --git a/67/CH6/EX6.48/example648.sce b/67/CH6/EX6.48/example648.sce
new file mode 100755
index 000000000..e96643028
--- /dev/null
+++ b/67/CH6/EX6.48/example648.sce
@@ -0,0 +1,8 @@
+//Example 6.48
+clc;
+syms t s;
+x=1+%e^(-3*t)-%e^(-t);
+X=laplace(x);
+H=1/((s+1)*(s^2+s+1));
+Y=X*H;
+y=ilaplace(Y);
+\ No newline at end of file