1 files changed, 15 insertions, 0 deletions
diff --git a/2681/CH1/EX1.4/Ex1_4.sce b/2681/CH1/EX1.4/Ex1_4.sce
new file mode 100755
index 000000000..f3fe6fdd5
--- /dev/null
+++ b/2681/CH1/EX1.4/Ex1_4.sce
@@ -0,0 +1,15 @@
+//determine the charge Q at the point (2,0,0).
+//given
+clc
+Q1=-10D-9//coulombs
+epsilon0=8.85d-12//permitivity of free space
+r1=[3 1 1]-[0 0 0]
+r2=[3 1 1]-[2 0 0]
+R1=norm(r1)//magnitude of the given vector r1
+R2=norm(r2)//magnitude of vector r2
+ar1=r1/R1//unit vector
+ar2=r2/R2//unit vector
+deff("[Qt]=electricfield(E)","Qt=((E-((Q1/(4*%pi*epsilon0*R1^2))*ar1(1,1)))/ar2(1,1))*(4*%pi*epsilon0*R2^2)")
+Qt=electricfield(0)//in coulombs
+Qt=round(Qt*1d+11)/1d+11///rounding off decimals
+disp(Qt/1d-9,'the electrical field at the point [2,0,0] in nC')//nC