SERIES PARALLEL SOLVER

[BERNARD MICHAUD]

This short program uses List L1 & L2 to solve Series or Parallel Impedances. Start the program which you can call SerParImp or your choice and input your series impedances in L1 or your parallel impedances in L2 and press Enter. Your total series Imp can be entered in the Parall. list L2 and vice versa to solve a complex circuit.

Code:


//Program Name SerParImp or your choice.
EXPORT Series()
BEGIN
L1:=0;//Clears values in L1
MSGBOX("  Enter your impedances
        in the List L1
         Press Enter");
EDITLIST(L1);//Prompts to enter values in the list
PRINT();
PRINT("





       Total Series Impedance = "+ΣLIST(L1));//Calculate and disply result.
END;

EXPORT Parallel()
BEGIN
L2:=0;
MSGBOX("  Enter your impedances
        in the List L2
         Press Enter");
EDITLIST(L2);
PRINT();
PRINT("





    Total Paralllel Impedance = "+ΠLIST(L2)/ΣLIST(ΠLIST(L2)/L2));
END;

BM