diff options
Diffstat (limited to '26/CH5/EX5.4.31/5_4_31.sce')
| -rwxr-xr-x | 26/CH5/EX5.4.31/5_4_31.sce | 9 |
1 files changed, 9 insertions, 0 deletions
diff --git a/26/CH5/EX5.4.31/5_4_31.sce b/26/CH5/EX5.4.31/5_4_31.sce new file mode 100755 index 000000000..121ab0a6b --- /dev/null +++ b/26/CH5/EX5.4.31/5_4_31.sce @@ -0,0 +1,9 @@ +disp('Given matrix A=')
+a=[-7 -48 -16;1 14 6;-3 -45 -19]
+disp(a)
+disp('and matrix P=')
+p=[-3 -2 3;1 1 -1;-3 -3 0]
+disp(p)
+disp('Hence, marix D=')
+s=inv(p)
+disp(s*a*p)
\ No newline at end of file |