九州大学学術情報リポジトリ
Kyushu University Institutional Repository
歯科用貴金属合金のアノード溶解機構に関する研究
中川, 雅晴
https://doi.org/10.11501/3073278
多高 4 来念 芋ー
歯科用貴金属合金に おけ る ア ノ ー ド溶解機構を解明 す る た め に、 まず合金の基本成分であ るAu、 A g 、 Cu、 P dか ら構成 され るCu-Au、 Ag -A u、 C u -P d、 A g -P d二元系合金お よ びCu-Au-Pd、 Ag-Au-Pd三元系合金の ア ノ ド溶解挙動 を定電位分極実験 お よ び動的分極実験に よ り検討し た結 果、 次の結論を得た。
1 ) 相対的に 卑な元素であ るCuお よ びAgの ア ノ ー ド溶 解反応 は、 貴な元素であ るAuお よ びPdの添加に よ っ て 抑 制 され る。 こ の抑制効果は貴金属含有量 に は依存せず ア
ノ ー ド反応が急激に抑制 され る貴金属濃度す なわ ち、 し き い 値が存在す る。 Cuお よ びAgに 対す る貴金属元素 ( A u、
P d ) の し きい 値は それ ぞれ3 0 a t完Au、 40at%Pdお よ び40 at%Au、 7 5 a t完Pdであ る。
2 ) 貴金属を 含有す る合金の ア ノ ド 溶解 では、
的に 卑な元素 ( C u、 Ag ) の溶出が選択的に 生じ る が、
出せず に 残留す る貴金属元素 ( A u、 P d ) の 表面濃縮、
面 カ バー に よ っ て そ の溶出は抑制 され る。
相対
洛 表
3 ) 合金か らの構成元素の ア ノ ー ド溶解 に お い て は、
溶出す る 原子と それ に隣接す る原子と の 聞の原子問相互 作用が重要な因子と な っ て お り、 結合力の 大き な原子が 隣接す る 場合は、 結合力の小 さ な原子が隣接す る場合 よ
り も溶出が抑制 され る。
Cu-Ag-Pd合金を 用い、 単相 お よ び二相共存合金の動的分 極挙動を検討し た結果、 次 の結論を得た。
4 ) 二相共存合金の動的分極曲線には、 電流密度が急 激に 増加す る電位 ( Ec) が 2 ヶ 所現れ る 場合があ り、 そ れらは こ相を構成す る各相 (単相) の Ecと 致す る。
5 ) 二相共存合金の動的分極曲線は、 各相 (単相) の 体積分率を考慮した動的分極曲線の重ね合わ せに よ っ て 説 明 で き る 。
さ ら に、 貴金属を 含有す る 合金の ア ノ ド溶解挙動を
コ ン ト ロ ール す る因子を明 らかに す るた め に、 実験 に よ っ て得られた ア ノ ド溶解挙動の支配因子を考慮し た ア
ノ ー ド溶解過程の モ デル を 構築し、 コ ン ビ ュ ー タ
三ノュ レ ー シ ョ ン を?子っ た。 C u
0 _ 7A u
0 _3-x P d x合金の定電位分
極過程、 C u -A u、 A g - A u、 Cu-Pd、 A g -P d二元系合金の動的
分極過程、 二相共存状態のAu-Ag-Cu二 元系合金の動的分 極過程に つい て モ ン テ カ ル ロ シ ミ ュ レ ー シ ョ ン を行い、
そ れ ぞれ実験 で得られた結果 と の対応を 検討し、 次の結 論を得た。
6 ) 貴金属を 含有す る 合金の定電位分極過程 の シ ミ ユ
レ ー シ ョ ン の結果が実験結果を定性的に 再現し た ご と か ら、 相対的に 卑 な元素 ( C
u、の 選択的溶出に よ っ て 生 じ る 貴金属元素 ( A u、 の表面濃縮 お よ び隣接原子
と の原子間相互作用 の強さを 考慮し た シ ミ ュ レ ー シ ョ ン
7 ) 貴金属を含 す る合金の動的分極過程に お い ては、
相対的に 卑な金属元素 c u、 A
g) の 選択的な溶出に よ っ て表面に 残留し た貴金属元素 ( A u、 P d ) の表面再配列に よ る ア イ ラ ン ド の形成が そ の挙動を コ ン ト ロ ールす る重 要な因子と な っ て い る。
8 ) 貴金属を含有す る合金の動的分極曲線に お い て、
分極初期の電流密度の増加は 相対的に 卑な元素 c u、 A
g) の 選択的な溶出に よ っ て じ る。 そ の後の電流密度の減 少あ る いは停滞は表面に 残留し た貴金属元素 ( A u、 P d ) の表面 カ バーに よ る 相対的に 卑な元素の溶出抑制に よ っ て生じ る。 電流密度の減少あ る いは 停滞の後に 生じ る電 流密度の急激な増加は表面を カ ノJ し て い た貴金属元素 が溶出す る ご と に よ っ て生じ る。
9 ) 貴金属濃度がし き い 値以上の合金 では、 溶出せず
に 残留し た貴金属元素 A u、 P d ) が合金表面の ほ ぼ全域 を カ パ し て、 卑な元糸 c u、 A
g) の溶出が抑制 され る。
貴金属濃度がし き い 値以下の合金 では、 溶出せずに 残留 し た貴金属元素が合金表面 の 全域を カ バーす るに 至 ら ず、
卑な
7c 弁ミの溶出 は抑制 され な い。
( 1 0 ) 二相共存合金の動的 分極曲線に お け る 各相の重
ね 代わ せの手法は動的分極曲線の シ ミ ュ レ ー シ ョ ン に 適
用 で き る。
る だけ で なく、 新し い 合金を開発す る際 の基礎資料と な
る。 ま た、 本研究で開発 さ れ た ア ノ ー ド 溶解過程の コ ン
ビ ュ ー ター シ ミ ュ レ ー シ ョ ン は、 合金の腐食挙動を組成
や微視的相状態か ら 予測で き る 可能性を示唆し て い る。
謝 辞
本研究を遂行 す る に あ た り、 御指導と 御校関を賜り ま
し た九州大学歯学部歯科理工学講座 太田 道雄教授な ら びに、 始終懇切な御指導と 御教示を賜り ま し た 九州大学 歯学部歯科理工学講座 松家茂樹助教授に 心 よ り感謝の 意を表し ま す。 ま た、 適切な ご助言を頂い た九州大学歯 学部歯科理工学講座 白石孝信講師 に 深く感謝い た し ま
す。 ま た、 本論文の作成に ご協力く だ さ っ た 山村悦子氏
に 厚く 御礼申し 上げ ま す。 さ ら に、 本研究を遂行 す る に
あ た り、 多大な御協力を頂い た九州大学歯学部歯科理工
学講座 の 関係各位に 深く感謝い た し ま す。
参考文献
AU r o 乎i nH a +u n\u
ww
TEU Fhd
円，a
，G Fhd nu
a
Fhu phU no r l
-d nHd
ワl
' n同d
s l VV
It u -- FA OO フ“
AA rhd
nn ・
- s r e e R
LR r
a t p、u
vh nu e n
町内 Id
司'A 可，EA nu qノ白 唱si nHd 噌E-A 、・1F
AU 1i nd oo cu n『d
a I r
-- nvA
「同υ
'i
AA
・ d
s n e a nHu n
a r h
e
+し +し
a a n M
a vd ・
1G Au
. ，ム ρu
a m v
vn nD . 、ム o
TI T-u
qノ』
3. O. C. Wright. R. M . German and R. F. Ga11ant
J. Dent. Res.. 60(4) (1981)809-814.
4 . H. Hero. R. Jorgensen and E. Sorbroden J. Dent. Res.. 61(11) (1982)1292-1298.
5. K. J. Fioravanti and R. M. German Go1d Bu11t.. 21( 3) (1988)99-110.
6. P. R. Mezger. A.L. H. Sto1s. M. M. A. Vrijhoef and E. H. Greener
D e n
t .M a
te r .. 5 ( 1 9 89) 3 50- 3 54 .
7. D. J. L . Treacy and R. M . Ger rnan
Gold Bullt.. 17(2) (1984)46-54.
8. R. M. German. D. C. Wright and R.F. Gallant.
in "Precious Metals"， edited by E. D. Zysk (Pergamon. Toronto. 1981). p. 253.
9. P.P. Corso. Jr.. R. M. German and H. D. Simmons Jr.
J. Dent. Res.. 64 (5) (1985) 854-859.
10. P. Skjerpe. J. Gjonnes. E. Sorbroden and H. Hero
J. M a t e r. S c i .. 2 1 ( 1 9 8 6 ) 398 6 -3 9 9 2 .
c ・ 1よ 'k u vL
nD AU n a
e - 市よ βb Qd
.，ム 「「U
11A S仏孟 pu 刈U1 n，， - Mm A性
円hU
C oo -胃ム
n凶d
U 1i IL
fu - 03 --
・ vd nし LU
- -
Da v a o r n βb a o vv 唱li nU Ti -u
e +し a um um
唱lム 官『ム 可'A n『U 唱Ei n『d 勺t ttA Aせ no --A Qd
h 1i c /l c 'i u ワム
円L
vd
Fr pb
nu
，G 1i n o a
・ 1 c 'n n
n e
-- T1 2Eよ
e e pb pu n a AA
u r ￡i
uL nb
つム 1i
13. B. I. Johansson. J.E. Lemons and S. Q. Hao D e n
t .M a
te
r. ， 5 ( 1 989 ) 324 - 3 2 8 .
14. J. P. R a n d i
nS
u rf a c
ea n d C
0a
ti
n gT
ec h
n 01
0 g y3 4 ( 1 9 88) 2 5 3 - 2 75.
LU FU --ょ e
・ 11よ Fhd
nD q，，臼 qJ'M 唱BA
IL
1i - vlし 円/白
内/M
d I
n -
只U 丹、U
n6
ρv nHd n i n --
.，i 、1j'
nHU
'Ei qL
山W つ臼
po vv
n s o e qu nn
nu -hu ・
nu ふし J
n
e nu IL
nU Id
Fhd 'EA
16. J. J. Tuccillo and J. P. Nielsen
J. P r
0s t h e t . D e n t . . 2 5 ( 1 9 71) 6 2 9 - 6 37.
r a cb s AA
vn
.d n
- a つム
Fhd
vd つム nd
-
，パu rhu
- -
s斗A FU
n/臼 、‘EEE，， 円/M
ワム 1i nHd 只U r
--、
e oo
- -4
8uI
n r
e QU
e n ふし
nn nu pふ
e +し ・
g 'H n t a s TL
O
r pA nHU
Rυ 7J
可I・ 市Eム +し nH a t-ム 唱』止 a
pu
d斗A nu nb
hぃi
n司d 一
nHU Qd
円、U
，G 1j
n 2
nd n可υ oo +し 1ょ 'hu
--1 9b 司i
- 司ム
auI r 山w
ふし ' Fu
ρu n
nu hu n t a e m LU FL +し e s pu
M例 nvA r o
DHU -d
no 令『i phu 円，t qtu 句Ei ηi qtu
n -
e qJ s no nu nud e l ob
--I r -
nu q、u Id
n口 po nJu --t
nHH cu
d
e nH nHU a o t r n e e nn nu nn Id
n可υ 噌lA t，A 司令U n3 phu n/u n可U ) 必uτ oo nu 唱IA ( ) nιU ( qJ Po s e nHU
o t r n e e nn nu uu
TJ
nU 内/い 円、u nH o m m . 市i pb nu H口 っ、U
AU
Fhu nH
00 内d
口O 一
nH
44A a
oo m
-
Fι
Fhd ρu
oo phu
- 'i』A nヨ
( U問
Fhd 1lJ nHU
rl-、
au - FO
r -d
qu ・
'
ρM
o nHH S r
o
t pし
nH
ρu nu nrA
r
PA TJ Id
--A 円ノ臼
22. H. Hero and J. Valdeτh a
n gJ. Den t . Res . . 64(2) (1985)139-143.
23. E. Suoninen， H. Hero and E . Minni
J. B i
0m e d. M a t e r. R e s . ， 1 9 ( 198 5 ) 9 17- 9 34.
，G r nu ￡i nu a +し F、U
叩WH 勺l
円i
y，U
唱Ei Fhd
，G
n 勺乙 a
- Fhu 71
FL 1『/
Id Qd
ワi
- n可v
s i vd il u -- FドA n6 hhu Aハ
「hd
nHU
qu
r e e R
'k r
a t pb nu
ρu nu w臥U
M同日 TBU
SH- 円/臼 「hu t-A
AU つl a
S ワl a nu r 7 P
oo Ti 11
AA QU
唱E'A
AU f-、
n 11 只u
，，1・、 qぺU
n nu a F0 1n 4u
・ a n s a e vd DHU AU - Tム
a t v n
e nu vh
TA Td
「円u nJ白 e e -可J r ρM LU .knH U Mm vn
噌Eta 司l
，汁U 円、u nu
先U 丹、U
句'EA
nH qtu a -
'n つ乙 ふし 凸δ 只u nHu n l a -- vd An d 3
・ τム
''A
a "v
AHH
UR cu
TA n
au
- r
・1 TA r +U
S 1ム a 句i s e ふし a e、u um
po ハノ白
27. L . Niemi S. Syrjanen and A. Hensten -Pettersen
J. B i
0m e d. M a t e r. R e s . ， 1 9 ( 5) (1 9 8 5 ) 5 3 5 -548 .
28. L . Niemi and H. Hero
J. Dent. Res. ， 64(9) (1985)1163-1169.
29. L . Niemi， E. Minni and A. Ivaska J. Dent. Res. ， 65(6) (1986)888-891.
30. L . A. 0' B r i
e na
nd R. M. G
e rm a
nJ. M a
t e r .S
ci . . 2 3 ( 1 9 88) 3 5 6 3 - 3 5 7 1 .
31. J. Gniewek. J. Pezy. B. G. Baker and
J. O'M. Bokris
J. Electrochem . Soc. . 125 (1) (1978) 17-23.
r e n e e r pu
nn
rFU
Au n a
εi QU ρM 勺I nu -
LU -
-市EU 司，t -tA 門，t
r 1i
VV n6 「円d 11J AA Qd
1i
u則 u問 官i r11
r r e e
cb +し
z a e M
M則
+し
R
n
e
nr nu
qノ臼 円、U a d n o βb u n e pa nD . 市ム 'n p、u nH a Lu p、u n a vn nH a
n -b a t h
a
+し nH
a a n Vザ a JU
V》 ・ 1
d
a
-- v a vv Id
un
nH -d
TA
a
qο 丹ペリ
C a n a d i a n M e t a 1 1. Q u a r t e r 1 y ， 2 5 ( 2) (1 9 8 6 ) 1 2 3 - 129 .
nu 唱Ei 旬』A
'uu nU
ρu q。
r i a l/
um nU
n可υ nud
um -i iG FO
n a
' 'u
r c e
- -ム
ふし
1ム
a
LU MM
e nu
FU +し
n e
wv nU
A性 qtu
35 . M. Ohta . M. Nakagawa and S. Matsuya
J. Mater . Sci. Materials in Medicine . 1 (199 0 ) 14 0 -145.
3 6 . H. W. Pikering and C. Wagner
J. Electrochem . Soc. ・ 114 ( 1 9 6 7 ) 6 98 - 7 0 6 .
37 . H. W. P i k e
ri n
gj. E 1 e c
tr 0 c h e m . S 0 c . . 115 ( 1 9 6 8 ) 143 - 147 .
A斗A n『υ phu
nu nHd phu
oo phu n司d '1A Is-、 Fhd 'i 'EA
c nu p、u
m
g e n h
.，ム pu
r G e r
・hR +U
- 司ム pu
DA
mw EL ーよ e
nn yJ
00 qtu nu 「「υ 唱'i 円tt A斗A 'Eム ) n刈d ρhu nHd 、，A ( 「「u qL
n n nu nu
a ・ 1
W S σ、u
o
r
R
r
o
pi pu
n吋υ qtu Fhd 噌Ei つ'M nud nU つ'“ 、‘l'' 噌aEA ワi
e Qd nu 句ti r -- vd QU nD 21
'EA
IJ
・ PA
C
O
Ju n\u
nu a m
nb e n -h
.、土 門し
r G e r -ku +し
- tム 戸U
Dl
山w uL 1i e
uu Td
ハU 組斗ム 口。 唱'EA 円《u phd
nu n叫υ - tム 円/ω しn I，l r nu u no nU QU
14 ，，EEE‘、
nva q〆臼
aaz .d
n
・ a A
VJ +し
pb r a o uM
FFA
'si
J i
Lμ
AA DI
--ム 点斗τ oo no 噌Ei
s - AU 14 nH 可t' nd 1i 1i IIF w l o no nnu
t，i nコ
円U qa
8岨z ，G
nu
a A UJ
・ みし pb r a O M
じi
1i Tiu - ‘i LH
A P
つ乙 A斗A
43. G. Hultquist and H. Hero
C 0 r r 0 s i 0 n S
ci . ， 2 4 ( 1 9 84) 789 - 8 0 5 .
n ρu d ハU
AA
「ひ
円可U
Ju qο nu
日u n《υ
nu.υ
十u qJ S I
- ti 「円υ
u no 円可 ハ可リ ふEU 'tム
11よ
，tt、
U 6
nn
qu
nhu r a 可aよ o e r t ρU 2u H
・ τよ 0 m
Hn
nD
A性 A斗A
45. M. Ohta ， S. Matsuya and M. Yamane
J. Mater . Sci. ・ 2 1 ( 1 9 8 6) 398 1 - 3 9 8 5 .
46. K. Sieradizki. R . R. Corderman . K. Shukla and R. C. Newman
Phil. Ma g . A. 59(4) (1989)713-746.
nコ 円、u 必処
「hd
S つd -可よ A斗& +し 、11
・+し nu nu nHU FU
ーよ Qd
AA qノ臼 、il nHU 円t --1 Au qδ nH 'i
a
n
a c m O W QU
e M川 m ρu
pし
c LU
nn
o
r
' +し n
c a
e
. ，ム
旬tム nU FE σ、u vJ
円，f aq
48. S . Matsumura . T. Morimura and K. Oki
Proc. 12th Int. Cong. E1ectron Microscopy.
Seattle. (1990) 488.
49. R . Kumar . C. J. Sparks. T. Shiraishi E. D. Specht P. Zschak. G . E . Ice and K. Hisatsune
Mat . Res. S oc. Symp . Proc . . 213 (1991) 369.
1-
ρU Aせ
. ，よ
円/u hu pu nv
・d
a
-
nH
Fhu
nu
a
C
口。
HM Qd
-司ム ・104 LU
u
nu
・
nu
・
nu
r
R
t
nu
nu ri
vd
O
Lu
e AHH AU Ti r t n
nu ・
τム nu s
d
m
みし
e
a
a
g m
'
r ・
可i
H
ρ」
Lu
qu
ny
s
--
fll
nu
ヨu
VJ
V1
4し
ρU
e l H
M
d
nH
nu
- I
s a
- -
a u r hu +し
o nD e n
-
u o c a Fr
e 円U
m
r
a e nY AA V-
-d
H
AU
nH nH
H D ・
- a
nHU Fhd
5 1. K. Nakahigashi and M. Kogachi
Jpn. J. App1. Pltys . ， 18( 1979)1915.
52. M. Nakagawa . S. Matsuya and M. Ohta
J. Mater . Sci. :Materials in Medicine 3 ( 199 2 ) 114 .
ρM n a m a vi
um nび
円/臼
，パU Fhd
nH 、11
a
・胃ム nHd n6 内b
LU 1i
qu
III
- 市ム 2EA
a qfh
r -
噌よ
・
・hu
PD
Ti F、U C ・
- r a e +し +し 'れ
a nu um um vJ
円、υ Fhlu
54. D. Stauffer
in "Introduction to Percolation Theory "
( Taylor and Francis . London . 1985).
AU n a
a V》 u s +し a MM
P、u nHd
'
nud
- -ム 1i
‘hu
--A s
-
.，A 円、U
月u
nud r
Qd Ji
'i h
ft QU
00
つh
Tl . 、ム c
a
p、u w a
・ 0b
r a
a e Ln +し +し a
・n
a
M川 ハU um uM um TJ
Fhd 広d 円l nHU 'Ei 令Eム ) 丹、u oo n可V 1i nb
I11 nH qδ
- tA qf臼 r
ρv '
Ln C ・ I ・
- c nドa n\U w
r
r nu
nn pし
po rhd
付録
本研究 で開発し た 定電位分極過程お よ び動的分極過程 の シ ミ ュ レ ー シ ョ ン の プ ロ グ ラ ム リ ス ト
B A S 1 C ) を示す。
N 8 8日本語
-品、吋
10 • • • • • . ・・・・・・・・ .. . . .・.. . . .・・..・・・・・
20 .・ 70CII-:!O( AII・1'(1) u 11 oy ・
:1 [) .・ 3ひ; JL: rn :1:シミムレーシ ョ ン
，10 • 50 •
&0 • by M. NAKAr.AWA
70 ・.. . . . + • • • + • • • • • • • • • • • • • • • • • .・e・.. . . 80 SCREEN 2
90 CONSOI .E 0.25. 0.1 100 OI'T I ON IlASE U 110
120 D I M I'ClJCU(12).I'ClJAU1(12).I'ClJPDI(12).I'PIJ(12) 130 1NI'UT -numbcr ()f calculalions -:MN
140 FOIl 1=1 TO MN
1 :，日 1 NI・ II T -l' (C \1 C \1) . 11 (C 11 A 11) • Jl (C \1 l' d) . p (1汁t) = ": l'じりじり(1).I'CUAIJI (1) .I'CUI 'IlI (1).1・1'))(1) IGU NEXT 1
1 70 1 N l' IIT "Jl r i n l IlIJ l 0 f l h C iJ m u 11 n L () f d i s s u 1 vc CJ ( Y / N ) = ": l' S 1 180 I NI'IJT -display uf 3D 1altic巴(Y/N) = ":OSl'l
190 DI =4:1l.J=3îNPlJT 'disp1llY shifl rll. d.J (usuil1ly 4. 3) = ・: D 1. Il.J 1 n 1 I'H 1 NT 伺 No spccim(!n":Pft1NT
InドH1NT " 1 70CIJ-30Au"
193 PHINT ' 2 70Cu-28Au-2Pd"
194 I'IlINf " 3 70C\I-25Au-5I'd-
195 1・IlINT - 4 70Cu-20Au-10I'd"
19& l'lIlNT - 5 70CII-15Au-15Pd- 197ドHINT - (j 70Cu-IOAII-20I'ù"
198 I'IIINT - 7 70Cu-30Pù"
199 PHINT
200 I NI'UT ・sllむじimcn No. or u l l(O) ":TT:I F TT=O ・IIII:N TTT1=・A":TT=1 EU;E TTTS=・"
210 I NI'UT "Iilycr for田ulion (11 or 1&) ":1.ド 220 VN=4・I NPUT "VLIιillIl Nu. (1.2.3.4) ":VN 230
240 l'りH MULTI=I TO MN 250
2GO I'CUCU=I'ClJCUOiUl.T l ) :PCUAUI=PCUAU1 (MUL.TI) :PCUI'D1=I'CUPDI (MULT I ) : PI'D=PI'D(MUしT1) 270
280 11' DSPl="Y- TIIEN 290 ELSE 310
290 1ドTT=1 OR TT=4 OR TT=!i OR TT=7 TIIEN 300 El.SE TT=TT+I :GOTO 290 300
310 D 1 M AI.I.OY% (12.51.31) . UALI.OY% (12.51.31) . ftAU (11.30) . HPIJ ( 11.30) 320 D 1 M CUAUPI l (11) . AU (11) . CU (11) . PO (11) • CUPD (11) • CUAU (11) . CUClJ (11) 330 DIM OCU(I 1). OPO(I I)・.PCUCU (11) . PCUAU 1 (11) . PClJPO 1 (11) . PPO (11) 340 IlI M AAlJ(1 1) .APD(I 1)
350 IlIM NAU(II).NI'U(II).NCU(I I).FAU( I I ).FPD(ll).ドClJ(11) 360
370 TII.El=CI IRS (1.dIAA) +CIIIIl (LIIO) +CIIIIS (LII55) +CIIRS (LIIO)
380 CI .PO=O:Cl.AU=O:CUAUPD=O:CU=O:AU=O:PD=O:CUCU=O:CUAU:O:ClJPD=O
390 AAIJ(1)=30:APD( I)=0:AAU(2)=28:AI'D(2)=2:AAU(3)=25:APD(3)t5:AAU(4)z20:APD(4)=10 :AAU(5)=15:APD(5)=15:AAU(&)=10:APO(&)=20:AAU(7)=0:APD(7)=30
400
410 ・1.F = 1 1・・JNPlJT "Iaycr furma Lion (1 - 10) ":Lド
420 I.E乏しFー1:I.S=I:0LS=I:'JNPUT "dissoluLio n luyer (1 - 10) ":I.E:L5=1 430 OT=I: 'JNPUT ・ùissoluLion limc (1 - 10) ":OT
440 'I NPUT "Au (al%). PÙ ( u LX) = ":AAU.APD 450 AAU=AAU(TT) :APD=APO(TT)
5 1 0 H E A 0 H l' Il (1.. :10) • It JlIl (1.. 20) • It l' D (1.. 1 5) • It P D (1.. 1 0) . It l' Il (1.. :;) . I t l' D (1.. 2) . H 1・1l(1..(1) :120 NEXT 1.
5:10 .
tt • •• H A N IlU M N lJ M 11 E H CO J( J( Eじ!ION FAC1()J( ドoJ( !i () x :111 ・・・・・
540
550 DATA .33..3077..269..2138..1&43.目113. 0 5&0 IlATA .31..229!J..lI\7..125..072..034!J.0 570 DATA .307..2835..2525..205..156.. 111&.0 580 UATA .3045.. 21!l. .17!l. .1355..083..0392.0 5!l0 UATA .3071ì..2975..264..2132..1541..107.0
!ìOO DATA .293..222..1809..11/15..071.. 03&6.0 610 Il^TA .2!l2..2&9..2449..208..155..1106.0
1ì20 DATA .305..23/15..194.. 121i.. 073..03742.0 630 IlATA .2825..2634..2357..197..148..1055.0 r.40 DATA . 3[)1ì5.. 221i:l.. 19:\..1394..0112..042.0 G50 IJAlA .:1051..2リ(I!J..2522..21..151l..I J :I.U
!iIìO IJATA .3041\..22:l7..185..13!l..07!ìG..0:17.0 670 nATA .3072..2!J..2522..2133..lfi9..1115.0
&80 OArA .317.. 2315..111&7..144..08..0325.0 1ì!J0 DATA .275G..2G..2:158..ln3..1472..1115.0 700 UATA .21l!J4..2147.. 1822.. 1295..079..03:J5.0 710 DATA .2935..272..241l5..21..152..1 I 07.0 720 DATA .302..221ì3..1922..131\5..077.. 0324.lJ 7:llJ IlA'I A .21103..2:171..23.. llIð..1・EJ7..1091.0 HO OA1A .295..2177..192..151..085..039.0 750 DAlA .281l6..267..2345..11l1l..151..09443.0
'IG 0 IJ A TA . 2 81\. . 2 2 1 . . 1 /1 2 5. . 1 3 9 :1. . O!i 7 . . 0 2 8 . 0 770
780 ・ e・・e・ ulloy Jaycr formalioll ....・
7!J0 FOI t 1.=1 10 LF
1100 CI.S 1:1. 0CATE 9.0:I'II I N1 "70 Cu -":AAU: "Au -":APU:"J'd- 810 'GOSlIll ・ドOOTNOTE
1\20 ClJAlJl'D (1.) =0: AlJ (1.) =0: 1'1) (1.) =0: ClJl'lJ (L) =0: CUAU (1.) =0: CUCU (1.) =0: ClJ (1.) =0 830 DCU(I .)=O:DPD(L)=O
1140 FOH J=I TO 30 850 1-'011 I =J TO 50
11&0 CUAUPD (L) =CUAUI'D (L) t 1 :AI .LOYX (1.. 1. J) =5: 1ドL=l AND 1<=50 AND J<=30 TIlEN GOSUIJ
・CU 870 NEXT 1 1\80 I tANDOMIZE J.L 1190 ドOft 1=1 TO 50
900 I F HND<=HAlJ(I..AAU) TIII:N 910 El.SE 920
910 AU(L)=AU(I.)tl:Al.LUY%(I..I.J)=I :1ド1.=1 AND 1<=50 ANO J<=30 TIIEN GOSlJn ・AU :GOT o 940 ELSE 940
nz 0 1ド IINIJ(=I!PO(L. APIl) TIIEN 9:10 ELSE 940
!l30 1'1l(1.)=PD(I.)tl:ALLOY%(I ..I ..J)=2:1ドL=I AND 1<=50 AND J<=30 TIIEN GOSUB ・PD 940 NEXT J
950 NEXT .J
%0 CU (1.) =CUAUPD (1.) -( AU (1.) + PIl (1.)) 970 '
980 ・ . ..・・I'EH I OD I C UOUNDAHY CONUI TJON ・・・e・
!l90 ドOH J:1 TO 30
1000 ALI.OY%(し.o. J) =Al.I.On (L. 50. J) 1010 Al.1.0YX(L.51.J)=ALLOYX(I..I .J) 1020 NEXT J
1030 FOH 1:1 TO 50
){hH∞
1090 . *キ* t. CII (Pd) scek i n� ・..傘*
1 1 0 0 F 0 H .J = 1 T 0 3 0 1110 FOH 1=1 TO 50
1 1 20 1ドAl.Lon(L.I..1)=5 TIIEN 1130 EI.SE 1200 1130 IF Al.LOn(I.. I-l..1)=2 TlIF.N ALLOn(L.I.，J)=3 11，10 11' AI.LOYX(I..lil..1)=2 TIIEN ALLOn(L.I..1)=3 1150 IF ALLOn(I..I ..1-l)=2 TIIEN ALLOYX(L.I ..1)=3 1 160 1ドALLOY%(I..I . .HI)=2 TIIEN AI.LOn(L.I.J)=3 1170 IF Al .1.0U(I.II.I. .1)=2 TIIEN ALLOn(I..I.J)=:I 1 1 11 0 1 F Al. L 0 n; (L -1 . 1 . J) = 2 T II E N AL L 0 n ( L. 1 . .1) =:1
1 1 90 1 F A 1 .1. 0 n (1.. 1 . .J) =:3 T 11 E N C U l' D (1.) = C U l' 0 (し) 11: 1ド1.=1 AN D 1(=50 ANO ，)(=30 TllEN G USUII .CUI'O
1200 NEXT 1 12 I 0河EXT .J
1220 ・ +. +・. Cu(Au) sむ(!k i 111: • • * • * 1230 FUH .1=1 TO 30
1240 1'011 1=1 10 50
1250 IF ALLOU(I..I.J)=5 TIIEN 12GO ELSE 1:130 1 2fi 0 1 F A 1 .1. 0 Y% (L. 1 -1 . .J) = 1 T 11 E N AL L 0 n ( 1.. 1 • .1) = 4 1270 1ドAl.1.0 n ( 1. . 1 + 1 . .1) = 1 T 11 E N A L L 0 y% (1.. 1 • ，J) = 4 1280 1ドAl.1.0 n ( L. 1 . .1 -1 ) = 1 T II E N AL 1. 0 n ( 1.. 1 . .1) = 4 1290 11' A1.LOn(I..I..1+I)=1 TIIEN ALLOn(L.I .J)=4 1:3 0 0 1トAL.LOn(Ltl.J. .1)=1 TlIF.N ALLOn;(し.1 . J) = 4 1:110 11・AL.LOU(I.-I.I. .1)=1 TI!EN ALLOYX(L.I..1)=4
1320 1ド Al.1.0n(I ..I. .1)=4TIIEN CUAU(I.)=CUAU(l.)tl:JF 1.=1 AN D 1<=50 ANO .1<=30 TIIEN G OSUII +CUAU
1330 NEXT 1 1340 NEXT .1
1350 CUCU (1 .) =CU (1.) -(CUI'D (1.) t CUAU (1.)) IJGO FOR .1=1 10 30
1:J70 FOR 1=1 TO 50
13110 DAI.1.0Y'.t(I..I..1)=AL.I.0Y%(L.I..1) 1 390 NEXT 1
1 400 NEX1 .J 14 10 N 1・X1 1.
1 420
1430 'COI'Y 3:GOSUB +BFI.
1440 FOH 1.=1 TO LF
1450 CUAUI'D=CUAUI'DtCUAUPD (L) :CU=CUtCU (1.) :AU=AU+AU (1 .): PD=I'D+PD (1.) :CUCU=CUCUtCUCU ( 1.) CUAU=CUAU : t CUAU (L) : CUPD=CUPDtCUPD (L)
1 4GO NEXT L
1470 11' PS�=-Y" 011 OSP�="Y- TIIEN 14�0 ELSE 1550 1480
1490 I.I'II INT -DATE = ":DATE�;" TIME = ";T IMES;伺 TPSPOP- 1500 LPRINT -70 Cu -・;AAU;-Au --;APO;-I'd・:LPHI NT "P(CuCu)=-;ドCUCU;"I'(CuAul) =-; PC UA U 1; "ド(CuPdl)=";PCUPDI;-P(Pd)=":PPD
1510 I.PIIINT -VN=-:VN:I.PRINT
1520 I.PHINT -CuAlll'd =-;CUAUPO;- Cu ;・;CU:・ Au =":AU:. I'd =・:1'1)
1530 I.PRINT -Cu(%) =‘:CU/CUAUPD:- Au(l) =":AU/CUAUPD:. I'd(%) = ":PD/CUAUPD 1540 I.PHINT .CUCIl =伺:CUCU: - CuAu =";CUAU;- CuPd =":ClII'D:I .I'H INT
1550 11' OSP1=-Y- TI1EN GOSU日 争VDISP ELSE 1590 15 G 0
1570 COPY 3:I.PRINT CI1H1(12);
1580
1590 . .傘..・ dissolution ....・
I GOO
1 G 1 0ドOll T=1 TO DT IG20 ドOH 1.=1 TO I.S
1630 1.0CAH :l3.0:PHINT • lime step = -:I.S
1 fì 5 0 F 0 Il .J = 1 T 0 30 1560 FOH 1=1 TO 50
1670 lF DAI.LOY%(L-l.I..1)=O AN IJ DAl.1.0Yl(I..J，.1)=5 ANIl HN IJ<=l'ClJCU TIIEN (;OSUB *1J1SS0 1 .: DCU (1.) =OCU (し)+ J: DAI.LOn (L. 1. .J) =0: GOSUU・NEXT I .AY
1680 NEXT 1 1 690 NEXT .J 1700 ドOll .1=1 TO 30 171 0 ドOll 1=1 TO 50
1 "{ 2 0 1ドIJAl.I.0Y'.t(1.ー1.1..J) =0 ANO OAI.1.0n (1.. 1. .1) =4 ANIl HNIJ<=l' じlJAlJ l TIIEN GOSlJlI +I lI SS
01.: OCU (L) =DCU (1.) i 1: DA1.1.0Y'X (1.. 1. .1) =0: GOSUB .NEXTLA Y 1730 NEXT 1
1740 NEXT .1 17f)Oド011.J=I TO 30 17GO FOH 1=1 TO 50
177lJ 1F DALI.OYX(I.-I .I ..J)=O ANIJ DALl.On(I..I. .J)=3 ANIJ IIN IJ<=I'ClJドIII TIIEN GOSIJII +IJISS 01.:11CU(I.)=IlCU(L)tl:IJALI.0Y%(I..I ..1)=0:GOSUU +NEXTLAY
1780 NEXT 1 1790 NEXT .1
1800 1ドPD(L)=O TIlEN 1 8GO 181 0 FOI I .1=1 TO 30 1820 FOII 1=1 TO 50
11\30 1ドOALI.On(I.-I.I..1)=O AN D DALI.OY%(L.I..J)= 2 AN O IINU<=PI'O TIIEN GOSUIl .D I SSOL:
01'日(L)=DPD(し)t 1 : DAL I .OY% (1.. 1. .1) =0: GOSUIJ .POD 1 SSOI .: GOSUB +N EXTl.A Y 11\40 NEXT 1
1850 NEXT .J
11\ 60 [ド1.:1 TI1EN 22，10 1 870 'FOIl .1=1 TO 30 1880 .ドOR 1=1 TO 50
1890 ・1F D A I.L 0 y% (1.. 1 . .J) =:1 T 11 E N G 0 S 1I11 ・CUUNOEIlCU 1 900 'NEXT 1
I!JIO 'NEXT .1 1920 ド011 J=I TO 3D 1930 FOR 1=1 TO 50
1940 1ドDAI.1.0n(1.. I..J) =4 TIIEN r.OS1JB・IJI'PEIlCIJ EI.SE 1 !]fiO 1950 1ドUドI'EHじU=1 TIIEN 1 �(jO ELSE GOSUIJ 傘じUUNOEHAU 1960 N EXT 1
1 970 NEXT .J 1980 FOH J=I 1'0 30 1990 ド011 1=1 TO 50
2000 IF DAI.1.0n;(L.I ..1)=3 TI1EN GOSlJß .UPPEHCU ELSE 2020 2010 1ドUPPE I ICU=I TIlEN 2020 ELSE GOSUB +CUUNDEHPD 2020 NEXT 1
2030 NEXT .1 2040 Fon .1包1 TO 30 2050 ドOH 1=110 50
2060 Ir DALLOY%(I..I. .1)=2 TIIEN GOSlJO・UPPEHCU:GOSUIl +UPPEHPU ELSE 2080 2070 117 UP l'EHCU= 1 OH UPI'EHPO= 1 TIIEN 2080 EしSE GOSUIl・PDUN DEHAU 2080 N巨XT 1
2090 NEXT .J 2100 FOIl .1=1 TO 3D 21 1 0 FOH 1ま1 10 50
2120 117 DHI.OYX(L-I.I..1)=O TIlEN 2220 2130 ON VN GOTO 2140. 2150， 2160. 2170
2140 VL:I.-I:GOSUIl .VACANT I :I ドVACANT=I ANO OALLOY%(L.I. .1)=O TIIEN 2180 El.SE 2220 2150 VL=I.-I:GOSUB +VACANT 2:1 ドVACANT=2ANIl /)ALI.OYX(L.I.J)=O TIIEN 2180 EI .SE 2220 21GO VI.=L-I:GOSUU 傘VACANT3 : IF VACANT=3 ANO DALI.On(L.l. .1)=O TIIEN 2180 ELSE 2220 2170 VI.=L-I :GOSlJU .VHANT4:IF VACANT=4 AN D DALLOn(L.I..1)=O TIIEN 2180 ELSE 2220 2 111 0 /) A l. L 0 Y'X (1.. I . .J) = IJ A 1.1. 0 Y% (l.ーI.I..J) : IlA1.1.0)'% (1.・1.1. .J) = 0
21日o 1ドJ)ALl.OY'X(1.. I .. J) = 1 TIIEN GOSUIl +AUDOWN
HA∞
2210 ・lドDAl.1.0n(1..1. J) )=3 TlIEN GOSUlJ ・CUDO官N 2220 NEXT 1
2230 NEXT J 2240 FOR J=I TO 30 2250 FOll 1=1 TO 50 2260 VI.=I.:GOSUII ・VHANT5
2270 IF DAI.1.0n;(I..I.J)=1 AND VACANT=5 TllEN DAL I .OYX(I.+I .I.J)=IlAl.LOY%(L.I.J):DAl.LO n (1.. 1. .J) =0
22110 1 F DAL I .OY% (1.. 1. J) =2 AND VACANT=5 AND HND<=PPD.2 TIIEN GOSUll ・D I SSOL:DPD(I.)=D PD (1.) + 1: DAI.LOn (1.. 1. J) =0: GOSUB ・NEXTLAY
22日o 1 F DAI. 1.0 y% (1.. 1. J) )=:) AND VACANT=5 TIIEN GOSlJll ・IIIS S 0 1. : II C I1 (1.) = D C lJ (1.) I 1 : n A 1.1. 0 Y l(I..I.. I)=O:GOSUll ・NF.XTI.AY
2300 NEXT 1 2310 NEXT J 2320 NFXT L 2330
23.10 fllSCl J=日:OISPIl=O:TOTAI.=O 2350 FOH DI.= 1 TO LS
23GO IJI SCU=OISCU+DCU(DI.) 2370 D I SPD=DISPD+DPO(DL) 2380 NEXT 01.
2390 TOTAL=D I SCU+D I SPD
2400 IF I'SS=・Y" TIIEN 2'110 EI.SE 2430
2410 'LI'HINT ・70 CII -":AAU:"Au -・:A ドD:"Pd" : I.PIlIトIT "P (CuCu) =・:PClJCU:・P(CuAu1)=":P
ClJ A U 1 : "1' (ClI P d 1 ) = " : PC U P D 1 : "1' (Pd) =・:PI'D:I.PIlINT
2420 I .l'lllNT "TIME = ":I.S:" TOTAL 1J1SS0LVE O = ":TOTAl .:I.JlH I NT 2<130 . CLS 2: GOSUB ・IlI.AYEH
2440
2450 IF IJS!'S="Y- TIIEN 1ドI.S=1 OH LS=5 OH I .S=10 TIIEN I.PH I NT ・70 Cu -":AAU:"AlI ":
AI'Il :・I'd- : I.I'H 1 Nl ・l'(ClICU) = ": JlCUCU:"ド( CuAlIl)=":PじlJAlJI:"I'(CIIPdl)=・:P C U l' D 1 : "1' (P d) =" : ドドII・I.I'HINT
2HO 11 ・ DSI'S="Y" TIIEN GOSUB .VD I SP ELSE 2500
2470 目1.0CATE 5.23:I NI'UT ・COPY (Y/N)":CSS:IドCSS="N・ OH CSS=・11" TIIEN 1910 2480 '1.0CATE 5.23:PllINT " ":COPY 3
2490 1ド I.S=I OH I.S=5 OH I.S=IO TIIEN COI'Y 3:1.1'1l1NT CIIHS(12):
2500 11' I.SくI.E TllEN I.S=I.S+1:GOSUlJ .SEL:GOTO 1620 2510 OClI=O:IJI'D=O
2520 FOH 1.=1 TO 1.ド・DCU=IlCUIDCU(L):NEXT 25:10 ドoII L = 1 T 0 1. F : Il P D = 01' 1)1 0 l' D (L) : N E XT 25110
2550 . ....・・・ DEPTll PHOFILE •••••••
25GO FOH 1.= 1 TO 1.ド
2570 NAU (1.) =0: NPD (1.) =0: NCU (L) =0 2580 NEXT 1.
2590ドOH 1.=1 TO I.F 2600 FOll .1= 1 TO 30 2&10 FOH 1=1 10 50
2620 ON IlALI.On (1.. 1. .1) GOSUß ・NAU. .NI'Il. ・NCU. .NCU. *NじU 2G30 NF.XT 1
2GHI NEXT .1 2G50 NEXT 1.
2GGO NEXT T 2670 FOll 1.=1 TO I.F
2G80 FAIl (1.) =NAU (1.) / (NA\l (1.) I NI'IJ (1.) INCtJ (1.))・100 2GUOドI'O( I.)=NI'Il(I.)/(NAU(I.)+NI'O(L)+NCU(I.))*IOO
2750 LI'HINT ・LA YER =・:1.:" Cu(%)=";FCU(I.):" Au(X)=・;ドAU(L):" I'd(%)=":FPD(I.) 2760 NEXT L
2770
2780 ・INPUT "END or NEXT (E/N)";ENS: I ドENS="E" UH ENl="c" TIIEN 11120 2790 EHASE ALLOY%.DALLOYX.IlAU.llPO.CUAUPO.AlJ.I'D.CU.CUAU.CUPD.CUClJ 2800 ERASE DCU. DPIJ・.PCUCU. PCUAU 1. PCUPD 1.1'1'0
2810 EnASE AAU.AI'D
21120 EHASE NAU.Nl'n.NCU，ドAlJ.FPIl. FClJ 21130 1ドPSS="Y" TIIEN I.I'HINT CIIIU(12):
2840 1ドTTTl="A" AND TT<7 TIIEN TT=TT+I:CLS J:GOTO 280 ELSE 21150 21150 'NEXT TT
211GO GUSl JJI ・IIEL
21170 IF TTTS="A" TIIEN CLS 3':GOTO 120 2880 NEXT MULTI'CI .S 3:GOTO 1&0 2890 END
2900
2910 . •••••• SUIlI lOIJTINE ...・
2920
2!l30 +IlISS0L
2!l40 1ド1<=50 AND J<=30 TIIEN C I HCI.E (1*10-5+70.J・10+20).5.0....ド 2!)50 HETUHN
29&0 ・AU
2 97 0 1 F 1 < = 5 0 A N n .J < = :1 0 T 11 E N C 1 n C 1. E (1' 1 0 -5 + 7 0 . .1・10+20).5.7...，ド 2980 HETUHN
2990 ・PIl
:10 () 0 1ド1<=50 ANIl .1<=:10 'IIIEN C I HCI.E (1・1 () -5 1" 0， .1・10 I 2 0) . 5. 7 : l' A 1 N'I (1・10 -5 I 70. .J・1 0+20).T II.0.7
3010 nETUHN 3020 ・CUI'Il
:10:10 1ド1<玄50 A N J) .J < = :1 0 '1 11 E N C 1 H C 1. E (1. 1 0 -5 I 7 0 • .1 . 1 0 I 2 0) . 5. 7 : C 1 H C 1. E (1・1() -5 1" (). .)・
10 I 20) . 2. 7 3040 IIETUHN 3050 ・CUAU
3060 11-' 1<=50 AND .1<=30 ・fllEN CIHCI.E (1+10・5+7日..1+10+20).5.7:CIHCI.E (1.10-5+70..)1 10120) • 1 ， 7
3070 IlETUHN 30110 *CU
:10 n 0 1ド1<=50 ANIl .J<=30 TIlEN じ1HCI.E (1・10-5170..1・10+20).5.7 3100 HETUHN
3110
312 (J ・DISSOI.I.1
3130 1ド111<=50 AND J.JJ<=:lO TIIEN C I RCI.E (111・10-5170..JJ.hI0+20).5 . 0....ド 3140 HETIJHN
:1 150 ・AI J I J
:1 160 1ド111<=50 AND .1.JJ<=:lO TIIEN CIHCI.E (111.10・5+ 7 0 • .1.I.J • 1 0 t 2 0) . 5. 7 . • . . 1
3170 HET UHN 3180 ・PIlIJ
:1 190 1ド111<=50 ANIl .1.1.1<=30 IîIEN・ C I HCI .E (111・10-5+70.J. 1.J傘10+20).5.7:I'A I NT (111・1
0-5+70..JJJ.10120) .TILEl. 7 3200 HETUHN
3210 ・CUI'OIJ
3220 1ド111<=50 AND JJJ(=30 TIIEN CIHGI.E (111・10-5+70.JJJ+10120).5.7:じ1HCLE (1 11・
IO-S+70.JJJ+10+20). 2."
:1 2 :1 () Il E T lJ H N 3 2 4 0 + C U A U 1 .J
3250 1ド11 1 < = 5 0 A N J) .J. I.I < = :1 0
一戸印。
32!lO HETIJf!N :l30日
3310 tNEXTl.AY 3320 NL=Ltl
333日lドDALLOn(NI.，I"J)=! TlI EN GOSUß tAU : l:l4日1 F OAI.1.0n (NI .， 1， J) =2 T1IEN GOSUn *PI l 33 5 0 1 F II A l.l.ll n; (N 1.. 1 . ，)) =:l T 11 E N G 0 S U Il ・じUPO :l3 G 0 1ドlJALI.On(NL. 1， J) =4 TIIEN GOSUll ・CUAU 3370 1 F DAl.I.On (NL. 1. J) =5 TIlEN GOSUß ・CU
33110 1ドDA1.1.0n(NL. 1， .1) =0 TIIEN NL=NL+ 1 : GOTO 3330 3390 IlETUI1N
:1.100 :14 1 0 tl.OCPlt1
3420 LOCATE 5.20:'I'I1[NT 伺timc = ":T:
H30 HETUHN :l4 4 0
3450 +I'Dll ISSOI.
J ，1 Ú 0 1ドDAしLOn;(L. I-I.J)=3 T1IEN 3470 EI .SE 3510
347011-' DA l.LOn(L.I-2..1)=2 01\ DAL LOYX(L. I - l..1-l)=2 OH DAl.1.0YX(L.I-I.J+I)全2 011 OA I.l.on (1.1 1，1-1. .1) =2 OR OALI.On (1.ー1，1-1..1)=2 TIII:N DALLOYX(L.I-I，J)=3:GOTO 3510 34110 1ドDAL LOU(L.I-2..1)=1 on OALLOY%(L.l-l..1-l)=l OH OALLOY%(L.l-1，Jtl)=1 011 DA LLOn(Lil.l-l..J)=1 OH DALLOn(L-l.I-l.J)=1 TIIEN OA L LOU(L. I-l..J)=4 ELSE 3500 3490 111=I-l:J.JJ=J:GOSUB tVACANTU:IF VACANTU=O TlIEN GOSUB ・OISSOLIJ:GOSU8 .CUAUI J:GOTO 35JO
3500 lJALし0Y%(L.I- l，.J)=5:IIl=I-1:.J.JJ=J:GOSUB ・VACANTU:1ドVACANTU=O TII EN GOSUU .lJ I SSOLIJ:GOSUI l tCUIJ
351011' DALLOY%(L.ltl.J)=3 TIIEN 3520 EI.SE 3560
3520 IJ-' DA1.1.DY'X(L.112，.Jl=2 01{ DALI.OU(L，I+I..I-I)=2 OR DAL1.0Yl(1.. I+ I.J+I)=2 011 llA 1.1.0n;(I.II，111.J)=2 011 DA LLOn(1. ・1.1+1..1)=2 TIII:N OALしOYt(L.I+I..J)=3:GOTO 35&0 35 3011' IJALI.OYl(I..I+2.J)=1 011 UALLOU(L.lfl.J-I)=1 011 OALLOn(L.I+I.J+I)xl 0 1 1 UA LI.OY:t(l.tl.l+l.J)=l OR DAL I .OY<.t(L-I.I+I.J)=l TIIEN DAl.LOY%(I..I+ I .J)=4 EI .SE 3550 :l540111=111:JJJ=J:GOSUB ・VACANTU:I F VACANTU=O TIIEN GOSUU ・OISSOLIJ:GOSUß .CUAUI .J:GOTO 3560
3550 OALLOn(I..ltl.J)=5:III=I+l:.1JJ=J:GOSUn .VACANTU:lF VACANTU=O TIlEN GOSUI l ・01 SSOLIJ:GOSUll ・CUI J
3560 lF f)ALLOY'.t(L. I.J-I) =3 TIIEN 3570 EL.SE 3610
3570 11・ DALLOY'.t(1..I-l..1-l)=2 011 DAl.LOY'.t(L.JtI.J-l)=2 Oll DAl.LDY%(L.I.J-2)=2 011 DA 1.1.0n(Ltl.I，.J-l)=2 OH lJALl.OYX(L-1.I-l.')-1)=2 TIlEN DALLOYX(L.I.J-I)=3:GOTO 3GI0 3511 0 11・DAl.1.0n(l.，I-).J- I)=1 OR DALLOY%(L.Hl.J-l)=1 O!l DAl.LOYX(L，I..)-2)=1 011 OA l.I.OY'.l'.(L+I.I.J-j)= l OR DAU.On(1.ーl. r・1..)-1)=1 TIlEN DALLDY%(し.1. J -J ) = 4 EI.S E 3 G 0 0 35no I I I=I:，).IJ=J-I:GOSUB +VACANTU:IF VACANTU=O TIIEN GOSUn ・OISSDI.I.!:GOSUB ・CUAUI J:GOTO 3(j10
3600 IJAL LOn (L. 1 . J-l) =5・II I =I:.IJJ=J-I:GOSUB .VACANTU:IドVACANTU=O TII EN GOSUI I・01 SSOLIJ:GOSUH .CUIJ
3610 1ド日A1.LOY%(I ..I. .Jtl)=3 TIIEN 3G20 ELSE 3660
3620 117 DAL1.0Y%(l..I-l.Jt1)=2 OR DALLOY%(L. I +I..J;I)=2 01{ OAl.LOYl(L.I.J+2)=2 O!l DA 1.1.0Y%(Ltl.I.Jtl)=2 OH DALI.OY'.t(L-l.I-I.，J;I)=2 TIIEN OALLOYX(L.I.Jt1)=3:GOTO 3GGO 3G30 I F lJAl.LOYX(L.I-l，J+l)=l 011 DAl. LOn(I..I+ I.J+J)=1 011 DALl.On(L.I.J+2)=1 OH DA
しLOYX(I .+I.I.J+l)=1 011 OALLOY%(L-I.I・1..1 + 1 ) = 1 T 11 E N D AL L 0 Y% (l.. 1. .J I 1 ) = 4 El. S E 3 f， 5 0 3G40 1I I=J :J.JJ=.1+l :GOSU8 ・VACANTU:IF VACANTU=O TllEN GOSUll +IlISS0L!.!:GOSUB +CUAUI .J:Cりro :3 G fj 0
:.JGriO DAI.LOYX(1..1..J+1)=ri:111=[:.JJJ=Jtl:C;OSUll .VACANTU:1F VACANTlJ=1l TIlEN GOSUIl +IJ I SSOI.IJ:GOSUB ・CUL!
3GGO 1ドUAL I .On;(I.II，I..J)=3 TIIEN 3670 ELSE 3720
3670 I F llAI.1.0Y%(I.+I.1-I.J)=2 OR DALLOY%(L.+I.1+1.J)=2 Ol l DAl.LOU(I.+I.I..!-I)=2 OH DAL.1.0Y%(1.11. I.J+l)=2 01\ DALI.0Y%(1.+2.1..J)=2 1'IlEN IlAL LOY%(LtI.I.J)=3:(;OTO 3720 36110 1ドllAL.LOY%(L+l.I-I . J)=1 OH DALLOY%(L+I.lt1.J)=1 on OA!.LOY%(L+l.I.，!-l)=1 OH DAl.1.0Y%(1.+1.1..J+1)=1 OH OALLOY%(L+2.1..J)=1 TIIEN DALI.OY%(L+I.I.J):4 El.SE 3710 31ì90 1 1 1=1:.J.lJ= J:GOSUB .VACANTU:IF VACANTU=O TIII:N 3700 EL SE 3710
3710 DA I.1.0YX(しtJ . 1 . .1) = f> : 1 1 1 = 1 : .1.1.1 = J : G () S lJ 11 + V A C A N T IJ : 1ドVACANTlJ=() TlI EN (;OSIlIl +IlISS OLI.J:GOSl Jll +ClJl.1
:17zn HETUHN 3730 3740 tUEし
:1750 'FOH ß =1 TO :IO:IIEEP:FOH ßII=1 TO 500:NEXT IHI:NEXT Il :J7(j() HETUHN
3770
37110 ・ドOOTNOTE
3790 LOCATE 1G.IG:PHINT " Au Pd Cu"
3800 CIHCI.E (124.2G4l.5.7. . ，.F・:CIHCI.E (12�.344).1.7....F :ll!IO CIHCI.E (212.20�).5.7:I'AINT (212.2G4).TIJ.ES.7
3820 CIHCI .E (300.264).5.7・:CIIlCLE (300.344l.2.ClPO..，.ド:CII\CUニ(300.344).2.7 3830 ・CIIICLE (381l.344)，5.7..，.F:CIIlCLE (31l1l.344).I .CUlJ.，.，F
3840 'CI HCLE (47(j.344).5.7....F
3850 1.0 C ATE 8.11l:I 'H I NT "p(Cu-Cul=":PCl JClJ:". Il(Cu-Au)=・:P C U A lJ 1 ; ". l' (C lJ -l' rI) ; " ; P C lJ l' 01;". p(Pú)=";I'PD
38GO HETUllN 3/\70 3/\80 ・0しAYEIl
3890 LOCATE 33.0:I'H I NT " Limc sLcp = ";LS 3900 GOSUß *FOOTNOTE
3910 FOH J=1 TO 30 3920 FOR 1=1 TO 30
3930 ON DALl.On(l. I..J) GOSUß +AU， .1'0. ・CUJlD， +ClJAU. ・CU
3940 IF DALLOY%(I.I，.J)=10 TIIEN ON AI.LOn:(I.I，J) GOSUIl・AI J. t PO. ・CUI'Il. *CUAU. ・c U
3950 NEXT 1 39&0 NEXT .J
3970 CI.S 2: 'COPY 3:CI.S 2 3!l80 IlETUHN
3990
4000 ・DISSOLV
4010 1ド1(=30 ANO J(=30 1'IIEN CfllCI .E (1・10-5tI80-(J+ll I).JVtl0+30f(J・IlJ)) . 5. O.‘. • F 4020 ItETUltN
4030 .PDV
4040 [ド{<=30 ANO .1(=30 1'III:N GOSUIl +I lISSOI.Y:ClHCI.E (1+10-5tI80-(JtOI).JVtI 0+30t(
.hO.!)).5.7:I 'AINT (1・10-5+180-(.1+01) .JVtIOt:lO+ (J・OJ)).TILEL 7 4050 HETUHN
4060 ・AUV
4070 1ドIく=30 AND .1(=30 TIIEN GOSUII tOISSO!.V:CIRCLE (ltI0-5fl/\O-(J・DI).JVt101301 ( J・O.l)).5.7，...F:CIHCLE (1+10-5+180-(J・01).JV+IOt30+ (.1・0.1)) .5.0
40110 IlETUHN 4090 ・CUPDV
4100 1 F 1く=30 ANlJ .J(=30 TII EN GOSlJB ・DISSOI.V:CIRCLE (1傘10-5+1110-(.1*01) ..JV.l()t30+ (
.1. DJ) ) .5. 7・:CI HCI.E (1*10-5+180-(J+DI).JV・10+30t (J.O.l)). 5. 0
41 10 HιrUHN 4120 +CUAl JV
41:1 0 1ド[(=30 AND J(=30 TIIEN GOSUß .U1SS0LV:CIHCLE (1傘10-5+180-(J+OI) .JV+IO+30+ ( J・D J)) ，5.7・:CIHCI .E (J*10・5..180・(J+OI)..Jv+lo no+ (J・DJ)) . 5.0
4140 HETUHN 4 150 ・CUV
41 [Ì 0 1ドI( = 3 0 ^ N IJ .J ( = 3 0 T 11 E N G 0 S U n .日ISSO!.V:CIIlCI.E (1+10-5+1110-(J・Il1) . .J V・10t 301 ( J・I lJ)) . 5. 7・:CII lCLE ( I+IO-5tJ80・(J+DI).JV+I O+30+ (J・DJ)) . 5. 0
4170 HETlJHN 4180 4190 .Vf)ISP
4200 CI.S 2:GOSUll tFOOTNOTE 4210 FOH .1=1 TO 30
.12:30 .J V = 1.
�2�O 1'011 1=1 TO 30
42�O ON DAl.1.0n(I..I..J) GOSUß *AUV. .PDV. .CUI'DV. .CUAUV. .CUV
�2&{) 11' DHI.On(l..I.J)=IO TIIE1'1 ON ALLOY%(I..r.J) GOSUß .AUV. ・I'DV. • CUPDV. tCUAUV 'CUV
'1 Z 7日 NEXT 1
.1211 0 N E.'iT 1
.j 2リo '1'011 TTT=I TO 1000:NEXT TTT:CI.S 2
4300 NEXT .J 4J 1 0 HF.TUHN 4320
.j :130 ・ClJlJNIlEHClJ
4:).1011' DAl.1.0U{L-l.I..J)=J on OAl.I.OY%(1.ー1• 1 . .1) = 4 丁 目 EN 4350 1二1.日E 43 7 0 4350 VI .=I .:GOSUB ・VACANTI:IF VACANT=1 111EN 43&0 HSE 4:)70
0\3GO 11' HNDく=PCUCU TII EN DCU (L) =OCU (1.) + 1: DALLOYX (l .. 1. J) =0 4 3 7 0 Il E T lJ H N
4: J11 0
4390 .CIJUNDEI!AU
<1" 0 0 IドDAl.1.0n(I.-1.1.J)=1 TIIEN 4410 ELSE 4430
4410 Vl.=I.:COSUB .VACANT1: 11' VACANT=I TItEN 4420 EI.SE 4430
，1420 11. IINDく=I'CUAUI TIIEN DCU(I.)=OCU(L)tl:llnI.OY%(I..I..)J=O 4430 HETUHN
4440
.j ，15 0 ・CUUN[)EHPD
44&0 IF DAl.し0Y%(L-l.I.J)=2 OH DALLOY%(L-I.l.J) =1 TIIEN 4470 ELSE 4490 4470 '1L=I .:GOSUß .VACANT1:IF VACANT=1 TIIEN 4480 EUiE 4490
4HìO IF HN ll(=I'CUI'IJI TItEN DCU(I.)=DCU(I.)+I:DAl .I .OY'.r.(L.I..1)=O 44!lO HETUHN
.150 n
トー 4510 ・l'D U N D Ell.� U
c..n 4520 11' DALLOn(L-l.I.J)=1 TIlEN 4530 El.SE 4550
.1530 Vl.=1.・(;OSUll ・VACANT1:1ド VACANT=1 TllEN 45�0 I:I.SE 4G50
4540 1ドRND<=l'l'D TllEN DI'U(L)=UPD(L)+I:DAI.LOU(L.J.J)=O:GOSUll .PDOISSOL tl!i50 11ETU11N
45&0 1\570 +AUDOWN
4511 0 1 1・ UAI .LOn(L-l.l-l.J)=4 TIIEN UALLOU(L-l. 1-1..1)=5
45!l0 !F DAl.LOU(l.ー1.1-1..1-1)=1 OH DALLOYX(L-l.l-l..1tl) =1 DH DALI.OYX(L.l-I.J)=1 0 H DALl.On(I.-2.[-)..1)=1 TIlEN DALLOY:t(1.ー1.1-1..1) =4
4600 IF 1-2<0 TIIEN 4610 ELSE IF DALLOY%(L-1.1-2..J) "1 TIIEN DALLOYX(L-1.1・1..1)=4 4 & 1 0 1ドDAl .LOn([，-1.1 t 1. .1) =4 TI1EN DALLOY% (1.ーI.I+l.J)=5
.1620 I1・ DALLon(l.-l.l+l..1-l)=1 011 DALLOn(1.ーI.ltl..1+l)=1 OH DALI.On(L.I+I..J)=1 0 Il DALI.OY:t(L-2.I+l..1)=1 TIIEN DALLOY%(l.ーI.I+l.J)=4
4630 1ド1+2>51TllEN 4640 ELSE 1ドDALLOn(L-l .I +2.J) 苓1 T!lEN DALl.On(L-1.l+1..J)=4 4640 IF DALLOY%(L-).I..J-l)=4 TIIEN DALLOn(L-1.I..J-I)=5
4650 IF DALl.OY%(L-l.1-1.J-I) =1 Ol! DAI.LOY%(1.ー1.1+1..1-1)"1 OH DALLOY%(L.I..1-l)玄1 0 H DALl.On(L-2.1..J-l) =1 TIIEN OALLOY%(L-l.1.J-I) =4
46&0 Iド .1-2<0TIIEN 4670 ELSE 117 DALLOY%(L-1.I.J-2)=! TI1EN DALLOU(L-1.1..J-I)=4 4670 lF DAl.LOY%(L-I.I.JQ)=4 TIlEN DALLOY%(L-l.I ..1+I)=5
4680 IF DAl.LOU(L-I .I-l.J+l) =! OR DALLOY%(L-l.l+l..1+I) =l OH DALl.OY%(L.1.J1l)"1 0 H DALl.OY%(L-2.I ..1+l) =1 TIIEN DALLOY%(L-I.I..J+I) =t\
4690 IF .1+2>31 T!lEN 4700 ELSE IF DAl.LOY:t(L-I.I.J+2)=1 TIIEN DALl.OYX(L-!.I ..1l))=4 4700 1ドDALl.On(L-2. 1. J) =4 TIIEN DALLOY% (L-2. 1. J) =5
4710 1ドDALLOY%(1 .-2.I-1.. J)=1 Oll DALl.OY%(l.-2.111..1)=! Ol! DALLOn(1.-2.I..1-I)=1 Ol!
DALLOY%(L-2.1..J+!) =! TllEN DALLOn(L-2.J.J)=4
4720117 L>2 TIIEN IF DAl.l .On(L-3.I.J)=1 TIIEN DALLOY%(L-2.1..l)=4
り
0
0
0
0
0
0
0
Y Y 必u，
qd
局、
qJu υH 怜H
nu nu 'a 凋u胃 qL qd 'i
z
qι
= ts
a守
今乙 川J 14
Z
伶4 -- nU
Hu
fL tL r Z 2 z -- hJ
= hi
z-
- z z
=
hi--31
1」
'し
‘l l' l，
、l l'
TJ
h1' EJ
、l
、I，
、l' l，
、J Ill'
El B』
qL
aA
畠ハtJSJ
，d
，J
『J
・Id--』T』
1A 1・
3』
+
'i o
--znυnu
• .
.
.
.，a・
・Il- -
---・'・Eda，.，d・EE，‘，，，-A・1・fA
it 't o 't o
TdsJ，J
tJ IJ
・，J
- Bi
s』
unnn一
- -
-
a'
『1・
AT 'ta
---
. .
，，a・.，a-
-
内・d
叫SU勾eJwq‘"のtJMHHunHU
'l
『l fl
，fA -1
・，l・
la
『I BI rl- El
--Ea-
-uv
，d
-- -- z z z .
，.
. .
，i・，1・
・
・
・
・ ti -
-i
•
.
、t，、，，kl，‘，，
、ー'
't q411alu
- -h -L
-Lilli
--
，-
vi
ta
-dJIlid--z i-
--，t
Fi f--、
fi--、-f、-
，i ---t--‘Ile
a，
・
l' l'
wmlhWAILザんttwA，l
wん 'L eh刷tLW必'lw必
'l qι
今ι・lgazdfd
't
'a
1a
v- t1 v'I1vaVAVtwamvat-vat-v'WAV--hm-
-
- AT - - -
-
HH WLm Hり WA
Hりv--
nu va nu
whm
nu w必 nu
vt
nu vl
?し
tL'sta--'A1A
，d td
1LY--u
vl fL
nu'LHU
IL vt
'i，va
'し
HU
'LHU
，t‘
，。‘
・・・・+-
fa
nu
lLnu
'L
'L 'L 1L
・2hnu'LHM』hlhILIL
qA
Whm
'しfL0・hELIL
vi 'i
‘A E--aA
'』
aA
SL
An eL -A 'L-n
'上 ιn 'Lam
sし uve aqvI
q、ut---‘，lt，a・、，S1
・
・ HH
tL HU 'l
nu AHnUAHnufLHuiしnuanHHAnnu--
nu
=
wbw舟eAeA管局1LtL
AH
AH
hHuhHH
AH
-AH
Hυ
nH 1h
‘，Flu
-'v・v-vIVIVI
-- ft れn nuun
nu
HHHU
Hn nUHHHU
れれ
れH
tLEJ
aL
，dnununununu
eA 智am nリHunuM内nuMHnununuMHnuu円&n-an-tしSLELfL'L
vs vs
MHMH
Eし
い十L
N円
M日
仁L
UL nU EanuIAfLSL1L'L1L
nu nu il r仁qru
rL
‘I
HH
内t HU -- PEqLfじ
・I HH。L HH
- zHH=HH aAanaAAHan-LaqlH叶d- Z Ta
=Ta--HH=HUZTI--
T' HH
qL
HH
?u nunuHUnMnutL2IL-rJ、IT--T5))51jTtJT51i、1 0 -o-A、JAIl
--'』
gi
--'l'i'ー
の4 Z B』
'A
Z B』
'l pA q4
aL
EL
U円Mnu円M同Mnnu，lunu，JhJaT'B+q'旬、ー，
=+
=、j
- EA -
?-
hl
e -- 4 -- 3a
tt'ι，t仁LULELVιUL--JJ
Z Id --JJ、J1dl'lJzId--iJ、JJizz=ZUHHHHHHHHHHIn- 4
・
・1'・Il-
- Id --d-.、j・、l
+
・
?- -
qLPU‘Jvl、jVE・T?lT，TE?』0・nu--:A-1-J1t，JVl--i・
1A
・1JV1』qι，Aq47J1a
6 1』
+
=tJ nU1d nu
'LSL
、j
- -4
・-qJ-
A' a，
凋司令ι+内」。ι・
+ aq -+
勺Iu--
+ 42J+3tJl'・2LBL-必噌aueau可aU1
8喝
'Af、。4，1
1d
fS 1』
-- qL
T』=qLla--=+『1=4tA『』
=
・J
『』
--，d212』--・
1a z
・2d'afle---ILE-
- 2 2
--zwhm--wam
・
・
・1' -
'tJ-
・
・l'・1J・・3J・7I，I‘?↓
. . . 、114.、12』-
a' aハ ' an a--'l，、l、ll'V』}'V』't，hat，J'l'』BJFlittttd -TI
Ed-1lB』1』tlshts'isBBa
ta
・ --iIs--Ayinu--nυ，dfJalsAtd，Jnu?dnU - - - -- - -- 一
.. ，a-・
，ES - - - -一 -
--
-
.，.，s-A・f・EE-
- -aRUE-内・Ju
-
・--a・・・・'sb
'E」
t・
1L
ILia-t1し1l・1A-LiL1A
-'L EA --LfLfd1‘・LId-41LILtd
-tL Ed -96 qL -- MH 9ι +11'l =MnsaB』td，IWIs-41L141L 一 --・1hf‘・-111、。-f、I、，lf‘+'Llt'L+-lt'l-EL
- -
I'ドL
- i' rι -
A，
. .
. +aA+‘n
'L
(YY・，ly--tYY-Z WLmWLmzttLWAgttLWLmwhmfi，l、VA'l，l、WAWA'1・L憎ん211L憎ん-AEI，E‘wA'l，I、'し『LfJHH『L，JHH，』YA1A・74'ATinUEIHυ
Y -ZY
Y -l y -vav--ZY-Z-T--It-I-
T
・
・
・
・+
・
・
wam
nu nu'ieAハU'lwAnunu，AVanutAVBnunUESWAnu--VAnunu?AVbnu『AVow必仰AlAWA'ASL1LOLlh'LELM川1LM川 va
『し
fL-VEtL
- V』
1し
tL -nU TL - HU
TL1h
- vz
・L-vaTL?し-nulL
- nu v'VE--EVE-qL，I'l'i'l'Ir1rEtICL nU
1LtLtLnutLZLHUELtL'LtL1LIl--L1L'LfLnutL1unリ'L1LiaelL'LtLfLnunuqL
2nυ 9'u
=ザ淘智島田eAOA智局管局HHVA
HH lL
An AHfI'LAHr--LAHAn，lーしAハtlfしAnan--tLAハttiLAA血八'ttLAH，12L1L・L-1jtL・、jvaV』V'vaV』Vaγ』VaTAttanuHυwAEしnuwゐEしnunυwぬAnnuwAAハnunuwASLHUWA'l.nunuwAAHnuvA-nlutL'hb，Jfhrし，lwnununununununU
Aハ
vt An
y-
AnV1nuvtnuVAAハvt
AH
V' Hυ
vs HυAHHAHI--Ant--1LILfLfLYLIb-sTL?'u nu
N
HODHOnHNHOHONRODHODNHOHOODZloz--LILLSし・LIL--
L
= ドLnり1LnuーしrLnUEしU'nU1LUarLnuILnU1LELHUILrgnυILF-v'・vs-anAHanAハAnAハ、JA川、J M円
HH 1Lド・?しいrHH1しyieし?』HHIしrrvしドrHHーし?iaL?』M門nnnυqd"HnuqdnununHnυnunusdnusd
rl・
zHH -rr.nu'L--nufL-rlB4AハFS今LAハEzanTlTielan-A?bantaqLAハTl'』AA『SqLAn uu --=znυnυr仁nUド九三nu
--nυ
=nu
rr.znυドヒHH'l.'L'LELnHnHnHnHunnH'』HHyl
I
11jr仁、JドhqdtIS--53・jFuh1FU31JS‘JSTlA2A00nMOODftf1
-0
・Z18M円ν、HfaMnVA--'iMH'し31MHEし
Z BAMned1』M円
F占 -- tz
MHat-'aMHEL--nueAzhυ
WA
14 'iEd、J-ULSL-ULIL、J-EL仁L
-rh
ドLI--FulL
-rL 'ahhJO仁しじしaTUBeULqu、lVI
-- V』EdEdEdEdrJ1a+ラ&+ z
fJ fluHHVじ，JHHドkgdtdHH，Jun--『dHHEL，d日HrttAEJHHpdHH--1JM円nutJ"MHnu--
z
= -- z
--IL--'しhl・・1，・T1
・
・ranH・7inu--Ta-
-1
0
・7inu--lnum--r仁『し-rt'L、l、ltl、Ih--ltl、J，l
Id
'i tanu-』nut--anυ1・?包fd1』nu---nυBJ1Anu
-t 9ι司l-51時-・ fdwh同?dwAヲι，Jt』・ltdTdHH16'LHH141dIL + ι?
iqd+qLqd--1arJ-今ιマ，・-lnu-zo--TEA-TaAn--司+・・ve-VS --
'l
Il=eoalzenti--28u・Ti--AUVYA
TA
--
n3
7i
= nコ t』'l--Edei--rDTITanu-sHUst'LPJtd
Ei
、J4.hi・・J“1・‘j1'・・0 Jnu--nu'ir
・
・11 4
・hJ Au- - -、J.、J--』A・弓L-+・
・
・
2-Il--1L tl
as'tIJ14tJ11tt，JU門BK1JM円'i'ittEEE2・1・l'iu円't'IM円q444
2vr qL + =ドr，IBlei'l'』、ー'・ly--'t'L - - -NH--MH
- -
-UL--UL-
--
NH--Mけ
- - ay訂L-eドL
- 11-1a-hI
Ta - - -
-+
td
-AH-AA
1L
fl・
-LtiIE-tし1i仁4.1LsLsjHHIL1aHHILl--，JULlLIdドv.1LtLtdHHILtJHH'LlL1BILS』『LtL1hfL'L・1しnuf」nu I
I
I
- H (-M(14Tito--tit-M(-HfIr--T(・T((+何(+N11111111(
，l
WAW-刈WLNIa--w必ttγiwheLm'lw淘
14 W刈 智刈11ヤiwam--TaeAWA
Tt w必
TAeAVA，JrLWLNIur」智amwAe血同町AVA-wAnHwam
HH YOYY-Y-YY-ly'lyY-Y-YY・ly--YY-MY-HYYYYYLYOYO
0
7 0020020002502500200
200
り2302300ITU-Tsoonuootl
o o
uj-NOIし
句
〈 1L -くしし一〉L-〉ILL
-
〈
l
-
〈
Ih--〉L
-
〉
ILL
- L
・lL『しLLLNZLiL2T1L
MH
W"
ζJ1L1L'し9ι1LTLqLoしILIL9ιlしtL9ιIL1しILq&1h1L9ι'LlトtLqL1Lthq4tbEL?'hヲゐ1L9'ω9ιIL1L1hILlしMH宙開vtIu=IH--
M円
M円
γ』AハnHH
nU anAn，t-、-Aハ，t‘.畠han，l、
AY -Af、&vAハ‘ハ，E‘.‘A，t、，aハan，s、
+ -nI、
+ aA -A一、ノaハ-、ノAハanananannHHnHリハUa丹、11aA、IF
nH AA
hUHu
nununHnυw-mfanuwamvi円unυWANtanuwaN1anυnυwhmfdnuw刈，JHHHHW刈idnuwh問fdnunu'LfしれUlし1LnunυnununuHu
nu'LnU1anU1aHUFUAA
TS HU T-
vt
va
v'
vt
vl
V4
V1
va
，l
ft
Tt nu TL +
+
Tt AH
FUUHrrvrb
nrnurrrrnurrドrnurrrryrnuvrrrnurr「rprnurrド・nUドrド‘rrHUrrrrHurrrrvreAvrドrwArrprドrFrFrfrドh
pし・ArrtJvpr1JrιHvTSON--rurt1alLfAIs-hfBIs--『し1』1lib-a181ZIL---vaIL1AEzyjELtafttL12?kTiv-v』yiva'i，i・11ayAIson---nuza--a・0n・-uv
IL fL
EL 'L
1L Iぃ
ーし fし
nunυ
Fa '』
nununυnununυnusnnunυ・nnununMAハnunuannυnunUAnnunUAハnununUAハハunυAHnunυnu'hhnunu'しnυnunununυnununυnunuハU-nu・nunununu7，aHqdnυt』今ι1JnHA“1EdnUC07，monundnunU1696qdHυ凋吋にJnυPU守tauHHndnuHH1A9ι守iv。し必柑wRufしFU7'aunJnutaqL1da-EdfU1Lヴ，fl.aυodnUnefマt7・0RHauaouoeO鍵HaoaHaHaH
n3
nJ
nd
nJ nJ nJQJnJUJnJnunuハunUAnnunuAハnunυnunυ1』'i12881Ata--，l‘1at--B1tqLqLqιqLqι AM可aqaM3必qAqAHVAHV"ハ凋M1duvunsq凋吋必u'"uauvAU可日日必“f4H1AM1UUAqaq"“81A“1Aqunsuv区JHHEiurJRJHufJRdnupbpbEJrJfJEd'btdpbEdRJ
e--EJWAt-utiwrbEdEdEdtu
HmN
5250 HETlJHN :12 (j II
5270 +VACANTUP 5280 VACANTUP=O 5290ド011 VI.=O TO L-l
5:l 0 (] 11・ DAI.LOn(VL. 1. J) <>0 TIIEN VACANTUP= 1 531 0 N王:0 VL
5320 HETURN 5330
5340 ・VACANTI
5:1 :1日VACANT=O
5:l (j 0 I F DA ししOn(VL.J-I.J)=O OH DALI.OYX(VL.J+I.J)=O OH DALLOn(Vl.，[，J-I)=O OH ÐAI.
1. 0Y%(VL.I.J+I)=0 TIIEN VACANT=1 5370 RETUHN
5380
5390 .VACANT2 5400 VACANT=O
5410 IF DHI.On(VI..I-l，J)=O ANlJ DAl.LOY%(VL，[+I.J)=O TIIEN VACANT=2:GOTO 5470 ELSE 5420
�420 IF lJAI.1.0Y%(VI..I+I.J)=O AND DAI.LOn(VI..I.J-I)=O TIIEN VACANT=2:GOTO 5470 ELSE 5430
5 <1 3 0 1ドOALLOn(VL.l.J-I)=O AND DALLOn(VL.I.J+l)=O TIIEN VACANT=Z:GOTO 5470 ELSE 5440
5440 11・ lJAl.I.0n(VI..I-I ，.J)=0 AND DAl.1.0n(VI..I..JtI)=0 TII EN VACANT=Z:GOTO 5470 ELSE 5450
5450 IF DALLOn(VI..I-I..J)=O AND DALI.OY%(VL.l..)-I)=O TIIEN VACANT=Z:GO・ru 5470 EI.SE 54&0
5'1&0 1 F IlALしOY'.t(Vl..I+I.J)=O AND DALI.OY%(VI..I..Jtl)=U TIIEN VACANT=2:GOTU 5470 5<\70 RETUHN
54/\日
S4!l0 IVACAND 5:，00 VACANT=O
5 5 1 0 1 F II Al.l. 0 n ( V l.. 1 -1 . .J) = 0 A N 0 0 AL L 0 y'.t (Vl.. 1 + 1 . J) = 0 A N D 0 Al . L 0 n (V L. 1 . J -1 ) = 0 T 11 E 1'1 VACANT=3:GOTO 5550 EしSE 5520
5520 1ドOAl.LOn(VL. 1+ 1. J) =0 AND OALLOY'.t (VL. 1.，)- 1) =0 AND DALLOY'X (VL. 1. J+ 1) =0・Iïl EN VACANT=3:GOTO 5550 ELSE 5530
5530 IF OALLOn;(VL.I-I.J)=O AND DALLOY%(VL.l..J-I)=O ANlJ DAl.I.0YX(VL.I.J+l)=(} TllEN VACANT=30:GOTO 5550 ELSE 5540
5540 IドOALI.On(VL.I-I.J)=O AND OALI.OY%(VI..I+I.J)=O AND DULOn(VL.I.J+I)=O TIIEN VACANT=3:GOTO 5550
5550 HETUHN 5560
5:17 (] ・VACANT4 5580 VACANT=O
5:，90 I1・ llALI.OY%(VI..I-I，.J)=O AND DAI.LOY%(VI..I+I..J)=O AND DAl.I.OY'X(VI..I.J-I)=O AND 1JAl.1.0Y% (VI.. 1..1+ 1) =0 TJIEN VACANT=4
5600 HETUHN 561 0
5G20 .VACANT5 5(j30 VACANT=O
5640 GOSUIl .VACANT4:IF VACANT=4 AND DAl.1.0 n;(Vl.t1.I.J)=0 TIIEN VACANT=5 5650 HETUHN
5G60
5670 +Ul'I'EHCU 5680 UI'1'ERCU=O
SG90ド011 VI.=O TO J.-l
5700 I F DAL I .On (VI.. 1. ，J) =5 Ofl DAl.LOY% (VL. 1. .J) =4 OH DALI.OY% (VI.. 1 . ，J) =3 TIIEN UPl'EHCll 5710 NEXT VI.
5730
5740 +U ドドEHPll 5750 UI'PEHI'D=O 5760 FOH VL=O 1'0 1.-1
5770 1ド DAI.LOn(VL. 1. J) =2 TIIEN UPPEHI'D= 1 5780 NEXT VL
5790 HどrUHN 5800 58 1 0 +NAU
51\20 NAlJ ( 1.) =NAU ( 1.) + 1 f)1I30 HETUHN
51140・NPD
5850 Nl'lJ (L) =NI'D (し) + 1 58GO HETUHN
51170 . NCU
5880 NCll (1.) =NCU (1.) + I 5890 HnUHN
5!l00
5!lIO ・VACANT
5920 VI.=1.
5930 GOSUB ・VACANT4:1ドVACANT=4 Tl1EN 5970 5940 GOSUO .VACANT3: IF VACANT=3 Tl1EN 597日 5950じOSUll .VACANTZ: IF VACANT=2 T111:N 5970 5!l(j() GOSI JII・VACANT1 :1ドVACANT= 1 TIIEN 5!l7() 5 !l .， () It ET I J H N
