summaryrefslogtreecommitdiff
path: root/29/CH1/EX1.6.5/exa1_6_5.sce
blob: 254ca960aad7fb98b4a906e5d52649c593052576 (plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
//Caption:initial_value
// example 1.6.5
//page 11
//I(s)=(C*s/(RCs+1))*E(s)
//given: E(s)=100/s,R=2 megaohm ,C=1 uF
// so, I(s)=(((1*10^-6)*s)/(2*s+1))*(100/s)
syms t
p=poly([0 10^-6],'s','coeff');
q=poly([1 2],'s','coeff');
r=poly([0 1],'s','coeff');
F1=p/q;
F2=1/r;
F=F1*F2
f=ilaplace(F,s,t);
z=limit(f,t,0);//initial value theorem
z=dbl(z);
disp(z,"i(0+)=")