Mundarija kirish aniq integrallarni taqribiy hisoblash. Eng sodda interpolyatsion kvadratur formula to‘G’ri to‘rtburchaklar formulasi trapetsiyalar formulasi

FOR I = 1 TO N1
IF Z1(I) <= Z(I) AND Z(I) <= Z2(I) THEN N2 = N2 + 1: XTT(N2) = X(I): YTT(N2) = Y(I): ZT(N2) = Z(I)
'IF FNZ1(XT(I), YT(I)) <= Z(I) <= FNZ2(XT(I), YT(I)) THEN N2 = N2 + 1: XTT(N2) = XT(I): YTT(N2) = YT(I): ZT(N2) = Z(I)
NEXT I
PRINT " Z1(I) <= Z(I) <= Z2(I) SHART BO'YICHA Z(I)LAR SONI N2="; N2
FOR I = 1 TO N2
IF U(I) < FNF(XTT(I), YTT(I), ZT(I)) THEN N3 = N3 + 1: UT(N3) = U(I)
NEXT I
PRINT "U(I)
FOR I = 1 TO N3
PRINT USING "###.#####"; XTT(I); YTT(I); ZT(I); UT(I); FNF(XTT(I), YTT(I), ZT(I))
'S = S + FNF(XTT(I), YTT(I), ZT(I))
NEXT I
W = (B - A) * (D - C) * (H - G): PRINT "W="; W
S1 = W * N3 * M / N: PRINT " S1="; S1
END
N=? 20
A
C= 0 d= 3
G= 1 h= 9
M= 24
XI YI ZI Y1(I) Y2(I) Z1(I) Z2(I)
2.74289 0.16871 8.59645 0.00000 2.74289 2.91160 3.08031
2.04974 2.30133 1.42804 0.00000 2.04974 4.35107 6.65241
1.93740 0.89450 5.98157 0.00000 1.93740 2.83190 3.72639
1.52759 0.83803 7.63841 0.00000 1.52759 2.36561 3.20364
2.17833 2.95828 8.28771 0.00000 2.17833 5.13661 8.09488
2.39023 2.94001 2.95145 0.00000 2.39023 5.33024 8.27025
1.21274 2.99824 6.40941 0.00000 1.21274 4.21098 7.20923
2.15037 0.30016 1.82418 0.00000 2.15037 2.45052 2.75068
1.56896 0.13695 3.36618 0.00000 1.56896 1.70591 1.84286
1.60194 2.84571 8.83863 0.00000 1.60194 4.44765 7.29337
1.55656 0.48132 2.30257 0.00000 1.55656 2.03788 2.51921
1.82015 1.23830 6.70184 0.00000 1.82015 3.05845 4.29675
2.26636 0.62268 2.48811 0.00000 2.26636 2.88904 3.51172