HP Prime and TI84 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

TI84 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
// 20161010 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;
TI84 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
// 20161010 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;
TI84 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.
No comments:
Post a Comment