File: stats.iff

package info (click to toggle)
ifeffit 2%3A1.2.11d-15
  • links: PTS, VCS
  • area: main
  • in suites: forky, sid
  • size: 12,332 kB
  • sloc: fortran: 35,441; ansic: 8,458; makefile: 4,727; python: 3,315; perl: 3,144; sh: 2,721; ada: 1,003; tcl: 95
file content (10 lines) | stat: -rw-r--r-- 284 bytes parent folder | download | duplicates (10) 
1
2
3
4
5
6
7
8
9
10
 
# generate statistics on an array.
#
macro stats m.x
  "simple statistics for an array"
  mean     = vsum($1)/npts($1)
  variance = vsum($1*$1)/npts($1)  - mean*mean
  std_dev  = sqrt(variance)
  print ' stats for $1 :'
  print ' mean +/- std_dev = ', mean, ' +/-', std_dev
end macro