diff options
Diffstat (limited to '260/CH5/EX5.18')
| -rw-r--r-- | 260/CH5/EX5.18/5_18.sce | 15 |
1 files changed, 15 insertions, 0 deletions
diff --git a/260/CH5/EX5.18/5_18.sce b/260/CH5/EX5.18/5_18.sce new file mode 100644 index 000000000..d3eb7a414 --- /dev/null +++ b/260/CH5/EX5.18/5_18.sce @@ -0,0 +1,15 @@ +//Eg-5.18
+//pg-260
+
+clear
+clc
+
+A=[1 3 6;3 5 7;6 7 4];
+
+for l=20:-2:-6
+ p0l=1;
+ p1l=A(1,1)-l;
+ p2l=(A(2,2)-l)*p1l-A(1,2)^2;
+ p3l=(A(3,3)-l)*p2l-p1l*A(2,3)^2;
+ printf('lambda=%f,phi0lambda=%f,phi02ambda=%f,phi03ambda=%f',l,p0l,p1l,p2l,p3l)
+end
\ No newline at end of file |