• 検索結果がありません。

東京大学情報基盤センター准教授塙敏博 LU 分解法(1)

N/A
N/A
Protected

Academic year: 2021

シェア "東京大学情報基盤センター准教授塙敏博 LU 分解法(1)"

Copied!
67
0
0

読み込み中.... (全文を見る)

全文

(1)

LU 分解法(1)

東京大学情報基盤センター 准教授 塙 敏博

20191210日(火)10:25-12:10

(2)

講義日程(工学部共通科目 )

1. 924日: ガイダンス

2. 101

l 並列数値処理の基本演算(座学)

3. 108日:スパコン利用開始

l ログイン作業、テストプログラム実行 4. 1015

l 高性能プログラミング技法の基礎1

(階層メモリ、ループアンローリン グ)

5. 1029

l 高性能プログラミング技法の基礎2

(キャッシュブロック化)

6. 115

l 行列-ベクトル積の並列化

7. 1112

l べき乗法の並列化

8. 1126

l 行列-行列積の並列化(1)

9. 123

l 行列-行列積の並列化(2)

10. 1210

l LU分解法(1)

l コンテスト課題発表

11. 1217

l LU分解法(2)

12. 17

l LU分解法(3)、非同期通信

13. 114

l RB-Hお試し、研究紹介他

202023日(月)24時 厳守

(3)

LU 分解法(中級レベル以上 )の演習日程

並列化が難しいので、3週間確保してあります。

1. 今週

講義(知識、アルゴリズムの理解)

並列化の検討

2. 来週

LU分解法の逐次アルゴリズムの説明

LU分解法の並列化実習(1)

3. 再来週

LU分解法の並列化実習(2)

(4)

講義の流れ

1. LU

分解法

ガウス・ジョルダン法

ガウス消去法

枢軸選択

LU分解法

外積形式、内積形式、クラウト法、ブロック形式ガウス法、縦ブロックガウ ス法、前進・後退代入

2.

サンプルプログラムの実行

3.

並列化のヒント

4.

実習課題

5.

レポート課題

(5)

LU 分解法の概略

いろいろな変種があります

(6)

密行列に対する連立一次方程式

以下の式

ここで は実数の密行列 は 実数のベクトルとすると、解ベクトル を 求めること。

解ベクトルを求める方法は、以下の二種類が 知られている

1.

直接解法

行列操作により厳密解を求める方法

2.

反復解法

近似解を反復計算で解に収束させ求める方法

b Ax =

A x, b

x

(7)

ガウス・ジョルダン法

基本的な消去法により解を求める

第1ステップ

第2ステップ

最終ステップ

, ,

, 2

, 2 ,

2 2

, 22

1 1

2 12 1

11

n n

nn n

n

n n

n n

b x

a x

a

b x

a x

a

b x

a x

a x

a

= +

+

= +

+

= +

+ +

!

"

!

! 第一行をもとに

係数を消去

, , ,

,

, , 2 ,

, 2 2

, 22

, , 1 ,

, 1 1

11

n n

nn

n n

n n

b x

a

b x

a x

a

b x

a x

a

= +

+

= +

+

= +

+ +

!

"

!

!

第二行をもとに 係数を消去

*

*

* 2 2

, 22

* 1 1

11

n n

nn x b a

b x

a

b x

a

=

=

=

!

割り算のみで 解を得る

(8)

ガウス・ジョルダン法

右辺bの代わりに単位行列 I を用意し て同様の操作をすれば、最終ステップで は逆行列が求まる

各ステップでの計算量が同じなので、

並列化時の負荷バランスが良い

(9)

ガウス消去法

対角線より上の要素をゼロにしない方法

第1ステップ

第2ステップ

最終ステップ

, ,

, 2

, 2 ,

2 2

, 22

1 1

2 12 1

11

n n

nn n

n

n n

n n

b x

a x

a

b x

a x

a

b x

a x

a x

a

= +

+

= +

+

= +

+ +

!

"

!

!

