約 2,542,653 件
https://w.atwiki.jp/ce00582/pages/23.html
作業記録 プログラム１労働供給非弾力的 プログラム２労働供給弾力的 プログラム３ 労働非供給弾力的 不確実性 プログラム４ 労働供給弾力的 不確実性 プログラム５ 労働供給非弾力的 貨幣供給一定 プログラム 6 労働供給弾力的 貨幣供給一定 プログラム ７ 労働供給非弾力的 貨幣供給一定 不確実性 プログラム ８ 労働供給弾力的 貨幣供給一定 不確実性 プログラム ９ 対数正規分布 プログラム１０ 物価一定 プログラム１１ ニューケインジアン 財政支出の不確実性 プログラム１２ ニューケインジアン 財政支出の不確実性 プログラム13 ニューケインジアン入門 プログラム14 ニューケインジアン プログラム15 独占的労働供給 プログラム16 貨幣供給増加 - -
https://w.atwiki.jp/prgmemo/
プログラムメモです！
https://w.atwiki.jp/ce00582/pages/168.html
不確実性、労働供給非弾力性 (1)モデル 171.tex 171.pdf (2)アルゴリズム 700.pdf (3)プログラム プログラム35 CRRA プログラム2 プログラム8 対数正規分布 (4)作業記録 3月21日 このページ作成 3月23日 McGrattan(1996)の追試 4月12日 このページの修正 4月24日 プログラムの追加 4月26日 プログラム34の追加 (5)リンク
https://w.atwiki.jp/ce00582/pages/49.html
このプログラムは、テストプログラムです。 01 将来推計人口 02 厚生年金加入率 03 厚生年金被保険者 04 支払保険料 05 女子新規裁定者 06 男子新規裁定者 07 97年老齢年金受給者 08 老齢年金受給者 09 女子通算年金新規裁定者 10 男子通算年金新規裁定者 11 97年通算年金受給者 12 通算年金受給者 13 女子加入年数 14 男子加入年数 15 老齢年金受給額 16 女子通算年金加入年数 17 男子通算年金加入年数 18 通算年金受給額 19 基礎年金受給者 20 基礎年金給付費 21 厚生年金３号被保険者 22 共済年金被保険者 23 共済年金3号被保険者 24 国民年金被保険者 25 基礎年金拠出金 26 遺族年金受給者 27 遺族年金受給額 28 支出合計 29 給付現価 30 世代会計 31 マクロスライド 32 世代支払保険料 33 世代老齢年金 34 世代通算年金 35 世代遺族年金 データ加工
https://w.atwiki.jp/megamanactionprogram/pages/79.html
・プログラム（暫定版） ・注意点 ・内容・・主要 ・・その他 [部分編集] ・プログラム（暫定版） このページの下部の「zero_AS.zip」のリンクからダウンロード可能。 [部分編集] ・注意点 この先、内容が書き換えられる可能性がある。 解説に、書き換えられた内容が反映されていない場合（反映し忘れた場合）があると思われる。 テキストエディタに関しては、製作者は「EmEditor Free」を使用している。 [部分編集] ・内容 ・・主要 ・キー入力：keydown_1.txt、keydown_2.txt。 ・マスク：mask.txt（本体）、mask_depth.txt（深度）。 ・ボード：「board」のフォルダ。 ・スクロール：scroll_hitrect.txt、scroll_hitrect_background_base.txt、scroll_hitrect_landform.txt ・操作キャラクター（ゼロ）：「zero」のフォルダ。 ・地形：「landform」のフォルダ。 ・地形などとの接触判定：「hit_landform」のフォルダ。 ・敵･ボス：それぞれ、「enemy」「boss」のフォルダ。 ・アイテム：「item」のフォルダ。 ・字幕：「caption」のフォルダ。 ・・その他 ・一時停止のメニュー画面：pause_menu.txt ・タイマー：timer.txt ・FPSメーター：fps_meter.txt ・ホワイトアウト･ホワイトイン：whiteout_whitein.txt ・ゲージ：「gauge」のフォルダ。 ・エフェクト：「effect」のフォルダ。
https://w.atwiki.jp/knapia/pages/4.html
＜目的＞ インターンシップは、学生が一定期間企業や団体の中で研修生として働き、就職活動する際の業種研究に役立てたり学校で学ぶことを明確にしたりするのに役立てる制度です。その意義は就業体験すること自体にあり、お金を稼ぐことを目的としたアルバイトとは根本的に異なります。 特定非営利活動法人関西国際交流団体協議会は、国際交流や国際協力を目的として活動する団体（ＮＰＯ）が加盟するネットワーク組織で、1984年に設立されました。会員間の連携事業だけでなく、他の分野の民間団体や行政機関、国際機関、企業・経済団体、教育機関などとの連携、ＮＰＯ全体の組織基盤強化や市民の意識啓発や活動への参加促進を図ることを目的としています。 本協議会のインターンシッププログラムは、上記の目的に添い、国際交流・協力分野、ＮＰＯの活動に興味を持つ学生に、将来の仕事の選択肢のひとつとして、本協議会がネットワーク組織として行っているさまざまな事業の一端を経験してもらい、ひいては国際交流・協力分野の裾野を広げることをねらいとしています。 ＜スケジュール＞ インターンシッププログラムの目的について理解していただき、また希望する分野の業務が体験できるよう、以下のような手続きを行います。 １．オリエンテーション・・・ 当協議会の事業概要及びインターンシッププログラムで行う事業と業務の概要を説明します。また事業担当者から希望する業務や期間、事務所に来る曜日などについて聞き取りを行います。選考結果や勤務開始日については後日連絡します。 ２．業務・・・ 担当する事業の業務にあわせて、定期的に事務所で業務を行います。 インターンシップが始まれば業務内容や出勤については直接事業担当者と調整をしてください。そのほか、インターンシッププログラム全体に関しての相談や質問は徳山が対応します。 なお、月１回インターン生のミーティングを予定しています。 ３．終了前レポート・・・ インターンシッププログラムを終えるにあたり、プログラムを通じて得たもの、期待したが得られなかったものなどについてレポートを提出していただきます。当協議会からは事務局長と事業担当者から将来の就業についてのアドバイスを行います。 ＜勤務＞ 勤務については以下の通りです。 ①就業時間は原則として午前１０時～午後５時３０分です。 ②勤務した日は勤務簿に捺印していただきます。 ③前月末までに翌月の勤務できる日をインターン・ローテンション表に記入していただきます。 ＜確認事項＞ インターンシッププログラムの実施にあたっては、以下の項目について確認してください。 ①インターンシッププログラム中の交通費・日当の支給はありません。 ②通勤中や業務中の事故は本人の責任となります。万が一、通勤中や業務中事故にあった場合は速やかに当協議会に連絡を入れてください。 ③業務中に知り得た情報に関しては、守秘義務を遵守し、プログラム終了後も他に漏らすことを禁じます。許可なく資料をコピーし、外部に持ち出すことも禁じます。 ④インターンシッププログラムはあくまで就業体験の機会を提供するもので、将来の採用を前提とするものではありません。 ⑤大学等との協定を結んで行うインターンシッププログラムは各覚書に準拠するため、この限りではありません。
https://w.atwiki.jp/ce00582/pages/44.html
Private Sub Command1_Click() Dim ks As Single Dim a As Single Dim beta As Single Dim r1 As Single Dim n As Single Dim cx(1 To 100) As Single Dim cp(1 To 100) As Single Dim k(1 To 100) As Single Dim h As Single Dim k1 As Single Dim n1 As Single Dim n2 As Single Dim n3 As Single Dim c1 As Single Dim e As Single Dim de As Single de = 0.05 beta = 0.95 a = 0.33 ks = ((1 / beta + de - 1) / a) ^ (1 / (a - 1)) h = 2 * ks / 100 For n = 1 To 100 k(n) = n * h cx(n) = k(n) ^ a - de * k(n) Next t1 = 0 Do Until t1 100 For n = 10 To 90 k1 = k(n) + k(n) ^ a - cx(n) - de * k(n) n1 = k1 / h n2 = Int(n1) n3 = n2 + 1 c1 = cx(n2) + (n1 - n2) * (cx(n3) - cx(n2)) r1 = a * k1 ^ (a - 1) - de cp(n) = c1 / (beta * (1 + r1)) Next e = 0 For n = 10 To 90 e = e + (cx(n) - cp(n)) ^ 2 Next For n = 10 To 90 cx(n) = cp(n) Next If e 10 ^ (-5) Then t1 = 1000 t1 = t1 + 1 Debug.Print t1, e Loop End Sub
https://w.atwiki.jp/ce00582/pages/22.html
Private Sub Command1_Click() Dim ks As Single Dim a As Single Dim beta As Single Dim r1 As Single Dim n As Single Dim cx(1 To 100) As Single Dim cp(1 To 100) As Single Dim k(1 To 100) As Single Dim h As Single Dim k1 As Single Dim n1 As Single Dim n2 As Single Dim n3 As Single Dim c1 As Single Dim e As Single beta = 0.95 a = 0.33 ks = ((1 / beta - 1) / a) ^ (1 / (a - 1)) Debug.Print ks h = 2 * ks / 100 For n = 1 To 100 k(n) = n * h cx(n) = k(n) ^ a Next t1 = 0 Do Until t1 100 For n = 10 To 90 k1 = k(n) + k(n) ^ a - cx(n) n1 = k1 / h n2 = Int(n1) n3 = n2 + 1 c1 = cx(n2) + (n1 - n2) * (cx(n3) - cx(n2)) r1 = a * k1 ^ (a - 1) cp(n) = c1 / (beta * (1 + r1)) Next e = 0 For n = 10 To 90 e = e + (cx(n) - cp(n)) ^ 2 Next For n = 10 To 90 cx(n) = cp(n) Next If e 10 ^ (-5) Then t1 = 1000 t1 = t1 + 1 Debug.Print t1, e Loop End Sub
https://w.atwiki.jp/ce00582/pages/24.html
Private Sub Command1_Click() Dim ks As Single Dim a As Single Dim beta As Single Dim r1 As Single Dim n As Single Dim cx(1 To 100) As Single Dim cp(1 To 100) As Single Dim lx(1 To 100) As Single Dim lp(1 To 100) As Single Dim k(1 To 100) As Single Dim h As Single Dim k1 As Single Dim n1 As Single Dim n2 As Single Dim n3 As Single Dim c1 As Single Dim e As Single Dim ls As Single ls = 0.5 beta = 0.95 a = 0.33 ks = ls * ((1 / beta - 1) / a) ^ (1 / (a - 1)) h = 2 * ks / 100 For n = 1 To 100 k(n) = n * h lx(n) = ls cx(n) = k(n) ^ a * lx(n) ^ (1 - a) Next t1 = 0 Do Until t1 100 For n = 10 To 90 k1 = k(n) + k(n) ^ a * lx(n) ^ (1 - a) - cx(n) n1 = k1 / h n2 = Int(n1) n3 = n2 + 1 c1 = cx(n2) + (n1 - n2) * (cx(n3) - cx(n2)) l1 = lx(n2) + (n1 - n2) * (lx(n3) - lx(n2)) r1 = a * k1 ^ (a - 1) * l1 ^ (1 - a) cp(n) = c1 / (beta * (1 + r1)) w1 = (1 - a) * k(n) ^ a * lx(n) ^ (-a) lp(n) = 1 - cx(n) / w1 Next e = 0 For n = 10 To 90 e = e + (cx(n) - cp(n)) ^ 2 + (lx(n) - lp(n)) ^ 2 Next For n = 10 To 90 cx(n) = cp(n) lx(n) = lp(n) Next If e 10 ^ (-5) Then t1 = 1000 t1 = t1 + 1 Debug.Print t1, e Loop End Sub
https://w.atwiki.jp/ce00582/pages/788.html
Function countb(bx As Single, bs As Single, h As Single) As Single Dim zs As Single Dim z1 As Single Dim z2 As Single Dim ct As Single zs = (bx - bs) / h z1 = Int(zs) z2 = z1 + 1 ct = z1 If (zs - z2) ^ 2 (zs - z1) ^ 2 Then ct = z2 countb = ct End Function Private Sub Command1_Click() Dim m As Single Dim n1 As Single Dim n2 As Single Dim n3 As Single Dim q As Single Dim qx As Single Dim pp As Single Dim h As Single Dim u(2 To 9, -1 To 1, -1 To 1, -1 To 1) As Single Dim b(2 To 9, -1 To 1, -1 To 1, -1 To 1) As Single Dim fastu(-1 To 1, -1 To 1) As Single Dim fastb(-1 To 1, -1 To 1) As Single Dim fastv(-1 To 1, -1 To 1, -50 To 50) As Single Dim endu(-1 To 1, -1 To 1) As Single Dim endb(-1 To 1, -1 To 1) As Single Dim endv(-1 To 1, -1 To 1) As Single Dim v(2 To 9, -1 To 1, -1 To 1, -1 To 1, -100 To 100) As Single Dim bx As Single Dim bs As Single Open "c /m3.txt" For Input As #1 Do Until EOF(1) Input #1, a1, a2, a3, a4 n1 = a1 n2 = a2 fastu(n1, n2) = a3 fastb(n1, n2) = a4 Loop Close #1 For n1 = -1 To 1 For n2 = -1 To 1 For q = -50 To 50 fastv(n1, n2, q) = -999 Next Next Next h = 0.01 For n1 = -1 To 1 For n2 = -1 To 1 bx = fastb(n1, n2) bs = fastb(0, 0) q = countb(bx, bs, h) fastv(n1, n2, q) = fastu(n1, n2) Debug.Print n1, n2, q Next Next End Sub