
Section 8.5 Coefficient inverse problem for elliptic equation 421
8.5.5 Program
The gradient method described above was realized in its simplest version with constant
iteration parameter s
k+1
(simple iteration method). In the perturbation procedure for
input data, a situation with perturbed boundary conditions of the second kind (8.167)
is modeled.
Program PROBLEM19
C
C PROBLEM19 - IDENTIFICATION OF THE LOWEST COEFFICIENT
C IN THE ELLIPTIC EQUATION OF SECOND ORDER
C TWO-DIMENSIONAL PROBLEM
C
IMPLICIT REAL
*
8 ( A-H, O-Z )
PARAMETER ( DELTA = 0.02D0, N1 = 51, N2 = 51 )
DIMENSION A(12
*
N1
*
N2), X1(N1), X2(N2), CK(N2), GR(N2)
+ ,YG1(N1), YG2(N2), YG3(N1), YG4(N2)
+ ,YD1(N1), YD2(N2), YD3(N1), YD4(N2)
+ ,YY1(N1), YY2(N2), YY3(N1), YY4(N2)
COMMON / SB5 / IDEFAULT(4)
COMMON / CONTROL / IREPT, NITER
C
C PARAMETERS:
C
C X1L, X2L - COORDINATES OF THE LEFT CORNER;
C X1R, X2R - COORDINATES OF THE RIGHT CORNER;
C N1, N2 - NUMBER OF NODES IN THE SPATIAL GRID;
C H1, H2 - SPATIAL STEP OF THE GRID;
C TAU - TIME STEP;
C DELTA - INPUT-DATA INACCURACY LEVEL;
C CK(N2) - COEFFICIENT TO BE RECONSTRUCTED;
C YG1(N1),
C YG2(N2),
C YG3(N1),
C YG4(N2) - MESH FUNCTION AT THE NEAR-BOUNDARY NODES;
C YD1(N1),
C YD2(N2),
C YD3(N1),
C YD4(N2) - DISTURBED MESH FUNCTION AT THE NEAR-BOUNDARY NODES;
C EPSR - RELATIVE ACCURACY FOR THE DIFFERENCE-PROBLEM SOLUTION;
C EPSA - ABSOLUTE ACCURACY FOR THE DIFFERENCE-PROBLEM SOLUTION;
C
C EQUIVALENCE ( A(1), A0 ),
C
*
( A(N+1), A1 ),
C
*
( A(2
*
N+1), A2 ),
C
*
( A(9
*
N+1), F ),
C
*
( A(10
*
N+1), U );
C
*
( A(11
*
N+1), US )
C
X1L = 0.D0
X1R = 1.D0
X2L = 0.D0
X2R = 1.D0
EPSR = 1.D-6
EPSA = 1.D-9
SS = - 40.D0
C