Series & Parallel Impedance Solver

08182016, 02:46 AM
Post: #1




Series & Parallel Impedance Solver
For the Electricaly Wired. The program below will solve for Total Impedance of Series and Parallel Circuits.
1Create a NEW program... call it SERPAR or a title of your choice 2Delete the content EXPORT SERPAR() BEGIN END; 3COPY & PASTE the program below in its place. 4RUN 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; 

« Next Oldest  Next Newest »

User(s) browsing this thread: