約 2,105,473 件
https://w.atwiki.jp/ce00582/pages/1515.html
Private Sub Command1_Click() Dim byear As Single Dim age As Single Dim car As Single Dim mis(1985 To 2100, 15 To 64, 1 To 49) As Single Dim mos(1985 To 2100, 15 To 64, 1 To 49) As Single Dim m2by(1900 To 2100, 15 To 69) As Single Dim f2by(1900 To 2100, 15 To 69) As Single Dim mdeby(1900 To 2100, 0 To 99) As Single Dim fdeby(1900 To 2100, 0 To 99) As Single Dim alpha(15 To 69) As Single Dim beta(15 To 69) As Single Dim gamma(15 To 69) As Single Dim theta(15 To 64) As Single Dim zan(1985 To 2100, 15 To 64, 1 To 49) As Single Dim zant(1985 To 2100, 15 To 64, 1 To 49) As Single Dim mde(1985 To 2100, 0 To 99) As Single Dim fnew(1985 To 2100) As Single Dim z1 As Single Dim z2 As Single Dim z3 As Single Dim v As Single Open "c /nagoya/gdata/変形生命表.txt " For Input As #1 Do Until EOF(1) Input #1, a1, a2, a3, a4 byear = a1 age = a2 mdeby(byear, age) = a3 fdeby(byear, age) = a4 Loop Close #1 Open "c /nagoya/data/女子脱退力.txt " For Input As #2 Do Until EOF(2) Input #2, a1, a2, a3, a4 age = a1 gamma(age) = a2 alpha(age) = a3 beta(age) = a4 Loop Close #2 Open "c /nagoya/data/再加入率.txt " For Input As #3 Do Until EOF(3) Input #3, a1, a2, a3, a4 age = a1 theta(age) = a3 Loop Close #3 Open "c /nagoya/gdata/変形厚生年金被保険者.txt " For Input As #5 Do Until EOF(5) Input #5, a1, a2, a3, a4 byear = a1 age = a2 m2by(byear, age) = a3 f2by(byear, age) = a4 Loop Close #5 For byear = 1990 To 2034 age = 15 mis(byear, age, 1) = f2by(byear, age) For age = 16 To 64 z1 = (1 - gamma(age - 1)) * f2by(byear, age - 1) z2 = f2by(byear, age) - z1 If z2 0 Then z2 = 0 z3 = (1 - theta(age)) * z2 z4 = theta(age) * z2 mis(byear, age, 1) = z3 z5 = 0 For car = 1 To 49 z5 = z5 + mos(byear, age - 1, car) Next If z5 = 0 Then z5 = 1 v = z4 / z5 If v 1 Then v = 1 For car = 2 To 49 mis(byear, age, car) = (1 - gamma(age - 1)) * mis(byear, age - 1, car - 1) + v * mos(byear, age - 1, car - 1) Next For car = 1 To 49 mos(byear, age, car) = (gamma(age - 1) - alpha(age - 1) - beta(age)) * mis(byear, age - 1, car) + (1 - fdeby(byear, age) - v) * mos(byear, age - 1, car) Next Next z1 = 0 z2 = 0 For car = 1 To 24 z1 = z1 + mis(byear, 64, car) + mos(byear, 64, car) z2 = z2 + car * (mis(byear, 64, car) + mos(byear, 64, car)) Next fnew(byear) = z2 / z1 Next Open "c /nagoya/gdata/女子通算平均加入年数1.txt " For Output As #4 For byear = 1990 To 2100 Write #4, byear, fnew(byear) Next Close #4 End Sub
https://w.atwiki.jp/ce00582/pages/1509.html
Private Sub Command1_Click() Dim byear As Single Dim age As Single Dim car As Single Dim mis(1985 To 2100, 15 To 64, 1 To 49) As Single Dim mos(1985 To 2100, 15 To 64, 1 To 49) As Single Dim m2by(1900 To 2100, 15 To 69) As Single Dim f2by(1900 To 2100, 15 To 69) As Single Dim mdeby(1900 To 2100, 0 To 99) As Single Dim fdeby(1900 To 2100, 0 To 99) As Single Dim alpha(15 To 69) As Single Dim beta(15 To 69) As Single Dim gamma(15 To 69) As Single Dim theta(15 To 65) As Single Dim zan(1985 To 2100, 15 To 64, 1 To 49) As Single Dim zant(1985 To 2100, 15 To 64, 1 To 49) As Single Dim mde(1985 To 2100, 0 To 99) As Single Dim mnew(1985 To 2100) As Single Dim z1 As Single Dim z2 As Single Dim z3 As Single Dim v As Single Open "c /nagoya/gdata/変形生命表.txt " For Input As #1 Do Until EOF(1) Input #1, a1, a2, a3, a4 byear = a1 age = a2 mdeby(byear, age) = a3 fdeby(byear, age) = a4 Loop Close #1 Open "c /nagoya/data/男子脱退力.txt " For Input As #2 Do Until EOF(2) Input #2, a1, a2, a3, a4 age = a1 gamma(age) = a2 alpha(age) = a3 beta(age) = a4 Loop Close #2 Open "c /nagoya/data/再加入率.txt " For Input As #3 Do Until EOF(3) Input #3, a1, a2, a3, a4 age = a1 theta(age) = a2 Loop Close #3 Open "c /nagoya/gdata/変形厚生年金被保険者.txt " For Input As #5 Do Until EOF(5) Input #5, a1, a2, a3, a4 byear = a1 age = a2 m2by(byear, age) = a3 f2by(byear, age) = a4 Loop Close #5 For byear = 1990 To 2034 age = 15 mis(byear, age, 1) = m2by(byear, age) For age = 16 To 64 z1 = (1 - gamma(age - 1)) * m2by(byear, age - 1) z2 = m2by(byear, age) - z1 If z2 0 Then z2 = 0 z3 = (1 - theta(age)) * z2 z4 = theta(age) * z2 mis(byear, age, 1) = z3 z5 = 0 For car = 1 To 49 z5 = z5 + mos(byear, age - 1, car) Next If z5 = 0 Then z5 = 1 v = z4 / z5 If v 1 Then v = 1 For car = 2 To 49 mis(byear, age, car) = (1 - gamma(age - 1)) * mis(byear, age - 1, car - 1) + v * mos(byear, age - 1, car - 1) Next For car = 1 To 49 mos(byear, age, car) = (gamma(age - 1) - alpha(age - 1) - beta(age)) * mis(byear, age - 1, car) + (1 - mdeby(byear, age) - v) * mos(byear, age - 1, car) Next Next z1 = 0 z2 = 0 For car = 25 To 49 z1 = z1 + mis(byear, 64, car) + mos(byear, 64, car) z2 = z2 + car * (mis(byear, 64, car) + mos(byear, 64, car)) Next mnew(byear) = z2 / z1 Next Open "c /nagoya/gdata/男子平均加入年数1.txt " For Output As #4 For byear = 1990 To 2100 Write #4, byear, mnew(byear) Next Close #4 End Sub
https://w.atwiki.jp/animetal_motoneta/pages/13.html
Animetal Marathon No. トラック名 原曲名 アーティスト名 備考 1 アニメタルのテーマ 2 ガッチャマンの歌 3 海のトリトン 4 テッカマンの歌 5 たたかえ! キャシャーン 6 戦え! ポリマー 7 行くぞ! ゴーダム 8 バビル2世 9 コン・バトラーVのテーマ 10 ボルテスVの歌 11 立て! 闘将ダイモス 12 勇者ライディーン 13 大空魔竜ガイキング Crazy Train Ozzy Osbourne アウトロ 14 すきだッ ダンガードA Communication Breakdown Led Zeppelin イントロ 15 ダッシュ! マシンハヤブサ 16 グランプリの鷹 17 タイガーマスク 18 氷河戦士ガイスラッガー Kill The King Rainbow イントロ 19 誰がために 20 銀河鉄道999 21 キャプテンハーロック 22 宇宙戦艦ヤマト 23 翔べ! ガンダム 24 復活のイデオン 25 マクロス 26 行け! ザンボット3 27 カムヒア! ダイターン3 28 疾風ザブングル 29 ダンバインとぶ 30 さらばやさしき日々よ Cry In The Rain White Snake アウトロ 31 炎のさだめ Since You Been Gone Rainbow イントロ Crazy Night Loudness アウトロ 32 マジンガーZ 33 おれはグレートマジンガー 34 とべ! グレンダイザー 35 ゲッターロボ! 36 鋼鉄ジーグのうた Burn Deep Purple イントロ/アウトロ 37 デビルマンのうた 38 アニメタルのテーマ(Reprise)
https://w.atwiki.jp/ce00582/pages/1451.html
Private Sub Command1_Click() Dim byear As Single Dim age As Single Dim car As Single Dim mis(1985 To 2100, 15 To 64, 1 To 49) As Single Dim mos(1985 To 2100, 15 To 64, 1 To 49) As Single Dim m2by(1900 To 2100, 15 To 69) As Single Dim f2by(1900 To 2100, 15 To 69) As Single Dim mdeby(1900 To 2100, 0 To 99) As Single Dim fdeby(1900 To 2100, 0 To 99) As Single Dim alpha(15 To 69) As Single Dim beta(15 To 69) As Single Dim gamma(15 To 69) As Single Dim theta(15 To 64) As Single Dim zan(1985 To 2100, 15 To 64, 1 To 49) As Single Dim zant(1985 To 2100, 15 To 64, 1 To 49) As Single Dim mde(1985 To 2100, 0 To 99) As Single Dim mnewt(1985 To 2100) As Single Dim z1 As Single Dim z2 As Single Dim z3 As Single Dim v As Single Open "c /kirakira/gdata/変形生命表.txt " For Input As #1 Do Until EOF(1) Input #1, a1, a2, a3, a4 byear = a1 age = a2 mdeby(byear, age) = a3 fdeby(byear, age) = a4 Loop Close #1 Open "c /kirakira/data/男子脱退率.txt " For Input As #2 Do Until EOF(2) Input #2, a1, a2, a3, a4 age = a1 gamma(age) = a2 alpha(age) = a3 beta(age) = a4 Loop Close #2 Open "c /kirakira/data/再加入率.txt " For Input As #3 Do Until EOF(3) Input #3, a1, a2, a3 age = a1 theta(age) = a2 Loop Close #3 Open "c /kirakira/gdata/変形厚生年金被保険者.txt " For Input As #5 Do Until EOF(5) Input #5, a1, a2, a3, a4 byear = a1 age = a2 m2by(byear, age) = a3 f2by(byear, age) = a4 Loop Close #5 For byear = 1985 To 2034 age = 15 mis(byear, age, 1) = m2by(byear, age) For age = 16 To 64 z1 = (1 - gamma(age - 1)) * m2by(byear, age - 1) z2 = m2by(byear, age) - z1 If z2 0 Then z2 = 0 z3 = (1 - theta(age)) * z2 z4 = theta(age) * z2 mis(byear, age, 1) = z3 z5 = 0 For car = 1 To 49 z5 = z5 + mos(byear, age - 1, car) Next If z5 = 0 Then z5 = 1 v = z4 / z5 If v 1 Then v = 1 For car = 2 To 49 mis(byear, age, car) = (1 - gamma(age - 1)) * mis(byear, age - 1, car - 1) + v * mos(byear, age - 1, car - 1) Next For car = 1 To 49 mos(byear, age, car) = (gamma(age - 1) - alpha(age - 1) - beta(age)) * mis(byear, age - 1, car) + (1 - mdeby(byear, age) - v) * mos(byear, age - 1, car) Next Next z1 = 0 For car = 1 To 24 z1 = z1 + mis(byear, 64, car) + mos(byear, 64, car) Next mnewt(byear) = z1 Next Open "c /kirakira/gdata/男子通算新規裁定者1.txt " For Output As #4 For byear = 1985 To 2100 Write #4, byear, mnewt(byear) Next Close #4 End Sub
https://w.atwiki.jp/ce00582/pages/1499.html
Private Sub Command1_Click() Dim byear As Single Dim age As Single Dim car As Single Dim mis(1985 To 2100, 15 To 64, 1 To 49) As Single Dim mos(1985 To 2100, 15 To 64, 1 To 49) As Single Dim m2by(1900 To 2100, 15 To 69) As Single Dim f2by(1900 To 2100, 15 To 69) As Single Dim mdeby(1900 To 2100, 0 To 99) As Single Dim fdeby(1900 To 2100, 0 To 99) As Single Dim alpha(15 To 69) As Single Dim beta(15 To 69) As Single Dim gamma(15 To 69) As Single Dim theta(15 To 65) As Single Dim zan(1985 To 2100, 15 To 64, 1 To 49) As Single Dim zant(1985 To 2100, 15 To 64, 1 To 49) As Single Dim mde(1985 To 2100, 0 To 99) As Single Dim mnew(1985 To 2100) As Single Dim z1 As Single Dim z2 As Single Dim z3 As Single Dim v As Single Open "c /nagoya/gdata/変形生命表.txt " For Input As #1 Do Until EOF(1) Input #1, a1, a2, a3, a4 byear = a1 age = a2 mdeby(byear, age) = a3 fdeby(byear, age) = a4 Loop Close #1 Open "c /nagoya/data/男子脱退力.txt " For Input As #2 Do Until EOF(2) Input #2, a1, a2, a3, a4 age = a1 gamma(age) = a2 alpha(age) = a3 beta(age) = a4 Loop Close #2 Open "c /nagoya/data/再加入率.txt " For Input As #3 Do Until EOF(3) Input #3, a1, a2, a3, a4 age = a1 theta(age) = a2 Loop Close #3 Open "c /nagoya/gdata/変形厚生年金被保険者.txt " For Input As #5 Do Until EOF(5) Input #5, a1, a2, a3, a4 byear = a1 age = a2 m2by(byear, age) = a3 f2by(byear, age) = a4 Loop Close #5 For byear = 1990 To 2034 age = 15 mis(byear, age, 1) = m2by(byear, age) For age = 16 To 64 z1 = (1 - gamma(age - 1)) * m2by(byear, age - 1) z2 = m2by(byear, age) - z1 If z2 0 Then z2 = 0 z3 = (1 - theta(age)) * z2 z4 = theta(age) * z2 mis(byear, age, 1) = z3 z5 = 0 For car = 1 To 49 z5 = z5 + mos(byear, age - 1, car) Next If z5 = 0 Then z5 = 1 v = z4 / z5 If v 1 Then v = 1 For car = 2 To 49 mis(byear, age, car) = (1 - gamma(age - 1)) * mis(byear, age - 1, car - 1) + v * mos(byear, age - 1, car - 1) Next For car = 1 To 49 mos(byear, age, car) = (gamma(age - 1) - alpha(age - 1) - beta(age)) * mis(byear, age - 1, car) + (1 - mdeby(byear, age) - v) * mos(byear, age - 1, car) Next Next z1 = 0 For car = 25 To 49 z1 = z1 + mis(byear, 64, car) + mos(byear, 64, car) Next mnew(byear) = z1 Next Open "c /nagoya/gdata/男子新規裁定者1.txt " For Output As #4 For byear = 1990 To 2100 Write #4, byear, mnew(byear) Next Close #4 End Sub
https://w.atwiki.jp/ce00582/pages/1443.html
Private Sub Command1_Click() Dim byear As Single Dim age As Single Dim car As Single Dim mis(1985 To 2100, 15 To 64, 1 To 49) As Single Dim mos(1985 To 2100, 15 To 64, 1 To 49) As Single Dim m2by(1900 To 2100, 15 To 69) As Single Dim f2by(1900 To 2100, 15 To 69) As Single Dim mdeby(1900 To 2100, 0 To 99) As Single Dim fdeby(1900 To 2100, 0 To 99) As Single Dim alpha(15 To 69) As Single Dim beta(15 To 69) As Single Dim gamma(15 To 69) As Single Dim theta(15 To 64) As Single Dim zan(1985 To 2100, 15 To 64, 1 To 49) As Single Dim zant(1985 To 2100, 15 To 64, 1 To 49) As Single Dim mde(1985 To 2100, 0 To 99) As Single Dim fnew(1985 To 2100) As Single Dim z1 As Single Dim z2 As Single Dim z3 As Single Dim v As Single Open "c /kirakira/gdata/変形生命表.txt " For Input As #1 Do Until EOF(1) Input #1, a1, a2, a3, a4 byear = a1 age = a2 mdeby(byear, age) = a3 fdeby(byear, age) = a4 Loop Close #1 Open "c /kirakira/data/女子脱退力.txt " For Input As #2 Do Until EOF(2) Input #2, a1, a2, a3, a4 age = a1 gamma(age) = a2 alpha(age) = a3 beta(age) = a4 Loop Close #2 Open "c /kirakira/data/再加入率.txt " For Input As #3 Do Until EOF(3) Input #3, a1, a2, a3 age = a1 theta(age) = a3 Loop Close #3 Open "c /kirakira/gdata/変形厚生年金被保険者.txt " For Input As #5 Do Until EOF(5) Input #5, a1, a2, a3, a4 byear = a1 age = a2 m2by(byear, age) = a3 f2by(byear, age) = a4 Loop Close #5 For byear = 1985 To 2034 age = 15 mis(byear, age, 1) = f2by(byear, age) For age = 16 To 64 z1 = (1 - gamma(age - 1)) * f2by(byear, age - 1) z2 = m2by(byear, age) - z1 If z2 0 Then z2 = 0 z3 = (1 - theta(age)) * z2 z4 = theta(age) * z2 mis(byear, age, 1) = z3 z5 = 0 For car = 1 To 49 z5 = z5 + mos(byear, age - 1, car) Next If z5 = 0 Then z5 = 1 v = z4 / z5 If v 1 Then v = 1 For car = 2 To 49 mis(byear, age, car) = (1 - gamma(age - 1)) * mis(byear, age - 1, car - 1) + v * mos(byear, age - 1, car - 1) Next For car = 1 To 49 mos(byear, age, car) = (gamma(age - 1) - alpha(age - 1) - beta(age)) * mis(byear, age - 1, car) + (1 - mdeby(byear, age) - v) * mos(byear, age - 1, car) Next Next z1 = 0 For car = 25 To 49 z1 = z1 + mis(byear, 64, car) + mos(byear, 64, car) Next fnew(byear) = z1 Next Open "c /kirakira/gdata/女子新規裁定者1.txt " For Output As #4 For byear = 1985 To 2100 Write #4, byear, fnew(byear) Next Close #4 End Sub
https://w.atwiki.jp/ce00582/pages/1594.html
Private Sub Command1_Click() Dim byear As Single Dim age As Single Dim car As Single Dim mis(1985 To 2100, 15 To 64, 1 To 49) As Single Dim mos(1985 To 2100, 15 To 64, 1 To 49) As Single Dim m2by(1900 To 2100, 15 To 69) As Single Dim f2by(1900 To 2100, 15 To 69) As Single Dim mdeby(1900 To 2100, 0 To 99) As Single Dim fdeby(1900 To 2100, 0 To 99) As Single Dim alpha(15 To 69) As Single Dim beta(15 To 69) As Single Dim gamma(15 To 69) As Single Dim theta(15 To 64) As Single Dim zan(1985 To 2100, 15 To 64, 1 To 49) As Single Dim zant(1985 To 2100, 15 To 64, 1 To 49) As Single Dim mde(1985 To 2100, 0 To 99) As Single Dim fnew(1985 To 2100) As Single Dim z1 As Single Dim z2 As Single Dim z3 As Single Dim v As Single Open "c /eli/data/女子脱退力.txt " For Input As #2 Do Until EOF(2) Input #2, a1, a2, a3, a4 age = a1 gamma(age) = a2 alpha(age) = a3 beta(age) = a4 Loop Close #2 Open "c /eli/data/再加入率.txt " For Input As #3 Do Until EOF(3) Input #3, a1, a2, a3, a4 age = a1 theta(age) = a3 Loop Close #3 Open "c /eli/gdata/変形厚生年金被保険者.txt " For Input As #5 Do Until EOF(5) Input #5, a1, a2, a3, a4 byear = a1 age = a2 m2by(byear, age) = a3 f2by(byear, age) = a4 Loop Close #5 For byear = 1990 To 2034 age = 15 mis(byear, age, 1) = f2by(byear, age) For age = 16 To 64 z1 = (1 - gamma(age - 1)) * f2by(byear, age - 1) z2 = f2by(byear, age) - z1 If z2 0 Then z2 = 0 z3 = (1 - theta(age)) * z2 z4 = theta(age) * z2 mis(byear, age, 1) = z3 z5 = 0 For car = 1 To 49 z5 = z5 + mos(byear, age - 1, car) Next If z5 = 0 Then z5 = 1 v = z4 / z5 If v 1 Then v = 1 For car = 2 To 49 mis(byear, age, car) = (1 - gamma(age - 1)) * mis(byear, age - 1, car - 1) + v * mos(byear, age - 1, car - 1) Next For car = 1 To 49 mos(byear, age, car) = (gamma(age - 1) - alpha(age - 1) - beta(age)) * mis(byear, age - 1, car) + (1 - alpha(age - 1) - v) * mos(byear, age - 1, car) Next Next z1 = 0 z2 = 0 For car = 1 To 24 z1 = z1 + mis(byear, 64, car) + mos(byear, 64, car) z2 = z2 + car * (mis(byear, 64, car) + mos(byear, 64, car)) Next fnew(byear) = z2 / z1 Next Open "c /eli/gdata/女子通算平均加入年数1.txt " For Output As #4 For byear = 1990 To 2100 Write #4, byear, fnew(byear) Next Close #4 End Sub
https://w.atwiki.jp/ce00582/pages/1907.html
Private Sub Command1_Click() Dim byear As Single Dim age As Single Dim car As Single Dim mis(1985 To 2100, 15 To 64, 1 To 49) As Single Dim mos(1985 To 2100, 15 To 64, 1 To 49) As Single Dim m2by(1900 To 2100, 15 To 69) As Single Dim f2by(1900 To 2100, 15 To 69) As Single Dim mdeby(1900 To 2100, 0 To 99) As Single Dim fdeby(1900 To 2100, 0 To 99) As Single Dim alpha(15 To 69) As Single Dim beta(15 To 69) As Single Dim gamma(15 To 69) As Single Dim theta(15 To 65) As Single Dim zan(1985 To 2100, 15 To 64, 1 To 49) As Single Dim zant(1985 To 2100, 15 To 64, 1 To 49) As Single Dim mde(1985 To 2100, 0 To 99) As Single Dim mnew(1985 To 2100) As Single Dim z1 As Single Dim z2 As Single Dim z3 As Single Dim v As Single Open "c /dig/data/男子脱退力.txt " For Input As #2 Do Until EOF(2) Input #2, a1, a2, a3, a4 age = a1 gamma(age) = a2 alpha(age) = a3 beta(age) = a4 Loop Close #2 Open "c /dig/data/再加入率.txt " For Input As #3 Do Until EOF(3) Input #3, a1, a2, a3, a4 age = a1 theta(age) = a2 Loop Close #3 Open "c /dig/gdata/変形厚生年金被保険者.txt " For Input As #5 Do Until EOF(5) Input #5, a1, a2, a3, a4 byear = a1 age = a2 m2by(byear, age) = a3 f2by(byear, age) = a4 Loop Close #5 For byear = 1990 To 2034 age = 15 mis(byear, age, 1) = m2by(byear, age) For age = 16 To 64 z1 = (1 - gamma(age - 1)) * m2by(byear, age - 1) z2 = m2by(byear, age) - z1 If z2 0 Then z2 = 0 z3 = (1 - theta(age)) * z2 z4 = theta(age) * z2 mis(byear, age, 1) = z3 z5 = 0 For car = 1 To 49 z5 = z5 + mos(byear, age - 1, car) Next If z5 = 0 Then z5 = 1 v = z4 / z5 If v 1 Then v = 1 For car = 2 To 49 mis(byear, age, car) = (1 - gamma(age - 1)) * mis(byear, age - 1, car - 1) + v * mos(byear, age - 1, car - 1) Next For car = 1 To 49 mos(byear, age, car) = (gamma(age - 1) - alpha(age - 1) - beta(age)) * mis(byear, age - 1, car) + (1 - alpha(age - 1) - v) * mos(byear, age - 1, car) Next Next z1 = 0 z2 = 0 For car = 1 To 24 z1 = z1 + mis(byear, 64, car) + mos(byear, 64, car) z2 = z2 + car * (mis(byear, 64, car) + mos(byear, 64, car)) Next mnew(byear) = z2 / z1 Next Open "c /dig/gdata/男子通算平均加入年数1.txt " For Output As #4 For byear = 1990 To 2100 Write #4, byear, mnew(byear) Next Close #4 End Sub
https://w.atwiki.jp/metatoron/pages/13.html
metalgearsolid ・THEME OF SOLID SNAKE 戦後体制で起きたスネークイーター作戦を始めあらゆる戦いに乗り出して来た歴史。 恐るべき子供計画・メタルギア・ゲノム兵士・サイファービックボスのクローン。 長年の戦いを終えるたびにメタルギアは進化してきた。 ソリットスネークは世界平和を果たす為にテロリストの粛正とメタルギアを破壊してきた。 メタルギアの破壊には限界がありソリットスネークはメタルギアの進化を止める事ができなかった。 ソリットスネークの戦いは未来の希望を照らす為の通過点に過ぎない。
https://w.atwiki.jp/historiacoelestis/pages/14.html
アンドロメダ座 アンドロメダ座 Bayer(1603)星図 Flamsteed(1725)星表 Bevis(c.1750)星表 BSC5(1991)星表 Tirion(1992)星図 Sinnott(2006)星図 備考 α Andδ Peg 21α And α And α And α And α And Pt 1 Peg β And 43β And β And β And β And β And Pt 12 And γ And 57γ And γ And γ1 And γ And γ And Pt 15 And γ2 And δ And 31δ And δ And δ And δ And δ And Pt 1 And ε And 30ε And ε And ε And ε And ε And Pt 3 And ζ And 34ζ And ζ And ζ And ζ And ζ And Pt 10 And η And 38η And η And η And η And η And Pt 11 And θ And 24θ And θ And θ And θ And θ And Pt 5 And ι And 17ι And ι And ι And ι And ι And Pt 7 And κ And 19κ And κ And κ And κ And κ And Pt 8 And λ And 16λ And λ And λ And λ And λ And Pt 9 And μ And 37μ And μ And μ And μ And μ And Pt 13 And ν And 35ν And ν And ν And ν And ν And Pt 14 And ξ And 46 And ξ And ξ And ξ And ξ And Pt21 And ο And ο And11 Lac 11 Lac 11 Lac Ty 21 And b And ο And ο And ο And Pt 23 And 1ο And π And 29π And π And π And π And π And Pt 2 And ρ And 27ρ And ρ And ρ And ρ And rho And; Pt 6 And σ And 25σ And σ And σ And σ And σ And Pt 4 And τ And 53τ And τ And τ And τ And τ And Pt 19 And υ And 40H.And 50 υ And a And υ And υ And υ And Pt 17 And φ And 42φ And φ And φ And φ And φ And Pt 20 And χ And 52λ And χ And χ And χ And χ And Pt 22 And ψ And 20ψ And ψ And ψ And ψ And ψ And ω And 48 And ω And ω And ω And ω And A And 49ξ And A And A And A And 49 And Pt 17 And b And 60b And b And A And b And 60 And 3H.Per c And 62c And c And A And c And 62 And 5H.Per 31n And M31 M31 M31 σ Psc 40 And69σ1 Psc σ Psc σ Psc σ Psc 41d And 41 And 41 And 41 And υ Per 51 And υ Per 51 And 51 And Pt 18 And φ Per 54 And φ Per φ Per φ Per φ Per Pt 16 And42H.And 56 And 56 And 3H.Tri 58 And 58 And 58 And 5H.Tri 15 Lac 15 Lac 15 Lac 1H.And g Per 529 43H.And By Bd h m d m s ° ′ ″HIP 1800.0 J2000.0 D 29 23 43 355 43 57 35 51 10 117762 23h42m52.4s 355 43 06 (+51′ 0.85m) +35゚50 56 23h52m56.22s +36゚57 15.3 (+14″) d 37 23 50 357 29 25 32 37 29 118281 23h49m18.5s 352 15 37. +32゚37 04 23h59m29.29s +33゚43 26.0 7 C 40 23 52 357 53 55 41 15 40 137 23h51m31.4s +41゚15 21 00h01m43.85s +42゚22 01.7 E 50 23 58 359 36 40 35 31 36 699 23h58m23.7s +35゚31 20 00h08m40.94s +36゚37 37.6 B 52 0 0 0 0 9 44 58 34 841 23h59m57.1s +44゚57 41 00h10m19.24s +46゚04 20.2 G 56 0 13 3 22 54 43 9 24 1905 00h13m28.6s +43゚09 28 00h24m05.26s +44゚15 53.1 F 98 0 18 4 35 49 35 37 40 2270 00h18m20.8s +35゚47 39 00h28m56.67s +36゚53 58.9 H 126 0 30 7 35 33 38 21 24 3231 00h30m18.3s +38゚21 40 00h41m07.19s +39゚27 31.2 o 129 0 32 7 56 44 39 57 32 M32 00h31m49.2s +39゚46 00 00h42m41.5s +40゚51 47 n 130 0 32 7 56 58 40 11 23 M31 00h31m49.1s +40゚10 13 00h42m42.0s +41゚16 00 K 175 0 58 14 23 40 40 26 30 5298 00h56m29.2s +40゚26 38 01h07m46.76s +41゚30 47.8 5553 00h59m53.8s +40゚09 27 01h11m14.59s +41゚13 17.0 I 184 1 0 15 0 47 36 40 11 5550 00h59m57.9s +36゚39 31 01h11m10.28s +37゚43 26.8 L 185 1 1 15 16 42 44 16 39 5650 01h01m02.0s +44゚16 22 01h12m34.08s +45゚20 15.1 M 207 1 15 18 40 3 42 25 10 6711 01h14m36.4s +42゚25 06 01h26m18.69s +43゚27 27.9 N 234 1 36 23 54 45 45 13 53 8370 01h35m34.9s +45゚13 50 01h47m48.01s +46゚13 47.1 F 243 1 44 26 5 34 36 15 57 9021 01h44m19.5s +36゚16 00 01h56m09.36s +37゚15 06.6 O 245 1 46 26 23 50 46 7 0 9163 01h45m31.5s +46゚06 56 01h57m59.24s +47゚05 43.8 P 270 2 12 33 6 21 49 22 14 11313 02h12m21.7s +49゚22 06 02h25m37.42s +50゚16 43.1