Simple parallel circuit problem

[Vtile]

Here is simple program (I just typed) in UserRPL to make it easy with 28..50g. The original idea is from L.R.Linares (He have done really nice series of HP49/HP50g instruction videos to youtube), but I'm not sure if this is 1:1 his solution for this job or were it even Linares original idea at first place.

I named it Parallel Impedance, Pimp for short.

Code:


<<
INV SWAP INV SWAP + INV
>>

For imaginary circuit

Code:


        Z1              
-+--####--+------------+
  |              |                 |
  #             #                #
  #  Z4        #  Z3           #  Z2        
  #             #                #
  |              |                 |
-+----------+------------+

First enter two first parallel impedance values (in complex, s-domain, resistance form) in input line like:
Z2 [SPaCe] Z3
Pimp
=> 1/(1/Z2)+(1/Z3)
Z1 +
=> (1/(1/Z2)+(1/Z3))+Z1
Z4 Pimp
=> 1/(1/((1/(1/Z2)+(1/Z3))+Z1))+(1/Z4) <-- Parentheses look out..
That is it, now only should one use ->num etc. to get decimal form.

-Middle of night, -LV