10-25-2018, 10:18 AM
Program that solve up to "Four Pair" of unequal value of "Resistors in Parallel"
and little add-on program that solve for one unknown out of two parallel resistors from your desire Total.
Procedure:
1st Program:
All resistors must be "unequal" in value.
Store each value from R0 to R7
[R/S]
2nd Program
Store R0 for known Total
Store R1 for one of the two known resistor.
To run first goto line 40
[R/S]
----------------------------------------------------
Example:
Program 1: FIX 4
What is the total with 4 resistors in parallel?
50, 65, 120 and 250
50 [STO] 0
65 [STO] 1
120 [STO] 2
250 [STO] 3
[R/S] 20.9565
------------------------------------------------------
Program 2: FIX 4
1st resistor is 50 and my desire total is 28.2608
What is the 2nd resistor value?
28.2608 [STO] 0
50 [STO] 1
[GTO] 40
[R/S] 64.9996 = 65
Program:
Gamo
and little add-on program that solve for one unknown out of two parallel resistors from your desire Total.
Procedure:
1st Program:
All resistors must be "unequal" in value.
Store each value from R0 to R7
[R/S]
2nd Program
Store R0 for known Total
Store R1 for one of the two known resistor.
To run first goto line 40
[R/S]
----------------------------------------------------
Example:
Program 1: FIX 4
What is the total with 4 resistors in parallel?
50, 65, 120 and 250
50 [STO] 0
65 [STO] 1
120 [STO] 2
250 [STO] 3
[R/S] 20.9565
------------------------------------------------------
Program 2: FIX 4
1st resistor is 50 and my desire total is 28.2608
What is the 2nd resistor value?
28.2608 [STO] 0
50 [STO] 1
[GTO] 40
[R/S] 64.9996 = 65
Program:
Code:
01 RCL 0
02 1/x
03 RCL 1
04 1/x
05 +
06 RCL 2
07 X=0
08 GTO 37
09 1/x
10 +
11 RCL 3
12 X=0
13 GTO 37
14 1/x
15 +
16 RCL 4
17 X=0
18 GTO 37
19 1/x
20 +
21 RCL 5
22 X=0
23 GTO 37
24 1/x
25 +
26 RCL 6
27 X=0
28 GTO 37
29 1/x
30 +
31 RCL 7
32 X=0
33 GTO 37
34 1/x
35 +
36 GTO 38
37 X<>Y
38 1/x
39 GTO 00
--------------------------------------
40 RCL 0
41 RCL 1
42 x
43 RCL 1
44 RCL 0
45 -
46 ÷
Gamo