20 lines
423 B
Plaintext
20 lines
423 B
Plaintext
double local fn QuadraticMean( array as CFArrayRef )
|
|
long count = len(array)
|
|
double sum = 0.0
|
|
for long i = 0 to count - 1
|
|
sum += dblval(array[i]) * dblval(array[i])
|
|
next
|
|
end fn = sqr(sum/count)
|
|
|
|
void local fn DoIt
|
|
CFMutableArrayRef array = fn MutableArrayNew
|
|
for long i = 1 to 10
|
|
MutableArrayAddObject( array, @(i) )
|
|
next
|
|
print @"RMS (1-10) = ";fn QuadraticMean(array)
|
|
end fn
|
|
|
|
fn DoIt
|
|
|
|
HandleEvents
|