End for
End ODD-EVEN_PAR
Ә қғ Q(1) қ . ғ n , ң Q(n) қ .
ә ққ
p , n ұ ң ұғ, ұғ p<n. қ, ә ү n/p ұ ғ, ұ Q((n/p)*log(n/p)) қ ұ ғ. ұ ө ғ (p/2 қ ә p/2 ұ), ғ -ө (compare-split) . қғ - . ә ә ө ә ө ң ұ , қ ө: қғ ө ң ( ), ң қғ (ү ) ө . ө ң ұ. Ә ү Q(n/p) ә Q(n/p) қ ұ.
12-13- ә
қ: . ғ ә ә өң. : HPF ә C++ ң ң, Fortran 90. PVM, MPI, OpenMP қ, ү ә құ.
:
1. PVM ;
2. MPI - ;
3. ә Fortran (HPF).
1. ң ө , қ ү, ұ ә ә ә ү, ң ғ ұ. қ, қ қ қ. қ, , қ ң: PVM, MPI қ. PVM ң (Parallel Virtual Machine) ққ.
ң ә ү қ ө ғ ғ қ ң (, , ққ құғ ә ..) құ қғ . ғ PVM- қғ ү.
|
|
PVM ң қ қ қ ғ қ ү ү.
PVM қң қ ғ ң .
PVM қ ң қ - PVM қ. PVM ң ү қ, ү қ, қғ ү .
2. в .
в (Message Passing Interface) ң ң ққ құ . в қa ү ә Fortran . ң ө ң в ң қ ө .
в ң 90 ң , ә өә ң ө ғ. ң қ әү ө ү ғ ңғ ғ .
в қ SPMD ұ ( қң). ү ә ң ө . ң ә ө қ . , әү ә .
3. ә Fortran (HPF).
ә (High Perfomance Fortran) ұ ғ ң ң ң ү. HPF-ң ң ғқ ұқ 1992 . ұқ 1997 ң . қ , HPF ә ң қ ү .
HPF - ұ ә . ә ң өң қ 90 ң ң . HPF , ә ң 90 ә .
HPF ң : ң әң , ә ү қң ә ә .
14- ә
қ: Ғ ң ң қ.
:
1. N ң қ
2. N ң қ ң
1. N ң қ
N ғ үң ө ә қ ұ (, ү қ ө ә қ ). N қ ұқ қ, қ . ұ қ ү .
|
|
N ң қ . ұ ң қ- ң ғ қ ң қ ү ә ң ң қғ . ma ә mb ғ қ ү ә :
F=(G ma mb) / r2.
ұғ G қ ұқ, r- ғ - қққ. ө ғ, ұ ғ ү . 1/ r2.
ң ң
F=ma
ұғ m , F ғ ә ү, - ү ә. қ қ ү қ ң қғ ө:
F=mdv/dt
ә
v=dx/dt.
ұғ v қ.
Үө ң.
үө ң ғқ, қ - ә ү ғ x,y ә z . (x,y, z) үө ң (x, y, z) ә (xb,yb, zb) ғғ ғ қққ :
f=
ү ү ғ :
Fx=((G ma mb) / r2)((xb-xa) /r),
Fx=((G ma mb) / r2)((yb-ya) /r),
Fx=((G ma mb) / r2)((zb-za) /r).
2. ҳ :
N- ң қ ү
For (t=0; t<tmax; t++)
For (i=0; i<N; i++)
{
F= Force_routine(i);
V[i]=v[i]+F*dt;
}
For (i=0; i<nmax; i++)
{
X[i]=x[i];
V[i]=v[i];
}
ң ү ә ғ қ ү. ң (N2) ә .
қ қ қғқ ү: N- ң қ қ қққғ қ ү.
ә
ң қ ұ қ ң . ұ ө. қ ө , ұ ә қ қ. қ , ә қ ұ ү ө . ұ ғ құ, ғ ғң ә ү қ . қ ұқ , ң әқ .
ө ү, ә ө ө ұ , ғ құ.
ғ қ . ә , ғ құ ғ , қ ә ң ә ү қ.
15-ә.
|
|
қ: өң. ө, ңғ ә ғғ ң өң ү. ү ә
:
1. өңң өң ң
2. өңң ү
өңң ө ң ұ ү ә ү қғ ә . ұ өң ө , ң , қ , қ , ө ө қ ү ә қ. ғ ү, қ ү қ. қғ ө ұ. , ұ ү . ү әқ ү қ үң ң ү ә (қ, , ө) қ.
қғ қ ғ ұ қ ү қ . ө қ , ң p[i][j] ә ә ң .
Өңң ө ң ә ң ә қ ә ү қ. ө ғ ұ .
қ ққ . ң ң ә Hough ү қ. Hough ү қ ң қ ә ң қ ү қ.
қ .
Әң өңң ө ң өң қң ңғ ө. қ, 1024×1024 ұ , ү ә 8 қ ө ө.
ң қ ғ. қ, әқ қ өң . қңқң ө ғ 210 қ. Қ қ ү ә . қ қ қ ү 60-85 . өң қ қ . қ ұ ү қ .
ң
өңң ң қ ә қ, ө қ 0 ә қ. ғ, ә , :
If (x< threshold) x=0; else x=1;
ұ
|
|
ғ ұ үң ә ңң ң ө ң.
ү ң ө ө ү қ. ұ ғ ң ұ үң ұқ ң ө қ ү қ.
ұ ү ң .
ұ ғ ұ ү ұ қ қ ө қ . ұ ә ү ң ң қ ә ә қ.
.
қ . ә қ қ ә 9 қ . ұ қ қ ғқ ә қ қғ . ү ә ң ұқ ө қ ұ:
Қ1. Ә өң ғғ , ә ө қ қ қ.
Қ 2. Ә өң ң ғғ ә , қ ғ қ.
Қ 3. Ә ө ғ ә қғ , ә өң ғ ә қ. қ, қ ү ғ ң ғғ ә қ қ .
Қ 4. Ә ү ғ ә қғ , ә өң ғ ә қ.
ә, қ, ә ғ ә қ ә ү 9-ғ ө. әә ө қ ә ө .
2. өңң ү.
өң ң ң ө әү . үң қ ү қ . ө ө ү :
H(j,k)=G(j,k)xF(j,k)
ұғ F(j,k) ұ f(j,k) ң ү, G(j,k) (g(j,k) ң ү. (j,k ң ).
ң ү :
=1/N∑je-2π(jk/n)
ұғ i N ә, i- .
ә ң ү
=1/N∑je-2π(jk/n).
ө 1/N өү қ.
қ, ә қ ұ ө ү .
w=e-2πi/N
.
ү :
=∑jwjk)
.
ү ң ү :
For (k=0; k<N; k++)
{ X[k]=0
For (j+0; j<N; j++)
X[k]=X[k]+a*X[j];
a=a*pow(w,k);
}