
Section 8.2 Non-local distribution of boundary conditions 367
q
0
τ
−
2
h
q
1
− q
0
h
= 0, q
N
= 1. (8.89)
Substitution of (8.83) into (8.82) yields:
v
n+1
=
ϕ
n+1
− z
n+1
0
α + q
0
, n = 0, 1,...,N
0
− 1. (8.90)
For the solution of the difference problem (8.79)–(8.82) to be found, we have to solve
two standard problems, problems (8.84)–(8.87) and (8.88), (8.89) and, then, find the
function v
n
, n = 1, 2,...,N by formula (8.90); subsequently, the sought solution is
to be represented in the form (8.83).
8.2.5 Program
The above solution algorithm for the boundary value inverse problem (8.49), (8.50),
(8.52), (8.53) based on a non-local perturbation of the boundary condition is realized
in the program PROBLEM16.
Program PROBLEM16
C
C PROBLEM16 - IDENTIFICATION OF THE BOUNDARY CONDITION
C ONE-DIMENSIONAL NON-STATIONARY PROBLEM
C NON-LOCAL DISTURBANCE OF THE BOUNDARY CONDITION
C
IMPLICIT REAL
*
8 ( A-H, O-Z )
PARAMETER ( DELTA = 0.01D0,N=101,M=21)
DIMENSION X(N), Y(N), Z(N), Q(N)
+ ,FI(M), FID(M), FIY(M), U(M), UA(M)
+ ,A(N), B(N), C(N), F(N)
C
C PARAMETERS:
C
C XL, XR - LEFT AND RIGHT ENDS OF THE GEGMENT;
C N - NUMBER OF GRID NODES OVER SPACE;
C TMAX - MAXIMAL TIME;
C M - NUMBER OF GRID NODES OVER TIME;
C DELTA - INPUT-DATA INACCURACY LEVEL;
C FI(M) - EXACT DIFFERENCE BOUNDARY CONDITION;
C FID(M) - DISTURBED DIFFERENCE BOUNDARY CONDITION;
C U(M) - EXACT SOLUTION OF THE INVERSE PROBLEM
C (BOUNDARY CONDITION);
C UA(M) - APPROXIMATE SOLUTION OF THE INVERSE PROBLEM;
C
XL = 0.D0
XR = 1.D0
TMAX = 1.D0
C
OPEN ( 01, FILE=’RESULT.DAT’) ! FILE TO STORE THE CALCULATED DATA
C
C GRID
C
H=(XR-XL)/(N-1)