ftp.nice.ch/pub/next/science/physics/delta-sigma.s.tar.gz#/delta-sigma.src/dsp/rms.c

This is rms.c in view mode; [Download] [Up]

#include <math.h>

main(){
double v, total=0;
long int n=0;
while( scanf("%lf", &v) > 0 ){
    n++;
    total += v*v;
    }
printf("%g\n", sqrt(total/n));
}

These are the contents of the former NiCE NeXT User Group NeXTSTEP/OpenStep software archive, currently hosted by Netfuture.ch.