1 files changed, 12 insertions, 0 deletions
diff --git a/24/CH34/EX34.1/Example34_1.sce b/24/CH34/EX34.1/Example34_1.sce
new file mode 100755
index 000000000..05c290024
--- /dev/null
+++ b/24/CH34/EX34.1/Example34_1.sce
@@ -0,0 +1,12 @@
+//Given that
+d = 1.8  //in meter
+P = 250  //in W
+c = 3*10^8  //in m/s
+mu = 4*%pi*10^-7  //in SI unit
+
+//Sample Problem 34-1
+printf("**Sample Problem 34-1**\n")
+Erms = sqrt(P*c*mu/(4*%pi*d^2))
+Brms = Erms/c
+printf("The rms value of electric field is equal to %1.2eV/m\n", Erms)
+Brms = printf("The rms value of magnetic field is equal to %1.2eT", Brms)
+\ No newline at end of file