約 3,460,901 件
https://w.atwiki.jp/knapia/pages/4.html
＜目的＞ インターンシップは、学生が一定期間企業や団体の中で研修生として働き、就職活動する際の業種研究に役立てたり学校で学ぶことを明確にしたりするのに役立てる制度です。その意義は就業体験すること自体にあり、お金を稼ぐことを目的としたアルバイトとは根本的に異なります。 特定非営利活動法人関西国際交流団体協議会は、国際交流や国際協力を目的として活動する団体（ＮＰＯ）が加盟するネットワーク組織で、1984年に設立されました。会員間の連携事業だけでなく、他の分野の民間団体や行政機関、国際機関、企業・経済団体、教育機関などとの連携、ＮＰＯ全体の組織基盤強化や市民の意識啓発や活動への参加促進を図ることを目的としています。 本協議会のインターンシッププログラムは、上記の目的に添い、国際交流・協力分野、ＮＰＯの活動に興味を持つ学生に、将来の仕事の選択肢のひとつとして、本協議会がネットワーク組織として行っているさまざまな事業の一端を経験してもらい、ひいては国際交流・協力分野の裾野を広げることをねらいとしています。 ＜スケジュール＞ インターンシッププログラムの目的について理解していただき、また希望する分野の業務が体験できるよう、以下のような手続きを行います。 １．オリエンテーション・・・ 当協議会の事業概要及びインターンシッププログラムで行う事業と業務の概要を説明します。また事業担当者から希望する業務や期間、事務所に来る曜日などについて聞き取りを行います。選考結果や勤務開始日については後日連絡します。 ２．業務・・・ 担当する事業の業務にあわせて、定期的に事務所で業務を行います。 インターンシップが始まれば業務内容や出勤については直接事業担当者と調整をしてください。そのほか、インターンシッププログラム全体に関しての相談や質問は徳山が対応します。 なお、月１回インターン生のミーティングを予定しています。 ３．終了前レポート・・・ インターンシッププログラムを終えるにあたり、プログラムを通じて得たもの、期待したが得られなかったものなどについてレポートを提出していただきます。当協議会からは事務局長と事業担当者から将来の就業についてのアドバイスを行います。 ＜勤務＞ 勤務については以下の通りです。 ①就業時間は原則として午前１０時～午後５時３０分です。 ②勤務した日は勤務簿に捺印していただきます。 ③前月末までに翌月の勤務できる日をインターン・ローテンション表に記入していただきます。 ＜確認事項＞ インターンシッププログラムの実施にあたっては、以下の項目について確認してください。 ①インターンシッププログラム中の交通費・日当の支給はありません。 ②通勤中や業務中の事故は本人の責任となります。万が一、通勤中や業務中事故にあった場合は速やかに当協議会に連絡を入れてください。 ③業務中に知り得た情報に関しては、守秘義務を遵守し、プログラム終了後も他に漏らすことを禁じます。許可なく資料をコピーし、外部に持ち出すことも禁じます。 ④インターンシッププログラムはあくまで就業体験の機会を提供するもので、将来の採用を前提とするものではありません。 ⑤大学等との協定を結んで行うインターンシッププログラムは各覚書に準拠するため、この限りではありません。
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/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/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
https://w.atwiki.jp/ce00582/pages/755.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(0 To 10, 1 To 100) As Single Dim tk(0 To 10, 1 To 100) As Single Dim cs(0 To 10, 1 To 100) As Single Dim k(1 To 100) As Single Dim b(0 To 10) 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 g As Single g = 0.05 beta = 0.95 a = 0.33 ks = ((1 / beta - 1) / a) ^ (1 / (a - 1)) h = 2 * ks / 100 For n = 1 To 100 k(n) = n * h For m = 0 To 10 cx(m, n) = k(n) ^ a - g tk(m, n) = 0.05 Next Next For m = 0 To 10 b(m) = 0.01 * m Next t1 = 0 Do Until t1 100 For m = 0 To 10 For n = 10 To 90 k1 = k(n) + k(n) ^ a - cx(m, n) - g r1 = (1 - tk(m, n)) * a * k(n) ^ (a - 1) tax = tk(m, n) * a * k(n) ^ a m1 = (1 + r1) * b(m) + tax - g m2 = Int(m1) If m2 9 Then m2 = 9 If m2 0 Then m2 = 0 m3 = m2 + 1 n1 = k1 / h n2 = Int(n1) n3 = n2 + 1 dm = (m1 - m2) * (cx(m3, n2) - cx(m2, n2)) dn = (n1 - n2) * (cx(m2, n3) - cx(m2, n2)) c1 = cx(m2, n2) + dm + dn dm = (m1 - m2) * (tk(m3, n2) - tk(m2, n2)) dn = (n1 - n2) * (tk(m2, n3) - tk(m2, n2)) tk1 = tk(m, n2) + dm + dn r2 = (1 - tk1) * a * k1 ^ (a - 1) cs(m, n) = c1 / (beta * (1 + r2)) Next Next e = 0 For m = 0 To 10 For n = 10 To 90 e = e + (cx(m, n) - cs(m, n)) ^ 2 Next Next For m = 0 To 10 For n = 10 To 90 cx(m, n) = cs(m, n) Next Next If e 10 ^ (-5) Then t1 = 1000 t1 = t1 + 1 Debug.Print t1, e Loop End Sub
https://w.atwiki.jp/ce00582/pages/32.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)) Next w1 = (1 - a) * k(n) ^ a * lx(n) ^ (-a) lp(n) = 1 - cx(n) / w1 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 Loop Dim ms As Single Dim px(1 To 100) As Single Dim ps(1 To 100) As Single Dim p1 As Single Dim p2 As Single Dim p3 As Single Dim z1 As Single Dim z2 As Single Dim z3 As Single Dim pi As Single Dim pxs As Single ms = 50 For n = 1 To 100 px(n) = 1 Next t4 = 0 Do Until t4 100 For n = 10 To 90 p1 = 1.1 * px(n) p2 = 0.9 * px(n) k1 = k(n) + k(n) ^ a * lx(n) ^ (1 - a) - cx(n) n1 = k1 / h n2 = Int(n1) n3 = n2 + 1 pxs = px(n2) + (n1 - n2) * (px(n3) - px(n2)) l1 = lx(n2) + (n1 - n2) * (lx(n3) - lx(n2)) r1 = a * k1 ^ (a - 1) * l1 ^ (1 - a) pi = pxs / p1 - 1 iss = (1 + pi) * (1 + r1) - 1 z1 = iss * ms / (cx(n) * (1 + iss)) - p1 t3 = 0 Do Until t3 100 pi = pxs / p2 - 1 iss = (1 + pi) * (1 + r1) - 1 z2 = iss * ms / (cx(n) * (1 + iss)) - p2 p3 = p2 - z2 * (p2 - p1) / (z2 - z1) If z2 ^ 2 10 ^ (-5) Then t3 = 1000 p1 = p2 p2 = p3 z1 = z2 t3 = t3 + 1 Loop ps(n) = p2 Next e = 0 For n = 10 To 90 e = e + (px(n) - ps(n)) ^ 2 Next For n = 10 To 90 px(n) = ps(n) Next If e 10 ^ (-5) Then t4 = 1000 t4 = t4 + 1 Loop For n = 10 To 90 Debug.Print px(n) Next End Sub
https://w.atwiki.jp/ce00582/pages/26.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 10, 1 To 100) As Single Dim cp(1 To 10, 1 To 100) As Single Dim lx(1 To 10, 1 To 100) As Single Dim lp(1 To 10, 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 m As Single Dim th(1 To 10) As Single For m = 1 To 10 th(m) = 0.95 + 0.01 * m Next beta = 0.95 a = 0.33 ls = 0.5 ks = ls * ((1 / beta - 1) / a) ^ (1 / (a - 1)) h = 2 * ks / 100 For n = 1 To 100 k(n) = n * h For m = 1 To 10 lx(m, n) = ls cx(m, n) = th(m) * k(n) ^ a * lx(m, n) ^ (1 - a) Next Next t1 = 0 Do Until t1 100 For m = 1 To 10 For n = 10 To 90 k1 = k(n) + th(m) * k(n) ^ a * lx(m, n) ^ (1 - a) - cx(m, n) n1 = k1 / h n2 = Int(n1) n3 = n2 + 1 uc = 0 For m1 = 1 To 10 c1 = cx(m1, n2) + (n1 - n2) * (cx(m1, n3) - cx(m1, n2)) l1 = lx(m1, n2) + (n1 - n2) * (lx(m1, n3) - lx(m1, n2)) r1 = th(m1) * a * k1 ^ (a - 1) * l1 ^ (1 - a) uc = uc + (beta * (1 + r1)) / c1 Next uc = 0.1 * uc cp(m, n) = 1 / uc w1 = (1 - a) * th(m) + k(n) ^ a * lx(m, n) ^ (-a) lp(m, n) = 1 - cx(m, n) / w1 Next Next e = 0 For m = 1 To 10 For n = 10 To 90 e = e + (cx(m, n) - cp(m, n)) ^ 2 + (lx(m, n) - lp(m, n)) ^ 2 Next Next For m = 1 To 10 For n = 10 To 90 lx(m, n) = lp(m, n) cx(m, n) = cp(m, n) Next Next If e 10 ^ (-5) Then t1 = 1000 t1 = t1 + 1 Debug.Print t1, e Loop End Sub
https://w.atwiki.jp/ce00582/pages/789.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(1 To 9, -1 To 1, -1 To 1, -1 To 1) As Single Dim b(1 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, -100 To 100) 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(1 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 /m2.txt" For Input As #2 Do Until EOF(2) Input #2, a1, a2, a3, a4, a5, a6 m = a1 n1 = a2 n2 = a3 n3 = a4 u(m, n1, n2, n3) = a5 b(m, n1, n2, n3) = a6 Loop Close #2 Open "c /m3.txt" For Input As #3 Do Until EOF(3) Input #3, a1, a2, a3, a4 n1 = a1 n2 = a2 fastu(n1, n2) = a3 fastb(n1, n2) = a4 Loop Close #3 Open "c /m4.txt" For Input As #4 Do Until EOF(4) Input #4, a1, a2, a3, a4 n1 = a1 n2 = a2 endu(n1, n2) = a3 endb(n1, n2) = a4 Loop Close #3 For n1 = -1 To 1 For n2 = -1 To 1 For q = -100 To 100 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) Next Next For m = 1 To 9 For n1 = -1 To 1 For n2 = -1 To 1 For n3 = -1 To 1 For q = -100 To 100 v(m, n1, n2, n3, q) = -999 Next Next Next Next Next m = 1 For n1 = -1 To 1 For n2 = -1 To 1 For n3 = -1 To 1 For q = -100 To 100 u1 = u(m, n1, n2, n3) bx = b(m, n1, n2, n3) bs = b(m, 0, 0, 0) qx = q - countb(bx, bs, h) pp = 0 If qx 100 Then pp = 1 If qx -100 Then pp = 1 If pp = 1 Then qx = 0 vs = u1 + fastv(n1, n2, qx) If pp = 1 Then vs = -999 v(m, n1, n2, n3, q) = vs Next Next Next Next For m = 2 To 9 For n1 = -1 To 1 For n2 = -1 To 1 For n3 = -1 To 1 For q = -100 To 100 u1 = u(m, n1, n2, n3) bx = b(m, n1, n2, n3) bs = b(m, 0, 0, 0) qx = q - countb(bx, bs, h) pp = 0 If qx 100 Then pp = 1 If qx -100 Then pp = 1 If pp = 1 Then qx = 0 vs = -999 For nx = -1 To 1 v1 = u1 + v(m - 1, nx, n1, n2, qx) If v1 vs Then vs = v1 Next If pp = 1 Then vs = -999 v(m, n1, n2, n3, q) = vs Next Next Next Next Next For n1 = -1 To 1 For n2 = -1 To 1 endv(n1, n2) = -999 Next Next For n1 = -1 To 1 For n2 = -1 To 1 u1 = endu(n1, n2) bx = endb(n1, n2) bs = endb(0, 0) qx = bs - bx pp = 0 If qx 100 Then pp = 1 If qx -100 Then pp = 1 If pp = 1 Then qx = 0 vs = -999 For nx = -1 To 1 v1 = u1 + v(9, nx, n1, n2, qx) If v1 vs Then vs = v1 Next If pp = 1 Then vs = -999 endv(n1, n2) = vs Debug.Print n1, n2, endv(n1, n2) Next Next End Sub
https://w.atwiki.jp/ce00582/pages/38.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 10, 1 To 100) As Single Dim cp(1 To 10, 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 m As Single Dim th(1 To 10) As Single For m = 1 To 10 th(m) = 0.95 + 0.01 * m Next 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 For m = 1 To 10 cx(m, n) = th(m) * k(n) ^ a Next Next t1 = 0 Do Until t1 100 For m = 1 To 10 For n = 10 To 90 k1 = k(n) + th(m) * k(n) ^ a - cx(m, n) n1 = k1 / h n2 = Int(n1) n3 = n2 + 1 uc = 0 For m1 = 1 To 10 c1 = cx(m1, n2) + (n1 - n2) * (cx(m1, n3) - cx(m1, n2)) r1 = a * k1 ^ (a - 1) uc = uc + (beta * (1 + r1)) / c1 Next uc = 0.1 * uc cp(m, n) = 1 / uc Next Next e = 0 For m = 1 To 10 For n = 10 To 90 e = e + (cx(m, n) - cp(m, n)) ^ 2 Next Next For m = 1 To 10 For n = 10 To 90 cx(m, n) = cp(m, n) Next Next If e 10 ^ (-5) Then t1 = 1000 t1 = t1 + 1 Loop Dim ms As Single Dim px(1 To 10, 1 To 100) As Single Dim ps(1 To 10, 1 To 100) As Single Dim p1 As Single Dim p2 As Single Dim p3 As Single Dim z1 As Single Dim z2 As Single Dim z3 As Single Dim pi As Single Dim pxs As Single ms = 50 For m = 1 To 10 For n = 1 To 100 px(m, n) = 1 Next Next t4 = 0 Do Until t4 100 For m = 1 To 10 For n = 10 To 90 p1 = 1.1 * px(m, n) p2 = 0.9 * px(m, n) k1 = k(n) + th(m) * k(n) ^ a - cx(m, n) n1 = k1 / h n2 = Int(n1) n3 = n2 + 1 z1 = 0 For m1 = 1 To 10 pxs = px(m1, n2) + (n1 - n2) * (px(m1, n3) - px(m1, n2)) r1 = a * k1 ^ (a - 1) pi = pxs / p1 - 1 iss = (1 + pi) * (1 + r1) - 1 z1 = z1 + iss * ms / (cx(m, n) * (1 + iss)) Next z1 = 0.1 * z1 z1 = z1 - p1 t3 = 0 Do Until t3 100 z2 = 0 For m1 = 1 To 10 pxs = px(m1, n2) + (n1 - n2) * (px(m1, n3) - px(m1, n2)) r1 = a * k1 ^ (a - 1) pi = pxs / p2 - 1 iss = (1 + pi) * (1 + r1) - 1 z2 = z2 + iss * ms / (cx(m, n) * (1 + iss)) Next z2 = 0.1 * z2 z2 = z2 - p2 p3 = p2 - z2 * (p2 - p1) / (z2 - z1) If z2 ^ 2 10 ^ (-5) Then t3 = 1000 p1 = p2 p2 = p3 z1 = z2 t3 = t3 + 1 Loop ps(m, n) = p2 Next Next e = 0 For m = 1 To 10 For n = 10 To 90 e = e + (px(m, n) - ps(m, n)) ^ 2 Next Next For m = 1 To 10 For n = 10 To 90 px(m, n) = ps(m, n) Next Next If e 10 ^ (-5) Then t4 = 1000 t4 = t4 + 1 Debug.Print t4, e Loop For n = 10 To 90 Debug.Print px(5, n) Next End Sub