約 2,105,505 件
https://w.atwiki.jp/ce00582/pages/178.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 fnewt(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 = 1 To 24 z1 = z1 + mis(byear, age, car) + mos(byear, age, car) Next fnewt(byear) = z1 Debug.Print byear Next Open "c /stream/gdata/女子通算新規裁定者2.txt " For Output As #4 For byear = 1930 To 1984 Write #4, byear, fnewt(byear) Next Close #4 End Sub
https://w.atwiki.jp/ce00582/pages/1949.html
Private Sub Command1_Click() Dim byear As Single Dim age As Single Dim car As Single Dim mis(14 To 69, 1 To 49) As Single Dim mos(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 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 minx(14 To 75, 0 To 50) As Single Dim mout(14 To 75, 0 To 50) As Single Dim mnew(1950 To 1989, 15 To 64) As Single Dim z1 As Single Dim z2 As Single Dim z3 As Single Dim v As Single Dim m2rate(0 To 200) As Single Dim mrate(0 To 200) As Single Open "c /dig/data/女子遺族.txt " For Input As #6 Do Until EOF(6) Input #6, a1, a2, a3, a4 age = a1 m2rate(age) = a2 mrate(age) = a3 Loop Close #6 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) = a3 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) = a4 Loop Close #5 For byear = 1950 To 1989 For car = 1 To 49 mis(age, car) = 0 mos(age, car) = 0 Next ageage = 2008 - byear age = ageage For car = 1 To 49 a1 = minx(age, car) a2 = mout(age, car) mis(age, car) = a1 mos(age, car) = a2 Next age = ageage + 1 mis(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(age, 1) = z3 z5 = 0 For car = 1 To 49 z5 = z5 + mos(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(age, car) = (1 - gamma(age - 1)) * mis(age - 1, car - 1) + v * mos(age - 1, car - 1) Next For car = 1 To 49 mos(age, car) = (gamma(age - 1) - alpha(age - 1) - beta(age)) * mis(age - 1, car) + (1 - alpha(age - 1) - v) * mos(age - 1, car) Next Next For age = 15 To 64 z1 = 0 For car = 1 To 25 z1 = z1 + m2rate(age) * alpha(age) * mis(age, car) Next For car = 25 To 49 z1 = z1 + m2rate(age) * alpha(age) * (mis(age, car) + mos(age, car)) Next mnew(byear, age) = z1 Next Debug.Print byear Next Open "c /dig/gdata/女子遺族新規裁定者2.txt " For Output As #4 For byear = 1950 To 1989 For age = 16 To 64 Write #4, byear, age, mnew(byear, age) Next Next Close #4 End Sub
https://w.atwiki.jp/ce00582/pages/1448.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 mnew(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 = 25 To 49 z1 = z1 + mis(byear, age, car) + mos(byear, age, car) Next mnew(byear) = z1 Debug.Print byear Next Open "c /kirakira/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/gtav/pages/248.html
父と子 （Father/Son） 父と子 （Father/Son）概要 ミッション内容 ゴールドメダル取得条件 余談 ミッション終了後の任意の電話 動画 概要 フランクリンとの交流を深めるため、バーへ誘うマイケル。しかしその時、息子のジミーから助けを求める電話が。 かくして息子と船を取り戻すため、走りだす二人であった。 ミッション内容 マイケルかフランクリンでマイケルの自宅へ行くとミッション開始。 マイケルにスイッチされる。フランクリンと一緒に出かけようとするが、ジミーから船（Marquis）を盗まれたと電話が入り、アマンダの車（Sentinel）で奪い返す事になる。 ナビ通り進むと船を積んだ車に遭遇。高速道路で追跡しながら船を積んだ車に接近し、フランクリンを船に乗せる。 途中でフランクリンが強盗（マラブンタ・グランデ）に攻撃されるので、ドライブバイで強盗を倒す。 しばらくするとジミーが船の帆に振り出されて宙ぶらりんになる。ジミーの下に車を合わせてキャッチする。 船の後部に車を寄せてフランクリンをキャッチ。 車がエンジンブローし、追跡を諦める事になる。ロスサントスカスタムに向かい車を修理する(無料)。 マイケル自宅へ行くとミッション完了。 ゴールドメダル取得条件 スピード・レスキュー10秒以内にジミーを救出しろ クレーンに捕まっているジミーを救出するだけ、モタモタしなければすぐに救出できる。リプレイ時はアマンダの車を改造しておけばさらにやり易くなる。慌ててジミーな下に寄せようとするとトレーラーも逃げてしまう上に一般車と接触しやすいので、黄色のマーカーが出てからスピードを上げるのが好ましい。 傷ひとつなしアマンダの車をダメージなしで届けろ 修理して自宅まで安全運転でいけば達成可能。ちょっとコスる程度なら大丈夫。なお車の修理は最初の一回のみ無料で、修理以外だとしっかり金を取られる。 余談 このミッションでフラットベッドが車を載せて走っている。このミッション以外では、フラットベッドが車を載せて走っていないため、この一回でしかお目にかかれない。ちなみに、乗っている車は、ガントレッド。 マイケルが乗って帰るタクシーは、一応レア車両。ミッション終了直後にスイッチし、追いかければ奪える。レアと言っても上の行灯（飾り）がない程度だが。 追跡中にエンジンから煙を吹くが、ガラガラ音が鳴った瞬間に車両のHPは強制的に70に減少する。乗り物のHP最大値は1000。ロスサントス・カスタムで各種カスタムを選ぶとジミーがそれに応じたセリフを言ってくれる。 このミッションは「GTASA」の最終ミッション「end of the line」のオマージュと思われる。暇なときに見比べてみよう。 この時ファントムが引っ張っているトレーラーはこのミッションにしか出現しない。また、このファントムは一切の攻撃を受け付けない完全無敵となっている。また、トレーラーの付近には透明かつ無敵の2台のファントムがあり、透明でないファントムと一緒に動いている。透明ファントムは2台とも別視点用に使われる。船を積んだファントムと一緒にスポーンし、フランクリンを船からキャッチして衝撃の演出が始まった瞬間にゲーム内から消える。透明のファントムは人や車両や普通のオブジェクトに対する当たり判定はないが、銃弾と投射物オブジェクト（ロケットランチャーの弾や投擲物など）に対する当たり判定はあり、火炎瓶による発火（ダメージは受けない）や粘着爆弾の貼り付けが可能となっている。ただし、高速走行かつ透明状態を解除しないと予測できないような動きをしている関係で、狙って当てるのは通り道を覚えない限り難しい。ちなみに、MODで透明ファントムを破壊するとファントムが破壊された場所の視点に固定され、透明ファントムが消えると別視点が使えなくなる。参考として、PC版でScriptHookVDotNetのコンソールで以下のC#コードを入力すると透明ファントムの透明状態を解除できる。BashのようにCtrl+Pや上矢印キーで1つ前に入力したコマンドに戻れるので覚えておくといいかもしれない。 foreach (var veh in World.GetAllVehicles(VehicleHash.Phantom)) { veh.IsVisible = true; } ミッションスクリプト(family1.ysc)によると、ジミーのHPは1000に設定されている(100未満で死亡する仕様上(*1)、実質HPは900)。 + 透明ファントムについてのスクリーンショット。ほとんどは透明化解除したもの。 火炎瓶でファントムに火をつけると運転手が飛び降りる。しかしファントムは運転手がいなくなっても無人のままトレーラーごと走り続けるため、止めて船を取り戻すことはできない。 ミッション終了後の任意の電話 フランクリンはジミーに任意で電話をかけることができる。フランクリンはマイケルを「成果を手にしてきた男」と評価し、そこへの憧れをジミーに対し伝える。 動画
https://w.atwiki.jp/ce00582/pages/1766.html
Private Sub Command1_Click() Dim byear As Single Dim age As Single Dim car As Single Dim mis(14 To 69, 1 To 49) As Single Dim mos(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 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 minx(14 To 75, 0 To 50) As Single Dim mout(14 To 75, 0 To 50) As Single Dim mnew(1950 To 1989, 15 To 64) As Single Dim z1 As Single Dim z2 As Single Dim z3 As Single Dim v As Single Dim m2rate(0 To 200) As Single Dim mrate(0 To 200) As Single Open "c /eli/data/女子遺族.txt " For Input As #6 Do Until EOF(6) Input #6, a1, a2, a3, a4 age = a1 m2rate(age) = a2 mrate(age) = a3 Loop Close #6 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 #6 Do Until EOF(6) Input #6, a1, a2, a3 age = a1 car = a2 minx(age, car) = a3 Loop Close #6 Open "c /eli/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 /eli/gdata/変形厚生年金被保険者.txt " For Input As #5 Do Until EOF(5) Input #5, a1, a2, a3, a4 byear = a1 age = a2 m2by(byear, age) = a4 Loop Close #5 For byear = 1950 To 1989 For car = 1 To 49 mis(age, car) = 0 mos(age, car) = 0 Next ageage = 2008 - byear age = ageage For car = 1 To 49 a1 = minx(age, car) a2 = mout(age, car) mis(age, car) = a1 mos(age, car) = a2 Next age = ageage + 1 mis(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(age, 1) = z3 z5 = 0 For car = 1 To 49 z5 = z5 + mos(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(age, car) = (1 - gamma(age - 1)) * mis(age - 1, car - 1) + v * mos(age - 1, car - 1) Next For car = 1 To 49 mos(age, car) = (gamma(age - 1) - alpha(age - 1) - beta(age)) * mis(age - 1, car) + (1 - alpha(age - 1) - v) * mos(age - 1, car) Next Next For age = 15 To 64 z1 = 0 For car = 1 To 25 z1 = z1 + m2rate(age) * alpha(age) * mis(age, car) Next For car = 25 To 49 z1 = z1 + m2rate(age) * alpha(age) * (mis(age, car) + mos(age, car)) Next mnew(byear, age) = z1 Next Debug.Print byear Next Open "c /eli/gdata/女子遺族新規裁定者2.txt " For Output As #4 For byear = 1950 To 1989 For age = 16 To 64 Write #4, byear, age, mnew(byear, age) Next Next Close #4 End Sub
https://w.atwiki.jp/ce00582/pages/1450.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 mnew(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) = 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 mnew(byear) = z1 Debug.Print byear Next Open "c /kirakira/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/ce00582/pages/214.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 avgftime(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 z2 = 0 For car = 25 To 49 z2 = z2 + car * (mis(byear, age, car) + mos(byear, age, car)) Next avgftime(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, avgftime(byear) Next Close #4 End Sub
https://w.atwiki.jp/ce00582/pages/1468.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 finx(15 To 65, 1 To 50) As Single Dim fout(15 To 65, 1 To 50) As Single Dim avgtftime(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) = a3 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 finx(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 fout(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 = 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 = 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 avgtftime(byear) = z2 / z1 Debug.Print byear, z2 / z1 Next Open "c /kirakira/gdata/女子通算平均加入年数2.txt " For Output As #4 For byear = 1930 To 1984 Write #4, byear, avgtftime(byear) Next Close #4 End Sub
https://w.atwiki.jp/tgubd/pages/23.html
概要 通称：ウサギ亭 冒険者の店。 芸能事が大好きな店主が経営する店。店内に小さなステージがあり、毎晩歌ったり踊ったりのバカ騒ぎが続いている。その楽しげで親しみ易い雰囲気から、冒険者以外の人々も多く集まり賑わっている。 ちなみに店名は、伝説の冒険者にしてトップアイドル「ノーム・ブラッキー」をあやかっており、店の中には大きな肖像画が飾ってある。 人物 フォルサー・グラン（ナイトメア/男/37歳） 「」 黒縁メガネを掛けた温厚な男性。失踪癖があり、店に居ないこともしばしば。寝ぐせがチャームポイント。 カーチス・トルトゥーラ（ドワーフ/女/24歳） 「」 明るい桃色の髪を、二つに括ったドワーフの女の子。小柄で愛らしい顔をしているが、ずっと祖父母に育てられた為、年寄り臭い喋り方をする。楽器職人を目指しており、いつか自分の工房を持つことを夢見ている。
https://w.atwiki.jp/ketcindy/pages/39.html
扇形の弧の長さと面積に関する公式の証明で利用する． #ref error ：ご指定のファイルが見つかりません。ファイル名を確認して、再度指定してください。 (title=) fan-shape-formula.zip 画面上に幾何点A(0,0)をとる． 中心A，点B(3,0)を通る円を引く． 注）画面上側のツールバー「円を加える」を使用する． 幾何点をとり，円に近づけると，円周上に点Cができる． Addax(0); ／／ 座標軸を描かない Setcolor([1,0,0,0]); ／／ 線の色をcmykで(1,0,0,0)にする（cyan=1） Circledata("1",[A,B],["Rng=[0,2*pi]"]); ／／ 円を作成 Setcolor([0,0,0,1]); ／／ 線の色をcmykで(0,0,0,1)に戻す（key plate=black=1） Listplot("1",[A,B],["dr,1.5"]); Listplot("2",[A,C],["dr,1.5"]); ／／ 線分AB, ACを作成 ／／ 注）オプションは，1.5梅の太さの実線を意味する Th=arccos(C.x/B.x); Defvar("Th",Th); Circledata("2",[A,B],["Rng=[0,Th]","dr,1.5"]); ／／ 点Cの偏角を変数Thを定義し，DefvarでScilabに渡す Bowdata([A,B],[1,0.5,"Expr=r"]); Bowdata([B,C],[3,0.5,"Expr=l"]); ／／ 弓AB, BCを作成 ／／ 注）オプションは，第１引数が弓の半径の倍率，第２引数が弓の切りの倍率， "Expr="で弓の切りに入れる数式を意味する Anglemark([B,A,C],["E=\theta"]); ／／ 角マークを作成し，数式$\theta$を書く Letter([A,"sw","O",B,"e","A",C,"nw","B"]); Expr([D,"c","S"]); ／／ 基準点A, B, Cに文字"O", "A", "B"を書き，基準点Dに数式"S"を書く ／／ 注）位置は，"sw"が南西，"e"が東，"nw"が北西，"c"が中央