+- HP Forums (https://www.hpmuseum.org/forum)
+-- Forum: HP Software Libraries (/forum-10.html)
+--- Forum: HP Prime Software Library (/forum-15.html)
+--- Thread: Series & Parallel Impedance Solver (/thread-6699.html)
Series & Parallel Impedance Solver - BERNARD MICHAUD - 08-18-2016 02:46 AM
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;