5 files changed, 68 insertions, 0 deletions
diff --git a/3845/CH18/EX18.1/Ex18_1.sce b/3845/CH18/EX18.1/Ex18_1.sce
new file mode 100644
index 000000000..eaee3c813
--- /dev/null
+++ b/3845/CH18/EX18.1/Ex18_1.sce
@@ -0,0 +1,15 @@
+//Example 18.1
+r=0.530*10^-10;//Separation (m)
+k=8.99*10^9;//Coulomb's constant (N.m^2/C^2)
+q1=-1.60*10^-19;//Charge of electron (C)
+q2=1.60*10^-19;//Charge of proton (C)
+F=k*abs(q1*q2)/r^2;//Coulomb force (N)
+printf('Electrostatic force = %0.2e N',F)
+G=6.67*10^-11;//Gravitational constant (N.m^2/kg^2)
+m=9.11*10^-31;//Electron mass (kg)
+M=1.67*10^-27;//Proton mass (kg)
+F_G=G*m*M/r^2;//Gravitational force (N)
+printf('\nGravitational force = %0.2e N',F_G)
+printf('\nRatio of electrostatic force to gravitational force = %0.2e',F/F_G)
+//Openstax - College Physics
+//Download for free at http://cnx.org/content/col11406/latest
diff --git a/3845/CH18/EX18.2/Ex18_2.sce b/3845/CH18/EX18.2/Ex18_2.sce
new file mode 100644
index 000000000..788b63f50
--- /dev/null
+++ b/3845/CH18/EX18.2/Ex18_2.sce
@@ -0,0 +1,13 @@
+//Example 18.2
+Q=2.00*10^-9;//Charge (C)
+k=8.99*10^9;//Coulomb's constant (N.m^2/C^2)
+r=5*10^-3;//Distance (m)
+E=k*Q/r^2;//Electric field strength (N/C)
+printf('Electric field strength = %0.2e N/C',E)
+if E>0
+    printf('\nDirection of electric field points away from the charge')
+else
+    printf('\nDirection of electric field points towards the charge')
+end
+//Openstax - College Physics
+//Download for free at http://cnx.org/content/col11406/latest
diff --git a/3845/CH18/EX18.3/Ex18_3.sce b/3845/CH18/EX18.3/Ex18_3.sce
new file mode 100644
index 000000000..993c97164
--- /dev/null
+++ b/3845/CH18/EX18.3/Ex18_3.sce
@@ -0,0 +1,12 @@
+//Example 18.3
+q=-0.250*10^-6;//Charge (C)
+E=7.20*10^5;//Electric field strength, See Example 18.2 (N/C)
+F=-q*E;//Force (N)
+printf('Force on the charge = %0.3f N',F)
+if q<0
+    printf('\nDirection of force is opposite to direction of field')
+else
+    printf('\nDirection of force is the same as the direction of field')
+end
+//Openstax - College Physics
+//Download for free at http://cnx.org/content/col11406/latest
diff --git a/3845/CH18/EX18.4/Ex18_4.sce b/3845/CH18/EX18.4/Ex18_4.sce
new file mode 100644
index 000000000..b9a774619
--- /dev/null
+++ b/3845/CH18/EX18.4/Ex18_4.sce
@@ -0,0 +1,14 @@
+//Example 18.4
+k=8.99*10^9;//Coulomb's constant (N.m^2/C^2)
+q1=5*10^-9;//Charge 1 (C)
+q2=10*10^-9;//Charge 2 (C)
+r1=2*10^-2;//Distance of charge 1 from the origin (m)
+r2=4*10^-2;//Distance of charge 2 from the origin (m)
+E1=k*q1/r1^2;//Electric field strength at origin due to q1 (N/C)
+E2=k*q2/r2^2;//Electric field strength at origin due to q2 (N/C)
+E_tot=sqrt(E1^2+E2^2);//Total electric field strength (N/C)
+printf('Magnitude of total electric field = %0.2e N/C',E_tot)
+theta=atand(E1/E2);//Direction (deg)
+printf('\nDirection of total electric field = %0.1f degrees',theta)
+//Openstax - College Physics
+//Download for free at http://cnx.org/content/col11406/latest
diff --git a/3845/CH18/EX18.5/Ex18_5.sce b/3845/CH18/EX18.5/Ex18_5.sce
new file mode 100644
index 000000000..90f626e10
--- /dev/null
+++ b/3845/CH18/EX18.5/Ex18_5.sce
@@ -0,0 +1,14 @@
+//Example 18.5
+m=4*10^-15;//Mass of gasoline drop (kg)
+g=9.80;//Acceleration due to gravity (m/s^2)
+w=m*g;//Weight of the drop (N)
+printf('a.Weight of the drop = %0.2e N',w)
+q=3.20*10^-19;//Charge (C)
+E=3*10^5;//Electric field strength (N/C)
+F=q*E;//Electric force (N)
+printf('\nb.Electric force on the drop = %0.2e N',F)
+F_net=F-w;//Net Force (N)
+a=F_net/m;//Acceleration (m/s^2)
+printf('\nc.Acceleration of the drop = %0.1f m/s^2',a)
+//Openstax - College Physics
+//Download for free at http://cnx.org/content/col11406/latest