diff options
Diffstat (limited to '689/CH9/EX9.2/2.sce')
-rw-r--r-- | 689/CH9/EX9.2/2.sce | 16 |
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 |