RosettaCodeData/Task/Averages-Root-mean-square/Powerbuilder/averages-root-mean-square.powerbuilder
2016-12-05 23:44:36 +01:00

12 lines
198 B
Text

long ll_x, ll_y, ll_product
decimal ld_rms
ll_x = 1
ll_y = 10
DO WHILE ll_x <= ll_y
ll_product += ll_x * ll_x
ll_x ++
LOOP
ld_rms = Sqrt(ll_product / ll_y)
//ld_rms value is 6.20483682299542849