1 files changed, 17 insertions, 0 deletions
diff --git a/689/CH2/EX2.6/6.sce b/689/CH2/EX2.6/6.sce
new file mode 100644
index 000000000..a8c19f359
--- /dev/null
+++ b/689/CH2/EX2.6/6.sce
@@ -0,0 +1,17 @@
+//Example 2.6  On Velocity and Stream Function
+
+// Initialisation of variables
+function[z] = shi(x,y)
+    z = x^2 - y^2;
+endfunction
+
+// Calculations
+h = 0.00001;
+u = (shi(3,2+h)-shi(3,2))/h;        // Partial derivative wrt y
+v = -(shi(3+h,2)-shi(3,2))/h;
+Velo = sqrt(u^2+v^2);
+theta =  atand(v/u);
+
+//Results 
+disp(theta,"Anticlockwise angle at P(3,2) (Degree)", Velo, "Magnitude of velocity at P(3,2) (ft/sec)");
+