1 files changed, 33 insertions, 0 deletions
diff --git a/3838/CH6/EX6.13.c/EX6_13_C.sce b/3838/CH6/EX6.13.c/EX6_13_C.sce
new file mode 100644
index 000000000..c586cbb22
--- /dev/null
+++ b/3838/CH6/EX6.13.c/EX6_13_C.sce
@@ -0,0 +1,33 @@
+//EXAMPLE 6.13.C
+clear;
+clc;
+x1 = [1,1,1,1];
+x2 = [2,2,2,2];
+a = 1;
+b = 1;
+for n = 1:length(x1)
+  x3(n) = a*x1(n)+b*x2(n);
+end
+for n = 1:length(x1)
+  y1(n) = n*(x1(n))^(2);
+  y2(n) = n*(x2(n))^(2);
+  y3(n) = n*(x3(n))^(2);
+end
+for n = 1:length(y1)
+  z(n) = a*y1(n)+b*y2(n);
+end
+count = 0;
+for n =1:length(y1)
+  if(y3(n)== z(n))
+    count = count+1;
+  end
+end
+if(count == length(y3))
+   disp('Since It satisifies the superposition principle')
+   disp('The given system is a Linear system')
+   y3
+   z
+  else
+    disp('Since It does not satisify the superposition principle')
+    disp('The given system is a Non-Linear system')
+end