summaryrefslogtreecommitdiff
path: root/620/CH11/EX11.3/example11_3.sce
blob: 09a9d2618cd28a63e9a6a03161ebeb53f25a3434 (plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
l=10*10^(-2);
a=l*l
f=1.2*10^(-2);
disp("Part a");
i=5;
b=f/a;
F=b*i*l;
disp("the force (in N) acting on the wire is"); disp(F);
disp("Part b");
deg=%pi/4;
F1=b*i*l*sin(deg);
disp("the force (n N) acting on the wire is"); disp(F1);
disp("Part c");
m=18*10^(-3);
g=9.8;
w=m*g;
i1=w/(b*l);
disp("he current (in A) that must pass through the wire is"); disp(i1);