1 files changed, 17 insertions, 0 deletions
diff --git a/3769/CH8/EX8.18/Ex8_18.sce b/3769/CH8/EX8.18/Ex8_18.sce
new file mode 100644
index 000000000..6baaddce2
--- /dev/null
+++ b/3769/CH8/EX8.18/Ex8_18.sce
@@ -0,0 +1,17 @@
+clear
+//Given
+a=5*10**-2
+I=50
+e=1.6*10**-19
+B1=10**7
+u=4*3.14*10**-7                     //T/A m
+
+//Calculation
+//
+B=u*I/(2*%pi*a)
+F=e*B1*B
+
+//Result
+printf("\n (i) Force on electron when velocity is towards the wire %0.1f *10**-16 N",F*10**16)
+printf("\n (ii) Force on electron when velocity is parallel to the wire %0.1f *10**-16 N",F*10**16)
+printf("\n (iii) Force on electron when velocity is perpendicular to the wire is zero")