7 lines
199 B
Text
7 lines
199 B
Text
atest: Proc Options(main);
|
|
declare A(10) Dec Float(15) static initial (1,2,3,4,5,6,7,8,9,10);
|
|
declare (n,RMS) Dec Float(15);
|
|
n = hbound(A,1);
|
|
RMS = sqrt(sum(A**2)/n);
|
|
put Skip Data(rms);
|
|
End;
|