1 files changed, 27 insertions, 0 deletions
diff --git a/260/CH5/EX5.5/5_5.sce b/260/CH5/EX5.5/5_5.sce
new file mode 100644
index 000000000..2e07532d4
--- /dev/null
+++ b/260/CH5/EX5.5/5_5.sce
@@ -0,0 +1,27 @@
+//Eg-5.5
+//pg-223
+
+clear
+clc
+
+A=[0.35 0.15;0.15 .1];
+
+a1=zeros(2,1);
+a1(1)=trace(A);
+A1=A;
+
+for k=2
+   A2=A*(A1-a1(k-1)*eye(2,2));
+   a1(k)=trace(A2)/k;   
+end
+
+c=[1; -a1];
+
+disp("hence coefficients of eigen equation are as follows in decreasing order of polynomial")
+disp(c)
+
+p=[c(1),c(2),c(3)];
+s=roots(p);
+
+disp("hence eigen valuesi.e principal moments of inertia are....")
+disp(s)
+\ No newline at end of file