summaryrefslogtreecommitdiff
path: root/3769/CH5/EX5.45/Ex5_45.sce
blob: 8d60e346cf21724a6ed5dc5b05eb6e11a6ccfc45 (plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
clear
//Given
R1=2               //ohm
R2=4
R3=6
E=8
r=1

//Calculation
Rac=(R1+R2)*R3/(R1+R2+R3)
I=E/(Rac+r)
I1=I/2.0

//Result
printf("\n Internal resistance is  %0.3f  A", I1)