HP Prime and TI-84 Plus
CE: Conversion between Delta and Y
Networks
DELTA2Y: Convert resistance from a Delta (Δ) network to
Y network using Kirchhoff’s Law.
Y2DELTA: Convert resistance from a Y network to Delta
(Δ) network using Kirchhoff’s Law.
Variables
|
Variable
|
HP Prime
|
TI-84 Plus CE
|
|
R1
|
r1
|
X
|
|
R2
|
r2
|
Y
|
|
R3
|
r3
|
Z
|
|
Ra
|
ra
|
A
|
|
Rb
|
rb
|
B
|
|
Rc
|
rc
|
C
|
DELTA to Y Networks
HP Prime
Program: DELTA2Y
EXPORT DELTA2Y(r1,r2,r3)
BEGIN
// Δ → Y Network
// 2016-10-10 EWS
LOCAL ra,rb,rc,w;
w:=r1+r2+r3;
ra:=(r1*r3)/w;
rb:=(r1*r2)/w;
rc:=(r2*r3)/w;
RETURN {ra,rb,rc};
END;
TI-84 Plus CE Program: DELTA2Y
Input "R1=",X
Input "R2=",Y
Input "R3=",Z
X+Y+Z→W
X*Z/W→A
X*Y/W→B
Y*Z/W→C
Disp "RA=",A
Disp "RB=",B
Disp "RC=",C
Example:
Input:
R1 = 5 Ω
R2 = 3 Ω
R3 = 5 Ω
Results:
Ra = 1.923076923 Ω
Rb = 1.153846154 Ω
Rc = 1.153846154 Ω
Y to DELTA Networks
HP Prime
Program: Y2DELTA
EXPORT Y2DELTA(ra,rb,rc)
BEGIN
// Δ → Y Network
// 2016-10-10 EWS
LOCAL r1,r2,r3,w;
w:=ra*rb+rb*rc+ra*rc;
r1:=w/rc;
r2:=w/ra;
r3:=w/rb;
RETURN {r1,r2,r3};
END;
TI-84 Plus CE Program: Y2DELTA
Input "RA=",A
Input "RB=",B
Input "RC=",C
AB+BC+AC→W
W/C→X
W/A→Y
W/B→Z
Disp "R1=",X
Disp "R2=",Y
Disp "R3=",Z
Example
Input:
Ra = 4 Ω
Rb = 8 Ω
Rc = 6 Ω
Results:
R1 = 17.33333333 Ω
R2 = 26 Ω
R3 = 13 Ω
Source: Milton Gussow “Schaum’s Easy Outlines: Basic Electricity” McGraw Hill: New York 2012.
This blog is property of Edward
Shore, 2016.