1 files changed, 17 insertions, 0 deletions
diff --git a/608/CH40/EX40.13/40_13.sce b/608/CH40/EX40.13/40_13.sce
new file mode 100755
index 000000000..4bf599745
--- /dev/null
+++ b/608/CH40/EX40.13/40_13.sce
@@ -0,0 +1,17 @@
+//Problem 40.13: A capacitor is charged with 5 mC. If the energy stored is 625 mJ, determine (a) the voltage across the plates and (b) the capacitance of the capacitor.
+
+//initializing the variables:
+e0 = 8.85E-12; 
+er = 1;
+Q = 5E-3; // in Coulomb
+W = 0.625; // in Joules
+
+//calculation:
+//voltage across the plates
+V = 2*W/Q
+//Capacitance C
+C = Q/V
+
+printf("\n\n Result \n\n")
+printf("\n voltage across the plates is %.0f V",V)
+printf("\n Capacitance C is %.2E F",C)
+\ No newline at end of file