More Accurate Parallel Resistance

[BERNARD MICHAUD]

A simple small programs for for those interested, using Joe's formula above which can calculate Series or Parallel Impedances. The program prompts you to enter several resistance and/or impedance values except '0' of course in the List L1 which you usually get by <Shift 7>, and press Enter.

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 display result.
END;

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





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

BM