10/CH8/EX4/cha8_4.sce


1
2
3
4
5
6
7
8
9
10
11
12
13
14
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