From b1f5c3f8d6671b4331cef1dcebdf63b7a43a3a2b Mon Sep 17 00:00:00 2001
From: priyanka
Date: Wed, 24 Jun 2015 15:03:17 +0530
Subject: initial commit / add all books

---
 1034/CH6/EX6.3/6s3.sce | 34 ++++++++++++++++++++++++++++++++++
 1 file changed, 34 insertions(+)
 create mode 100755 1034/CH6/EX6.3/6s3.sce

(limited to '1034/CH6/EX6.3')

diff --git a/1034/CH6/EX6.3/6s3.sce b/1034/CH6/EX6.3/6s3.sce
new file mode 100755
index 000000000..15cd9748b
--- /dev/null
+++ b/1034/CH6/EX6.3/6s3.sce
@@ -0,0 +1,34 @@
+clear;
+clc;
+disp("Example 6.3");
+//Warshall's Algorithm
+clc;
+clear;
+funcprot(0)
+function[path]=transclose(adj,n)
+  for  i=1:n
+    for j=1:n
+      path((i-1)*n+j)=adj((i-1)*n+j);
+    end
+  end
+  for k=1:n
+    for  i=1:n
+      if(path((i-1)*n+k)==1)
+        for j=1:n
+          path((i-1)*n+j)=path((i-1)*n+j)|path((k-1)*n+j);
+        end
+      end
+    end
+  end
+  printf("Transitive closure for the given graph is:\n");
+  for  i=1:n
+    printf("For vertex %d \n",i);
+    for j=1:n
+       printf("%d %d is %d\n",i,j,path((i-1)*n+j));
+    end
+  end
+endfunction
+//Calling Routine:
+n=3;
+adj=[0 1 0 0 0 1 0 0 0]
+path=transclose(adj,n)
\ No newline at end of file
-- 
cgit