1 files changed, 16 insertions, 0 deletions
diff --git a/689/CH9/EX9.2/2.sce b/689/CH9/EX9.2/2.sce
new file mode 100644
index 000000000..2aea7f8a2
--- /dev/null
+++ b/689/CH9/EX9.2/2.sce
@@ -0,0 +1,16 @@
+clc; funcprot(0);
+//Example 9.2 Biot Savart's Law
+
+// Initialisation of variables
+T = 500;
+PB = 2;
+BA1 = 3;
+
+// Calculations
+theta1 = atan(PB/BA1);
+theta2  = %pi/2;
+R = PB;
+Vt = (T/(4*%pi*R))*(cos(theta1)-cos(theta2));
+
+//Results 
+disp(Vt,"Velocity at point P (ft/sec):");
+\ No newline at end of file