Series & Parallel Impedance Solver - Printable Version +- 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; |