summaryrefslogtreecommitdiff
path: root/1994/CH8/EX8.19/Example8_19.sce
blob: 5b09a6bf7e1c01a1f119a4209076850cf07f70fb (plain)
1
2
3
4
5
6
7
8
9
10
//Chapter-8,Example8_19,pg 8_63
P=0.4
Rarm=150//resistance in each arm
I=sqrt(P/Rarm)//P=(I^2)*R
//applying KVL to loop ABCEFA
r=1
E=25
R=(-I*Rarm-I*Rarm+E-2*I*r)/(2*I)
printf("series resistance\n")
printf("R=%.4f ohm",R)