Series & Parallel Impedance Solver

[BERNARD MICHAUD]

For the Electricaly Wired. The program below will solve for Total Impedance of Series and Parallel Circuits.
1-Create a NEW program... call it SERPAR or a title of your choice
2-Delete the content
EXPORT SERPAR()
BEGIN

END;
3-COPY & PASTE the program below in its place.
4-RUN the program, and select, 1Series_Z
or 2Parallel_Z
For Series_Z: In Z1 enter 20, in Z2 enter 30 press [OK] answer = 50.

If you RUN the program again, Z1=20 and Z2=50,(Ans). If you want to accumulate resistance renter a new value in Z1 = 40 and press [OK] the answer now is 90. You can continue to accumulate resistors by entering a new value in Z1 and [OK]. Z2 will always retain the new result and will be Displayed in Real and Complex form.
The same process will work for Parallel_Z.

EXPORT Series_Z()
BEGIN
INPUT({{Z1,[3],{30,50,1}},{Z2,[3],{30,50,2}}},
"Impedance in Series",{"Z1 =","Z2 ="},
{
" Enter a value for Impedance Z1.",
" Enter a value for Impedance Z2."});
PRINT();
Z0:=Z1+Z2;
Z2:=Z0;
PRINT("

Impedance in Series

ZTr="+Z0+"



ZTp ="+polar_coordinates(Z0));
END;

EXPORT Parallel_Z()
BEGIN
INPUT({{Z1,[3],{30,50,1}},{Z2,[3],{30,50,2}}},
"Impedance in Parallel",{"Z1 =","Z2 ="},
{
" Enter a value for Impedance Z1.",
" Enter a value for Impedance Z2."});
PRINT();
Z0:=Z1*Z2/(Z1+Z2);
Z2:=Z0;

PRINT("

Impedance in Parallel

ZTr="+Z0+"



ZTp ="+polar_coordinates(Z0));
END;