Numerical Solu Tio 00 S Nid
Numerical Solu Tio 00 S Nid
Numerical Solu Tio 00 S Nid
Courant
r-
.,.,.
WURAMT
Institute of
INSTITUTE- LIBRARY.
^^
Mathematical Sciences
AEG Computing and Applied Mathematics Center
New
York University
--
co^--TS.
AEC Computing and Applied Mathematics Center Courant Institute of Mathematical Sciences New York University
NY0-l480-l67
A.
D.
Snider
UNCLASSIFIED
TABLE OF CONTENTS
Part
Introduction
1
6
6
Part
2.
Reflection
10
13 16
E.
21
25
F. Existence, Uniqueness, G.
Summary
3.
27
30 30
Part
34
35 36
49 54
57 64
66
Part
Results
68
69
71
73
D. Estimates of the
Contraction Coefficients
-111-
75
Bibliography
Figures
77
78
I.
Appendix
86
Appendix II.
Dimensional Perturbation
98
-IV-
ABSTRACT:
[1]).
solution.
8]
The
problems.
-V-
models.
contraction
-VI-
Part
1.
INTRODUCTION
The advent of the modern computer has stimulated
Nonetheless
In the case of
with the task of solving a large system of algebraic equations expressing the finite difference analogues of the
procedure.
differential equation.
-1-
particularly those
nonlinear examples
[10]
The
transforma-
-2-
[8])
Furthermore, it is
[8]
for example.
This
these problems
In Part
2
this is done in a summary at the end of the section. The application of the procedure in solving the
3.
The physical
escapes as a jet.
-3-
Furthermore, this
aperture.
Part
and efficiency are reported, and it is shown that the method converges about ten times faster than the steepest descent
[1]
-4-
the use of reflection rules whenever they are applicable in solving more general nonlinear elliptic boundary value
which
-5-
Part
A.
2.
REFLECTION
so a survey
introduction to the
method.
and obstacles are known data, but the location of the free
The
boundary conditions.
Specifically, in two-dimensional potential flow
problems, the components of velocity in the (x,y) plane
are obtained from
i>
= rr^ dy
= - -K^ dX
-6-
The equation
for
ij;
flow is irrotational:
-
curl V =
A4;
so
Tp
= constant
there.
p-
= constant
we must have
=
'
r.
3n
constant
The velocity is
i)
i-|l
y dy
= -
iM y dx
-7-
curl
v=--(Ai|j--|^) =0 y
y
and therefore
A4;
y 9y
^ |i =
ip
d\b
T-"-
y dn
= constant
unique solutions
are analytic.
Water is
The boundary
-8-
As we mentioned
(x,y)
plane,
hodograph method.
The fiinction
^p
to give an analytic
(i>
+ i^
We will present
B.
One
in terms of x and y
in an unknown region.
x + iy,
and if it is
simply connected and not the whole plane, then the Riemann
= z (w)
of
i|;
as a
ijj
these
z (w)
If V
denotes
-10-
and g(x,y),
we have V^
f (x(u,v) ,y (u,v)
)
V^g(x(u,v) ,y (u,v)
and
A^
f(x(u,v),y(u,v))
1^1
A^ f(x,y)
becomes
A
<J;(u,v) ' ^
and t
directions in the
_
z
and w planes.
9i|j
ij;
w w
9n
z
j)
w
w
9n
z
8n
9n
9t
But
9ip/9t
i|j
because
is constant there.
condition becomes
9iij
V-'-
9n
\1;
-"r-
dn
TT
9n
w = constant.
.
.
-11-
since
z (w)
9n
z
3n
'
3n
'
^r^ / Art 3n w
'
i '
9n
constant
i|j
is
parametrized
y
5
'
4^
AW;
z^
_ =
y
It transforms to
V y
i^
w^
]h
y
ip
in the w-plane
as before,
y 3n
-^
- /
'
TT
3n
'
= constant.
w
ip
is simpler,
given the
similar in form to the original, but these are to be solved in a known region.
The fly in the ointment here is that one must also
find the conformal map.
-12-
C.
Ay =
= x +i y of a point on
region.
-13-
described in
[2]
Douglas integral
((Vx)^ +
I
(Vy)^)
du dv
R
subject to a three-point normalization (i.e., the images
of three points on the boundary of the rectangle are fixed)
have Ax = Ay =
must be
One can express
x^x
t n
+ y.y
-^
t-'
where n and
respectively.
the vectors
(x
and (x ,y^)
XX u V
on all sides.
+ y y u-' V
-^
=0
-14-
Following Bloch, we
is harmonic if x and y
- Y 'u
= -^
2
Ij,
I
the
u V
-^
u-*
to zero,
2.
3.
-15-
D.
Reflection
To describe the use of reflection in seeking a
To
3)
(i,j), enumerating
1,3
4 T
(x.,,
.+x.
D
.+x.
D
1+1,
1-1,
i,D+l
.,,+x.
i,D-l
,)
+ 0(h
2
)
Of course,
-16-
be feasible.
new mesh points just outside the rectangle and use them
to write this same difference analogue of the differential
mesh points.
nonlinearities occur.
Clearly the technique is applicable, in theory
at least, to any problem in which the solution can be
-plane,
[9]
-17-
(Fig.
2),
corners; each one has a left and right and an upper and
lower neighbor.
This leaves us with the problem of writing
z-plane
Let us say the real-analytic curve
T
is one of
the bounding curves in the z-plane, and its pre-image is the bottom of the rectangle, v =
for
r
(Fig.
2).
The equation
is of the form
g(x,y)
equation for
in the form
F(z,z)
z,
and z_ because
-18-
is the
0,
and
and
z (w
F(z^,z_) =
at the
is a straight line,
say x = 1.
0,
then as
we get
z
+z
1
F(z^,Z2) =
-V^-
-1)
= -(z_-l).
Case
2.
is a circle,
say x
+ y
=1.
and
.
= z^Z2 - 1
z_
0.
-19-
Of course, if F(z,z)
is to specify a curve,
the (complex)
condition F(z,z) =
would
Define
and w as before.
.
Theorem
If
z (w)
- 0.
Proof
Noticing that w
= F(z(w) ,zCw))
z (w)
.
where
z (w)
When w = w
w = w_ and
is just F(z
z_)
We know F is analytic
Since
z (w)
is also
analytic,
z (w)
by composition.
w = u = w, then
f(w)
lies on T, so
= F(z,z)
= F(z{u),i(u))
Therefore
f (w)
-20-
Thus
F(z^,z_) = f(w^) =
Q.E.D.
analytic continuation
z_)
procedure
E.
What
These
What are
on the boundary?
-21-
(see Fig.
)
2)
As h goes to zero,
z_ =
z (w_)
,
= z (w
z-
= z(Wq),
z,
.
must
F(z,,z^) =
and
z,
lies on F.
is to notice that z
of
r,
so
z z
must lie on
function
the curve
First
v^e
If
,
is given as a function
of a real variable s,
= z(s)
then
dF
-a
must be real.
Therefore
dF = F,z 5^
ds
is real.
Is
+ F-z
2
Since z(s)
is arbitrary,
we conclude
= 0.
Thus
-22-
g=
= Re F^x
+ Im F2y^
Now
(x
,y.)
(Re Y^,
Im F2)
is
is again tangent to r.
by applying
If
=
F(z,,Z2)
defines z^ as an analytic
+ C2(z2-b)
...
Furthermore, c =
We have F(z Let us suppose that we just proved
r>
and
,
c,
)
= -
^2
(a,b)
z
=0
defining
in terms of z_.
?
as h
= 0.
0;
so F(^,C)
= -
(z -I)
- 2 + + c^(z_-C)
(CO
we ultimately have
-23-
'
As the mesh size h of the rectangle becomes smaller, ?-z_ ^+~^_ should give approximations the quantities -,and -rto the derivative of
-^
"
^2
i]^
T [F^z n +F~z n 2 2
vector
i.e.
n'
(A case
where
is zero
of
^n^t
for the function z(u,v)
-^
^n^t =
constant there.
From what
that
z
v/e
is analytic, i.e.,
that H = 0.
-24-
F.
on the
region.
converge.
that the
By shifting
-25-
Dirichlet and
Neijtmann
2 0(h),
Nimerical
)
(see below)
three analytic curves, we would naturally map two adjacent sides onto one of the curves, and we would not be specifying
the location of the included corner.
In Figure
4
we have
w^ and w..
its reflected images through the top and side are called
'
and w|
respectively.
by the
rule F(z
z(w_)
^1= i
(z_+Zc+2++23)
so 4z,-z^ = 4z2-z..
-26-
3z -4z,+z^ 3z -4z+z. 2 4 1 3 _ c c
2H
2H
8 z
at the corner,
we have
= z
there.
is
z
Thus x
= x
2 2 2 2 H = X +y -X -y V 'v u 'u
and therefore
is analytic.
-^
can we be sure
G.
Summary
The results of the preceding section can be stated
concisely as follows.
Then we write
F(z^,z_) =
-27-
for
tlie
reflected points.
Theorem
The solutions
x,
and
y,
The rate
of convergence is 0(h
function
to each other.
XX u v
+ y y u-' V
-^
=0
2 8-
make
z (w)
analytic.
However, as we
proceed in Part
-29-
Part
3.
in an (x,y) -plane.
'Jj(x,y),
il / y^ 3y
'^
-^
= - Mi / 3x ^
y"^
-^
where m =
is =
E |i
y 9y
-30-
Let
tiie
plane
Since the x-axis is a streamline, we can set
there arbitrarily.
one streamline, so
^p
i|^
will be a constant,
iJj-,
there- The
asymptotically.
be a constant, U^
ii=
9n
_ U
The speed
The value
i|^^
-31-
^i
at infinity in the
dimensions.
7n -
= Uq/2
Since ^ approaches
i|^^
when
y = Y^
Uq^co
m =
ni
^
Therefore
ij^_
- 1
specifying Y_
control.
-32-
Given
pressure drop
u'
^^"^
i|Jq
with
tlie
same Yq
by calculating
from (p1-Pq)
then
i|j
finally multiplying
by the constant
^Q/i>Q-
This flow
condition appropriate to
Y^Yq
The
number iX^/Y^)^'^^
(m,
as before, is
dimensions respectively)
and we shall determine this number in both the two- and three-
dimensional cases.
It follows that we can determine the flow region by
,-'
.
m= 1
and Y^ must be
The remaining
side would be mapped onto the fixed wall, and a simple pole
at the lower corner would map this corner to infinity in the
precisely.
The corner A of the rectangle, at the origin of the
so near
w =
we have
z(w)
^ R/w
The
to y = Y.
So the
Tr/2
to
it;
this is done
-34-
ip
has an expansion in (z z)
1/2 '
,
see
[1]
for details.
The side AD is mapped onto the x-axis The image of the line CD is a curve
CD' which
C.
0,
and y
(Fig.
5)
we derive
x^ = x_
and
y^ = -y_
situation.
and
x^ = -x_
-35-
Arguing as in Part
1,
XX u V
along AD and AB
+ y y u-' V
-^
D.
The Reflection Law at the Free Surface BC is to be mapped onto the free boundary
r,
but the
to work with.
However,
Then we
v/ill
have to study
i) ,
we again
2
to rewrite
[3]
dimensions
4;
(x,y;m)
= Im
2m
1
z
i
^:^_^^r"/2.._^,^NNm/2 (z-t)"'^^(z-g(t))
^1
^(_m^_m.
-36-
^.
(z-t)(z-g(t))
(z-t) (z-g(t))
)g.(^)l/2
^^^
where
and
.j~
is
r(i- ^)^ T
r(-
J)^
j=o r(j+i)^
8z 3z
2(z-z)
dz
for
^(x,y)
= 4^(^7^/ ^^f)
/
in this
tlie
4/
= 1 on r, but
m =
it becomes
ij;(x,y)
= Im
g' (t)
dt
^1
In two dimensions,
i)
-37-
(()(x,y)
to give an analytic
<t>
+ i ^ ^
g'(t)^/^ dt
^1
g(z)
(^)^ dz
^2
and w
denote
(Fig.
5).
=
=
z_)
z^ - g(z_)
=0
z, ^+
- g(Zrt) g(zQ)
?'
dz
^0
-38-
in z, and that of
in w.
I
^'
dw
dz/dw
Zq=z(Wq)
3v
dV
'
But since
({>
ip
^0 = "^v/'o
Similarly we find
2
1
'0
^UV
^0
VV
'P
^v
z.
dz
"T77
(j)
^vv
= -
^\,
^uu
and the latter is, again, zero along the top edge of the
rectangle.
to derive
in terms of w
-39-
"2
Z^ =
dzi
;;t
dw'w^
= -
^- ^0
i
r:
^0^ - ^ ., 2ih
^,,2. ^ + 0(h )
+ih
3
iiitJj
-,
+ 0(h
= z^ +
-h
2
ill
+ih ^ !z !ziHZ
\1)
higher
th.an
ence equation defined on the interior and boundary mesh points, At the points
z
T,
we have
z_
-h
=
^v
+ih
3
li
^v uv
lii
^_~^o
(z
-z^^)
,
If we multiply by
divide by h
2
,
part, we get
-40-
^^
-T
j-
= -
Notice that
r nand
mations to
^ on
the boundary,
or equivalently
</Nvl
- 1
With
-2z+z_ z_-z
h
^ 72
r:
Im
ll;
^v^uv
it
derivative
z/9v
so in the limit as h
->
the assumption
vv
il;
^v ^uv
ill
becomes 84;/8n =
^ /\z.
-41-
dn
with respect to u.
V V
.2
lil'
we have
:
UV V
z
V UV
I'd)
^V UV
\b
If
z (w)
is analytic,
= -iz
2
Im
ii
(z
Thus we have
^v^uv
ii
which is
We
might add that, had the reflection law not kept the h 3 term
with
^Ji'y.'v'
=0
along
T,
-42-
and
to become
derivati\'es
it should cause
so as to make
z
to be shifted in a direction
and
XX u V
(2)
will hold.
(3)
else the
which, of course,
z
and
-43-
should be
z
6,
where
and
denote
and
z
Then
correspond to
z
ct and
z
^r-
respectively.
,
and
as
correlated with that of x x + y y . sign change is exactly ^ uvu-^v Ultimately one sees that the simplest way of
introducing this shift into the reflection rule given above
is through a term of the form
^^
7t/2,
one shifts
X X +y y u V U-' V
-^
-z
by that of
in the law.
-44-
convergence process.
derivative
(z
These
= z +
.
where
for all the problems considered and all mesh sizes seems to
be about 50.
used.
-^
and
v'
independent of
-45-
[3]
also provides
in theory,
Instead of
-9iP
_
'
'^v
we want
1
3ip
v'
,2
^v
l^vl
along
F;
vv
1 3 =-.,-2
du
,^2
y
z,
'
+ Xh"
, i(x X +y y .ii.Juv-'u-'v
-46-
location of
T,
boundary conditions.
problems
We conclude that using the above approximations
to the reflection rules in the vena contracta problem
(1^
7-72- =
''
-^
7-77
^
,
= ^
,2
(2)
-Im(z
vv V
1 8 = -^ ir 2 3u
{\p
^v
or
-Im(z
,''^v. 3 = 1 ,r (^)
55-
du
(3)
X X + y y = u-' V u V
-^
Condition
(3)
+y -x -y /2 must v-'v u-'u^ be a constant, which will be zero when z (w) is analytic.
Equation
(1)
when
(1)
z (w)
is analytic, and
is just a consequence of
and analyticity.
-47-
formulation.
(3)
holds
must be tested.
Third, we
(x,y;m)
= Im
ijj^
J
^1
^(-^,-^;l; -f
^
(^-t)(z-g(t))
)
1/2
^.^^^
^^
(i-t) (z-g(t))
provides
z+ - Zq " g(z_)
- g(zQ)
.2
dz
^0
-48-
where
E.
= iY-
(Fig.
5)
,w_
are indicated.
the neighbor-
The reflections
respectively.
-49-
The z-images
also shown.
z,
lies above Zq
on the Y-axis,
below
For
coalesce
The rule for reflecting through the y-axis
z^ = - i_
is exact and can be applied accurately at this corner,
yielding
z^
and z_ from
z-,
and z,.
becomes useless;
and
on AB and
through z^
^1
= ^2 - ^0
r
C'^ dz
^0
As we indicated above,
-50-
{z-z_)
1/2 '
More explicitly,
+ A^Cz-Zq) ^/^+. ..
= Cq + Aj^Cz-Zq)-"-/^ + A2(z-Zq)
[7])
This gives
so we can write
z.
Since
z,-z is 0(h
2
)
z_
z,
Thus
while the
Also we have
^x
ilj
^y
on AB, so
^0 = i ^x
^2 - ^0 = - ^^'l-^O^'^x + ^^^^
at Zq
ip^,
namely
-51-
since
ij;
= 1 on the y-axis
ip
estimates yield
'''3
'''O
'''x^''3~''0^
^ ^^^^
+ 0(h
'
^ obtain
^3-1^0
2 3
Z2 = Zq +
(Zq-z^)
{^^-^)
,2
.
limits as h
we get
z
= z
,2
V ^x
ip
Im
and
^p'^
^x
= 1
or
(2)
z^ =
But
x=OonAB, SOX V =0
'
=0
-52-
We get ^
vv
= (z
'
ili
^x
vv
=0
and either Im
z
=0
'V'
^x
=1.
and
2
i|^
^x
=1.
Since
^p
Speed condition, and thus it is consistent too. Summarizing, we have shown that in the two-dimensional
case the reflection rule for obtaining z^ = zCw-)
from z^
should not be the same rule as was used along BC; instead
it
(z^-zj 1
-)'^ { ^x^-x-.
(Zq-z,)
1^
y
-T
'^x
= 1
'
-53-
to approach
in the formula,
in both
F.
i^j
max ,
is increased
(see Fig. 5)
X = x.
= constant,
and
=
ij,
-54-
'
max ,
max
-*
to zero.
Since
x, 1
is
Experimentation on
x,
and further
choice of
x,
that we make H =
is too large,
If x-
of the map
z (w)
so H H will
x,
while
We could
x,
by an amount
X,
= y H
where
y is
a positive constant.
[1]
scheme in
More specifically,
1,
-55-
are shifted by a
proportional amount.
shifting
x,
This
, '
or in other words U
/h. max'
y
the mapping
is given by
X = au
y = V
This gives
H = x
2^2 +y
-'v
2 2 -y -X u -^u
=l-a
T
and
x,
= 4a
-56-
must be shifted by
6x,
- 4a
Thus
^ -
"T" 1.
4 _ 4- 4a _ J - T+E : 1 -a
giving
y =
when
a =
We anticipate that when our w-rectangle in the vena contracta problem is 4x1, the optimal value of
in the shift formula should be aro\ind 2.
y
Actual
experimentation
shov/s
= 2.8
G.
transformation
z (w)
z(w)
-57-
determined by the base AD, the side AB, and the line
running from
vr
= i/2 to
w = 1/2
(Fig.
8)
we subtract off
?(w)
^ w
(w)
Clearly, knowing
to knowing
z (w)
.
^ (w)
and
[1])
C
sides
z.
is
z^ + z_ = +
z (w_)
z (w_^)
-5 8-
where
w=-h
the
iv,
=h+iv
size and v denoting
rr.esh
Substituting
r,
is given by
Similar considerations
reflecting
r,
shov7
? (w)
is now completely
z (w)
is
We have
1
Section
A)
so there is
-59-
However, we
difference equations.
this schem.e.
7,
w^-
Wq,
The
v/
along
by u (the ordinate is
i)
we have
-60-
x(u+i)
^0
-^
y(u+i) =
at separation:
The constant
solved, the
(3xg -
I Xg
^ Xg)/h + 0{h^)
x near separation.
'^
residue R as follows.
R.
Since the
An accurate measure
the derivative x
-62-
5R =
5^
and
ii
again.
The
Since
= 1
on AB and
li;
In two
dimensions.
-63-
ill,
2 arccos
,r
TiT+vV^
t-t-tt'
''^1
U
,,
u
2
1/2'
triangular region.
to
z'
The variables
and
ip
are transformed
and
ip
'
= 1/z =
i(;/lz|
^'
bounded,
H.
is
1,3
T
TT
(X.
+ X.
1-1,
i,D-l
+ X.,,
1+1,3
+ X.
ifD+1
.,,)
A similar equation
written for
Ay =
-64-
[ID
=
i-l/J J--1/3
a.
1,3-1^1,3-1
i-lfD
,
1+1,3^1+1,]
i,j+l^i,3+l
,|,.
'-'
.+a.
i/D-1
where
^'^
^k,+yi,j
axisymmetric case.
-65-
I.
A typical
unknowns x = X, y = Y, and
i|j
single
word size.
Careful study of the code will enable the reader
to identify
tJie
directions respectively
NOHALF
IPOLE
G)
performed on x and y,
per iteration on ^
is
of Section A, Part
-66-
RELAXZ, RELAXSI
factors r =
2 ^-^
in the computation of
and
ii
respectively
CONVERG is the number with which the residuals are compared
to determine convergence
RESCON
SENS
is n of Section A, Part
is y of Section A, Part 4.
-67-
Part 4.
RESULTS
The program described above was run on New York
We conclude with
Throughout Part
-68-
'
A.
These are:
the coefficient of ^^^^'''^u^v ^^ ^^^ free
X,
y,
for shifting x,
n,
the coefficient of
at
z (w)
and
ip
(w)
In the text
max ,
y,
and n
-69-
= 50,
= 2.8,
and
n to
In the
In fact,
Bloch
[1]
-70-
coefficient, C
C (U
)
max'
+ A e"'^ "n^ax
.
where A and
are constants
B.
write centered
Vx
=4
1/3.
-71-
C.
The computer
rvins
with
U
max
=4
h = 1/48 '
The computer
;
V7as
run until
dimensional run starting with the same data and cutting off
at 10
6
;
it employs U
max
, '
h = 1/48 '
with U
max
=4
However, to
reduced to 10
-73-
D,
[1])
max'
+ A e
max
max
on the truncating
line CD.
max
=4
1/3, r /
h = 1/48 /
by the h
--
>
by
-^
.61106
m = m =
1
C^ = .59142
quotes
C^ = .61100 + .00002
C = + .00004 .59135
, '
.611015...
Therefore a prudent
in the axisymmetric case
yielding
^c = .591375.
-76-
BIBLIOGRAPHY
1.
Pacific J. Math.
6,
1956.
4.
5.
C,
Extremal Methods
37,
1958.
,
Encycl. of Physics 9,
Springer-Verlag, 19 60.
8
Lewy , H
. ,
Z.,
by "Free" Streamlines
Ser. A 240, 1948.
11. Young, D. M.,
WALL
FREE SURFACE
FIGURE
(Plotted
axisymmetric case)
-78-
U
.Wa
Figure 2
-79-
Figure 3
80-
Figure 4
-81-
z+
Zo
z-
Figure 6
-85-
W, o
w.
W7
(B)
w.
Wn
w.
w,
w.
z,
<.
Z3
Zo
Z4
z,
Figure 8
-85-
LT
APPENDIX
1.
^*^^
PROGRAM REFLCTR (I NPUT OUTPUT INTEGER PPS DATA COMMON X(405,5?).YM05,52).P(405,52).M. CWY(40,40) ,72(40.40) JST , B6S, H, CN, POLE, PPS, II. I?. ITER,ERX, IX. JX.FRY. Y JY PRS! . IS ITPSI0.8BNS CITPSI,SR.GABY4.SRP.PABY4,C0N. I, J. COMPLEX 7 read l.m.n.nohalt, pole* itpsio, terh ax. ep^. ton rblax? , pel axsi. cconverg.rescon.sens READ l.L.JUMP CALL SECOND(T) PRINT 141, PRINT 70. rORMAT (IH HO,* L ) 70 Ml./rLOAT(M-l) IlaN*l I2=M*2 UMAXN*H 1 FORMAT (7I10/7E10.4) CALL INIT 20 PRINT 2,M,N,IP0LF. ITPSIO. I TERK AX FPS CON. 9il AX? REL AXST , rONVERa, CRESCON.UMAX.SENS.NOHALF ITERMAX , N ITPilO M IPOLi 2 FORMAT (#0 RELAX PS RELAX Z /IH ,6I10/*0 CCNTRCL EPS C */lH .^Fl9.4/ CONVFRQF RESCCN CI*,* SENS NOMA F */ UMAX C*0 CIH .?E15.4. HO) IWAVE=40
, .
I I . .
ITER-0 JERRMAX100. $JPRNT1 IPRNT50D TEST X in. ITPS10 CALL PRNTR(NOHALF, SHIFT)
SRs2./(l.*M*RELAX7) QABY4a.29*SR SR l.-SR PABY432./(1 .*H*RELAXSI SRPbI .-PABY4 IF (EPS.PO.O) PABY4.25*PaBY4 ITER ITFR*1 CALL REFLEK
)
CALL INTRR I3N-i DO 80 J3,M Y( 11, J)Y( 13, J) 80 P( II, J)aP( 13. J) ITER-IPRNT) .LT.O) GO TO IF IF (TEST.LT.ERRMAX) GO TO 60
(
-86-
PAGE
1
0
99
CALL PRNTR(NOHALr, SHIFT) PRINT 61 ERROR HAS GROWN. *} FORMAT (* CALL EXIT ERRMAX = TEST IPRNTIPRNT*500 CALL PRNTR(0. SHIFT) ITER.LT. ITERMAX) QO TO 99 IF CALL PRNTR(0, SHIFT) CALL EXIT TESTAMAX1(ERX.ERY,ERSI) IF (TEST.LT.CONVERQ) GO TO 11 ITER.LT. IWAVE) GO TO 4 IF CALL COMPMOD(SHIFT.RESCON, WAVE, L)
(
QO TO 4
7
00 TO 9 11
IF (ABS(SHIFT) .LT.CONVERQ) GO TC 40 CALL COMPMOD{SHIFT.RESC0N, 1WAVE,L)
QO TO 4
CALL PRNTR(NOHALF. SHIFT) PRINT 31, SHIFT FORMAT (#0 LAST SHIFT WAS SI CALL SECOND(T) PRINT 141, IF {N0HALF)12,12 .13 13 CALL HALFER
40
,E10.3)
NOHALFsNOHALF-l PRINT 14 14 FORMAT (*0 MESH SIZE HAS BEEN HALVED.*) CALL SECOND(T) PRINT 141, TIME IS ,F10.3) 141 FORMAT ( READ 50 CONVERQ. ITERMAX, RELAXZ, SENS. RES'^QN FORMAT ElO 4 110 SEIO 4 50 LL*L
, (
.
QO TO 20 12 CALL EXIT
END
-87-
paQE
COMMON X(405.5?).Y(405.52).P(405.52).H. CWY(40,40) ,72(4n,40). CN, IPOLE.FPS, Il.I9.ITER,ERX. IX, JX.FRY, lY. jy.PRST, ISl JST , PES. M, C1TPSI.SR.GABY4.SRP.PABY4.C0N.I,J, itpsto.ssns PRINT 1, ITER. ERX. IX, JX.ERY. lY.JY.ERSl. ISI. JST, CSHirT,RES V*/ X*/inX S50 10 15. 15. 1 FORMAT (0*# I9.E90.10, 15, 15,* PSI*/ C10X,P20.10, 15, 15.* SHirT*/lH . B20 10 . ?flX. BES* C10X.E20.10,10X. CC(1 ./Y(2.M*1) )**(1*EPS) PRINT 30. CC F11.7) CONTRACTION COEFFICIENT FORMAT (0 SO PRINT 300, X(N*1.?) XCEND)" ,F10,6) 300 FORMAT ( RETURN END
.
.
CWY(4O,40),Z2(4O.4O).
POLE, EPS, 1. I?. ITER, ERX, X JX ERY lY. JY.PRST , TSI . JST .RES, CITPSI.SR.GABY4.SRP,PABY4,C0N, I.J. ITPilO.SBNS
ON,
I
1
H.
INTEOER EPS COMPLEX 7.RHS IPMIN2= IPOLE DO 1 I-IPMIN2.N X( I,1>hX( 1.3) Y( I,1)B-Y( 1,3) jM*l DO 2 I" IPMIN?,
X(l,
Yd,
)"-X{3, 1) 1)Y(3, I)
1
IPMIN2IPMIN2-1 JIPMIN2-1 DO 3 I=J. IPMIN? Zb RgS/(CMPLX(FLOAT( I-2)l. )-) X( 1,1) X( 13) -REAL(Z) Y(I,1)3-Y( 1,3) A1MAQ{Z) 7s RES/(CMPLX(1. .FL0AT(I-2>)*H) * REAL(Z) --XCS. X(l, Yd, I):Y(3, I)-AIMAO(Z) JJ-1
1
)
DO
1=2,
1
X( I,l)aX(
.3)
-88-
PAQE
V(
Ijl)n-V(I,3)
Yd, I)Y(3.I)
IF
(EPS) 5.5.6 5 DO 51 I3.N C-( .5*P( I.J-2) -2P(I#J-1) 1.5P(I.J))**9 )-X(I.Jin D (X( I*1,J)-X( I-1.J))*(X( I,J )*(Y( 1*1. J)-Y( I-1#J) I, >Y(!.J-in (Y( J C*
Db.5*H*C0N*D
C
1*1 ,J-1
))*2
Yd, J))
.7>
ZC0NJQ(7)*RHS/(CMPLX(X(I. J-1),Y(I,J-1 X(I,J*l>cRBAL(Z) 51 Y( I,J*1)-AIMAQ(7) R(P(3,M)-P(2,J)>/(X(3,M>-X(?,J)) 52 ZbCMPLX(X(2.M>-X(2,J),Y(2,M)-Y(2, J)) 2CMPLX(X(2,J).-Y(2,J)> -Z*R**2 X(2,J*1) - R6AL(Z) Y(2,J*1>-AIMAQ(7) X(3,J*1)X(1,M) Y(3, J*l>Y(l,M) RETURN
6
)-X(I,J-l)) C*<Y<1*1,J)-Y(I-1.J))(Y(I.J )-Y(I,J-l)) PV.B*P(I,J-2)-2.*P(l, J-1)*1.5*P(I,J> YU,5*(Y(I*1.J)-Y(!-1,J)) PUV.25*(P( 1*1, J-2>-P{ I-l, J-2) >-(P( 1*1 , Jn-P( T-1, J-l)> C*.75*{P(I*1,J)-P(I-1,J)) YIN1./Y(I,J) )**9 C-{PV*YIN DONaCON*M 90 D.5*D0N*D(PIJV*PV*YU*YIN)PV*YIN*2 RH8CMPLX(CD) 91 2CMPLX(X(I,J),Y(I,J)) 2C0NJQ(Z) * RHS/{CMPLX(X(I,J-1).Y(I.J11) -7)
X( I, J*l) n REAL(7) 61 Y( I,J4>1)BAIMAQ(7)
-89-
PAGE
RETURN END
CWY(40,40),72(40.40), CN, POLE, EPS, II, I?, ITER,ERX, IX, JX,eRy,IY,jy.PRST. !8IiJST,B6S.H, C1TPSI,SR.GABY4.SRP,PABY4,C0N. I.J. ITPSlO.ifNfi
I
L,
00 TO
3
-1.57079633*ZPTA
E>CEXP(E) E2"EE*1. S-CS0RT(E2) GAIMAG(S} IF (Q.LT.O.) SCONJQ(S) LCL0G(1.*S) OaAIMAG(L) IF (Q.LT.O.) LC0NJG(L) Zs ZETA*. 63661 998* (E-S*L) X(I,J)-REAL(Z) Y(I.J)=-A1MAG(Z)*2. CONTINUE N1bN*1 X(N1.2)3X(N,2)*H Y(Nl,2)n. DO 4 J=3.M1 X(Nl.J)aX(Nl,2) Y(Nl.J) (J-2)*H IF (EPS) 5,5,6 PCNl.J) Y(N1,J)
-90-
U
PAGE
QO TO
6 4
10
8
7
I,J).B*P( I.J)
II3, ID
DO 7
SUBROUTINE FLIPSKK.ID)
DATA COMMON X(405.52).Y(405*92)P(40592).H. CUY(40. 40). 72(40, 40) CN, IPOLE.EPS, Il.I9.ITER,ERX.lX,JX,FRY.TV.Jy.PRST,TSI*JST,RES.H.
CITPSI.SR.QABY4.SRP.PABY4.CON.I,J.ITPST0.SeNS
INTEGER EPS Ie2.ID JID-I*2
DO 3
2
1 3
SUBROUTINE FLIPZ(K. ID) DATA COMMON XM05,5?).y(405.52),P(4 05.52).M, CWY(40, 40), 72(40,40), CN, POLE, EPS, U, I?, ITER,ERX, X, JX FRY I Y. JY PRST CITPSI,SR.QABY4.SRP.PABY4,C0N, I,j. ITPSTO.SCNS INTEGER EPS COMPLEX 7,W
I I ,
, ,
ISI
JST
RES, M,
-91-
paQE
DO
1=2. ID
( (
J1D-I*2 WCMPLX( I-2)*H, J-2)*H) 7 = CMPLX(X( I# J) YM. J) X( I, J)=RFAL(7) y{ I. J)s AIMAG(7) RETURN
. )
KRES/W
END
SUBR OUTIN E COMPMnD(SHIFT,RESCCN# IWAVS.LI COMP LEX 7 COMM ON X( 405,52).Y(405,92)iP(405.5?).M. CUY(4 0,40) .72(40.40). CN.IP OLE,P PS. 1. 12. ITER.ERX. X JX f RY I Y. JY PRSf CITPS I.SR, GABY4,SRP.PABY4,C0N.I,w. TPT . SBNs IWAV E=IWA VF*N SOD 0.
1
ISI
JSf .RBS, H,
90
J3 .H 1*1. XUX J)-X( 1-1. J) XV"X (I.J* 1)-X( I. J-1) YUY 1*1, J)-Y( I-l, J) YVY (I.J* 1)-Y( I, J-1) SODb SOD*( XU*YV)*(XU-YV)*(YU*XV)*(YU-XV) SOD SOD/( 4.*H**2) SODb SOD/F LOAT( (M-?)*(N-L*1))
(
(
DO 2 DO 2
IL .N
11
MleM 1 SHir T-SP NS*SOD IF ABS(S HIFT) .GT.H) SHIFT"SIGN(1.,SHIFT>H FACT 0R = 1. SHIFT/ X( N*i,2)
(
100
SLOP Ex-FL0AT(M-l)*(3.*X(S. J)-1.5*X(4. J)*,^3:SS*X(9.J)) Da-R ESC0N*SL0PE ABS(D) .GT. .09)) DbSIGN(1..D)*.0S IF RESb RES-D DD/ M I?.N DO 3 INTF CsMAX0(2. IPOLP-I-1) JsINTFC.Ml DO 3 ZsD/ CMPLX{ FLOAT I -2 FLOAT J-2 ) X(I. J) = X( I, J)-REAL(Z) Yd. J)=Y( I, J)-AIMAQ(Z)
(
-92-
PAGE
30
CONTINUE RETURN
END
SUBROUTINE HALFER INTEGER EPS COMMON X(40 5,5?).Y(405.52).P(405.52).M, CWY{40, 40), 72(40,40), CN, POLE, EPS, 11,12, ITER,ERX,IX,JX,PRY. TY.JY.PRST, SBNR CITPSI,SR,QABY4.SRP.PABY4,C0N. TPSI J II-lPOLE-4
I
I
IS
JST
RES. H,
DO 22 22
IIIa3, II CALL FLiPZd, III) CALL FLIPSKI.III) M1M*1 DO 1 II2,I1 IsN*3-II DO 1 JJ2,M1 JsM*3-JJ
21
X(2*I-2,2*J-2)X(I,J) Y(2*I-2,2*J-2)Yri,J) P(2*I-2,2*J-2)P( I, J) P(2,2)s.5*(2-EPS) N2bN*N M22*M-1 DO 2 I2,N2.2 X(I,3)=.75*X(I.4)*.375*X{I,2>-.125*X(I,6) Y(I,3)s.75*Y(I.4)*.375*Y(I,2)-.125*YM,6) P( I,3)s.75*P( I.4)*.375*P(I,2>-.125*P(I.6> DO 21 I2,N2,2 DO 21 J5,M2,2 X( I, J)s.75*X( I,J-1)*.375*X( I,u*l>-.J99*X( Y( I, J) 8,75* Y( I, J-1)*,375*Y( I v>l )- IS^^Y P{ I, J)s.75*P( I. J1)*.375*P( I, J*1)-.125*P( P(2,2)bO. MM2 NN2-1 M1M*1 DO 3 Ib3.N,2
.
.
-93-
paQE
2,3) =-PES/M 3,?) = 0. 3,?) =-Y(2,3) 2.7) = 0. 2,7) = 0. 3,3) = .3333*(X(4,3)*X(3.2)*X(3.4) Y( 3,3) =.95*(Y(?,3)*Y(4.3)*Y(3.2)*Y{3.4)) P( 2,9) = 0. p( 2,3) =.5*(2-EPS) p( 3,3) =.5*(P(?.3)*P(4,3) p( 3.9) = 0. IP OLE =2*IP0LE-6 II = IPO LE-4 I3, II DO 33 CA LL F LIPZ(-1. Ill) S3 CA LL F LIPSK-I. Ill) sN*l 12 = M*2 II 0IP OLE DO 789 I- 2, 110.2 IN TFCs IPO LE-I-3 DO 789 J- 3, INTFC.9 X( I, J) S.5 {X( I, J-1 )*X{ I, J*l) Y( I, J) = .5 (Y( I. J-1 ) YC I. J*l) 789 CO NTIN UE II ObIP OLE DO 987 I- 3. 110.2 IN TFCs IPO LE-I-3 DO 987 J 2. INTFC y{ I.J) = .9 (X( I-l. J>*X( I*l, J) V( I.J) = .5 (Y( I-l. J)*Y( I+l, J) 987 CO NTIN UE RE TURN EN D
y( Y( X( X( y(
)
I
SUBROUTINE INTRR
DATA COMMON X(405,59).Y(405,52).P(405,52).M. CWY(40, 40), 72(40,40), CN, IPOLE.EPS. U. I?. ITER,ERX. IX, JX,ERY. lY, Jy.PRST, IS CITPSI,SR.GABY4,SRP.PABY4.C0N. I.J. ITPSTO.SBNR INTEGER EPS COMPLEX W.Z MleM+l SERYnO. ERXsO. SL0C1
JST
RES. H,
-94-
PAGE
lO
INTrC5lP0LE-2
DO 111 JuINTrc.M 00 TO 1000
!NTFC=MAX0(3. IPOLE-I)
DO 221 JbINTFCM 00 TO 2000
INTFCeMAX0{3. IPOLF-I)
DO 211 JbINTFC.M WHYiiY( l.J)
A11./(Y( I*l,J)fWHY) A2sl./(Y(I-l,J)fWHY) A3al./(Y( I. J*1)*WHY) A4al./(Y( I. J-1>*WHY) A5ePABY4/(Al*A?*A3*A4) DsSRP*P( I,J)*A5*U1*P( 1*1. J)*A2*P( I-l. J)*43*P( EsABS(D>P( I.J) on TO 3001 IF (E.LT.ERSI ERSIiE
) )
T ,
J*l )*A4*P(
T ,
J-1
ISIal
IPOLE-2) IPOLE-3)
-95-
PAGE
11
14
LOCaS MARKa IPOLE-3 DO 4 1=2. MARK INTFC =2*MARK-I DO 4 J=2. INTFC *-J-4) 4,4.1000 IF CONTI UE CONTI UE PSI) 5,6.5 IF LiPZd, IPni E-2) CALL LiPZd. IPnLE-3) CALL ITPSI ITPSI-1 RETUR LIP SI(-1. IPOLE-2) CALL LIP SI(-1. IPOLE-3) CALL
(
SMARKTP0L:
ITPSI
IF
(S2
ITP SIO
(F
DO 6?
61,69,61 S) la 3. MARK
MARK
DO 61
IP OLE-? In 2, MARK
INTFC xIP OLE-I Ja 2. INTFC DO 61 610,611,610 IF J-4 AlO WaCMP X( I-2)*H. J-2)*H) RES/W ZsCMP x(y I, J) Y( 1, J) Z2( I. )3 1./CaBS(7) = -AIMAQ(7)*Z2( I.J)**? WY( I. All CONTI UE MARK IPO LE-3 la 3. MARK DO 61 INTFC alP OLE-I Ja 3, INTFC DO 61 A12 P( I, J = 7 2( I, J)*P( 1, J) MARK IPO LE-4 la 3, MARK DO 61 INTFC MAR K-I*3 Ja 3. INTFC DO 61 WHYsW (I. J) Al = l. (WY 1*1. J)*WHY) A2 = l. (WY ( I-l, J)*WHY) A3B1. (WY I, J*1)*WHY) A4 = l. (WY I, J-1 )*WHY)
( 1 ) (
(
( (
-96-
PAGE
12
6121 613
614
7
inOO
A5=PABY4/(A1*A9*AS*A4) DaSRP*P( I, J)*A5*(A1*P( +1 J +A2*P (I -1 J)*A3*P( T,J*1)*A4*P( I. J-l) EABS(D-P( I> J) IF <e.LT ERSI) Gn TO 6121 SlSlBl SJSIaJ ERSI-E P( I,J)=D CONTINUE MARKbIPOLE-3 DO 614 I3.MARK INTFCalPOLE-I DO 614 J3. INTFC P( I, J)=P( I,J)/72( I.J) CALL FLIPZd* IPOLF-2) CALL FLiPZd. IPOLF-3) CALL FLIPSKI, IPni E-2) CALL FLIPSKl. IPnLE-3) RETURN DsSR*X(I,J)* GABY4*(X(I*1, J) X(I-l.Ji XM.J^I) X(T.,J-1)) EABS{D-X( 1/ J) IF (g.LT.ERX) SO TO 1001 ERXE
I
.
IXbI JX = J
inoi X( I, J)=D DsSR*Y( I, J)--GABY4*(Y( 1*1. J) +Y(I-1 . J)*V{ EsABS(D-Y( I, J) IF (E.LT.ERY) QO TO 1002 JYsJ ERYbE
lYal
J*1)*Y<
I.
J-l>
1002 Y( I,J)D 00 TO (ini.ll.l4>. LOC 2000 DsSRP*P( I, J)*PABY4*(P( I+l, J)*F(I-1 J)*P( EABS(D-P( I, J) GO TO 2001 IF (E.LT.ERSI ISlBl ERSIbE JSlBj 2001 P( I, J)5D QO TO (2001,2211.6211). LOC END
)
J*1)*P(
I.
J-H
-97-
APPENDIX II.
DIMENSIONAL PERTURBATION
perturbation
The results lead to the conjecture that the ratio
of the radius of the jet at infinity to the radius of the
aperture, Y^^yY^,
Thus
Y^^
Y^
2 _ - a^m + a2m +
and, of course.
\
, [
^^0
= -
2
"^
3+a^
(1+a
)
^ tan'-'-a,. -l + ] tan ^
aya
^-!
db da
'
'
47ra +7Tb"+Yb
where
1/2
Y = 2 +
(1-a
- [4a +(l-a
'
+(l-a 2a+[4a 2,
o
,
;i
,,
a log
(l+a)"^
This integral
is quoted as
[3]
3m
= -
.650544
= m/(m+2)
^
^0
.6110 + .4857
.1110 6^ + .0143 6^
Y^TTT-
-"^^^^
-99-
of the polynomial.
.1619
.1110 6^ =
.0123
.0143 8^ =
.0005
Y
,
.6110 + .5279
.1110 6^ - .0279 6^
0,
1,
and
as before.
for m = 1 is then
C^ =
c
2
]
v l Yq(1)
/ \
[3]
-100-
.5279
.1760
.1110 6^ =
.0123
.0010
.
.0279 6^ =
-101-
MAR 30
1971
DATE DUE
NYO-
C.2
Snider
Mathematical Sciences
251 Mercer
St.
New
York, N. Y.
10012
SRe