blob: 2aea7f8a20dc28ee441c301aaee3b8508137e46e (
plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
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):");
|
