約 1,127,794 件
https://w.atwiki.jp/atenza/pages/173.html
【作品名】超重神グラヴィオンシリーズ 【ジャンル】アニメ 【名前】天空侍斗牙withソルグラヴィオン 【属性】惑星の破壊や創造が可能なスーパーロボット 【大きさ】50mくらいの人型 【攻撃力】エネルギー解放：エネルギーを解放することにより惑星破壊が可能 ソルグラヴィトンノヴァ：両肩に付いている砲門から重力子エネルギーを照射する。威力は惑星破壊級以上 射程数千km 速度は超光速 超重剣：空間ごと切断する斬撃 一度に斬れる範囲は50m以上 【防御力】惑星破壊に巻き込まれて無傷だった創世機と同等以上の防御 12000度の炎に耐える熱耐性 【素早さ】レーザーと同速のミサイルより速い戦闘速度 その速度で接近戦可能 超光速の反応及び戦闘速度 長距離移動は一瞬で大気圏外に移動できる速度以上 飛行可能 【特殊能力】宇宙空間戦闘可能 【長所】空間切断 【短所】空間切断の範囲 【戦法】相手が小さければ空間切断 相手が速すぎたり大きければエネルギー解放で惑星破壊で削る 1スレ目 847 名前： 格無しさん [sage] 投稿日： 2009/04/02(木) 00 06 44 ゴッドグラヴィオン考察 メガハティまでソルと同じく勝てる ×ソル 超重剣負け ソルグラヴィオン＞ゴッドグラヴィオン＞メガハティ なにか壁がほしいな
https://w.atwiki.jp/trpg_summary/pages/2214.html
2020 1～6月 + クリックすると開きます 7～12月 + クリックすると開きます 12/21：GM 【TRPG】セッション配信「魔の囚人」【#配信のアニマアニムス】
https://w.atwiki.jp/karirakenpedia/pages/450.html
いやー勃起した！！！ 十時二十六とは、ライトノベル作法研究所の利用者。主に掌編の間、雑談用ラノベチャットを利用している。2011年秋季の新参利用者。「とときにとろ」と読むらしいが、おそらく読めない人は多いであろう。実際、このページの編集者も読めなかった。ヲチ板での愛称はととろ。 人物 作品観『パラ磯』 『放送禁止ドリフター』 『ＴＨＥ ＢＥＡＴＥＮ ＤＯＧ』 『若年無業者メロス』 勃起しちゃいました 紳士的発言録にとろ、女性の排泄物に対し強い興味を示すの巻 にとろ、男性器が歓喜して危ないの巻 返事に困る、にとろ駄感想集 関連項目 人物 自ら障害者が嫌いと公言しているが、自分自身も相当にクレイジーな発言を繰り返している。自分が崖っぷちに立っている事に気づいていない危険人物と言えよう。正直、いつうっぴーからお叱りを受けるのだろうかとハラハラドキドキしながら、ヲチャー??は彼を生ぬるく見守っている(「触らぬ神に祟りなし??」)。 なお、第一作目『パラ磯』の作者からのメッセージにて「（夢野久作の）ドグラ・マグラが好きだ」と公言している事から、『ドグラ・マグラ』を読んだ事により心を病んだ可能性がある。 作品観 小説を書いたのは『パラ磯』が初めてであり未熟さを感じさせられる。あまり文章作法を知らないようだ。 『パラ磯』 一作目。一般文芸の影響を受けているようにみられ、一見難解な作品である。実は単に分かりにくいだけという指摘も。ガブリエッタ??と空箱零士??両氏が長めの感想を書いていたが作者レスが短文である事も特記しておく。 『放送禁止ドリフター』 二作目。自身の障害者に対する差別感を躊躇なく表現した作品。規約違反を指摘されマイナス評価が連なった。そのため、作品の出来に反してそこそこ長い感想(＝作風に対する文句)が書かれる事となったが、自身の作者レスは短く、かつ斜め上のものだった。これは項目「勃起しちゃいました」に別記する。この作者レスの後、ヲチ板を見た(と思われる)藤沢和也(KRC)がウイスキー片手に感想投稿をしたが、ヲチ板住人から「お前が言うな」コールが入る。彼はそろそろアルコールを断つべきである。また、風来坊Ｑ??の感想には「ただ、作者コメでハマーン様を引用したのはプラスなので、最終的には０点とさせていただきます」とある。彼のロボット好きはとどまることを知らないようだ。 追記。総得点－100を叩きだした後救世主－100はあまりにもひどすぎ??、略してまいタンがあらわれ最高得点を献上。感想内容は作品に関することは何一つなく、だた7人で－100は酷い。ということが書かれていた。意味不明である。 『ＴＨＥ ＢＥＡＴＥＮ ＤＯＧ』 三作目。本人いわくの10月26日にとろの日に投下された作品。精神病を患った殺したい死にたい言う男が出てきたり、作中のヒロイン？が、ラストで小説家になりそのデビュー作に「女学生がケージに飼われた主人公へ、自らの排泄物で炊いた米を食べさせ性的快感に打ち震え、自慰に耽る場面」があったり、作者の思考が強く投影されている。また作者コメには、「大学行ってないし高校は少年……いかん危ない危ない危ない。だったのでどうせならと思い行きたかった大学にしました。」と書かれていた。少年……。 『若年無業者メロス』 夢走（メロス）という名のニートが主役の、『メロスは激怒した』で終わる掌編。ととろの四作目。三作目の変態女が主役の姉らしい（出てないけど）。とくに目立った変質成分はなく、内容はコメディ。拝読させてもらったところ、悪くなかった。 『ヤサイスクナメニンニクダブル』 勃起しちゃいました －３０点が出たのでこの作品は完☆成しました 利用規約は真っ先に読んでいます いやー勃起した！！！ もうこのような作品は書きませんがそれでもガイジは嫌いです 次回作は今回のコメントを受け止めてきっちり書きますので よろしくお願いします この言い回しはととろお気に入りらしく、「ぼっきしました」や「いやー、没気した……」等の発言が確認されている。またヲチ板でもそのあまりのインパクトゆえ、 ととろ「やめてください、ぼっきしてしまいます」 などと使われることもある。 紳士的発言録 にとろ、女性の排泄物に対し強い興味を示すの巻 真の幼女好きに言わせれば、作品に出てくる幼女は「おしっこでお米炊きたい」レベルには遠いです 空箱零士作『もし幼女が何でも一つ言う事を聞いてくれたら』への投稿感想より抜粋 とりあえずアユミちゃんのおしっこで炊いたお米で食卓を囲みながら 作者様と話がしたい（迫真） 風来坊Ｑ作『外交官ロボ ディプロマッター』への投稿感想より抜粋 にとろ、男性器が歓喜して危ないの巻 僕のペンも喜んでいます･･････いかん、危ない危ない危ない。 自作『パラ磯』作者レスより抜粋 返事に困る、にとろ駄感想集 +ただ喧嘩した双子の弟のために兄貴がアイスを買ってあげた話なのに…… 始めましてこんばんわ とときにとろ です 「アイスが入っていたおかげで、 どうにか部屋に居座る暑さに打ち勝つことが出来たが 今日はそうもいかない」 この一文で気づかされました。 アイス・ソフトクリーム＝冷たいの＝ｼｬﾌﾞ 暴力・怒り＝イライラ＝禁断症状 裁判＝自らの行為への戒め コンビニ＝何でも品が揃う＝マーケット 焼けたアスファルト＝あぶり 引きこもり＝監禁 部屋＝存在できる場所 双子＝二重人格 兄貴が裁判長、恩人の亡骸、知らんぷり 蝉の声、暑さから逃げる、泥棒、不吉な寒気……etc. 他にも暗喩がありすぎて、たまげたなぁ（驚愕） 登場人物が双子とその兄、801点。 ゴミ箱に手を突っ込み、○ ○ ○ 食べた、勝手に食った……とかもう、801点。 最後は兄貴総受け、801点。 なんだかんだで責任を取るため「冷たいのを」買いにいく兄貴は人間の鑑 これほど深いメッセージ性がある話は久しぶりです はっきりいってこれはヤバイです。。。キてます これを書かれた作者様の今現在の安否がとても気になります。 +「○○は俺の嫁」を病としてコメディ風に仕立てただけなのに…… 始めましてこんばんわ とときにとろ です 釘宮病とかもこの類ですよね。。。 あ、これ精神科じゃなくって脳外科行ったほうがいいですね僕ﾜｶﾘﾏｽ 大抵の病気は輪っかの付いたロープに首を通してぶら下がれば治るので 安心してください。この方法は毎年何千人もの魂を救済してるから大丈夫！ +？ ぱっと見 「どんどんゆっくり」 「携帯灰皿を仕舞うと」 ２つに違和感がありました ※感想は一部抜粋ではありません！ これで全文です！ 関連項目 みつき教団正論――「ロリコン・規制反対派等、異常者諸君は首を吊って死ぬべきである」 吉良吉影??――『ジョジョの奇妙な冒険』第四部にて「わたしは…子供のころ…レオナルド・ダ・ビンチの『モナリザ』ってありますよね…あの絵…画集で見たときですね。あの『モナリザ』がヒザのところで組んでいる『手』…あれ……初めて見た時…なんていうか……その…下品なんですが…フフ…………勃起……しちゃいましてね…………」 ドグラ・マグラ――「本書を読破した者は、必ず一度は精神に異常を来たす」と称されている奇書。にとろ、『ドグラ・マグラ』好きー！！ おしっこ――尿の俗称。排泄物の一種。女性の場合は聖水とも表現される。おしっこでお米を炊くと美味しくなるのかは不明。
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/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
https://w.atwiki.jp/grabl_info/pages/11.html
インスタグラムプラグイン 人気の画像共有サービス、Instagram(インスタグラム）の画像をアットウィキに貼れるプラグインです。 #ig_user(ユーザー名) と記載することで、特定ユーザーのInstagramのフィードを表示することができます。 例）@dogoftheday #ig_user #ig_tags(タグ名) と記載することで、特定タグのInstagramのフィードを表示することができます。 #dogofthedayjp タグ #ig_tag #ig_popular と記載することで、Instagramのpopularフィードを表示することができます。 詳しい使い方は以下のページを参考にしてください！ ＝＞http //www1.atwiki.jp/guide/pages/935.html
https://w.atwiki.jp/grasoturismo/pages/2710.html
懐かしいな それにしてもこんなクルマグランツーリスモに入ってたのかよ -- (名無しさん) 2024-02-28 19 28 46