summaryrefslogtreecommitdiff
path: root/1332/CH6/EX6.8/6_8.sce
diff options
context:
space:
mode:
authorpriyanka2015-06-24 15:03:17 +0530
committerpriyanka2015-06-24 15:03:17 +0530
commitb1f5c3f8d6671b4331cef1dcebdf63b7a43a3a2b (patch)
treeab291cffc65280e58ac82470ba63fbcca7805165 /1332/CH6/EX6.8/6_8.sce
downloadScilab-TBC-Uploads-b1f5c3f8d6671b4331cef1dcebdf63b7a43a3a2b.tar.gz
Scilab-TBC-Uploads-b1f5c3f8d6671b4331cef1dcebdf63b7a43a3a2b.tar.bz2
Scilab-TBC-Uploads-b1f5c3f8d6671b4331cef1dcebdf63b7a43a3a2b.zip
initial commit / add all books
Diffstat (limited to '1332/CH6/EX6.8/6_8.sce')
-rwxr-xr-x1332/CH6/EX6.8/6_8.sce26
1 files changed, 26 insertions, 0 deletions
diff --git a/1332/CH6/EX6.8/6_8.sce b/1332/CH6/EX6.8/6_8.sce
new file mode 100755
index 000000000..bec1d1835
--- /dev/null
+++ b/1332/CH6/EX6.8/6_8.sce
@@ -0,0 +1,26 @@
+//Example 6.8
+//Cholesky's Factorization
+//Page no. 243
+clc;clear;close;
+
+A=[1,2,3;2,5,8;3,8,22];
+U(2,1)=0;U(3,1)=0;U(3,2)=0;
+for i=1:3
+ for j=1:3
+ if(i==j)
+ k=0;
+ for m=1:i-1
+ k=k+U(m,i)^2;
+ end
+ U(i,j)=sqrt(A(i,j)-k)
+ end
+ if(j>i)
+ k=0;
+ for m=1:i-1
+ k=k+U(m,j)*U(m,i);
+ end
+ U(i,j)=(A(i,j)-k)/U(i,i)
+ end
+ end
+end
+disp(U,'Required Matrix (U)=') \ No newline at end of file