約 2,236,415 件
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/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/48.html
Private Sub Command1_Click() Dim a As Single Dim beta As Single Dim phi As Single Dim sig As Single Dim barm(1 To 10) As Single Dim t2 As Single Dim t1 As Single Dim t3 As Single Dim t4 As Single Dim t5 As Single Dim k(1 To 100) As Single Dim cx(-5 To 5, 1 To 10, 1 To 100) As Single Dim cp(-5 To 5, 1 To 10, 1 To 100) As Single Dim lx(-5 To 5, 1 To 10, 1 To 100) As Single Dim lp(-5 To 5, 1 To 10, 1 To 100) As Single Dim px(-5 To 5, 1 To 10, 1 To 100) As Single Dim ps(-5 To 5, 1 To 10, 1 To 100) As Single Dim checkc(-5 To 5, 1 To 10, 1 To 100) As Single Dim checkl(-5 To 5, 1 To 10, 1 To 100) As Single Dim checkp(-5 To 5, 1 To 10, 1 To 100) As Single Dim gotos(-5 To 5, 1 To 10, 1 To 100, 1 To 10) As Single Dim maki(-5 To 5, 1 To 10, 1 To 100, 1 To 10) As Single Dim v(0 To 2, -5 To 5, 1 To 10, 1 To 100) As Single Dim vs(0 To 2, -5 To 5, 1 To 10, 1 To 100) As Single Dim wedge(-5 To 5) As Single Dim ls As Single Dim ks As Single Dim s As Single Dim m As Single Dim n As Single Dim q As Single Dim m1 As Single Dim h As Single Dim n1 As Single Dim n2 As Single Dim n3 As Single Dim s1 As Single Dim s2 As Single Dim s3 As Single Dim q1 As Single Dim q2 As Single Dim q3 As Single Dim r1 As Single Dim c1 As Single Dim l1 As Single Dim y1 As Single Dim i1 As Single Dim ds As Single Dim dn As Single Dim dq As Single Dim e As Single Dim uc As Single Dim um As Single Dim mc As Single Dim p1 As Single Dim p2 As Single Dim p3 As Single Dim z1 As Single Dim z2 As Single Dim pxs As Single Dim pp As Single Dim ys As Single Dim vv1 As Single Dim vv2 As Single Dim vv0 As Single Dim price(-5 To 5, 1 To 10, 1 To 100) As Single Dim maxp(-5 To 5, 1 To 10, 1 To 100) As Single Dim pi As Single Dim pipi As Single Dim pipipi As Single Dim r(0 To 2, -5 To 5, 1 To 10, 1 To 100) As Single Dim dv(0 To 2) As Single Dim dr(0 To 2) As Single Dim rank As Single Dim prob(1 To 10, 1 To 10) As Single Open "c /pro146.txt" For Input As #81 Do Until EOF(81) Input #81, a1, a2, a3 m = a1 m1 = a2 prob(m, m1) = a3 Loop Close #81 phi = 0.9 Open "c /pro1551.txt" For Input As #2 Do Until EOF(2) Input #2, a1, a2, a3, a4, a5, a6 s = a1 m = a2 n = a3 lx(s, m, n) = a4 cx(s, m, n) = a5 px(s, m, n) = a6 Loop Close #2 Open "c /pro1552.txt" For Input As #72 Do Until EOF(72) Input #72, a1, a2, a3, a4, a5 s = a1 m = a2 n = a3 m1 = a4 gotos(s, m, n, m1) = a5 Loop Close #72 phi = 0.9 For s = -5 To 5 sig = 1 / (1 - phi) px1 = 1 + 0.01 * s px2 = ((1 - 0.1 * px1 ^ (1 - sig)) / 0.9) ^ (1 / (1 - sig)) wedge(s) = phi * px2 Next beta = 0.95 a = 0.33 ls = ((1 - a) * phi) / ((1 - a) * phi + 1) ks = ls * ((1 / beta - 1) / (a * phi)) ^ (1 / (a - 1)) h = 2 * ks / 100 For n = 1 To 100 k(n) = n * h Next t5 = 0 Do Until t5 1 t1 = 0 Do Until t1 100 For s = -5 To 5 For n = 10 To 90 For m = 1 To 10 uc = 0 k1 = k(n) + k(n) ^ a * lx(s, m, n) ^ (1 - a) - cx(s, m, n) n1 = k1 / h n2 = Int(n1) n3 = n2 + 1 For m1 = 1 To 10 s1 = gotos(s, m, n, m1) s2 = Int(s1) If s2 4 Then s2 = 4 s3 = s2 + 1 ds = (s1 - s2) * (cx(s3, m1, n2) - cx(s2, m1, n2)) dn = (n1 - n2) * (cx(s2, m1, n3) - cx(s2, m1, n2)) c1 = cx(s2, m1, n2) + ds + dn ds = (s1 - s2) * (lx(s3, m1, n2) - lx(s2, m1, n2)) dn = (n1 - n2) * (lx(s2, m1, n3) - lx(s2, m1, n2)) l1 = lx(s2, m1, n2) + ds + dn mc = wedge(s2) + (s1 - s2) * (wedge(s3) - wedge(s2)) r1 = mc * a * k1 ^ (a - 1) * l1 ^ (1 - a) uc = uc + prob(m, m1) * (beta * (1 + r1)) / c1 Next uc = uc cp(s, m, n) = 1 / uc w1 = wedge(s) * (1 - a) * k(n) ^ a * lx(s, m, n) ^ (-a) lp(s, m, n) = 1 - cx(s, m, n) / w1 Next Next Next e = 0 For s = -5 To 5 For n = 10 To 90 For m = 1 To 10 e = e + (cx(s, m, n) - cp(s, m, n)) ^ 2 + (lx(s, m, n) - lp(s, m, n)) ^ 2 Next Next Next For s = -5 To 5 For n = 10 To 90 For m = 1 To 10 cx(s, m, n) = cp(s, m, n) lx(s, m, n) = lp(s, m, n) Next Next Next If e 10 ^ (-5) Then t1 = 1000 Debug.Print 81, t1, e t1 = t1 + 1 Loop For m = 1 To 10 barm(m) = 20 * (0.95 + 0.01 * m) Next t2 = 0 Do Until t2 100 For s = -5 To 5 For n = 10 To 90 For m = 1 To 10 p1 = 0.9 * px(s, m, n) p2 = 1.1 * px(s, m, n) k1 = k(n) + k(n) ^ a * lx(s, m, n) ^ (1 - a) - cx(s, m, n) n1 = k1 / h n2 = Int(n1) n3 = n2 + 1 um = 0 For m1 = 1 To 10 s1 = gotos(s, m, n, m1) s2 = Int(s1) s3 = s2 + 1 If s3 5 Then s3 = 5 ds = (s1 - s2) * (cx(s3, m1, n2) - cx(s2, m1, n2)) dn = (n1 - n2) * (cx(s2, m1, n3) - cx(s2, m1, n2)) c1 = cx(s2, m1, n2) + ds + dn ds = (s1 - s2) * (lx(s3, m1, n2) - lx(s2, m1, n2)) dn = (n1 - n2) * (lx(s2, m1, n3) - lx(s2, m1, n2)) l1 = lx(s2, m1, n2) + ds + dn ds = (s1 - s2) * (px(s3, m1, n2) - px(s2, m1, n2)) dn = (n1 - n2) * (px(s2, m1, n3) - px(s2, m1, n2)) pxs = px(s2, m1, n2) + ds + dn mc = wedge(s2) + (s1 - s2) * (wedge(s3) - wedge(s2)) r1 = mc * a * k1 ^ (a - 1) * l1 ^ (1 - a) pp = pxs / p1 i1 = (1 + r1) * pp - 1 um = um + prob(m, m1) * (beta * i1) / (c1 * pp) Next z1 = um * barm(m) - p1 t3 = 0 Do Until t3 100 k1 = k(n) + k(n) ^ a * lx(s, m, n) ^ (1 - a) - cx(s, m, n) n1 = k1 / h n2 = Int(n1) n3 = n2 + 1 um = 0 For m1 = 1 To 10 s1 = gotos(s, m, n, m1) s2 = Int(s1) s3 = s2 + 1 If s3 5 Then s3 = 5 ds = (s1 - s2) * (cx(s3, m1, n2) - cx(s2, m1, n2)) dn = (n1 - n2) * (cx(s2, m1, n3) - cx(s2, m1, n2)) c1 = cx(s2, m1, n2) + ds + dn ds = (s1 - s2) * (lx(s3, m1, n2) - lx(s2, m1, n2)) dn = (n1 - n2) * (lx(s2, m1, n3) - lx(s2, m1, n2)) l1 = lx(s2, m1, n2) + ds + dn ds = (s1 - s2) * (px(s3, m1, n2) - px(s2, m1, n2)) dn = (n1 - n2) * (px(s2, m1, n3) - px(s2, m1, n2)) pxs = px(s2, m1, n2) + ds + dn mc = wedge(s2) + (s1 - s2) * (wedge(s3) - wedge(s2)) r1 = mc * a * k1 ^ (a - 1) * l1 ^ (1 - a) pp = pxs / p2 i1 = (1 + r1) * pp - 1 um = um + prob(m, m1) * (beta * i1) / (c1 * pp) Next z2 = um * barm(m) - p2 p3 = p2 - z2 * (p2 - p1) / (z2 - z1) p1 = p2 p2 = p3 z1 = z2 If (z2) ^ 2 10 ^ (-5) Then t3 = 10000 t3 = t3 + 1 Loop ps(s, m, n) = p2 Next Next Next e = 0 For s = -5 To 5 For n = 10 To 90 For m = 1 To 10 e = e + (px(s, m, n) - ps(s, m, n)) ^ 2 Next Next Next If e 10 ^ (-5) Then t2 = 1000 For s = -5 To 5 For n = 10 To 90 For m = 1 To 10 px(s, m, n) = ps(s, m, n) Next Next Next Debug.Print 82, t2, e t2 = t2 + 1 Loop For s = -5 To 5 For m = 1 To 10 For n = 10 To 90 ys = k(n) ^ a * lx(s, m, n) ^ (1 - a) pi = px(s, m, n) * ys - wedge(s) * px(s, m, n) * ys pipi = (phi - wedge(s)) * (ys / (phi - 1)) pipipi = (mr + wedge(s) * ys) / (px(s, m, n) * (phi - 1)) r(2, s, m, n) = pipipi / 2 r(1, s, m, n) = pipi - 2 * px(s, m, n) * r(2, s, m, n) r(0, s, m, n) = pi - r(1, s, m, n) * px(s, m, n) - r(2, s, m, n) * px(s, m, n) ^ 2 Next Next Next t4 = 0 Do Until t4 100 For s = -5 To 5 For m = 1 To 10 For n = 10 To 90 k1 = k(n) + k(n) ^ a * lx(s, m, n) ^ (1 - a) - cx(s, m, n) n1 = k1 / h n2 = Int(n1) n3 = n2 + 1 vv0 = 0 vv1 = 0 vv2 = 0 For m1 = 1 To 10 s1 = gotos(s, m, n, m1) s2 = Int(s1) s3 = s2 + 1 If s3 5 Then s3 = 5 ds = (s1 - s2) * (lx(s3, m1, n2) - lx(s2, m1, n2)) dn = (n1 - n2) * (lx(s2, m1, n3) - lx(s2, m1, n2)) l1 = lx(s2, m1, n2) + ds + dn ds = (s1 - s2) * (px(s3, m1, n2) - px(s2, m1, n2)) dn = (n1 - n2) * (px(s2, m1, n3) - px(s2, m1, n2)) pxs = px(s2, m1, n2) + ds + dn mc = wedge(s2) + (s1 - s2) * (wedge(s3) - wedge(s2)) r1 = mc * a * k1 ^ (a - 1) * l1 ^ (1 - a) pp = pxs / px(s, m, n) i1 = (1 + r1) * pp - 1 For rank = 0 To 2 ds = (s1 - s2) * (v(rank, s3, m1, n2) - v(rank, s2, m1, n2)) dn = (n1 - n2) * (v(rank, s2, m1, n3) - v(rank, s2, m1, n2)) dv(rank) = v(rank, s2, m1, n2) + ds + dn Next For rank = 0 To 2 ds = (s1 - s2) * (r(rank, s3, m1, n2) - r(rank, s2, m1, n2)) dn = (n1 - n2) * (r(rank, s2, m1, n3) - r(rank, s2, m1, n2)) dr(rank) = r(rank, s2, m1, n2) + ds + dn Next vv0 = vv0 + prob(m, m1) * (dr(0) + 0.8 * dv(0)) / (1 + i1) vv1 = vv1 + prob(m, m1) * (dr(1) + 0.8 * dv(1)) / (1 + i1) vv2 = vv2 + prob(m, m1) * (dr(2) + 0.8 * dv(2)) / (1 + i1) Next vs(0, s, m, n) = vv0 vs(1, s, m, n) = vv1 vs(2, s, m, n) = vv2 Next Next Next e = 0 For s = -5 To 5 For m = 1 To 10 For n = 10 To 90 For q = 0 To 2 e = e + (v(q, s, m, n) - vs(q, s, m, n)) ^ 2 Next Next Next Next For s = -5 To 5 For m = 1 To 10 For n = 10 To 90 For q = 0 To 2 v(q, s, m, n) = vs(q, s, m, n) Next Next Next Next If e 10 ^ (-5) Then t4 = 1000 Debug.Print 83, t4, e t4 = t4 + 1 Loop For s = -5 To 5 For m = 1 To 10 For n = 10 To 90 price(s, m, n) = -v(1, s, m, n) / (2 * v(2, s, m, n)) If price(s, m, n) 1.05 * px(s, m, n) Then price(s, m, n) = 1.05 * px(s, m, n) If price(s, m, n) 0.95 * px(s, m, n) Then price(s, m, n) = 0.95 * px(s, m, n) Next Next Next For s = -5 To 5 For m = 1 To 10 For n = 10 To 90 p2 = price(s, m, n) p1 = (1 + 0.01 * s) * px(s, m, n) p3 = (0.8 * p1 ^ (1 - sig) + 0.2 * p2 ^ (1 - sig)) ^ (1 / (1 - sig)) k1 = k(n) + k(n) ^ a * lx(s, m, n) ^ (1 - a) - cx(s, m, n) n1 = k1 / h n2 = Int(n1) n3 = n2 + 1 For m1 = 1 To 10 s1 = gotos(s, m, n, m1) s1 = gotos(s, m, n, m1) s2 = Int(s1) s3 = s2 + 1 If s3 5 Then s3 = 5 ds = (s1 - s2) * (px(s3, m1, n2) - px(s2, m1, n2)) dn = (n1 - n2) * (px(s2, m1, n3) - px(s2, m1, n2)) pxs = px(s2, m1, n2) + ds + dn gt = 100 * (p3 / pxs - 1) If gt 5 Then gt = 5 If gt -5 Then gt = -5 maki(s, m, n, m1) = gt Next Next Next Next For s = -5 To 5 For m = 1 To 10 For n = 10 To 90 For m1 = 1 To 10 gotos(s, m, n, m1) = maki(s, m, n, m1) Next Next Next Next e = 0 For s = -5 To 5 For m = 1 To 10 For n = 10 To 90 e = e + (checkc(s, m, n) - cx(s, m, n)) ^ 2 + (checkl(s, m, n) - lx(s, m, n)) ^ 2 + (checkp(s, m, n) - px(s, m, n)) ^ 2 e = e + (price(s, m, n) - maxp(s, m, n)) ^ 2 Next Next Next For s = -5 To 5 For n = 10 To 90 For m = 1 To 10 checkc(s, m, n) = cx(s, m, n) checkl(s, m, n) = lx(s, m, n) checkp(s, m, n) = px(s, m, n) maxp(s, m, n) = price(s, m, n) Next Next Next If e 10 ^ (-5) Then t5 = 1000 Debug.Print 84, t5, e t5 = t5 + 1 Loop Open "c /pro1551.txt" For Output As #1 For s = -5 To 5 For m = 1 To 10 For n = 1 To 100 Write #1, s, m, n, lx(s, m, n), cx(s, m, n), px(s, m, n) Next Next Next Close #1 Open "c /pro1552.txt" For Output As #12 For s = -5 To 5 For m = 1 To 10 For n = 1 To 100 For m1 = 1 To 10 Write #12, s, m, n, m1, gotos(s, m, n, m1) Next Next Next Next Close #12 Dim mm(1 To 100) As Single For t = 1 To 100 mm(t) = 5 Next mm(1) = 8 sx = 0 mx = 5 nx = 50 k1 = k(50) For t = 1 To 100 s1 = sx s2 = Int(s1) s3 = s2 + 1 n1 = nx n2 = Int(n1) n3 = n2 + 1 m1 = mm(t) ds = (s1 - s2) * (gotos(s3, mx, n2, m1) - gotos(s2, mx, n2, m1)) dn = (n1 - n2) * (gotos(s2, mx, n3, m1) - gotos(s2, mx, n2, m1)) s1 = gotos(s2, mx, n2, m1) + ds + dn s2 = Int(s1) If s2 4 Then s2 = 4 s3 = s2 + 1 ds = (s1 - s2) * (cx(s3, m1, n2) - cx(s2, m1, n2)) dn = (n1 - n2) * (cx(s2, m1, n3) - cx(s2, m1, n2)) c1 = cx(s2, m1, n2) + ds + dn ds = (s1 - s2) * (lx(s3, m1, n2) - lx(s2, m1, n2)) dn = (n1 - n2) * (lx(s2, m1, n3) - lx(s2, m1, n2)) l1 = lx(s2, m1, n2) + ds + dn y1 = k1 ^ a * l1 ^ (1 - a) k1 = k1 + k1 ^ a * l1 ^ (1 - a) - c1 sx = s1 mx = m1 nx = k1 / h Debug.Print y1 Next End Sub
https://w.atwiki.jp/ce00582/pages/47.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 de As Single Dim th(1 To 10) As Single de = 0.05 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 + de - 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) - de * k(n) 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) - de * k(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) - de 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/45.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 Dim ds As Single de = 0.05 ls = 0.5 beta = 0.95 a = 0.33 ks = ls * ((1 / beta + de - 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) - de * k(n) Next t1 = 0 Do Until t1 100 For n = 10 To 90 k1 = k(n) + k(n) ^ a * lx(n) ^ (1 - a) - cx(n) - de * k(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) - de 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/program/pages/14.html
概要 ヤフーチャット内に作られているチャットルームです。 作成者によって名前が適当に変わります。 「のんびりプロ㌘」が本来の名称ですが、管理人が作らなかったときは他の人が部屋を作るため、若干名称が変わります。 チャットの参加方法 ヤフーメッセンジャー等からチャットへ参加します。 ヤフーチャット→コンピューターカテゴリー内のユーザールームに部屋があります。 部屋がなくても泣かない。 部屋がないときは自分で作る。 IRCにチャンネルがあります irc.freenode.net 6667#prog_kansaiです。 Wikipedia チャットに詳しい説明があります。 チャンネル名を#prog_kansaiと読みかえると大体同じ手順で参加できます。 文字コードはiso-2022-jpにしてください。 Mixiにコミュニティーがあります。 ［mixi］のんびりプログラムです。 Link http //bahoosoft.net/ ページビュー -
https://w.atwiki.jp/knapia/pages/10.html
インターンシッププログラム―インターンシップの魅力とはー 最初にインターンシッププログラムについて担当者の徳山理沙さんにお話を伺い、次に昨年度から今年度と２年インターン生として活躍しておられる笹井万友美さんにお話を伺いました。 Q：まず協議会のインターンシッププログラムの概要、受け入れの形態等についてお聞かせください。 徳山＝｢当プログラムは2002年から始まり、現在まで35人のインターンシップ研修生を受 け入れてきました。これまでは主に大学と提携する、あるいは他団体との共催で事業ごとに受け入れを行うといった形をとってきましたが、去年このプログラムの見直しが図られて、それらの形態だけでなく公募も始めることになり、自主的にインターンシップに参加したいという人も応募することができるようになりました。｣ Q：去年のプログラム見直しの成果として学生だけでなく専門的な技術をもった一般の人からの応募があったそうですね。 徳山＝専門的な技術をもち、その技術を活かして協議会の活動に携わりたいという人が現れたのは公募をしたからこそだと思います。また、以前は特定の事業においてのみインターンシップを実施していたのですがプログラムの見直しによってその他の複数の事業で実施するようになったので、より多くのスタッフとインターンシップ研修生が関わることができるようになりました。このことは協議会スタッフの意識の向上、事業の質の向上にもつながると思います。 s-s-intern1.jpg Q：プログラムの目的には協議会のための側面と学生のための側面という二つの側面があると考えて良いのでしょうか。 徳山＝「一人でも多くの人にNPO/NGOの活動に携わってほしいという協議会の思いをス トレートに実現できる場であると思っています。協議会にインターンシップに来た 人に“こういう分野で働くこういう人々がいるのだ”ということをわかってほしいですね。またインターンシップ研修生にはこのインターンシップに参加するなかで国際交流の実情を見てもらい、こういう分野の仕事に携わることを将来の進路選択の一つにしてもらえればと思います。その結果として、この分野の活動に携わる人が増え、それが事業の向上、スタッフの意識の向上、市民社会の課題解決につながればさらによいと思います。」 Q：なるほど。では、インターンシップ研修生に期待するのはどのようなことですか。 徳山＝私個人としては、インターンシップ研修生を見ていて“成長した”ということが手にとるようにわかる瞬間が喜びです。例えば『研修生が、社会人らしい電話や会話ができるようになった』というようにわかりやすく現れる成長を感じることが私にとっての楽しみです。今後当プログラムに参加した研修生たちの中からNPO分野におけるリーダー的な存在や他のNPO団体で活躍する人がでてくることを期待していますが、実際にはとても難しいことなので、まずこのインターンシップ研修で得たことを他の人にも伝えてほしいと思います。テレビ等で海外の問題やNPOについて事実と異なるような報道がされていたら、“本当はの姿”を伝えてほしいです。現実を知ってもらって帰って、自分の周りの人にそれを発信してほしいです。 Q：では、研修生にはどういう姿勢でインターンシップに臨んでほしいですか。 徳山＝高い意識をもちNPOの実情を見たいと強く望んでいる人に、インターンシップに来てほしいです。、“こういうことを研究したい、知りたい”という目的が具体的にある人のほうが受け入れやすいのです。自分探しのためという場合はボランティアからはじめることを勧めています。 Q：インターンシッププログラムに関する問題点、解決すべき課題などはありますか。 徳山＝プログラムの問題点としては “スーパーバイザー一人ひとりによってやり方、教 え方が違う”という偏りがあることがあげられます。そこでインターンシップのミ ーティングを行い、研修生同士が横のつながりをもつ機会を設けてこのような指導のばらつきという問題に対処しています。またこれからの重要な課題として協議会のインターンシップに参加しプログラムを終えることが一つの証明のようなものになればいいと思っています。例えば履歴書に書けるとか、他団体のボランティアに行った時に“これがあるから受け入れてもらえる”というステータスのようなものにすることができればいいと思っています。このプログラムに参加、修了することが“これをもっているからこの人はこういう分野では信頼できる人だ、専門的なものをもっている”という証明になるようなプログラムにしたいです。」 Q：そのための方法としては具体的にはどのようなことを考えていますか。 徳山＝｢独自のライセンスや修了証書のようなものをつくることを考えています。そのため には協議会の名をより通用するものにする必要もありますよね。また、このようなプログラムにするためには採用段階で、学生にもっと踏み込んで自分のしたいことを聞くなどして受け入れる体制を見直す必要もあります。｣ Q：協議会側がインターンシッププログラムや研修生から得るものはありますか。 徳山＝「インターンシップ研修生を受け入れることで、協議会の課題（研修生を受け入れる余裕がない、など）が浮き彫りになるため、研修生の存在によって協議会側にも新鮮味が生まれます。私たちスタッフが“こうした方がいい”と思っていたことに対して、研修生が“こうした方がいいのではないか”というようなアイデアを出してくれるというようなこともあり、そういったところも新鮮味のあることだと思います。」 Q：最後にインターンシッププログラムの担当者として徳山さんから会員の方々に伝えたいことはありますか。 徳山＝｢インターンシップ研修生の受け入れは体制の整備や学校とのやりとりなど、とりか かるまでは大変なことが多いですが、必ずそれ以上のものが得られるので、これを見た会員の方々にはぜひ受け入れを行っていってほしいです。このプログラムについての相談や問合せについても私がよろこんでお答えしたいと思っています。それくらい、インターンシップ研修生という財産は団体にとって、社会にとってかけがえのないものだと思っていますから。｣ （特活）関西国際交流団体協議会（インターンシップ担当：徳山） TEL 06-4395-1124 FAX 06-4395-1125 E-mail tokuyama@interpeople.or.jp 次に、現在実際に研修生としてインターンシップに参加している笹井万友美さん（立命館大学国際関係研究科博士課程前期2回生）にお話を聞きました。笹井さんは、去年の9月から3月末まで協議会のインターンシップに参加しました。今年は8月末から再び参加し、3月末まで昨年と同じくワン・ワールド・フェスティバルの事務局業務を担当しています。 s-s-intern2.jpg Q：まずはインターンシッププログラムへの参加理由についてお聞かせください。 笹井=昨年はワン・ワールド・フェスティバルがどのようなものなのかわからないままインターンシップに参加したので今年はそのリベンジをしたいです。自分が携わる事業についてよく理解していたほうがより良く取り組むことができると思うので、今年はそうしたいです。｣ Q：笹井さんは去年、学校と協議会が提携した単位認定型のインターンシップに参加したそうですが、今年は学校側とは関係なく自主参加というかたちをとっているそうですね。自主参加の理由は何ですか。 笹井=これからNPO/NGOの活動に関わっていきたいという思いがあるので自主的に参加し ました。また、このような分野のコアな部分に触れるためにはボランティアではなくインターンシップの方が良いと思いました。ボランティアだと一部分の事業にしか関われないけれど、インターンシップだと他の事業も責任をもって任せてもらえるからです。 Q：笹井さんは去年ワン・ワールド・フェスティバルの広報を担当したそうですが、その研修内容を具体的に教えてください。 笹井=私は去年、日本のNPO/NGOについて知るためにインターンシップに参加しワン・ワールド・フェスティバルの事業を担当しました。そして自分がフェスティバルに参加してもらいたいと思った団体に自主的に案内状を送ったり、参加団体の方々にチラシを郵送したりしました。私は大学院では国際関係研究科に在籍しているのに以前はワン・ワールド・フェスティバルのことを知りませんでした。こういったことから、広報の仕方に何か問題があるのではないかと思ったのです。そこでワン・ワールド・フェスティバルの広報を担当し、研究科内、大学内にも広くフェスティバルの存在を伝えるために大学のキャリアセンターや学部事務室にもチラシを配布しました。 Q：なるほど。そういったインターンシップでの活動を通して何か感じたことはありますか。笹井＝私は普段学校でNGO論などの授業を受けているのですが、こういった活動を通し てNPO/NGOの抱える課題に実際に触れることにより、学校での授業内容をより深く理解することができるようになりました。授業とインターンシップ、この二つを通して実情と理論の両面を学ぶことができて良かったと思います。 Q：研修により学んだことや得たことは何ですか。 笹井＝NPO/NGOに就職することは国際関係研究科の研究生にとっては憧れることです。しかし実際にそういったところで働くためには即戦力などの能力を求められるし、いろいろなことを知っていないとできない仕事だと感じました。インターンシップ研修によって、こういった仕事は実際にはとても大変な仕事なのだということを学びました。また他には、“自分が求めているものを相手から返してもらう方法”というものも学びました。自分が聞きたいと思っている内容が相手にうまく伝わらず、自分がほしかった返事がもらえないというような時にどうすればいいか、つまり自分の知りたいことを知るために必要な問い方も研修のなかで学ぶことができました。 Q：協議会の事業のなかで関心のあるものはどれですか。 笹井＝やはりワン・ワールド・フェスティバルですね。フェスティバルを通してより多くの人々に国際的現実を知ってもらいたいです。日本ではテレビのドキュメンタリー番組などを通してでしかこういった現実を知る機会があまりないと思うので、より多くの人にそういうきっかけをつくってもらいたいです。深刻にではなく楽しみながら知ってもらいたいです。 Q：インターンシップで学んだことをこれからどういかしますか。 笹井＝例えば研修で学んだアンケート集計のスキルは修士論文を作成する上でのデータ収集に活用できるし、参加団体にメールを送る際に学んだメールの書式や職場での基本的な受け答えなどは将来どういう所で働くことになっても必要になるものだと思います。またいろいろな人と関わり、みんなでひとつのことをつくりあげるワン・ワールド・フェスティバルの事業に携わったことで、人との関わりがうまく周りに気を配れる人がこういう活動に向いていると思いました。 Q：笹井さんご自身はNPO/NGOで働くことに向いていると思いますか。 笹井＝向いてないとは思いません。それに私は民間企業で働く気はないし、実際にNPOでの居心地が良いです。まだ特別なスキルをもっているわけではありませんが、将来は協議会に関わらずNPO/NGOで働きたいと思っています。 Q：インターンシップに参加していて何か困ったことはありますか。 笹井＝私は京都から通勤しているので、10時から17時という7時間の勤務時間に行き帰りの4時間という通勤時間も合わせると一日がかりです。事務所で仕事をもっとやっていきたいけれど、それでは帰りが遅くなってしまいます。去年は学校が始まると週2日しか事務所に来ることができず、事務所での作業がなかなか進みませんでした。インターンシップと日本語教師の勉強と一度にたくさんやりすぎたというのが去年の反省です。やりたいことはなるべくひとつにしぼるべきだと思いました。そうすればもう少し時間にも余裕が生まれると思います。 Q：最後に将来のことについて聞かせてください。笹井さんは日本語教師を目指しているそうですが、その理由は何ですか。 笹井＝外のことばかりに目を向けるべきではないと思いつつも、私はやはり途上国の人々のためになりたいです。私は今まで日本で育ち、きちんとした教育を受けてきたけれど、アフリカなどの地域ではきちんとした教育を受ける機会に恵まれない人々がいます。自分が今まで日本で教育を受けてきた分をそういう人々に還元したいという思いから、日本語教師を目指しています。私は、自分が何かを誰かに還元してその相手からも何かを得たいと思っています。例えば、ある地域に暮らす人々のことを貧しくて気の毒だと思っていたのに実際にはそういう地域には、貧しくても家族思いで楽しそうに暮らしている人々がいたりもします。その事実を知ることによって自分が幸せな気分になることができるというようなことです。このように先進国も途上国から学ぶべきものがあると思います。将来を考える上では勉強していない自分の姿というものが想像できないので、今後も教育や学校に関わっていき、自身も勉強し続けたいです。伝統文化や教育に関する活動をしている団体で働きたいと思っています。
https://w.atwiki.jp/ankundora/pages/21.html
「プログラムの流れ」のページです まずはこのプログラムを入力してみましょう #include stdio.h int main(){ printf("Hello World\n"); return 0; } そしたら"Ctrl"+"F5"を押してください imageプラグインエラー ご指定のURLはサポートしていません。 こう表示されたと思います まず、ソースコードから実行ファイルが作られる事を「ビルド」と言います また、ビルドはだいたいは「コンパイル」と「リンク」で出来ています コンパイル ソースコードを、コンパイラをつかって人間が読みやすいコンピューター言語から コンピュータ上で実行可能な形式（オブジェクトファイル）に変換すること オブジェクトファイル 機械語(コンピュータのCPUが直接実行できる言葉)で書かれたコード リンク オブジェクトファイルやライブラリをリンカしてまとめ、実行可能ファイルにすること ビルド コンパイルやリンクをしてソースコードを実行可能ファイルにすること また、Visual C++の上の方に「デバッグ」というところがあります 見てみると今回行った"Ctrl"+"F5"は「デバッグなしで開始」というのに対応していることが分かると思います デバッグ プログラムの誤り(バグ)を探すこと 「バグ」とは英語で虫という意味です 今、「デバッグ開始」を選ぶとウィンドウがすぐに閉じてしまうので「デバッグなしで開始」にしています では、ソースコードを見ていきます 注意：プログラムは「 " ～ " 」の中など以外は半角文字しか使いません なのでもし全角スペースを使ってしまったらエラーになり、 見つけ出すのに苦労してしまうので気を付けてください プログラムの基本の基本となることがあります それは基本的に、ソースコードの上から実行されてゆく ということです これを分かっていないとプログラムができないので、注意してください #include stdio.h この部分は「インクルード文」といいます インクルード文 「include」とは「含める」という意味で ソースファイルの先頭などで、別のソースファイルなどを読み込み利用できるようにする機能のこと この場合は「printf」というものを利用できるようにするために「stdio.h」と言うものを読み込んでいます 「studio」ではなく「stdio(スタンダード(標準) アイオー(Input Output 入出力)」なので間違えないようにしてください また、「#include」のように「#」で始まるものを「プリプロセッサ命令」と言います では次を見てみましょう int main(){ printf("Hello World\n"); return 0; } int main()はプログラムのメイン部分であり、このなかで色々な処理が行われます そのままですね 中括弧の間( {～} )が「int main()」の内容、つまりメイン部分となります printfは次の「printf」でreturnは今度説明します 今回は難しい言葉が沢山出て来ました まだ無理やり全部覚えようとしなくていいので、流れだけ覚えておいてください
https://w.atwiki.jp/s3study/pages/29.html
C#の言語仕様については、とりあえず置いて、そろそろプログラムを作ってみましょう。 Hellow Worldのように、表示しておしまい、じゃぁつまらないし、あまり役にもたたな いので、ユーザーが入力した値を元に、足し算を行うプログラムを作ってみます。 非常に単純なプログラムですが、ユーザーの入力と、イベントの駆動という基本中の基 本を学ぶことの出来るプログラムです。 まず、Hellow Worldのときと同じように、新しいプロジェクトを作成してください。 デザインタブで、ツールボックスからTextBoxを選択し、フォームに貼り付けてください。 これを２回繰り返します。 つまり、TextBoxを３個貼り付けることになります。 場所は何処でもかまいませんが、二つは数値を入力するTextBoxで、もう一つは答えを 表示するTextBoxになります。 使いやすい位置に貼り付けましょう。ここら辺はセンスというか、趣味というか、そう いうものがでます。 次に、ツールボックスからButtonを選択し、フォームに貼り付けてください。 これも使いやすい位置におきましょう。 このボタンを右クリックし、プロパティを選択してください。 ボタンのプロパティをエディットできるウィンドウに移動またはウィンドウが開くので、 このなかのTextを「計算」等に変えてください。ボタンに表示される文字が変わります。 次に、Buttonをダブルクリックします。 すると、エディタタブに移動し、Buttonがクリックされたときに実行されるメソッドを 作成してくれます（もう少し正確に書くと、クリックイベントに対応したメソッドを作 成します） button1_Clickという名前になっていると思いますが、ここに処理を書きます。 以下は例です。 そのまま打っても動きますが、あんまり綺麗なコードではないですね。 素直ではありますけど。 private void button1_Click(object sender, EventArgs e) { int x, y, z; x = Convert.ToInt32(textBox1.Text); y = Convert.ToInt32(textBox2.Text); z = x + y; textBox3.Text = z.ToString(); } Convert.ToInt32というのは、文字列型を32Bitのint型に変換するメソッドです。 ToInt32がメソッドで、Convertというのはその名の通り、変換用のクラスです。 何でインスタンス化していないのにメソッドが使えるのだろうという疑問がでたなら、 良い傾向です。 実はConvertクラスは静的クラスのため、インスタンスなしにメソッドを使えます。 まぁ、疑問に思わなくても、使えるんだ程度でも良いですけどね。今のところは。 さて、実のところ足し算プログラムを作りましょう！ という課題を出して、上の例の通りに作ってきた場合、ほぼ間違いなくNGを出されます。 少なくとも私なら出します。 何故でしょう？ それは、NGケースを全く考慮していない為です。 たとえば、何も入力されていない状態でボタンがクリックされた場合は？ 数値以外がTextBoxに入力されている状態でボタンがクリックされた場合は？ こういう場合の処理の方法としては二通りあります。 一つは、入力されているデータをチェックし、間違いがあった場合はユーザに知らせる 方法です。 たとえば、何も入力されていない状態でボタンをクリックした場合は、「数値を入れて ください」というメッセージを表示する等です。 もう一つは、NGとなるケースを実行できなくすることです。 例えば、何も入力されていない状態ではボタンをクリックできなくする、TextBoxには数 値以外を入力できなくする、などです。 これは趣味の問題に近いのでしょうが、ユーザーインターフェースとしては後者のほう が優れていると思います。 と、いうわけで、この計算プログラムをNGケースにも対応できるように強化してみま しょう。 そして、これは宿題にしちゃいます。 最低限、TextBoxが空のときの処理を入れてください。 あとはがんばって！ ……ではあれなので、ヒントを書いておきましょう。 数値以外を入れられなくする、というのは少しだけレレルの高い技（？）なので、とり あえずは間違いがあった場合、ユーザーに知らせる、という方法でかまいません。 勿論、知識がある方は、お好きなように作成してくださいまし。 TextBoxが空かを調べる 以下のようにします。 if( textBox1.Text == "" ) { 処理～ } または、 if( textBox1.Text.Equals("") ) { 処理～ } メッセージボックス メッセージボックスの表示はMessageBoxクラスのShowメソッドを使います。 詳細についてはTIPS「メッセージボックス」を参照してください。 とりあえずは例の通りに使えばOKです。 例 MessageBox.Show("textBoxが空です.", "エラー" ) 文字列が数値かを調べる 文字列が数値かどうかをしらべる方法は幾つかあるでしょうが、その一つが正規表現で す。 正規表現にはRegexクラスのIsMatchメソッドを使用します。 Regexクラスは、System.Text.RegularExpressions名前空間にあります。 なんのことだと思った場合は、System.Text.RegularExpressions.Regex.IsMatchという 感じで使うと覚えて置いてください。 たとえば、文字列が数値以外であることをしらべるには、以下のようにします。 sは検索対象の文字列です。 例なので、sと記述してもコンパイルは通りません。 if( System.Text.RegularExpressions.Regex.IsMatch( s , "[^0-9]" ) ) { 数値以外の処理 } 正規表現ってナニ？ という人も居るかもしれませんが、色々出来る検索の方法とでも思ってください。 例えば、例では文字列sの中に０～９の文字以外が含まれているか、というのを調べる ことができます。
https://w.atwiki.jp/maoasada/pages/24.html
2013-2014シーズンプログラム ショートプログラム： ノクターン 第2番 変ホ長調 作品9-2 by フレデリック・ショパン(Frederic Chopin) 振付 ローリー・ニコル(Lori Nichol) フリープログラム： ピアノ協奏曲第2番ハ短調作品18』 by セルゲイ・ラフマニノフ (Sergei Rachmaninov) 振付 タチアナ・タラソワ(Tatiana Tarasova) エキシビションプログラム： スマイル / What a Wonderful World 振付 ローリー・ニコル(Lori Nichol) 2012-2013シーズンプログラム ショートプログラム： アイ・ガット・リズム by ジョージ・ガーシュウィン(George Gershwin) 振付 ローリー・ニコル(Lori Nichol) フリープログラム： 白鳥の湖 by ピョートル・イリイチ・チャイコフスキー(Pyotr Ilyich Tchaikovsky) 振付 タチアナ・タラソワ(Tatiana Tarasova) エキシビションプログラム： メリー・ポピンズ メドレー 振付 ローリー・ニコル(Lori Nichol) 2011-2012シーズンプログラム ショートプログラム： シェヘラザード by ニコライ・アンドレイェヴィチ・リムスキー＝コルサコフ(Scheherazade Nikolai Rimsky-Korsakovl) 振付 タチアナ・タラソワ(Tatiana Tarasova） フリープログラム： 愛の夢 by フランツ・リスト (Liebestraume Franz Liszt) 振付 ローリー・ニコル(Lori Nichol) エキシビションプログラム： Jupiter by Libera 振付 ローリー・ニコル(Lori Nichol) Waltz Op.64 No.2 Jazz Version by Chopin 振付 タチアナ・タラソワ(Tatiana Tarasova） 2010-2011シーズン プログラム ショートプログラム： タンゴ曲 by アルフレット・ガリエヴィチ・シュニトケ(Alfred Garyevich Schnittke) 振付 タチアナ・タラソワ(Tatiana Tarasova) フリープログラム： 愛の夢 by フランツ・リスト(Liebestraume Franz Liszt) 振付 ローリー・ニコル(Lori Nichol) エキシビションプログラム： バラード第1番ト短調 by フレデリック・ショパン (Ballade No.1 in G minor, op.23 Frederic Chopin) 振付 タチアナ・タラソワ(Tatiana Tarasova) 2009-2010シーズン プログラム ショートプログラム： 仮面舞踏会 by ハチャトゥリアン(Aram Ilich Khachaturian) 振付 タチアナ・タラソワ(Tatiana Tarasova) フリープログラム： 前奏曲(プレリュード) Op.3-2「鐘」 by ラフマニノフ (RACHMANINOV Prelude in C Sharp Minor, Op.3, No.2) 振付 タチアナ・タラソワ(Tatiana Tarasova) エキシビションプログラム： 「カプリース」 by 二コロ・パガニーニ 振付 タチアナ・タラソワ(Tatiana Tarasova) 2008-2009シーズン プログラム ショートプログラム 月の光(clair de lune) by クロード・ドビュッシー(Claude Achille Debussy) 振付 ローリー・二コル(Lori Nichol) フリープログラム 仮面舞踏会(Masquerade) by ハチャトゥリアン(Aram Ilich Khachaturian) 振付 タチアナ・タラソワ(Tatiana Tarasova) Exhibition カルロス･ガルデル作曲「Por Una Cabeza」（ポル・ウナ・カベーサ）＝首の差 + フリアン・プラサ作曲「PAYADORA」（パジャドーラ）＝吟遊詩人 振付 タチアナ・タラソワ(Tatiana Tarasova) Exhibition No2 シング・シング・シング(Sing, Sing, Sing) 作曲 ルイ・プリマ(Louis Prima) 振付 ローリー・二コル(Lori Nichol)