Average value code
Try cutting and pasting this into the restricted
Tcl interpreter, or return to the NArray page.
set len 10
narray create v $len
v vset dt [expr (2 * 3.141) / $len]
v vset theta 0
v map {
[] = sin(theta)
theta += dt
}
pnarray v
v vset max [v aref 0]
v vset min [v aref 0]
v map {
sum += []
if [] > max { max = []; }
if [] < min { min = []; }
}
puts "sum = [v vref sum]"
puts "average = [expr [v vref sum] / double([v dimensions])]"
puts "max = [v vref max], min = [v vref min]"
Sam Shen, slshen@lbl.gov
Last modified: Thu Oct 13 12:06:54 1994