約 3,180,007 件
https://w.atwiki.jp/pins-room/pages/126.html
Ireland
https://w.atwiki.jp/tadoku100/pages/252.html
YL 語数 語彙数 ジャンル フォーマット 2.6 7,120語 700語レベル Factfiles ペーパーバック 名前 コメント
https://w.atwiki.jp/boondockbabies/pages/22.html
Deleted Scene Mom Calls From Ireland 監督トロイ・ダフィーは UGO とのインタビューで、US版DVDに特典映像として収録されているカット・シーン『ママがアイルランドから電話を掛けて来る』について、マクマナス兄弟のパーソナリティが表されているという点で“あれはカットすべきではなかった”との後悔を吐露しています。以下、そのインタビューの該当部分とカット・シーンの訳出です。 UGO トロイ・ダフィー インタビューより抜粋 UGO 振り返ってみて、あなたがカットせずに残しておきたかったシーンは何かありますか? TROY カットするんじゃなかったと思うシーンが一ヶ所あるんだ。あれは失敗だったな。そもそもファンのみんなが言ってくれたことなんだけどね。冒頭から外してしまった兄弟の母親が出て来るシーンがあったんだよ。彼女がアイルランドから電話をしてくるっていう…… UGO あのシーンは良かったですね。 TROY そう、カットしたのは失敗だったと思ってるよ。最初の15分でストーリーの設定を全部見せておきたかったんだ。で、そのあとで仮に誰かがトイレに行って戻ってくると完全にストーリーの流れを見失ってしまうような形にそもそもさせたかったんだ。実際その後は何も見逃せないよ。レーシング・カーのように突っ走って行くからね。だから、最初の15分はすごく大事だと考えていたんだ。編集の段階で、あのシーンを短くカットしつつ全体が上手く流れるようにしようとしたんだけど、結局全部をカットしてしまった。それでフィットするように思えたからね。俺は何かあったら口出ししても構わないって言ってたし、あのシーンは本当はカットしたくはなかったんだけどね。カットすべきじゃなかったよ。そのまま残しておくべきだった。事件を引き起こす前にコナーとマーフィーの人となりを垣間見ることが出来るからね。あれはすごく意味のある一場面になるはずだったのになぁと思うよ。カットしたのは失敗だったね。 UGO それでもストーリーの流れは上手く行ってますよ。 TROY そうだね、それでも上手くは行ってるんだけど、でも去年やったカレッジ・ツアーで目から鱗が落ちたよ。どのファンも例のシーンについて訊いて来てさ。『なんであのシーンをカットしたんですか?』って言われて、それで自分がヘマをやらかしたのに気付いたんだ。『てめぇは一体何考えてたんだよ!』ってな感じで言われてるみたいだったよ。彼らは決して映画マニアとかそんなんじゃないんだ。単にあの映画を気に入って例のシーンを見てくれた子供たちで、『凄いね、何これ?』って言ってるよ。けど、ファンと一緒に喋っていて、突然、『このようなシーンも入れておくべきだと本当は思うんだよ』なんて言うのは一流のプロデューサーじゃないよな。『おい! どうしたんだよ、何でなんだよ?』ってファンが訊いて来てもさ。だから、言い訳は止めようとだんだん思えてきたよ。 US版DVD特典 "Mom Calls from Ireland" より (スクリプト、及び聞き取りから構成) [場面: 精肉所でローゼンガートルに股間を蹴られ足下のおぼつかないコナーをマーフィーがかばいながら帰宅した後の部屋] [コナー: ソファーに座り、氷のうを股間に当てながらビールを飲む] [マーフィー: シャワーを浴びるため蛇口をひねる] [コナー: 電話が鳴り、受話器を取る] コナー : もしもし 母親 : コナー、お前かい? コナー : 母さん? 母親 : お前の役立たずの兄弟も一緒かい? 二人とも聞きな。 マーフィー: お湯が出てこねぇよ…… コナー : 黙ってろ! マー (注1) からだ。 母親 : みんなお前たちのせいだよ、この大馬鹿野郎どもめ! あたしゃ愚かだったよ。お前たちが安心させてくれると信じててさ。お前たちのダー (注2) が出てった日、まだ子供でほとんど覚えてないだろうけど、ダーはお前たち二人があたしの面倒を見てあたしの誇りになるだろうって言ったんだよ。けど間違ってたね。生きてて何の楽しみもありゃしない! コナー : 何言ってんだよ? どうかしてるぞ! マーフィー: マーがどうしたって? 母親 : とうとうダーの古いリボルバーを見つけたよ、コナー コナー : あんた、ダーの銃で何してんだ? マーフィー: ダーの銃? 何だって? 母親 : これで頭ブッ放つよ。 コナー : 一体何やってんだよ! マーフィー: 何だってんだ!? 母親 : 引き金を引く前に最後にひとこと言っとくよ。 コナー : 引き金を引くって?! 気でも狂ったのかよ?! 落ち着けよ! [マーフィー: コートを手に取りコナーの元へ駆け寄る] マーフィー: マー!マー! コナー : ちょっと俺の声を聞けよ! 正気になれよ、おい! マーフィー: マー!マー! 母親 : おまえ…… たちの…… せいだ! C&M : 止めろったら、マー! 引き金なんて引くなよ! 頼むぜ! 神様! [母親: 外に出て上空めがけて銃を撃つ] [コナー: 驚いて受話器を落とし、氷を床にぶちまける。そこへ二人でスライディング、受話器の取り合いに] C&M : クソっ! マー! マー?! [母親: 部屋に戻り大笑い] [C&M: 悪い冗談と気付き、コナーは怒りの表情、マーフィーは呆れ顔] マーフィー: やれやれ、面白かったよ、マー…… コナー : クソっ! 性悪女め! 母親 : 『ああ、イエス様! やめて、マー、やめて!神様! マー、やめて!』ってか マーフィー: 彼女、ずいぶん自分に酔ってるね。 コナー : ああ、まったくだ…… 母親 : じゃあ、真面目な話、二人とも聞いとくれ! マーフィー: 二人とも聞いてるよ、マー。 コナー : どうした? 聞いてるぜ。 母親 : こっちはまだ11時なんだよ。だからお前たちの役立たずな親戚どもとアンヴィルに行ってもっと飲めるわけさ。 マーフィー: 俺たちを拷問に掛けるために電話しただけなんだな? コナー : マー、シビアル叔父さんは元気なのか? 母親 : まぁ、知っての通りこんな感じだね ―― 聖パトリックの日には全然稼ぎにならないっていつも文句言ってるよ。身内全員でカネ持たずに飲みに行くからね。だって、あたしたちに代金払えだなんてどう転んでもアイツは言えないの分かってるからさ。 [母親: ウィスキーを一口ラッパ飲み] 母親 : けど、アイツだって何杯か飲んでたからね。一晩中ウェイトレスのスカートに頭突っ込んでてさ。かわいそうな娘だよ。 コナー : まぁな、シビアル叔父さんってそんな人さ。 [母親: シチュー鍋にウィスキーを一気に注ぎ込む] マーフィー: 叔父さんにはそんなことでカッカせずにのんびりやれよって言っといてよ。女性を敬うことも覚えないといけないしね、コナーみたいに。 コナー : おいっ! マーフィー: コイツに女性への気遣いってものについて最初の授業をしてやったんだよ…… コナー : おいこら! マーフィー: ちょうど今日さ…… コナー : それを言うなって、馬鹿野郎! マーフィー: コイツ、女の子に散々殴られてね…… コナー : 違うって! もしあれが女の子だったら身分証明書でも見せて欲しいぜ! 彼女は単に性転換手術前だったに違いねぇよ!まったくクソったれだ!! (注3) 母親 : 主の御名を汚すんじゃないよ、クソったれ! (注4) C&M : [十字を切りながら] 恵み溢れる聖母マリアよ…… (注5) 母親 : で、お前は何したんだい、コナー? コナー : 俺はさ、友達になろうとしたんだよ。そしたら彼女がキンタマに一発食らわしやがったんだ! 母親 : 何だって?! 小汚い雌犬だね!ちゃんと仕返ししてやったんだろうね? コナー : そう、小汚い雌犬ね、その通り。俺はね…… マーフィー: 心配すんなよ、マー。マーのために俺が彼女を丁重にもてなしてあげたよ コナー : そう、マッチョ・マーフィーさ、うんうん。 母親 : まぁ、聞きな。お前たちが飲めばケンカするってのはあたしにゃ分かってんだよ。 マーフィー: はい、お母様 母親 : あたしゃ本気で言ってんの! あたしはね、お腹の中にお前たち二人を一度に身籠もってたんだよ、この恩知らずのろくでなし! お前たちはあたしの少女体型をいっぺんに台無しにして、あたしの体をカラカラに吸い尽くしちまったんだよ。おっぱいは足首まで垂れ下がっちまってるし!歩く度にけつまずいてんだよ、まったく! だからよく聞きな! ケンカはするな! コナー : はい、お母さん 母親 : 約束だよ、お前たち マーフィー: 約束するよ コナー : 約束する、母さん 母親 : そうかい、それでこそあたしの息子たちだ。畜生、もう行かなきゃ! あの一発でひと騒ぎ起こしちまったみたいだね。近所の連中が半分やって来る! マーフィー: 分かった、愛してるよ、マー。あ、ちょっと待って。その前にあの答を教えてくれない? お願いだから コナー : そうだよ、いい加減教えてくれよ、マー。もう27年だぜ 母親 : まだうるさく言ってんのかい? コナー : 当たり前だよ、マー。さっさと教えてくれよ。どっちが先に生まれたんだよ? 母親 : 分かったよ。お前たちにも知る権利があるだろうしね。 [コナー: マーフィーの頭を小突く] コナー : 聞こえないだろ! 母親 : 心の準備は出来てるかい? C&M : さぁ、早く! [母親: 更に一口ウィスキーをラッパ飲み] 母親 : チ◎ポのデカイ方だよ! [母親: 大笑いし電話を切る] コナー : 何……? 何だそれ? これがお前のクソババァかよ! [コナー: マーフィーの頭を平手打ち] マーフィー: お前のクソババァだよ…… コナー : クソったれ! [コナー: ソファーの前に立ち上がる] コナー : 気違い女め! [マーフィー: 床に横たわりながらコナーの股間を一瞥して勝ち誇った笑みを浮かべる] [コナー: 下を見つめて……] コナー : 何も言うな! 俺のには氷載っけてたんだよ、分かってるだろ? 畜生! ………………………………… [注1] ma = ママ、母ちゃん。mum (主にイギリス英語), mom, maw (主にアメリカ英語) に相当する主にアイルランド英語で使われる語形 (幼児語という訳ではない)。アメリカでは古風な田舎臭い表現と捉えられる。 [注2] da = パパ、父ちゃん。dad (イギリス英語・アメリカ英語) に相当する主にアイルランド英語で使われる語形 (幼児語という訳ではない)。アメリカでは古風な田舎臭い表現と捉えられる。 [注3] for Christ s fuckin sake [注4] Lord s fuckin name! … 注意しておきながら自分で fuckin と言うマーの性格のおもしろさがでている。旧約聖書のモーセの十戒にある "Thou shalt not take the Name of the Lord, thy God, in vain (汝の神である主の御名をみだりに言うなかれ)" [出エジプト記 20 7] の句が前提にある。 [注5] Mother Mary, full of grace … アヴェ・マリアの冒頭の一節より。母親を聖母マリアに見立てている。 また上記3フレーズの最終母音が各々 [ei] で全体で母音韻を踏んでおり、言葉遊びの性格を強めている。
https://w.atwiki.jp/ce00582/pages/762.html
Private Sub Command1_Click() Dim a As Single Dim beta As Single Dim phi As Single Dim sig As Single Dim barm 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 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 th(1 To 10) 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 pr1 As Single Dim pr2 As Single Dim pr3 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 Open "c /pro131.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 phi = 0.9 For s = -5 To 5 For n = 10 To 90 For m = 1 To 10 For m1 = 1 To 10 gotos(s, m, n, m1) = s Next Next Next Next For m = 1 To 10 th(m) = 1 + 0.01 * m Next 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 100 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) + th(m) * 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) 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 mc = wedge(s2) + (s1 - s2) * (wedge(s3) - wedge(s2)) r1 = mc * th(m1) * a * k1 ^ (a - 1) * l1 ^ (1 - a) uc = uc + (beta * (1 + r1)) / c1 Next uc = uc / 10 cp(s, m, n) = 1 / uc w1 = wedge(s) * th(m) * (1 - a) * k(n) ^ a * lx(s, m, n) ^ (-a) lp(s, m, n) = 1 - cp(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 barm = 20 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) + th(m) * 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 * th(m1) * a * k1 ^ (a - 1) * l1 ^ (1 - a) pp = pxs / p1 i1 = (1 + r1) * pp - 1 um = um + (beta * i1) / (c1 * pp) Next um = 0.1 * um z1 = um * barm - p1 t3 = 0 Do Until t3 100 k1 = k(n) + th(m) * 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 = th(m1) * mc * a * k1 ^ (a - 1) * l1 ^ (1 - a) pp = pxs / p2 i1 = (1 + r1) * pp - 1 um = um + (beta * i1) / (c1 * pp) Next um = 0.1 * um z2 = um * barm - 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 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 For s = -5 To 5 For m = 1 To 10 For n = 10 To 90 ys = th(m) * 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) + th(m) * 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 = th(m1) * 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 + (dr(0) + 0.8 * dv(0)) / (1 + i1) vv1 = vv1 + (dr(1) + 0.8 * dv(1)) / (1 + i1) vv2 = vv2 + (dr(2) + 0.8 * dv(2)) / (1 + i1) Next vs(0, s, m, n) = vv0 / 10 vs(1, s, m, n) = vv1 / 10 vs(2, s, m, n) = vv2 / 10 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) + th(m) * 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 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 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 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) Next Next Next If e 10 ^ (-4) Then t5 = 1000 Debug.Print t5, e t5 = t5 + 1 Loop Open "c /pro131.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 End Sub
https://w.atwiki.jp/ireland/pages/7.html
動画(youtube) @wikiのwikiモードでは #video(動画のURL) と入力することで、動画を貼り付けることが出来ます。 詳しくはこちらをご覧ください。 =>http //atwiki.jp/guide/17_209_ja.html また動画のURLはYoutubeのURLをご利用ください。 =>http //www.youtube.com/ たとえば、#video(http //youtube.com/watch?v=kTV1CcS53JQ)と入力すると以下のように表示されます。
https://w.atwiki.jp/britain9/
United Kingdom of Great Britain and Northern Ireland @ Wiki へようこそ ウィキはみんなで気軽にホームページ編集できるツールです。 このページは自由に編集することができます。 メールで送られてきたパスワードを用いてログインすることで、各種変更(サイト名、トップページ、メンバー管理、サイドページ、デザイン、ページ管理、等)することができます United Kingdom of Great Britain and Northern Ireland グレート・ブリテンおよび北アイルランド連合王国
https://w.atwiki.jp/ireland/pages/6.html
アーカイブ @wikiのwikiモードでは #archive_log() と入力することで、特定のウェブページを保存しておくことができます。 詳しくはこちらをご覧ください。 =>http //atwiki.jp/guide/25_171_ja.html たとえば、#archive_log()と入力すると以下のように表示されます。 保存したいURLとサイト名を入力して"アーカイブログ"をクリックしてみよう サイト名 URL
https://w.atwiki.jp/ireland/pages/1.html
メニュー 12 アップロード 1 空白 04050607080910
https://w.atwiki.jp/ireland/pages/9.html
関連ブログ @wikiのwikiモードでは #bf(興味のある単語) と入力することで、あるキーワードに関連するブログ一覧を表示することができます 詳しくはこちらをご覧ください。 =>http //atwiki.jp/guide/17_161_ja.html たとえば、#bf(ゲーム)と入力すると以下のように表示されます。 #bf
https://w.atwiki.jp/ireland/pages/5.html
更新履歴 @wikiのwikiモードでは #recent(数字) と入力することで、wikiのページ更新履歴を表示することができます。 詳しくはこちらをご覧ください。 =>http //atwiki.jp/guide/17_117_ja.html たとえば、#recent(20)と入力すると以下のように表示されます。 取得中です。