initial commit / add all books

1 files changed, 34 insertions, 0 deletions

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