約 2,105,558 件
https://w.atwiki.jp/ce00582/pages/467.html
panda26 男子通算平均賃金 (1)計算するデータ mtwage(byear)男子平均賃金 (2)入力するデータ mw(year,age) 男性賃金報酬指数 pdata09 賃金報酬指数 gamma(age)総脱退率 alpha(age)死亡脱退率 beta(age)障害脱退率 pdata10 男子脱退力 theta(age) 再加入率 pdata11 再加入率 m2(year,age)男子被保険者 panda05 厚生年金被保険者 (4)プログラム プログラム 分析 (6)作業記録 6月15日 メモ作成 6月17日 プログラム修正 6月19日 メモ修正
https://w.atwiki.jp/gtav/pages/1302.html
ハチェット(Hatchet) ハチェット(Hatchet)ステータス 解説 入手方法オフライン オンライン ゲーム内解説 ステータス Damage ▯▯▯▯▯▯▯▯▯▯▯▯▯▯▯▯▯▯▯▯ Fire Rate ▯▯▯▯▯▯▯▯▯▯▯▯▯▯▯▯▯▯▯▯ 要編集 解説 PS4・XboxONE・PC版の限定コンテンツとして登場。 いわゆる「手斧」で、見た目に見合った高い威力を持ち、NPCに対しては1~2回攻撃するだけで死亡させる。 即死攻撃のモーションがかなり凝っており、攻撃内容はかなりエグい。 前方相手の頭をカチ割る 相手の肩に振り下ろし、蹴り飛ばしつつ刃を引き抜く 背後相手の後頭部に刺したうえに身体を仰け反らせて、勢いよく刃を抜く 相手の背中に刺し、回転しつつ引き裂くように刃を抜く 柄で頭を殴り気絶させる(ただし倒れた相手には何故か切り傷がつく) どれも一見の価値ありだが、耐性がない人は閲覧注意。ある意味、今作の近接武器の中で最も残虐な武器かもしれない。 入手方法 オフライン ミッション「トレバー・フィリップス工業」クリア後に購入可能。本武器は元々「オリジナル版プレイヤー特典 」の1つであり、オリジナル版をプレイしたプレイヤーでないと購入できないものであった。しかし「ロスサントス・チューナー」アップデートにて「オリジナル版プレイヤー限定」という枠組みが撤廃され、全ての強化版プレイヤーが本武器を購入できるようになった。 オンライン アミュネーションで購入。 ゲーム内解説 簡単に振りかざしたり隠したりできるこの手斧で、友人の闘争心に火をつけよう。
https://w.atwiki.jp/e0639/pages/11.html
・refer to... (...を参照する) Refer to the pie chart on the next page. (次のページの円グラフを参照しなさい。) ・found in...(...に設立する) Our school was founded in 1900. (我々の学校は1900年に設立された。) ・square root(平方根) The square root of 4 is +2 and -2. (4の平方根は+2とー2である。) ・square(二乗) Sine square of theta plus cosine square of theta equals one. (サイン二乗足すコサイン二乗は1である。) ・with respect to...(...に関して、...について) The derivative f at x equals differentiate with respect to x. (f (x)はxに関して微分することと等しい。) ・be congruent to...(...と合同である) The set of A is congruent to the set of B (集合Aは集合Bと合同である。) ・straight line(直線) I draw a straight line. (私は直線を引く。) ・perpendicular(垂線) The lines are perpendicular to each other. (線は互いに直角に交わっている。) ・angle(角度) At an angle of 30 degrees to[with]... (...と30度の角をなして) ・vertex(頂点) Point A is the vertex of a cone. (点Aは円錐の頂点である。) ・circle(円) Point A is center of circle. (点Aは円の中心である。) ・diameter(直径) A circle 5 centimeters in diameter (直径5センチの円) ・square(正方形) Square A is congruence with square B. (正方形Aと正方形Bは合同である。) ・midpoint(中間点) Point A is midpoint of line l. (点Aは直線lの中間点である。) ・curve(曲線) I draw a curve. (私は曲線を描く。) ・triangle(三角形) Triangle A B C is a regular triangle. (三角形ABCは正三角形である。) ・tangent(接線) Line l is tangent to the circle at point P. (直線lは円と点Pで接する。) ・intersect(交わる) Line l intersects line m at point P. (直線lと直線mは点Pで交わる。) ・in proportion to 〜(〜に比例して) y is in proportion to x. (yはxに比例している。) ・be constant(一定である) This function is constant. (この関数は一定である。)
https://w.atwiki.jp/ce00582/pages/416.html
panda21 女性平均加入期間 (1)計算するデータ ftime(byear) 女性平均加入期間 (2)入力するデータ theta(age) 再加入率 pdata11 再加入率 gamma(age)総脱退率 alpha(age)死亡脱退率 beta(age)障害脱退率 pdata12 女子脱退力 f2(year,age)厚生年金被保険者 panda05 厚生年金被保険者 (3)数式 ban.pdf (4)プログラム プログラム 分析結果 (5)作業記録 6月14日 メモ修正 6月16日 メモ修正 11月10日 pdfアップロード
https://w.atwiki.jp/ce00582/pages/1520.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 wis(1985 To 2100, 15 To 64, 1 To 49) As Single Dim wos(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 mw(15 To 69) As Single Dim fw(15 To 69) 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 avgtmw(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 age = 15 Open "c /nagoya/data/標準報酬.txt " For Input As #12 Do Until EOF(12) Input #12, a1, a2 mw(age) = a1 fw(age) = a2 age = age + 1 Loop Close #12 For byear = 1990 To 2034 age = 15 mis(byear, age, 1) = f2by(byear, age) For car = 1 To 49 wis(byear, age, car) = fw(age) wos(byear, age, car) = fw(age) Next 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 wis(byear, age, 1) = fw(age) For car = 2 To 49 z6 = (1 - gamma(age - 1)) * mis(byear, age - 1, car - 1) + v * mos(byear, age - 1, car - 1) z7 = wis(byear, age - 1, car - 1) * (1 - gamma(age - 1)) * mis(byear, age - 1, car - 1) + wos(byear, age - 1, car - 1) * v * mos(byear, age - 1, car - 1) If z6 = 0 Then z7 = 0 If z6 = 0 Then z6 = 1 z8 = z7 / z6 wis(byear, age, car) = (fw(age) + (car - 1) * z8) / car Next For car = 2 To 49 z9 = (gamma(age - 1) - alpha(age - 1) - beta(age)) * mis(byear, age - 1, car) + (1 - fdeby(byear, age) - v) * mos(byear, age - 1, car) z10 = wis(byear, age - 1, car) * (gamma(age - 1) - alpha(age - 1) - beta(age)) * mis(byear, age - 1, car) + wos(byear, age - 1, car) * (1 - mdeby(byear, age) - v) * mos(byear, age - 1, car) If z9 = 0 Then z10 = 0 If z9 = 0 Then z9 = 1 wos(byear, age, car) = z10 / z9 Next Next z1 = 0 z2 = 0 For car = 25 To 49 z1 = z1 + mis(byear, 64, car) + mos(byear, 64, car) z2 = z2 + wis(byear, 64, car) * mis(byear, 64, car) + wos(byear, 64, car) * mos(byear, 64, car) Next avgtmw(byear) = z2 / z1 Debug.Print byear, avgtmw(byear) Next Open "c /nagoya/gdata/女子賃金1.txt " For Output As #4 For byear = 1990 To 2100 Write #4, byear, avgtmw(byear) Next Close #4 End Sub
https://w.atwiki.jp/ce00582/pages/1526.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 wis(1985 To 2100, 15 To 64, 1 To 49) As Single Dim wos(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 mw(15 To 69) As Single Dim fw(15 To 69) 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 avgtmw(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 age = 15 Open "c /nagoya/data/標準報酬.txt " For Input As #12 Do Until EOF(12) Input #12, a1, a2 mw(age) = a1 fw(age) = a2 age = age + 1 Loop For byear = 1990 To 2034 age = 15 mis(byear, age, 1) = f2by(byear, age) For car = 1 To 49 wis(byear, age, car) = fw(age) wos(byear, age, car) = fw(age) Next 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 wis(byear, age, 1) = fw(age) For car = 2 To 49 z6 = (1 - gamma(age - 1)) * mis(byear, age - 1, car - 1) + v * mos(byear, age - 1, car - 1) z7 = wis(byear, age - 1, car - 1) * (1 - gamma(age - 1)) * mis(byear, age - 1, car - 1) + wos(byear, age - 1, car - 1) * v * mos(byear, age - 1, car - 1) If z6 = 0 Then z7 = 0 If z6 = 0 Then z6 = 1 z8 = z7 / z6 wis(byear, age, car) = (fw(age) + (car - 1) * z8) / car Next For car = 2 To 49 z9 = (gamma(age - 1) - alpha(age - 1) - beta(age)) * mis(byear, age - 1, car) + (1 - fdeby(byear, age) - v) * mos(byear, age - 1, car) z10 = wis(byear, age - 1, car) * (gamma(age - 1) - alpha(age - 1) - beta(age)) * mis(byear, age - 1, car) + wos(byear, age - 1, car) * (1 - mdeby(byear, age) - v) * mos(byear, age - 1, car) If z9 = 0 Then z10 = 0 If z9 = 0 Then z9 = 1 wos(byear, age, car) = z10 / z9 Next Next z1 = 0 z2 = 0 For car = 1 To 24 z1 = z1 + mis(byear, 64, car) + mos(byear, 64, car) z2 = z2 + wis(byear, 64, car) * mis(byear, 64, car) + wos(byear, 64, car) * mos(byear, 64, car) Next avgtmw(byear) = z2 / z1 Debug.Print byear, avgtmw(byear) Next Open "c /nagoya/gdata/女子通算賃金1.txt " For Output As #4 For byear = 1990 To 2100 Write #4, byear, avgtmw(byear) Next Close #4 End Sub
https://w.atwiki.jp/ce00582/pages/240.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 wis(1985 To 2100, 15 To 64, 1 To 49) As Single Dim wos(1985 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 mw(15 To 69) As Single Dim fw(15 To 69) 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 avgfw(1985 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/data/賃金報酬指数.txt " For Input As #4 Do Until EOF(4) Input #4, a1, a2, a3 age = a1 mw(age) = a2 fw(age) = a3 Loop Close #4 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 = 1985 To 2034 age = 15 mis(byear, age, 1) = f2by(byear, age) For car = 1 To 49 wis(byear, age, car) = fw(age) wos(byear, age, car) = fw(age) Next 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 - mdeby(byear, age) - v) * mos(byear, age - 1, car) Next wis(byear, age, 1) = fw(age) For car = 2 To 49 z6 = (1 - gamma(age - 1)) * mis(byear, age - 1, car - 1) + v * mos(byear, age - 1, car - 1) z7 = wis(byear, age - 1, car - 1) * (1 - gamma(age - 1)) * mis(byear, age - 1, car - 1) + wos(byear, age - 1, car - 1) * v * mos(byear, age - 1, car - 1) If z6 = 0 Then z7 = 0 If z6 = 0 Then z6 = 1 z8 = z7 / z6 wis(byear, age, car) = (fw(age) + (car - 1) * z8) / car Next For car = 2 To 49 z9 = (gamma(age - 1) - alpha(age - 1) - beta(age)) * mis(byear, age - 1, car) + (1 - mdeby(byear, age) - v) * mos(byear, age - 1, car) z10 = wis(byear, age - 1, car) * (gamma(age - 1) - alpha(age - 1) - beta(age)) * mis(byear, age - 1, car) + wos(byear, age - 1, car) * (1 - mdeby(byear, age) - v) * mos(byear, age - 1, car) If z9 = 0 Then z10 = 0 If z9 = 0 Then z9 = 1 wos(byear, age, car) = z10 / z9 Next Next z1 = 0 z2 = 0 For car = 1 To 24 z1 = z1 + mis(byear, 64, car) + mos(byear, 64, car) z2 = z2 + wis(byear, 64, car) * mis(byear, 64, car) + wos(byear, 64, car) * mos(byear, 64, car) Next avgfw(byear) = z2 / z1 Debug.Print byear, avgfw(byear) Next Open "c /stream/gdata/女子通算賃金1.txt " For Output As #4 For byear = 1985 To 2100 Write #4, byear, avgfw(byear) Next Close #4 End Sub
https://w.atwiki.jp/ce00582/pages/1463.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 wis(1985 To 2100, 15 To 64, 1 To 49) As Single Dim wos(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 mw(15 To 69) As Single Dim fw(15 To 69) 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 avgfw(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/data/賃金報酬指数.txt " For Input As #4 Do Until EOF(4) Input #4, a1, a2, a3 age = a1 mw(age) = a2 fw(age) = a3 Loop Close #4 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 car = 1 To 49 wis(byear, age, car) = fw(age) wos(byear, age, car) = fw(age) Next 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 - mdeby(byear, age) - v) * mos(byear, age - 1, car) Next wis(byear, age, 1) = fw(age) For car = 2 To 49 z6 = (1 - gamma(age - 1)) * mis(byear, age - 1, car - 1) + v * mos(byear, age - 1, car - 1) z7 = wis(byear, age - 1, car - 1) * (1 - gamma(age - 1)) * mis(byear, age - 1, car - 1) + wos(byear, age - 1, car - 1) * v * mos(byear, age - 1, car - 1) If z6 = 0 Then z7 = 0 If z6 = 0 Then z6 = 1 z8 = z7 / z6 wis(byear, age, car) = (fw(age) + (car - 1) * z8) / car Next For car = 2 To 49 z9 = (gamma(age - 1) - alpha(age - 1) - beta(age)) * mis(byear, age - 1, car) + (1 - mdeby(byear, age) - v) * mos(byear, age - 1, car) z10 = wis(byear, age - 1, car) * (gamma(age - 1) - alpha(age - 1) - beta(age)) * mis(byear, age - 1, car) + wos(byear, age - 1, car) * (1 - mdeby(byear, age) - v) * mos(byear, age - 1, car) If z9 = 0 Then z10 = 0 If z9 = 0 Then z9 = 1 wos(byear, age, car) = z10 / z9 Next Next z1 = 0 z2 = 0 For car = 25 To 49 z1 = z1 + mis(byear, 64, car) + mos(byear, 64, car) z2 = z2 + wis(byear, 64, car) * mis(byear, 64, car) + wos(byear, 64, car) * mos(byear, 64, car) Next avgfw(byear) = z2 / z1 Next Open "c /kirakira/gdata/女子賃金1.txt " For Output As #4 For byear = 1985 To 2100 Write #4, byear, avgfw(byear) Next Close #4 End Sub
https://w.atwiki.jp/ce00582/pages/219.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 wis(1985 To 2100, 15 To 64, 1 To 49) As Single Dim wos(1985 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 mw(15 To 69) As Single Dim fw(15 To 69) 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 avgfw(1985 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/data/賃金報酬指数.txt " For Input As #4 Do Until EOF(4) Input #4, a1, a2, a3 age = a1 mw(age) = a2 fw(age) = a3 Loop Close #4 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 = 1985 To 2034 age = 15 mis(byear, age, 1) = f2by(byear, age) For car = 1 To 49 wis(byear, age, car) = fw(age) wos(byear, age, car) = fw(age) Next 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 - mdeby(byear, age) - v) * mos(byear, age - 1, car) Next wis(byear, age, 1) = fw(age) For car = 2 To 49 z6 = (1 - gamma(age - 1)) * mis(byear, age - 1, car - 1) + v * mos(byear, age - 1, car - 1) z7 = wis(byear, age - 1, car - 1) * (1 - gamma(age - 1)) * mis(byear, age - 1, car - 1) + wos(byear, age - 1, car - 1) * v * mos(byear, age - 1, car - 1) If z6 = 0 Then z7 = 0 If z6 = 0 Then z6 = 1 z8 = z7 / z6 wis(byear, age, car) = (fw(age) + (car - 1) * z8) / car Next For car = 2 To 49 z9 = (gamma(age - 1) - alpha(age - 1) - beta(age)) * mis(byear, age - 1, car) + (1 - mdeby(byear, age) - v) * mos(byear, age - 1, car) z10 = wis(byear, age - 1, car) * (gamma(age - 1) - alpha(age - 1) - beta(age)) * mis(byear, age - 1, car) + wos(byear, age - 1, car) * (1 - mdeby(byear, age) - v) * mos(byear, age - 1, car) If z9 = 0 Then z10 = 0 If z9 = 0 Then z9 = 1 wos(byear, age, car) = z10 / z9 Next Next z1 = 0 z2 = 0 For car = 25 To 49 z1 = z1 + mis(byear, 64, car) + mos(byear, 64, car) z2 = z2 + wis(byear, 64, car) * mis(byear, 64, car) + wos(byear, 64, car) * mos(byear, 64, car) Next avgfw(byear) = z2 / z1 Next Open "c /stream/gdata/女子賃金1.txt " For Output As #4 For byear = 1985 To 2100 Write #4, byear, avgfw(byear) Next Close #4 End Sub
https://w.atwiki.jp/ce00582/pages/55.html
Private Sub Command1_Click() Dim theta(1 To 2, 15 To 65) As Single Dim m2(-3 To 99, 16 To 65) As Single Dim f2(-3 To 99, 16 To 65) As Single Dim de(1 To 2, 16 To 65) As Single Dim mis(16 To 65, 1 To 50) As Single Dim mos(16 To 65, 1 To 50) As Single Dim mrate(-3 To 99, 16 To 65) As Single Dim frate(-3 To 99, 16 To 65) As Single Dim b(-1 To 10, 0 To 99) As Single Dim c(-1 To 10, 0 To 99) As Single Dim m(-5 To 99, 0 To 99) As Single Dim f(-5 To 99, 0 To 99) As Single Dim newm(-3 To 99, 60 To 65) As Single Dim newf(-3 To 99, 60 To 65) As Single Dim alpha(1 To 2, 15 To 64) As Single Dim beta(1 To 2, 15 To 64) As Single Dim phi(1 To 2, 15 To 64) As Single Dim age As Single Dim car As Single Dim year As Single Dim c1 As Single Dim c2 As Single Dim c3 As Single Dim zero As Single Dim syear As Single Dim rate(-3 To 99) As Single n = -1 s = 0 Open "c /simple/data/死亡(男性).txt" For Input As #1 Do Until EOF(1) Input #1, x b(n, s) = x n = n + 1 If n 10 Then s = s + 1 If n 10 Then n = -1 Loop Close #1 n = -1 s = 0 Open "c /simple/data/死亡(女性).txt" For Input As #11 Do Until EOF(11) Input #11, x c(n, s) = x n = n + 1 If n 10 Then s = s + 1 If n 10 Then n = -1 Loop Close #11 Open "c /simple/gdata/厚生年金加入率.txt" For Input As #2 Do Until EOF(2) Input #2, a1, a2, a3, a4 year = a1 age = a2 mrate(year, age) = a3 frate(year, age) = a4 Loop Close #2 Open "c /simple/data/脱退率.txt" For Input As #3 Do Until EOF(3) Input #3, a1, a2, a3, a4, a5, a6, a7, a8, a9 age = a1 alpha(1, age) = a3 beta(1, age) = a4 phi(1, age) = a5 alpha(2, age) = a7 beta(2, age) = a8 phi(2, age) = a9 Loop Close #3 Open "c /simple/data/再加入率.txt" For Input As #4 Do Until EOF(4) Input #4, a1, a2, a3 age = a1 theta(1, age) = a2 theta(2, age) = a3 Loop Close #4 Open "c /simple/gdata/将来推計人口.txt" For Input As #5 Do Until EOF(5) Input #5, a1, a2, a3, a4 year = a1 age = a2 m(year, age) = a3 f(year, age) = a4 Loop Close #5 Open "c /simple/gdata/厚生年金被保険者.txt" For Input As #6 Do Until EOF(6) Input #6, a1, a2, a3, a4 year = a1 age = a2 m2(year, age) = a3 f2(year, age) = a4 Loop Close #6 Dim mktime(-3 To 99) As Single Dim fktime(-3 To 99) As Single Open "c /simple/data/新規裁定年数.txt" For Input As #55 Do Until EOF(55) Input #55, a1, a2, a3 year = a1 mktime(year) = a2 fktime(year) = a3 Loop Close #55 For year = -3 To -1 mktime(year) = 60 fktime(year) = 60 Next For syear = 49 To 99 zero = 1 mis(16, 1) = m2(syear - 49, 16) For age = 17 To 64 year = syear + age - 65 c1 = 1 - alpha(1, age) - beta(1, age) - phi(1, age) c2 = c1 * m2(year - 1, age - 1) mis(age, 1) = (1 - theta(1, age)) * (m2(year, age) - c2) If mis(age, 1) 0 Then mis(age, 1) = 0 If zero 0 Then mis(age, 1) = 0 c3 = 0 For car = 1 To 50 c3 = c3 + mos(age - 1, car) Next c5 = 0 If c3 = 0 Then c5 = 1 If c3 = 0 Then c3 = 1 c4 = (m2(year, age) - c2 - mis(age, 1)) / c3 If c5 = 1 Then c4 = 0 If c4 0 Then c4 = 0 For car = 2 To 50 mis(age, car) = c1 * mis(age - 1, car - 1) + c4 * mos(age - 1, car - 1) Next For car = 1 To 50 mos(age, car) = alpha(1, age) * mis(age - 1, car) + (1 - c4 - beta(1, age)) * mos(age - 1, car) Next z1 = 0 For car = 1 To 50 z1 = z1 + mis(age, car) + mos(age, car) Next zero = m(year, age) - z1 Next z2 = 0 For car = 1 To 50 z2 = z2 + mis(64, car) + mos(64, car) Next z3 = 0 For car = 25 To 50 z3 = z3 + mis(64, car) + mos(64, car) Next rate(syear) = z3 / z2 Debug.Print syear, rate(syear) Next For year = -3 To 49 rate(year) = rate(49) Next For year = -3 To 99 For age = 60 To 65 newm(year, age) = 0 Next Next For year = -3 To 99 age = mktime(year) If age = 0 Then rate(year) = 0 If age = 0 Then age = 65 newm(year, age) = rate(year) * m(year, age) Next Open "c /simple/gdata/男子老齢年金新規裁定者.txt " For Output As #8 For year = -3 To 99 For age = 60 To 65 Write #8, year, age, newm(year, age) Next Next Close #8 For year = -3 To 50 age = mktime(year) If age = 0 Then age = 65 Debug.Print year, newm(year, age) Next End Sub