1 files changed, 10 insertions, 0 deletions
diff --git a/3020/CH21/EX21.13/ex21_13.sce b/3020/CH21/EX21.13/ex21_13.sce
new file mode 100755
index 000000000..1b834cec1
--- /dev/null
+++ b/3020/CH21/EX21.13/ex21_13.sce
@@ -0,0 +1,10 @@
+clc;
+clear all;
+C=2e-6;//capacitance of plate condensor
+V=1000;//applied voltage
+er=100;//the dielectric permittivity
+E=C*V^2/2;//energy stored in capacitor
+C0=C/er;
+Ewd=C0*V^2/2;//energy stored without the dielectric
+Ed=E-Ewd;//energy stored in the dielectric
+disp('J',Ed,'energy stored in the dielectric:')