RosettaCodeData/Task/Averages-Root-mean-square/Powerbuilder/averages-root-mean-square.powerbuilder
2023-07-01 13:44:08 -04: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