... trình (8 .6 3) theo Prickett Lonnquist (1 97 1) là: h(i,j)[T(i-1,j, 2) + T(i,j, 2) + T(i,j, 1) + T(i,j-1, 1)] - T(i-1,j,2)h(i-1,j) - T(i,j, 2) h(i+1,j )- T(i,j,1)h(i,j+ 1) - T(i,j-1,1)h(i,j- 1) + h(i,j) Sx ... DO 60 I = 2,NI-1 OLDH = H(I,U) H(I,U) = (H(I1.U) +H(I+1,u) f-H(I Ui) +H(I,U+ 1)) /4 ERROR = ABS(H(I,U) - OLDH) IF (ERROR GT MAX) MAX = ERROR 60 CONTINUE 70 CONTINUE IF (MAX GT TOL) GOTO 50 C 531 ... -7 Sét 5.10 1.1 0-9 - 2.1 0-7 - Sét biển 8. 1 0-1 1 Đá trầm tích - 1.1 0-4 Đá vôi dolomit -4 6.10 - 1.1 0-7 Cát kết 6.1 0-4 - 3.1 0 -8 -7 - 1.1 0-1 1 Đá vôi Karst Đá phiến sét 2.10 Đá kết tinh - 4.1 0-5 -2 ...