summaryrefslogtreecommitdiff
path: root/3651/CH1/EX1.2/Ex1_2.sce
diff options
context:
space:
mode:
Diffstat (limited to '3651/CH1/EX1.2/Ex1_2.sce')
-rw-r--r--3651/CH1/EX1.2/Ex1_2.sce9
1 files changed, 9 insertions, 0 deletions
diff --git a/3651/CH1/EX1.2/Ex1_2.sce b/3651/CH1/EX1.2/Ex1_2.sce
new file mode 100644
index 000000000..9a2e4af5c
--- /dev/null
+++ b/3651/CH1/EX1.2/Ex1_2.sce
@@ -0,0 +1,9 @@
+//Initialisation of variables
+clc
+
+d=((1.98)*10**-29)*1/3; //dipole moment
+b=(0.92); //bond length
+EC=d/(b*10**-10); //Effective charge
+
+//Result
+printf('Effective charge =%0.2f *10**-29 coulomb',((EC*10**19)))