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.
Nenhum comentário:
Postar um comentário
"Be cool" quando for escrever seu comentário. Seja construtivo!