1 files changed, 15 insertions, 0 deletions
diff --git a/10/CH8/EX4/cha8_4.sce b/10/CH8/EX4/cha8_4.sce
new file mode 100755
index 000000000..7986fd7af
--- /dev/null
+++ b/10/CH8/EX4/cha8_4.sce
@@ -0,0 +1,15 @@
+Lw=30;R=15;Ia=3;V=45;
+
+Tow=Lw/R
+
+t1=0.7*Tow
+
+t0=0:0.1:t1;
+ 
+t=0;
+ 
+a=integrate('45*(-3+6*%e^(-x/2))','x',t,t0)
+ 
+ Energy=(1/2)*Lw*Ia^2
+ 
+ ProEnergy=(a/Energy)*100
+\ No newline at end of file