RosettaCodeData/Task/Averages-Root-mean-square/BBC-BASIC/averages-root-mean-square.basic

8 lines
156 B
Text
Raw Permalink Normal View History

2023-07-01 11:58:00 -04:00
DIM array(9)
array() = 1, 2, 3, 4, 5, 6, 7, 8, 9, 10
PRINT FNrms(array())
END
DEF FNrms(a()) = MOD(a()) / SQR(DIM(a(),1)+1)