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);