summaryrefslogtreecommitdiff
path: root/413/CH8/EX8.4/Example_8_4.sce
diff options
context:
space:
mode:
Diffstat (limited to '413/CH8/EX8.4/Example_8_4.sce')
-rw-r--r--413/CH8/EX8.4/Example_8_4.sce40
1 files changed, 40 insertions, 0 deletions
diff --git a/413/CH8/EX8.4/Example_8_4.sce b/413/CH8/EX8.4/Example_8_4.sce
new file mode 100644
index 000000000..829bb9cad
--- /dev/null
+++ b/413/CH8/EX8.4/Example_8_4.sce
@@ -0,0 +1,40 @@
+clc
+clear
+for i=1:35
+ for j=1:35
+ A(i,j)=0
+ end
+end
+for i=1:35
+ A(i,i)=-4
+end
+for i=1:34
+ A(i,i+1)=1
+end
+for i=2:34
+ A(i,i-1)=1
+end
+for i=6:5:30
+ A(i,i-1)=0
+end
+for i=1:30
+ A(i,i+5)=1
+end
+for i=1:30
+ A(i+5,i)=1
+end
+for i=5:5:35
+ A(i,i+1)=0
+end
+
+disp(A)
+for i=1:35
+ B(i,1)=-2
+end
+
+X=A\B
+disp(X)
+for i=1:5:35
+T=[ X(i,1), X(i+2,1),X(i+3, 1), X(i+4,1), X(i+5,1)]
+disp(T)
+end \ No newline at end of file