
Section 8.3 Identification of the boundary condition in two-dimensional problems 383
8.3.5 Program realization
The program presented below embodies the above iteration solution method for the
boundary value inverse problem (8.91)–(8.93), (8.95), (8.96) in the case of k(x) = 1.
The iteration method is terminated based on discrepancy.
Program PROBLEM17
C
C PROBLEM17 - BOUNDARY-VALUE INVERSE PROBLEM
C TWO-DIMENSIONAL PROBLEM
C ITERATIVE REFINEMENT OF THE BOUNDARY CONDITION
C
IMPLICIT REAL
*
8 ( A-H, O-Z )
PARAMETER ( DELTA = 0.005D0, N1 = 50, N2 = 50, M = 101 )
DIMENSION A(9
*
N1
*
N2), X1(N1), X2(N2), T(M)
+ ,Y(N1,N2), F(N1,N2), G(N1)
+ ,FI(N1,M), FID(N1,M), FS(N1,M), FIK(N1,M)
+ ,U(N1,M),UA(N1,M), UK(N1,M), R(N1,M), AR(N1,M)
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 - MESH SIZE OVER SPACE;
C TAU - TIME STEP;
C DELTA - INPUT-DATA INACCURACY LEVEL;
C FI(N1,M) - EXACT DIFFERENCE BOUNDARY CONDITION;
C FID(N1,M) - DISTURBED DIFFERENCE BOUNDARY CONDITION;
C U(N1,M) - EXACT SOLUTION OF THE INVERSE PROBLEM
C (BOUNDARY CONDITION);
C UA(N1,M) - APPROXIMATE SOLUTION OF THE INVERSE PROBLEM;
C EPSR - RELATIVE SOLUTION INACCURACY IN THE DIFFERENCE
C PROBLEM;
C EPSA - ABSOLUTE SOLUTION INACCURACY IN THE DIFFERENCE
C PROBLEM;
C
C EQUIVALENCE ( A(1), A0 ),
C
*
( A(N+1), A1 ),
C
*
( A(2
*
N+1), A2 ),
C
X1L = 0.D0
X1R = 1.D0
X2L = 0.D0
X2R = 0.5D0
TMAX = 1.D0
PI = 3.1415926D0
EPSR = 1.D-5
EPSA = 1.D-8
C
OPEN (01, FILE=’RESULT.DAT’) ! FILE TO STORE THE CALCULATED DATA
C
C GRID
C
H1 = (X1R-X1L) / N1