22 lines
313 B
PostScript
22 lines
313 B
PostScript
/pythamean{
|
|
/x exch def
|
|
/sum 0 def
|
|
/prod 1 def
|
|
/invsum 0 def
|
|
/i 1 def
|
|
|
|
x{
|
|
/sum sum i add def
|
|
/prod prod i mul def
|
|
/invsum invsum i -1 exp add def
|
|
/i i 1 add def
|
|
}repeat
|
|
(Arithmetic Mean : ) print
|
|
sum x div =
|
|
(Geometric Mean : ) print
|
|
prod x -1 exp exp =
|
|
(Harmonic Mean : ) print
|
|
x invsum div =
|
|
}def
|
|
|
|
10 pythamean
|