summaryrefslogtreecommitdiff
path: root/689/CH7/EX7.1
diff options
context:
space:
mode:
authorprashantsinalkar2017-10-10 12:27:19 +0530
committerprashantsinalkar2017-10-10 12:27:19 +0530
commit7f60ea012dd2524dae921a2a35adbf7ef21f2bb6 (patch)
treedbb9e3ddb5fc829e7c5c7e6be99b2c4ba356132c /689/CH7/EX7.1
parentb1f5c3f8d6671b4331cef1dcebdf63b7a43a3a2b (diff)
downloadScilab-TBC-Uploads-7f60ea012dd2524dae921a2a35adbf7ef21f2bb6.tar.gz
Scilab-TBC-Uploads-7f60ea012dd2524dae921a2a35adbf7ef21f2bb6.tar.bz2
Scilab-TBC-Uploads-7f60ea012dd2524dae921a2a35adbf7ef21f2bb6.zip
initial commit / add all books
Diffstat (limited to '689/CH7/EX7.1')
-rw-r--r--689/CH7/EX7.1/1.sce23
1 files changed, 23 insertions, 0 deletions
diff --git a/689/CH7/EX7.1/1.sce b/689/CH7/EX7.1/1.sce
new file mode 100644
index 000000000..c175ba051
--- /dev/null
+++ b/689/CH7/EX7.1/1.sce
@@ -0,0 +1,23 @@
+clc; funcprot(0);
+//Example 7.1 Pressure distribution in real fluid
+
+// Initialisation of variables
+ky_U = [-1.56 -4.00 -1.58 -2.71 -3.01 -7.36 -2.88 -4.40 -1.58 -2.20 -0.64 -0.60 -0.04];
+ky_L = [-0.91 0.93 0.49 0.89 1.22 2.52 1.10 1.92 .86 1.56 0.70 1.16 0.23];
+x = 0.1;
+alpha = 16;
+
+i = 1;L = 0; U = 0;
+while(i < = length(ky_L)),
+ L = L + ky_L(i);
+ U = U + ky_U(i);
+ i = i + 1 ;
+end
+
+// Calculations
+Cn = x*(abs(L) + abs(U))/3;
+Cc = -0.34;
+Cl = Cn*cosd(alpha)-Cc*sind(alpha);
+
+//Results
+disp(Cl,"Lift Coefficient :"); \ No newline at end of file