**RLC Series**

The program
RLCSERIES (RLCSERIE for TI-84+) calculates:

· * The
total impedance of the circuit, and its magnitude in ohms

· * Phase
angle in a circuit in degrees.

· * Current
of the series in amps.

Input:

Battery/Source: enter voltage and frequency

Add as many
resistors (R) (in Ohms Ω), capacitors (C) (in farad), and inductors (L) (in
henrys) as needed.

Notes:

HP Prime
program only: On the input screen, enter
the real (a) and imaginary (if needed) (bi) parts separately. Complex numbers can be directly entered on
the TI-84+ program.

Example:

Series circuit
powered by a 14 V, 5000 Hz battery. The
circuit has: a resistor of 100 Ω, a capacitor of 3.2*10^-6 farads, and an
inductor of 0.082 henrys.

Results:

Total
Resistance:

100 +
2566.158792*i

Magnitude:

2568.10649035

Phase Angle:

87.7683842611°

Current:

5.45148733225 *
10^-3

**HP Prime: RLCSERIES**

// Impedance of a
Series

// EWS 2015-02-22

// Turn allow
complex from real input on

// Declare
subroutines

chsubr();

casubr();

// Main Routine

EXPORT RLCSERIES()

BEGIN

// initial steps

Z0:=0;

// radian mode

HAngle:=0;

// counter

I:=0;

// battery
information

INPUT({V,F},"Battery
Information",

{"V =
","F = "},

{"Volts","Frequency
(Hz)"});

chsubr();

END;

// Choose Subroutine

chsubr()

BEGIN

LOCAL ch;

CHOOSE(ch,"# of
Components: "+STRING(I),

{"Add Resistor
(R)",

"Add Capacitor
(C)",

"Add Inductor
(L)",

"Calculate"});

// Execute
calculation subroutine

casubr(ch);

END;

// Calculation
Subroutine

casubr(x)

BEGIN

IF x==1 THEN

INPUT(R,"Add
Resistor","R =",

// Impedance of a
Series

// EWS 2015-02-22

// Turn allow complex
from real input on

// Declare
subroutines

chsubr();

casubr();

// Main Routine

EXPORT RLCSERIES()

BEGIN

// initial steps

Z0:=0;

// radian mode

HAngle:=0;

// counter

I:=0;

// battery
information

INPUT({V,F},"Battery
Information",

{"V =
","F = "},

{"Volts","Frequency
(Hz)"});

chsubr();

END;

// Choose Subroutine

chsubr()

BEGIN

LOCAL ch;

CHOOSE(ch,"# of
Components: "+STRING(I),

{"Add Resistor
(R)",

"Add Capacitor
(C)",

"Add Inductor
(L)",

"Calculate"});

// Execute
calculation subroutine

casubr(ch);

END;

// Calculation
Subroutine

casubr(x)

BEGIN

LOCAL a,b;

IF x==1 THEN

INPUT({a,b},"Resistor
(Ω)",

{"a
=","bi="});

Z0:=Z0+(a+b*i);

I:=I+1;

chsubr();

END;

IF x==2 THEN

INPUT({a,b},"Capacitor
(farad)",

{"a
=","bi="});

Z0:=Z0-i/(2*π*F*(a+b*i));

I:=I+1;

chsubr();

END;

IF x==3 THEN

INPUT({a,b},"Inductor
(henry)",

{"a
=","bi="});

Z0:=Z0+i*2*π*F*(a+b*i);

I:=I+1;

chsubr();

END;

// Calculation

IF x==4 THEN

PRINT();

PRINT("Impedance
= "+Z0);

PRINT("Magnitude
(Ω) = "+ABS(Z0));

PRINT("Phase
Angle (°) ="+

STRING(ARG(Z0)*180/π));

PRINT("Current
(amps) = "+

STRING(V/ABS(Z0)));

RETURN Z0;

END;

END;

**TI-84+: RLCSERIE**

a+bi // Complex mode

Radian // Radians mode

0→Z

Disp “BATTERY”

Disp “V = VOLT”

Disp “F = FREQ (HZ)”

Prompt V,F

Lbl 0

Menu(“CIRCUIT”,”+
RESISTOR”,1,”+ CAPACITOR”,2,

“+ INDUCTOR”,3,”CALCULATE”,4)

Lbl 1

Input “R (OHMS):”,R

Z+R→Z

Goto 0

Lbl 2

Input “C (FARAD):”,C

Z-i/(2πFC)→Z

Goto 0

Lbl 3

Input “L (HENRY):”,L

Z+i2πFL→Z

Goto 0

Lbl 4

Disp “IMPEDANCE=”

Pause Z

Disp “MAGNITUDE=”

Pause abs(Z)

Disp “PHASE ANGLE (°)=”

Pause angle(Z)*180/π

Disp “CURRENT (AMPS)=”

Pause V/abs(Z)

Sources:

ElectronicsTutorials.
Series RLC Circuit Analysis
URL:

Retrieved February 22, 2015

Van Valkenburg, Mac E. (Editor) and Wendy M. Middelton
(Editor)

"Reference Data for Engineers: Radio, Electronics,
Computer, and

Communications"
9th Edition. Newnes,
Butterworth-Heinemann: Wolburn,

MA 2002. Print.

This blog is property of Edward Shore. 2015.

Your code is hard to understand for ti84. Is each line another rung? Also when you set radian an complex where are you finding a "Complex" in catalog?

ReplyDeleteI am not sure what you mean by rung.

DeleteRadians and Complex modes are set by pressing [MODE] and selecting the appropriate mode.

Eddie