:3); i: = 0 to m-1 do: = s3 + w [i] * (z [i, 1] + z [i, 2] + z [i, 3] + z [i, 4]); ('s3 =', s3: 4:3); i : = 0 to m-1 do: = s4 + w [i] * (z [i +1,1] + z [i +1,2] + z [i +1,3] + z [i +1 , 4]); ('s4 =', s4: 4:3);: = 0.25 * (s1 + s2 + s3 + s4); ('s =', s: 4:3);: = (abs ( sP)/P) * 100; ('P1 =', P1: 4:3);: = abs (Ps); ('P2 =', P1: 4:3);.