第一行をもとに 係数を消去

, , ,

,

, 2 ,

2 2

, 22

1 1

2 12 1

11

n n

nn n n

n n

b x

a

b x

a x

a

b x

a x

a x

a

= +

+

= +

+

= +

+ +

!

"

!

!

第二行をもとに 係数を消去

この消去を

前進消去(forward elimination とよぶ

*

*

, 2 ,

2 2

, 22

1 1

2 12 1

11

n n

nn n n

n n

b x

a

b x

a x

a

b x

a x

a x

a

=

= +

+

= +

+ +

!

"

#

#

(10)

ガウス消去法

前進消去後、最後の項から順に解を求めていく

この代入処理を、後退代入(backward substitution)とよぶ

*

*

, 2 ,

2 2

, 22

1 1

2 12

1 11

n n

nn

n n

n n

b x

a

b x

a x

a

b x

a x

a x

a

=

= +

+

= +

+ +

!

"

#

#

!

, /

) (

, /

1 ,

1 ,

1 1

1

*

*

+ - -

+ -

+ -

- = -

=

n n

n n

n n

nn n

n

a a

b x

a b

x

(11)

ガウス消去法

ガウス消去法は、ガウス・ジョルダン法に比べ、

消去演算をする範囲が少ない

(基本行より下のみ)

演算量が低下する:

基本行より下のみ演算するため、並列化するとガ ウス・ジョルダン法に比べて、負荷バランスの

劣化を起こしやすい

並列処理に向かないと考えた専門家がいた。

現在はデータ分散の改良や通信の隠蔽技法、

ハードウエア能力向上から、ガウス消去法のほうが 高速である。

3 3

( 2 / 3 ) n

n ®

(12)

ピボッテ ィング

ガウス・ジョルダン法、ガウス消去法とも、基本行の係数がゼ ロだと、ゼロによる除算が生じ、計算が続行できない

これを回避するため、消去する列から最も係数の大きなもの を選択して、基本行と入れ替える

(枢軸選択、ピボッティング、pivot selection

, ,

, 2

, 2 ,

2 2

, 22

1 1

2 12

1 11

n n

nn n

n

n n

n n

b x

a x

a

b x

a x

a

b x

a x

a x

a

= +

+

= +

+

= +

+ +

!

"

!

!

第1行をもとに 係数を消去

(13)

ピボッテ ィング

ピボッティングには以下の2種の方法がある

1. 完全ピボッティング

更新対象全体から最大のものを選ぶ方法

2. 部分ピボッティング

更新対象の列または行から最大のものを選ぶ方式

ピボッティングの手間、経験的な数値安定性から 部分ピボッティングが用いられることが多い

n n

nn n

n n

n n

n n

b x

a x

a x

a

b x

a x

a x

a

b x

a x

a x

a

= +

+ +

= +

+ +

= +

+ +

!

"

!

!

2 1

1

2 2

2 22

1 21

1 1

2 12

1 11

(14)

LU 分解法

ガウス消去法のような消去処理を行列演算として定式化

連立一次方程式の行列表記:

n n

nn n

n n

n n

n n

b x

a x

a x

a

b x

a x

a x

a

b x

a x

a x

a

= +

+ +

= +

+ +

= +

+ +

!

"

!

!

2 1

1

2 2

2 22 1

21

1 1

2 12 1

11

úú úú û ù êê

êê ë é

= úú

úú û ù êê

êê ë é

= úú

úú û ù êê

êê ë é

=

n nn n

n n

n n

b b b b

x x x x

a a

a

a a

a

a a

a

A ! !

"

!

"

"

2 1 2

1

2 1

2 22

21

1 12

11

, ,

b x

A =

(15)

LU 分解法

LU分解法では、以下の3つのステップで解を計算する

第1ステップ:行列ALU分解

第2ステップ:前進代入

第3ステップ:後退代入

úú úú û ù êê

êê ë é

= úú

úú û ù êê

êê ë é

=

nn n

nn n

n u

u

u u

u U

l l

l l l l

L " !

#

#

"

!

22

1 12

11

2 1

22 21 11

,

,

LU A =

b Ux

L

b x

LU b Ax

=

=

= ) (

, )

(

,

Ux c

b Lc

=

= , Lc = b

úú úú û ù êê

êê ë é

= úú úú û ù êê

êê ë é úú úú û ù êê

êê ë é

n n

nn n

n b

b b

c c c

l l

l

l l

l

!

!

"

#

!

2 1 2

1

2 1

22 21

11

:ベクトル を求める

c Ux =

úú úú û ù êê

êê ë é

= úú úú û ù êê

êê ë é úú úú û ù êê

êê ë é

n n

nn n

c c c

x x x

u u

u u

u

!

!

!

"

#

2 1 2

1 22

1 12

11

:解ベクトルxを求める

(16)

LU 分解法

行列

A

LU

分解 には、データアクセス の違いから以下の3種の方法が知られている

1.

外積形式ガウス法(

outer-product form

普通の消去法から導出

2.

内積形式ガウス法(

inner-product form

LU

分解がなされたとして、

L

の対角要素を1に

固定して導出

3.

クラウト法(

Crout method

LU

分解がなされたとして、

U

の対角要素を1に

固定して導出

LU

A =

(17)

LU 分解法の種類

外積形式(

outer-product form

)ガウス法

ガウス消去法と同等の操作で

LU

分解する

k

列を消去したい場合、

係数 を用いて を消去

n n

nn k

nk

k n

kn k

kk

n n

n n

b x

a x

a

b x

a x

a

b x

a x

a

b x

a x

a x

a

= +

+

= +

+

= +

+

= +

+ +

!

!

!

!

!

!

!

!

2 2

2 22

1 1

2 12

1 11

akk ak,k+1, ak,k+2,!, ak,n

(18)

外積形式ガウス法

すなわち列の消去は、

これを行列表記にすると、行列

L

とすると、この消去は

n k

k i

a a

a

aik - kk ( ik / kk ), = +1, + 2,...,

,

1 1

1 1

, 1

úú úú úú úú

û ù

êê êê êê êê

ë é

=

+

mk k k k

l L l

!

"

!

+1

=

k

k

k

A U

L

n k

i

a a

lik ik kk ,...,

1

), /

( +

=

-

=

(19)

外積形式ガウス法

一般的に

したがって

LU

分解は

ここで、 は の要素の符号を反転させ たものであり、容易に得られる

消去作業が終われば行列

L

が得られる

U A

L L

L

L

n-1 n-2

!

2 1

=

LU

U L

L L

L

U L

L L

L A

n n

n n

=

=

=

- - -

- -

-

- - -

) (

) (

1 1 1

2 1

2 1

1

1 1

2 2

1

!

!

-1

Lk

L

k

(20)

外積形式ガウス法(C言語 )

for (k=0; k<n; k++) { dtmp = .0 / A[k][k];

for (i=k+; i<n; i++) { A[i][k] = A[i][k]*dtmp;

}

for (j=k+; j<n; j++) { dakj = A[k][j];

for (i=k+; i<n; i++) {

A[i][j] = A[i][j]–A[i][k]*dakj;

} }

L

U 注意:

Lの対角要素は 1であることを仮定

(計算しない)

→Uの対角要素を 入れる

A

更新 k

k

参照

(21)

外積形式ガウス法( Fortran 言語)

do k=1, n

dtmp = .0d0 / A(k, k) do i=k+, n

A(i, k) = A(i, k) * dtmp enddo

do j=k+, n dakj = A(k, j) do i=k+, n

A(i, j) = A(i, j)–A(i, k)*dakj enddo

enddo enddo

L

U 注意:

Lの対角要素は 1であることを仮定

(計算しない)

→Uの対角要素を 入れる

A

更新 k

k

参照

(22)

外積形式ガウス法のまとめ

外積形式ガウス法では分解列の 右側の 領域が更新される

right-looking

アルゴリズムと呼ばれる

外積形式ガウス法は並列化に向く

処理の中心の更新領域が多い

負荷バランスよくデータ分散できる

更新 処理が、分解行と分解列とい う少 ない

デ ータを 所有 する だけ で、 要素ご とに 独 立

して行える

(23)

内積形式ガウス法

内積形式(

inner-product form

)ガウス法

LU分解がなされたと仮定した上で、行列Lの対角要素を 1として導出した方法

úú úú û ù êê

êê ë é úú úú û ù êê

êê ë é

= úú úú û ù êê

êê ë é

nn n

n nn n

n n

n n

u u

u u

u

l l l a

a a

a a

a

a a

a

!

"

#

#

"

!

#

#

#

#

#

0 1

0 1

1

22

1 12

11

2 1

21

2 1

2 22

21

1 12

11

1 11

1 31

11 31

21 11

21

11 11

,...., ,

,

n

n

u a

l a

u l

a u

l

u a

=

=

=

= u

11が求まる

l

21が求まる

(24)

内積形式ガウス法

この 導出作業を一 般化すると、以下の二部分 に分かれる

I

u

の導出部

II

) (

I

)で得られた値を元に、

L

の導出部

まとめると

I

II

å

-

=

= -

=

=

1 1 1

1 1

) ,...,

3 , 2 (

,

i j

jk ij

k ik

k k

k i

u l a

u

a u

å

-

=

+ +

= -

= 1

1

) ,..., 2

, 1 (

, /

) (

k j

kk jk

ij ik

ik a l u u i k k n

l

(25)

内積形式ガウス法(C言語 )

for (k=0; k<n; k++) { for (j=0; j<k; j++) {

dajk = A[j][k];

for (i=j+; i<n; i++) {

A[i][k]= A[i][k] –A[i][j]*dajk;

} }

A[k][k]=1.0 / A[k][k];

for (i=k+; k<n; k++) { A[i][k]=A[i][k]*A[k][k];

} }

L

U

A

k

k

参照 更新

更新と参照

(26)

内積形式ガウス法( Fortran 言語)

do k=1, n do j=1, k

dajk = A(j, k) do i=j+, n

A(i, k)= A(i, k) –A(i, j) * dajk;

enddo enddo

A(k, k) =1.0d0 / A(k, k) do i=k+, n

A(i, k)=A(i, k) * A(k, k) enddo

enddo

L

U

A

k

k

参照 更新

更新と参照

(27)

内積形式ガウス法のまとめ

内積形式ガウス法では、分解列の左側 の領 域が主に参照される

left-looking

アルゴリズムと呼ばれる

内積形式ガウス法の並列化

行列

A

を列方向分散(*,

Cyclic

参照領域のデータがないので、通信多発

(ベクトルリダクションが毎回必要)

行列

A

を行方向分散(

Cyclic

,*)

上 三角 行列

U

の 要素 ( デ ータ数が 少 ない)を 所有

すれば、独立して計算可能

(28)

クラウト法

クラウト法(

Clout Method

LU

分解がなされ た と 仮定 し た 上で、行列

U

の対 角要 素を1として導出した方法(cf.内積形式ガウス法)

úú úú û ù êê

êê ë é úú úú û ù êê

êê ë é

= úú úú û ù êê

êê ë é

1 0

1 1

0

1 12

2 1

22 21

11

2 1

2 22

21

1 12

11

!

"

#

#

"

!

#

#

#

#

# n

nn n

nn n n

n

n

n u u

l l

l

l l

l

a a

a

a a

a

a a

a

n n

n n

a u

l a

u l

a u

l

a l

a l

a l

1 1

11 13

13 11

12 12

11

1 1

21 21

11 11

,...., ,

, ,

=

=

=

=

=

=

12 が求まる

u

lの第1列が 求まる

(29)

クラウト法

この計算を一般化すると、

L

の第

k

列を求める場合

U

の第

k

行を求める場合

å

-

=

+

= -

=

1

1

) ,...,

1 ,

( ,

k j

jk ij

ik

ik

a l u i k k n

l

å

-

=

+

= -

=

1

1

) ,...,

1 ,

( , /

)

(

k

i

kk ij

ki kj

kj

a l u l j k k n

u

(30)

クラウト法( C言語 )

A[0][0]=1.0/A[0][0];

for (j=; j<n; j++) {

A[0][j]=A[0][j]*A[0][0]; } for (k=0; k<n; k++) {

for (j=0; j<k; j++) { dajk=A[j][k];

for (i=k; i<n; i++) {

A[i][k]=A[i][k]-A[i][j]*dajk;

} }

A[k][k]=1.0/A[k][k];

for (i=0; i<k; i++) { daki=A[k][i];

for (j=k+1; j<n; j++) {

A[k][j]=A[k][j]-daki*A[i][j];

for (j=k+1; j<n; j++) {} } A[k][j]=A[k][j]*A[k][k]; } }

L

U A

k

k

参照

更新 参照

更新

(31)

クラウト法( Fortran 言語 )

A(1,1)=1.0d0/A(1,1) do j=2, n

A(1, j) =A(1, j) * A(1, 1) enddo do k=1, n

do j=1, k dajk=A(j, k) do i=k, n

A(i, k)=A(i, k) - A(i, j) * dajk enddo; enddo

A(k, k) =1.0d0 / A(k, k) do i=1, k

daki=A(k, i) do j=k+1, n

A(k, j)=A(k, j) – daki * A(i, j) enddo; enddo

do j=k+, n

A(k, j)=A(k, j) * A(k, k) enddo enddo

L

U A

k

k

参照

更新 参照

更新

(32)

クラウト法

クラウト法では、最内ループの交換ができる

長さ(1~k-1)のループ、長さ(k-n)の

ループの内、最も長いループを最内に移動可

ベクトル計算機で実行性能が良い

分解列および分解行の外側に2つの参照領域

分散メモリ型並列計算機での実装が困難

どのようにデータ分割しても大量通信発生

共有メモリ型並列計算機では並列化可能

参照領域があれば分解列と分解行は独立

に計算可能

(33)

ブロック形式ガウス法

行列

A

を小行列に分解し、その小行列単位で

LU

分解す る方法。

LU

分解と行列

-

行列積で実現できる。

具体的には (各小行列を各PEが所有)

とすると、右辺は

úú ú û ù êê

ê ë é úú ú û ù êê

ê ë é

= úú ú û ù êê

ê ë é

33 23 22

13 12

11

33 32

31

22 21

11

33 32

31

23 22

21

13 12

11

0 ~

~

~

~

~

~

~

~

~

~

~~ 0

~

~

~

~

~

~

~

~

~

U U U

U U

U L

L L

L L

L A

A A

A A

A

A A

A

33 33 23

32 13

31 33

22 32 12

31 32

11 31 31

23 22 13

21 23

22 22 12

21 22

11 21 21

13 11 13

12 11 12

11 11 11

~

~

~

~

~

~ ~

~ ,

~

~

~ ~

~ ,

~ ~ ~ ~ ~ ~ ~ ,

~ ,

~

~

~ ~

~ ,

~ ~ ~ ~ ~ ,

~ ,

~ , ~

~

~

~

U L U

L U

L A

U L U

L A

U L A

U L U

L A

U L U

L A

U L A

U L A

U L A

U L A

+ +

= +

=

=

+

= +

=

=

=

=

=

(34)

第1ステップ

第2ステップ

第3ステップ

33 33 23

32 13

31 33

22 32 12

31 32

11 31 31

23 22 13

21 23

22 22 12

21 22

11 21 21

13 11 13

12 11 12

11 11 11

~

~

~

~

~

~ , ~

~

~

~

~ , ~

~

~

~ ~ ~ ~ ~ ~ ,

~ ,

~

~

~ , ~

~

~

~ ~ ~ ~ ,

~ ,

~ ~

~ ,

~ ~

U L U

L U

L A

U L U

L A

U L A

U L U

L A

U L U

L A

U L A

U L A

U L A

U L A

+ +

= +

=

=

+

= +

=

=

=

=

=

33 33

23 32

13 31 33

22 32

12 31 32

11 31 31

23 22

13 21 23

22 22

12 21 22

11 21 21

13 11 13

12 11 12

11 11 11

~

~

~

~

~

~ , ~

~

~

~

~ , ~

~

~

~ ~ ~ ~ ~ ~ ,

~ ,

~

~

~ , ~

~

~

~ ~ ~ ~ ,

~ ,

~ ~

~ ,

~ ~

U L U

L U

L A

U L U

L A

U L A

U L U

L A

U L U

L A

U L A

U L A

U L A

U L A

+ +

= +

=

=

+

= +

=

=

=

=

=

LU

分解

L11 を転送、

U1*を計算 U11を転送、L*1を計算

33 33 23

32 13

31 33

22 32

12 31 32

11 31 31

23 22

13 21 23

22 22 12

21 22

11 21 21

13 11 13

12 11 12

11 11 11

~

~

~

~

~

~ ~

~ ,

~

~

~ ~

~ ,

~

~ ~ ~ ~ ~ ~ ,

~ ,

~

~

~ , ~

~

~

~ ~ ~ ~ ,

~ ,

~ ~

~ ,

~ ~

U L U

L U

L A

U L U

L A

U L A

U L U

L A

U L U

L A

U L A

U L A

U L A

U L A

+ +

= +

=

=

+

= +

=

=

=

=

= LU分解

U12

を転送

U13

を転送

L21

を転送

L31

を転送

(35)

ブロック形式ガウス法

対角要素で

LU

分解して、行方向、列方向に 部分的な

LU

分解を転送する。

ブロック形式ガウス法の実現法は二通りある

1.

実際に小行列

L

U

の逆行列を求める方法 例)

L21 = A21 U11-1

2.

逆行列を求めず、

LU

分解を用いる方法 例)

A21 = L21 U11

1の実装の場合、行列

-

行列積が主演算となる

高効率で実装可能

(36)

縦ブロックガウス法

縦ブロックガウス法は、列方向のみデータを 分割する方法 (cf.ブロック形式ガウス法)

並列化した場合、

PE

内に列データを全て 所有しているため、ピボッティング処理が 実装しやすい

ブロック形式ガウス法は実装が難しい

外積形式ガウス法の並列化に比べ

1.

通信回数の削減

2.

ループアンローリングによる性能向上

が期待できる

(37)

データアクセスパターン

参照

更新 k

k

k

k

k

k k+m-

k+m-

k

k k+m-

k+m-

並列更新

k+m-

k+m-

参照

関連したドキュメント

東京⼤学 情報基盤センター 教授 塙

その他のライブラリ(信号処理等) 種類 問題 ライブラリ名 概要 信号処理 FFT FFTW 離散フーリエ変換、 AT機能

管理者にとって毎日サーバログを見る作業はな かなか大変である。その作業を軽減させるために 役立つログ関連ツールの利用を検討する。 Linux では代表的なログ関連ツールとして swatch

• MPI_DOUBLE_PRECISIONの代わりに MPI_REAL8 でもよい 入力ベクトル (各PEで 異なる 値をもつ) 出力ベクトル (各PEで、 全く同じ 値をもつ) ベクトル の長さ

28 理想値からのずれ(続き) • 計算時間が小さい場合( N が小さい場合)はこれらの効果を 無視できない。 –

28 理想値からのずれ(続き) • 計算時間が小さい場合( N が小さい場合)はこれらの効果を 無視できない。 –

• NVIDIA の GPU 向け開発環境。 C 言語版は CUDA C として NVIDIA から、 Fortran 版は CUDA Fortran として PGI( 現在は NVIDIA の子会社

FORTRAN