Rotina para média ponderada - HP série 42, 48, 49 e 50

Postagem rápida para aqueles felizes proprietários de uma calculadora HP 42S/SX (tela azul), 48G/GX (tela azul), 49G+ etc e 50G (e qualquer outra aí no meio que eu tenha esquecido)

Neste momento de entrega do planejamento da obra para 2012, rolou de eu precisar fazer preços médios de itens proporcionais à quantidade de cada um. Resumindo: uma média ponderada.

Quant               Preços
   A                      E
   B                      F
   C                      G
   D                      H

Considere uma planilha onde a primeira coluna temos as quantidades e na segunda coluna os preços, os quais queremos a média.

No braço seria assim:

(A*E+B*F+C*G+D*H)/(A+B+C+D)


Para os dados de entrada:
8:                      A
7:                      B
6:                      C
5:                      D
4:                      E
3:                      F
2:                      G
1:                      H

Então, sem mais delongas, vamos à rotina bem simples:

<< DEPTH {} {} -> n q p
      << n 2 / ->LIST 'p' STO
           n 2 / ->LIST 'q' STO
          q p * EVAL 1 n
          2 / 1 - START +
                    NEXT q EVAL 1 n
          2 / 1 - START +
                    NEXT /
        >>
>>

Bacaninha assim.