summaryrefslogtreecommitdiff
path: root/564/CH5/EX5.8/5_8.sce
diff options
context:
space:
mode:
Diffstat (limited to '564/CH5/EX5.8/5_8.sce')
-rwxr-xr-x564/CH5/EX5.8/5_8.sce14
1 files changed, 14 insertions, 0 deletions
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