1 files changed, 14 insertions, 0 deletions
diff --git a/3293/CH6/EX6.1/Ex6_1.sce b/3293/CH6/EX6.1/Ex6_1.sce
new file mode 100755
index 000000000..d34c39e6b
--- /dev/null
+++ b/3293/CH6/EX6.1/Ex6_1.sce
@@ -0,0 +1,14 @@
+//page 184
+//Example 6.1
+clc;
+clear;
+close;
+disp('Standard ordered matrix for Linear operator T on R^2 is:');
+A = [0 -1;1 0];
+disp(A,'A = ');
+disp('The characteristic polynomial for T or A is:')
+x = poly(0,"x");
+p = detr(x*eye(2,2)-A);
+disp(p);
+disp('Since this polynomial has no real roots,T has no characteristic values.');
+//end