summaryrefslogtreecommitdiff
path: root/1859/CH7/EX7.16/exa_7_16.sce
blob: 0c3d87d37bf28438edd78701cea6cac5a34b9322 (plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
// Exa 7.16
clc;
clear;
close;
// Given data
r= 500;// in ohm
R2= 400;// in ohm
R3= 400;//in ohm
R4= 400;//in ohm
C= 2;// in miu F
C= C*10^-6;// in F
R= R2*R3/R4;// in ohm
disp(R,"Resistance of AB in ohm")
 L= C*R2/R4*(r*(R3+R4)+R3*R4);// in H
 disp(L,"Inductance of AB in H")