# Find the average of any numeric values in a list. If none of the # elements are numeric, return 0. # Copyright (c) 1996 by Hamilton Laboratories. All rights reserved. proc average( values ) local i, j, n @ j = 0 @ n = 0 if ($#values) then for i = 0 to $#values - 1 do if (isnumber(values[i])) then @ j += values[i] @ n++ end end if (n) @ j /= n end return j end average $argv
Hamilton C shell |
Free Updates |
Free Demo Software |
Win32 Training
Y2K |
Customer Testimonials |
On-line Hamilton C shell User Guide
Home |
Email |
Support |
Company Profile |
Distributors |
Links
Copyright © 1997-2001 by Hamilton Laboratories.
All rights reserved.
You are visitor number
907.
This page was last modified August 14, 2001.