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

---
 564/CH5/EX5.8/5_8.sce | 14 ++++++++++++++
 1 file changed, 14 insertions(+)
 create mode 100755 564/CH5/EX5.8/5_8.sce

(limited to '564/CH5/EX5.8/5_8.sce')

diff --git a/564/CH5/EX5.8/5_8.sce b/564/CH5/EX5.8/5_8.sce
new file mode 100755
index 000000000..ff68c2399
--- /dev/null
+++ b/564/CH5/EX5.8/5_8.sce
@@ -0,0 +1,14 @@
+pathname=get_absolute_file_path('5_8.sce')
+filename=pathname+filesep()+'5_8data.sci'
+exec(filename)
+L1=[L;L;L;1.41*L;1.41*L;L];
+F0=[0 0 -P 0 1.41*P 0];
+F1=[-0.71;-0.71;-0.71;1;1;-0.71];
+for i=1:6
+    X(i)=F0(i)*F1(i)*L1(i);
+    X1(i)=F1(i)*F1(i)*L1(i);
+end
+XBD= -sum(X)/sum(X1);
+Fa=[-XBD/1.41;-XBD/1.41;((XBD/1.41)+1);XBD;-(((XBD/1.41)+1))*1.41;-XBD/1.41];
+disp("Forces in the Mambrane are:");
+printf("\n %f N",Fa)
\ No newline at end of file
-- 
cgit