summaryrefslogtreecommitdiff
path: root/1319/CH2/EX2.12/2_12.sce
blob: 2bccde23af2e62082424e0bba919a669068f84c5 (plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
// Determine current through various values of RL

clc;
clear;

Rl=[0 2 5]; // Resistance Vector

//Resistances of the circuit in order from the 40V side.
R1=4;
R2=6;
R3=5;

//Voltage Source
V=40;

i=V/(R1+R2);

Vth=i*R2;

Rth=R3+(R1*R2/(R1+R2));

Cur=(Rth+Rl)/Vth; // Reciprocal of current

printf(' The Current through the Resistance RL = %g, %g, %g ohm is %g A, %g A, %g A respectively \n',Rl(1),Rl(2),Rl(3),1/Cur(1),1/Cur(2),1/Cur(3))