約 2,105,512 件
https://w.atwiki.jp/ce00582/pages/1454.html
Private Sub Command1_Click() Dim byear As Single Dim age As Single Dim car As Single Dim mis(1900 To 2100, 15 To 64, 1 To 49) As Single Dim mos(1900 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(1900 To 2100, 15 To 64, 1 To 49) As Single Dim zant(1900 To 2100, 15 To 64, 1 To 49) As Single Dim mde(1900 To 2100, 0 To 99) As Single Dim minx(15 To 65, 1 To 50) As Single Dim mout(15 To 65, 1 To 50) As Single Dim mnewt(1900 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 #4 Do Until EOF(4) Input #4, a1, a2, a3 age = a1 car = a2 minx(age, car) = a3 Loop Close #4 Open "c /kirakira/gdata/男子待期者.txt " For Input As #6 Do Until EOF(6) Input #6, a1, a2, a3 age = a1 car = a2 mout(age, car) = a3 Loop Close #6 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 = 1950 To 1984 ageage = 2000 - byear age = ageage For car = 1 To 49 byear = 2000 - age a1 = minx(age, car) a2 = mout(age, car) mis(byear, age, car) = a1 mos(byear, age, car) = a2 Next age = ageage + 1 mis(byear, age, 1) = m2by(byear, age) For age = ageage + 1 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 age = 64 z1 = 0 For car = 1 To 24 z1 = z1 + mis(byear, age, car) + mos(byear, age, car) Next mnewt(byear) = z1 Debug.Print byear Next Open "c /kirakira/gdata/男子通算新規裁定者2.txt " For Output As #4 For byear = 1930 To 1984 Write #4, byear, mnewt(byear) Next Close #4 End Sub
https://w.atwiki.jp/ce00582/pages/1885.html
Private Sub Command1_Click() Dim byear As Single Dim age As Single Dim car As Single Dim mis(1900 To 2100, 14 To 69, 1 To 49) As Single Dim mos(1900 To 2100, 14 To 69, 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(1900 To 2100, 15 To 64, 1 To 49) As Single Dim zant(1900 To 2100, 15 To 64, 1 To 49) As Single Dim mde(1900 To 2100, 0 To 99) As Single Dim minx(14 To 75, 0 To 50) As Single Dim mout(14 To 75, 0 To 50) As Single Dim mnew(1900 To 2100) As Single Dim mtime(1900 To 2100) As Single Dim ftime(1900 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 #6 Do Until EOF(6) Input #6, a1, a2, a3 age = a1 car = a2 minx(age, car) = a3 Loop Close #6 Open "c /dig/gdata/男子待期者.txt " For Input As #7 Do Until EOF(7) Input #7, a1, a2, a3 age = a1 car = a2 mout(age, car) = a3 Loop Close #7 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 Open "c /dig/data/報酬裁定.txt " For Input As #15 Do Until EOF(15) Input #15, a1, a2, a3 byear = a1 mtime(byear) = a2 ftime(byear) = a3 Loop Close #15 For byear = 1940 To 1950 mtime(byear) = 60 ftime(byear) = 60 Next For byear = 1970 To 1989 mtime(byear) = 65 ftime(byear) = 65 Next For byear = 1949 To 1989 ageage = 2008 - byear age = ageage For car = 1 To 49 a1 = minx(age, car) a2 = mout(age, car) mis(byear, age, car) = a1 mos(byear, age, car) = a2 Next age = ageage + 1 mis(byear, age, 1) = m2by(byear, age) endtime = mtime(byear) For age = ageage + 1 To endtime 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 age = endtime z1 = 0 For car = 25 To 49 z1 = z1 + mis(byear, age, car) + mos(byear, age, car) Next mnew(byear) = z1 Debug.Print byear, mnew(byear) Next Open "c /dig/gdata/男子新規裁定者2.txt " For Output As #4 For byear = 1949 To 1989 Write #4, byear, mnew(byear) Next Close #4 End Sub
https://w.atwiki.jp/ce00582/pages/228.html
Private Sub Command1_Click() Dim byear As Single Dim age As Single Dim car As Single Dim mis(1900 To 2100, 15 To 64, 1 To 49) As Single Dim mos(1900 To 2100, 15 To 64, 1 To 49) As Single Dim m2by(1900 To 2100, 15 To 64) As Single Dim f2by(1900 To 2100, 15 To 64) 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(1900 To 2100, 15 To 64, 1 To 49) As Single Dim zant(1900 To 2100, 15 To 64, 1 To 49) As Single Dim mde(1900 To 2100, 0 To 99) As Single Dim minx(15 To 65, 1 To 50) As Single Dim mout(15 To 65, 1 To 50) As Single Dim avgtmtime(1900 To 2100) As Single Dim z1 As Single Dim z2 As Single Dim z3 As Single Dim v As Single Open "c /stream/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 /stream/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 /stream/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 /stream/gdata/男子被保険者.txt " For Input As #4 Do Until EOF(4) Input #4, a1, a2, a3 age = a1 car = a2 minx(age, car) = a3 Loop Close #4 Open "c /stream/gdata/男子待期者.txt " For Input As #6 Do Until EOF(6) Input #6, a1, a2, a3 age = a1 car = a2 mout(age, car) = a3 Loop Close #6 Open "c /stream/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 = 1950 To 1984 ageage = 2000 - byear age = ageage For car = 1 To 49 byear = 2000 - age a1 = minx(age, car) a2 = mout(age, car) mis(byear, age, car) = a1 mos(byear, age, car) = a2 Next age = ageage + 1 mis(byear, age, 1) = m2by(byear, age) For age = ageage + 1 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 age = 64 z1 = 0 For car = 1 To 24 z1 = z1 + mis(byear, age, car) + mos(byear, age, car) Next z2 = 0 For car = 1 To 24 z2 = z2 + car * (mis(byear, age, car) + mos(byear, age, car)) Next avgtmtime(byear) = z2 / z1 Debug.Print byear, z2 / z1 Next Open "c /stream/gdata/男子通算平均加入年数2.txt " For Output As #4 For byear = 1930 To 1984 Write #4, byear, avgtmtime(byear) Next Close #4 End Sub
https://w.atwiki.jp/ce00582/pages/97.html
05 女子新規裁定者 （１）計算するデータ newf(year,age) 女子新規裁定者 （２）入力するデータ mu 総脱退率 alpha 死亡脱退率 beta 障害脱退率 theta 再加入率 出所 数理レポート sigma 待期者死亡率 出所 不明 f2(year,age) 女性の厚生年金被保険者 出所 03 厚生年金被保険者 （３）数式 math05.pdf （４）プログラム プログラム
https://w.atwiki.jp/ce00582/pages/163.html
Private Sub Command1_Click() Dim byear As Single Dim age As Single Dim car As Single Dim mis(1900 To 2100, 15 To 64, 1 To 49) As Single Dim mos(1900 To 2100, 15 To 64, 1 To 49) As Single Dim m2by(1900 To 2100, 15 To 64) As Single Dim f2by(1900 To 2100, 15 To 64) 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(1900 To 2100, 15 To 64, 1 To 49) As Single Dim zant(1900 To 2100, 15 To 64, 1 To 49) As Single Dim mde(1900 To 2100, 0 To 99) As Single Dim finx(15 To 65, 1 To 50) As Single Dim fout(15 To 65, 1 To 50) As Single Dim fnew(1900 To 2100) As Single Dim z1 As Single Dim z2 As Single Dim z3 As Single Dim v As Single Open "c /stream/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 /stream/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 /stream/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 /stream/gdata/女子被保険者.txt " For Input As #4 Do Until EOF(4) Input #4, a1, a2, a3 age = a1 car = a2 finx(age, car) = a3 Loop Close #4 Open "c /stream/gdata/女子待期者.txt " For Input As #6 Do Until EOF(6) Input #6, a1, a2, a3 age = a1 car = a2 fout(age, car) = a3 Loop Close #6 Open "c /stream/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 = 1950 To 1984 ageage = 2000 - byear age = ageage For car = 1 To 49 byear = 2000 - age a1 = finx(age, car) a2 = fout(age, car) mis(byear, age, car) = a1 mos(byear, age, car) = a2 Next age = ageage + 1 mis(byear, age, 1) = f2by(byear, age) For age = ageage + 1 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 - mdeby(byear, age) - v) * mos(byear, age - 1, car) Next Next age = 64 z1 = 0 For car = 25 To 49 z1 = z1 + mis(byear, age, car) + mos(byear, age, car) Next fnew(byear) = z1 Debug.Print byear Next Open "c /stream/gdata/女子新規裁定者2.txt " For Output As #4 For byear = 1930 To 1984 Write #4, byear, fnew(byear) Next Close #4 End Sub
https://w.atwiki.jp/bms_progress/pages/1589.html
通常初段←通常二段→通常三段 段位曲 STAGE Lv 楽曲名 BPM 1st ▽3 take me to the moon 152-152 2nd ▽3 [line theta] [BEGINNER] 156-156 3rd ▽4 From Megalopolis with Love 57-115 FINAL ▽4 Lovely my world -I- Overture 111-111 コメント 名前 コメント
https://w.atwiki.jp/ce00582/pages/162.html
Private Sub Command1_Click() Dim byear As Single Dim age As Single Dim car As Single Dim mis(1900 To 2100, 15 To 64, 1 To 49) As Single Dim mos(1900 To 2100, 15 To 64, 1 To 49) As Single Dim m2by(1900 To 2100, 15 To 64) As Single Dim f2by(1900 To 2100, 15 To 64) 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(1900 To 2100, 15 To 64, 1 To 49) As Single Dim zant(1900 To 2100, 15 To 64, 1 To 49) As Single Dim mde(1900 To 2100, 0 To 99) As Single Dim minx(15 To 65, 1 To 50) As Single Dim mout(15 To 65, 1 To 50) As Single Dim mnew(1900 To 2100) As Single Dim z1 As Single Dim z2 As Single Dim z3 As Single Dim v As Single Open "c /stream/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 /stream/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 /stream/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 /stream/gdata/男子被保険者.txt " For Input As #4 Do Until EOF(4) Input #4, a1, a2, a3 age = a1 car = a2 minx(age, car) = a3 Loop Close #4 Open "c /stream/gdata/男子待期者.txt " For Input As #6 Do Until EOF(6) Input #6, a1, a2, a3 age = a1 car = a2 mout(age, car) = a3 Loop Close #6 Open "c /stream/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 = 1950 To 1984 ageage = 2000 - byear age = ageage For car = 1 To 49 byear = 2000 - age a1 = minx(age, car) a2 = mout(age, car) mis(byear, age, car) = a1 mos(byear, age, car) = a2 Next age = ageage + 1 mis(byear, age, 1) = m2by(byear, age) For age = ageage + 1 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 age = 64 z1 = 0 For car = 25 To 49 z1 = z1 + mis(byear, age, car) + mos(byear, age, car) Next mnew(byear) = z1 Debug.Print byear Next Open "c /stream/gdata/男子新規裁定者2.txt " For Output As #4 For byear = 1930 To 1984 Write #4, byear, mnew(byear) Next Close #4 End Sub
https://w.atwiki.jp/pathofexile12/pages/1051.html
The PoetはDivination Cardの一種 交換可能アイテム 入手方法 関連リンク The Poet 必要枚数 9枚 Blood of CorruptionCorrupted God had forsaken the land And Victario wept.Corruption consumed the land And Victario s tears turned to blood. 交換可能アイテム 変換先 Blood of Corruption 入手方法 このカードがドロップするエリア The Marketplace • The Quay • Alleyways Map • Arcade Map カード等のドロップ以外の入手方法 アイテム 必要数 備考 The Gambler 5 Stacked Deck 1 関連リンク 英wiki https //pathofexile.gamepedia.com/The_Poet Divination Card
https://w.atwiki.jp/wiki5_uma2/pages/58.html
ドリブルせずに、ハテナパネルの上に乗ると、赤コインか、緑色コインが、出る。 【提供者 モーグリ様】
https://w.atwiki.jp/gamemusicbest100/pages/3332.html
Ultima VI The False Prophet ウルティマVI ～偽りの予言者～ 機種：DOS/V, AMG, ATST, C64, FMT, SFC, PC98, X68k 作曲者：Todd Porter, Herman Miller 編曲者(SFC)：澤和雄 開発元：Origin Systems 発売元：Origin Systems、ポニーキャニオン(SFC) 発売年：1990年 概要 「ウルティマ」の本編6作目 戦闘のスムーズ化とボイスつき(FM-TOWNS版のみ)と革新的なRPGになった Amiga版の評価が高いほか、海外ではスーパーファミコン版(向こうではSNES)の評価も高い。 収録曲 曲名 補足 順位 The False Prophet 第2回マイナーレトロ240位 Introduction ～ A New Threat Battle Theme Lord British's Castle Inventory Menu The Magical Map Wandering the Countryside Song of Peace Underground Catacombs Set Sail! Realm of the Gargoyles Ending ～ Unity of Two Races The Bard's Song Harpischord Harp Panpipes Xylophone Level Up Stones サウンドトラック Origin Soundtrack Series Vol. 1