〓 Mathematica 伍 〓
■ このスレッドは過去ログ倉庫に格納されています
0001132人目の素数さん
2011/11/11(金) 09:02:28.82, - ' ,..、、.ヾ{{フ'⌒`ヽ、
/ ,:', -‐‐` ´ '´⌒ヽ ヾ:、
. ,' ,'´ ,ィ ,ィ ,' , `ヽ', ',-<
,' .i /|. /.| { i, i, }. }_,,))
! | ! .,'-.{ ! !|; |`、.}゙!.! |. ! ヽ.
', ', |Vァ=、゙、 `゙、!-_:ト,リ', l ! | ゙',
ヽ、', l:!Kノ}. f:_.)i゙i: リ ! l ル
| l!iヾ- ' , .!__:ノ ゙ ,リ l リ'´
. ',|!!、 r‐┐ ` ノ'. /,イ / ̄ ̄ ̄ ̄ ̄ ̄ ̄ ̄ ̄ ̄ ̄ ̄ ̄ ̄ ̄ ̄ ̄ ̄ ̄
'i!゙、ヽ、 ゙ー' _, ィ,:',:''´ < Mathematica に関する話題はここに書いてね!
゙:、ィ、jヾー::: 'iヘ .ノ',リ. \___________________
,、- '´ ヽ、゙、 { `>"、
/\\ ', } //`ヽ
過去スレ
〓Mathematica〓
http://science2.2ch.net/test/read.cgi/math/985023298/
〓 Mathematica 2 〓
http://science3.2ch.net/test/read.cgi/math/1078534285/
〓 Mathematica 3 〓
http://science6.2ch.net/test/read.cgi/math/1121413040/
〓 Mathematica 四 〓
http://kamome.2ch.net/test/read.cgi/math/1197270001/ (鯖飛びでログ消滅)
http://mimizun.com/log/2ch/math/1197270001/
〓 Mathematica 5 〓
http://kamome.2ch.net/test/read.cgi/math/1285859504/
0012132人目の素数さん
2011/11/12(土) 20:42:07.94Ver.4からのアップグレードの特別割引:で税込みで約82000円でした。
0013132人目の素数さん
2011/11/12(土) 20:47:27.890014132人目の素数さん
2011/11/12(土) 20:47:30.02すいません。約84000円でした。
日本のウルフラムリサーチにも問い合わせてみようと思います。もともとはウルフラム
からのバージョンアップの勧誘メールが発端になってますから。
0015132人目の素数さん
2011/11/12(土) 20:50:26.28そうなんですよね。なんだか詐欺にあったような気分です。消費生活センターにも相談して
みようと思います。
0016132人目の素数さん
2011/11/12(土) 20:54:57.79まさかプロ版へのアプグレードが84000円?じゃないよね。
HomeEdition版だよね?
どっちにしろ考えられない値段だが、、、
0017132人目の素数さん
2011/11/12(土) 20:59:31.84そのまさかのプロ版です。Ver4のころにはHomeEditionなんてありませんでしたから。
Ver.8もPro版です。
0018132人目の素数さん
2011/11/12(土) 21:23:45.11へぇ!pro版か。だったら安いかも。
日本にしては間違って安すぎる設定にしちゃったもんだから、
サポートする気がないんだな、きっと。
0019132人目の素数さん
2011/11/12(土) 23:19:22.55XP SP2以降はWolframサポート範囲です。
http://www.wolfram.com/mathematica/features/system-requirements.html
>------------------
>今回の問題は、Mathematica8 と日本語OSの問題で現在解決されていません。
>------------------
今回の問題とは何でしょうか?
0020132人目の素数さん
2011/11/12(土) 23:52:16.16>>2
日本語版mathematica8が動作しないこと。
0021132人目の素数さん
2011/11/13(日) 01:22:48.99仮想マシンのXP SP3がVerが8.0.0.0だわw
とりあえずこれから8.0.1被せて報告する。
ただな、mathpassファイルは調べたかか?
ここにバグがはいると、マニュアルで修正
する必要がある(誤謬項の削除だけだが)。
あとiniファイルだったか、破損していると
起動失敗するよ。
0022132人目の素数さん
2011/11/13(日) 02:44:07.97すみません。ありがとうございます。一応カーネルでアクチベートはできたのでカーネルは
動くようになりました。
あとiniファイルとういうのは何ですか。お教えください。
0023132人目の素数さん
2011/11/13(日) 03:23:34.57仮想マシンが無茶苦茶重くてインスコ終わらんw
アクチできたら、それはそれで良かったですね!
iniファイルについては、当時の状況を記録して
いません。起動時のアラートログを追いかけると、
ファイル(アスキー形式)の中身が途中で破断…
バックアップファイルからカキコ修正しました。
通常iniは初期化のinit.mでしょうが、こいつと
違う(記述が多い)ものでした。
0024132人目の素数さん
2011/11/14(月) 17:02:33.11結局、Mathematica8が動くようになるまで、Mathematica7を使うことになりました。まったく
ウルフラムの技術力のなさにはあきれてしまいます。
ところで仮想XPiのほうは動きましたか?XPSP3でもマシンによって動いたり、動かなかったり
するそうですが…(Hulinksの技術担当より)。
0025132人目の素数さん
2011/11/14(月) 18:54:02.07結局、mathematicav8日本語版は動かないが、英語版は動くの?
0026132人目の素数さん
2011/11/14(月) 19:33:20.09Mathematica8の英語版もそのままでは動かず、いろいろOSをいじってやっと動くという
有様でとても素人が手を出せる代物ではないようです。技術者を派遣して付きっきりで
システムをいじってやっと動かせるようになったそうです。
私のいる四国に技術者を派遣
してもらったりもしくはこちらからマシンを持って東京に行ったりするのは交通費だけでも
大変なのでMathematica7を走らせることにしました。
OSのバージョンアップはコンピュータの
買い替えになってしまうのでこれも大きな出費をともなうのでやめにしました。
0027132人目の素数さん
2011/11/14(月) 19:39:00.708が出てもうだいぶ経つし。
0028132人目の素数さん
2011/11/14(月) 21:14:36.35バグフィックスも思うように進まないわけだ。
v4からのバージョンアップなら安いかもしれんが、
そのまま買うなんて個人には無茶な値段設定。
homeeditionも日本ではバカ高いし、、、。
もしかしてhomeeditionv8も動かないの?
0029132人目の素数さん
2011/11/14(月) 21:21:02.38きた
0030132人目の素数さん
2011/11/14(月) 21:33:59.83大学はたいていどこでも導入してるしまだXP使ってるとこも多いはず。
0031132人目の素数さん
2011/11/14(月) 23:57:23.36仮想マシンを、レジュームから起こしたままでしたので、
無茶苦茶重かったですが、8.0.0.0の環境を継承したのか、
アクチの必要はなかったです。
8.0.0.0->8.0.1update memo--------------------------
言語選定ダイアログ:Japanese->ok
インストールダイアログ->次へ
インストール先->次へ
コンポーネントの選択->次へ
スタートメニューフォルダ->次へ
他のアプリケーションを削除->次へ
(デフォルトの前Ver.を削除)
インストール準備完了->インストール
。。。。
インストールを完了します->ok
------------------------------起動&演算にない模様
確認しているかも知れませんが、経験的な補足をあとの
スレに書きます。
0032132人目の素数さん
2011/11/15(火) 00:25:33.03本件に関し>>25の指摘は重要です。これは英語版が起動する場合です。
日本版でも英語版は裏でサポートされており、言語チェック?に引っ
かかると、英語版となるようで、一例としてmathpassファイルの破損
です。mathpass位置は同OSでも偏在し、過去の状況も引きずります。
この場合以下を参照し異常《異常定義は難しい》はないでしょうか?
※このファイル内容は個人情報のため、質問にも公開しないように。
Mathematica Helpより------------------------------------------
Mathematica を起動したときに,フロントエンドのアクティベーション
ダイアログボックスが現れた場合,Mathematica がmathpassファイルを
見付けられなかったかmathpassファイルに有効なパスワードが含まれて
いなかったかの可能性がある.この問題を解決するためには,まず
mathpassファイルが$BaseDirectory\Licensing,
$InstallationDirectory\Configuration\Licensing,
$UserBaseDirectory\Licensing
のいずれかのディレクトリにあることを確認する,使用中のマシンで
この中のどの場所にあるかを見付けるためには,ノートブックでコマンド
$BaseDirectory
(または$InstallationDirectoryか$UserBaseDirectory)
を評価するとよい.
これらのどの場所にもmathpassファイルがなかったら,
「シングルマシンパスワードの入力」の手順に従ってパスワードを
再入力する必要がある.
0033132人目の素数さん
2011/11/15(火) 23:40:38.36Mathematica8のファイルサイズ4.9GB
倍に増えてるやん!
0034132人目の素数さん
2011/11/17(木) 19:41:34.13pdist = PDF[UniformDistribution[{{-a, a}, {-a, a}}], {x, y}]
こうすると正方形になっちゃうし
良い手はありませんかね?
0035132人目の素数さん
2011/11/17(木) 20:21:14.96>円上に一様分布する確率関数が欲しいんですけど・・・
俺も
球面上に一様分布するやつが欲しいな
頼む
0036132人目の素数さん
2011/11/17(木) 21:17:06.960037132人目の素数さん
2011/11/18(金) 00:13:39.700038132人目の素数さん
2011/11/18(金) 04:13:45.18やぱっりノートパソコンで使いたい。ライセンスを移動する方法ってないの?
0039132人目の素数さん
2011/11/18(金) 08:41:37.90Hulinks に「ライセンス移したいんですけど」って連絡すればオケ。
0040132人目の素数さん
2011/11/18(金) 14:30:08.07エンジニアと参加願います公安はサリンオウム信者の子供を40歳まで社会から隔離している
オウム信者が地方で現在も潜伏している
それは新興宗教を配下としている公安の仕事だ
発案で盗聴器を開発したら霊魂が寄って呼ぶ来た
<電波憑依>
スピリチャル全否定なら江原三輪氏、高橋佳子大川隆法氏は、幻聴で強制入院矛盾する日本宗教と精神科
<コードレス盗聴>
2004既に国民20%被害250〜700台数中国工作員3〜7000万円2005ソウルコピー2010ソウルイン医者アカギ絡む<盗聴証拠>
今年5月に日本の警視庁防課は被害者SDカード15分を保持した有る国民に出せ!!<創価幹部>
キタオカ1962年東北生は二十代で2人の女性をレイプ殺害して入信した創価本尊はこれだけで潰せる<<<韓国工作員鸛<<<創価公明党 <テロ装置>>東芝部品)>>ヤクザ<宗教<同和<<公安<<魂複<<官憲>日本終Googl検索
0041132人目の素数さん
2011/11/18(金) 15:44:04.83Piecewise[{{1/(Pi r^2), x^2 + y^2 <= r^2}}]
>>35
Piecewise[{{1/(4 Pi r^2), x^2 + y^2 + z^2 == r^2}}]
0042132人目の素数さん
2011/11/18(金) 16:22:05.06誰か(アメリカ)気づいた
ソウルコピー機器
テロ装置の再読願います
0043132人目の素数さん
2011/11/28(月) 21:51:44.50例えば、
perl hoge.pl >fuga.m
MathematicaScript -script fuga.m
とやる代わりに
perl hoge.pl | MathematicaScript
や
MathematicaScript -script <(perl hoge.pl)
とするなど。
後者を試そうとするとGet::noopen: Cannot open /dev/fd/63などと怒られてしまいます。
0044132人目の素数さん
2011/11/28(月) 22:19:50.83自己解決しました。
zsh使って
MathematicaScript -script =(perl hoge.pl)
でよいのですね。
0045132人目の素数さん
2011/12/03(土) 20:26:33.162(a+b)とnoteで入力した場合
mathematicaは2×(a+b)と処理しているのかな?
というかしてないと演算結果がおかしいと思う・・
2cなんかも同じで2×c
項としてはっきりさせるには(2(a+b))と入力しないと駄目なのか
0046132人目の素数さん
2011/12/03(土) 22:10:00.25In[1]:= FullForm[2(a+b)] == FullForm[(2(a+b))]
Out[1]= True
0047132人目の素数さん
2011/12/04(日) 00:03:59.57これを 1 にするにはどうすれば良いの
0048132人目の素数さん
2011/12/04(日) 00:46:50.240049132人目の素数さん
2011/12/04(日) 21:49:24.012(a+b)という表記はmathematicaでは2*(a+b)と同義でそう処理されるようです
ですので
2(a+b)/2(c+d)と(2(a+b))/(2(c+d))はもちろん演算結果が異なります
0050132人目の素数さん
2011/12/04(日) 21:59:18.270051132人目の素数さん
2011/12/18(日) 15:36:45.770052132人目の素数さん
2011/12/18(日) 15:49:44.960053132人目の素数さん
2011/12/18(日) 17:18:48.17mathematica v08なんてたくさん放流されてるから使ってみろ
何万も出すなんて馬鹿みたいだし
個人使用目的なら使っても平気だから、どんどん使えw
0054132人目の素数さん
2011/12/18(日) 17:26:18.41それとバイナリ。
0055132人目の素数さん
2011/12/18(日) 18:00:39.09入手できない、インストールできない、設定できないなんて奴はそもそも
タダで使うなんて考えるなw
0056132人目の素数さん
2011/12/18(日) 18:27:49.61脳みそがないなら金払え。
金も脳みそもないなら人生諦めろ。
ってやつだわな。
0057132人目の素数さん
2011/12/18(日) 18:45:34.03今だけ2万5千円くらいで売ってるぞ
知り合いに買ってもらえ
0058132人目の素数さん
2011/12/18(日) 22:07:03.38無料で使いこなす奴ってどんな奴なんだ?
0059132人目の素数さん
2011/12/19(月) 21:36:03.64あるリストに対して、一番大きい要素が一番右に来るようにrotateさせたいんですが、なにかコマンドはあるのでしょうか?
例えば{0,1,1,3,2,4,2,2,1}を{2,2,1,0,1,1,3,2,4}となるようにしたいんです。
For文使って、一つづつ確かめるということもあるのでしょうが、簡単にやりたいです。
0060132人目の素数さん
2011/12/19(月) 21:59:08.53こんなんでどうだろ。
rotatemaxright[lst_] := Which[
Max[lst] == Last[lst], lst,
True, rotatemaxright[RotateRight[lst]]];
Forでなくて再帰使ってるけど。3行で。
0061132人目の素数さん
2011/12/19(月) 22:25:37.38{0, 1, 1, 3, 2, 4, 2, 2, 1} //
RotateRight[#, (Length[#] - Max[Position[#, Max[#]]])] &
まぁ、Maxが複数ある場合の多様性は、お題にないからパスです。
0062132人目の素数さん
2011/12/19(月) 22:57:39.59でどう?
0063132人目の素数さん
2011/12/19(月) 23:45:38.400, 1, 5, 3, 2, 4, 5, 2, 1} //
RotateRight[#, (Length[#] - Position[#, Max[#]][[1]])] &
効率はどう違うのですか?
0064132人目の素数さん
2011/12/19(月) 23:48:06.59Maxが複数あるときうざい
0065132人目の素数さん
2011/12/20(火) 00:24:13.54この場合のMaxは、効率の問題ではなく、Positionの
Max(右端)をとるという意味です。その意味でMaxを
使う必要はありません。
ただし[[1]]ですと、listに同じMaxがある場合に、
左端の(Min)が選定されます。
つまり>>63の例{0, 1, 5, 3, 2, 4, 5, 2, 1}では、
右シフトの場合に、右から3番目の5でとまるべき
ですが、それをこえて、Max左側の5まで周って、
{3, 2, 4, 5, 2, 1, 0, 1, 5}
となります。
>>Maxが複数ある場合の多様性は、お題にないから
>>パスです。
と書いたのは、この意味です。
0066132人目の素数さん
2011/12/20(火) 00:50:29.08確かに左にシフトすりゃ、Positionで左からの
位置が既知じゃけん、Lengthもいらんばぃ…
じゃが、お題は右シフトじゃけん!つか、その
コードのままだと、マセがゲリピーおこすど!
、
0067132人目の素数さん
2011/12/20(火) 01:54:27.48了解しました。
ありがとうございます。
0068132人目の素数さん
2011/12/20(火) 06:29:32.17RotateLeft[lst,Last[Flatten[Position[lst,Max[lst]]]]]
ということで
0069132人目の素数さん
2011/12/20(火) 07:49:55.250070132人目の素数さん
2011/12/20(火) 17:12:02.320071132人目の素数さん
2011/12/21(水) 15:53:45.61関連して質問です。
{1,4,1,1}と{1,1,4,1},そして{1,1,1,4}は回転させれば同じものなので、{1,1,1,4}に統一したいのですが、
どうすればいいでしょうか?
0072132人目の素数さん
2011/12/21(水) 16:01:27.78Sortしちゃいかんの?
0073132人目の素数さん
2011/12/21(水) 16:11:18.07RotateLeft[lst,Last[Flatten[Position[lst,Max[lst]]]]]
でok。
もしかしたら、{1,4,1,4,1,1}を上の式に通すと、{1,1,1,4,1,4}
回転させれば同じものになる{4,1,1,1,4,1}を通すと、{1,4,1,1,1,4}
と、異なってしまうが、どちらかに統一されるようにするにはどうすればいいか?
という疑問なのか?
0074132人目の素数さん
2011/12/21(水) 18:17:35.46>>72
このlistだとSortでもいいんですが、{1231}と{1321}の場合は分けたいんです。
>>73
その疑問もあります。
最初から具体的に言えば、
{{1, 1, 1, 5}, {1, 1, 2, 4}, {1, 1, 3, 3}, {1, 1, 4, 2}, {1, 1, 5,
1}, {1, 2, 1, 4}, {1, 2, 2, 3}, {1, 2, 3, 2}, {1, 2, 4, 1}, {1, 3,
1, 3}, {1, 3, 2, 2}, {1, 3, 3, 1}, {1, 4, 1, 2}, {1, 4, 2, 1}, {1,
5, 1, 1}, {2, 2, 2, 2}, {2, 2, 3, 1}, {2, 3, 2, 1}}
のlistのうち、回転させて同じものは一つとしてまとめたいと考えていまして、
上手く回転したあと、Unionを適用させようと思っていたのですが、その回転をどうしたらいいのかという疑問と、
僕の知識たらずだけで、そういった回転させて同じものを出すとか検索するといったコマンドがあるのではと思って質問しました。
0075132人目の素数さん
2011/12/21(水) 18:43:14.101.counter=0、「リスト保存庫」のリセット
2.新しいリスト候補(=t0)の作成
3.2で作成したリストを一つ回転させたリスト(=t1)、2つ回転させたリスト(=t2)、
3つ回転させたリスト(=t3)をつくる。(リストの長さ分だけ用意する)
4.リスト保存庫の中に、t0からt4と一致するものがないかチェック
5.4であれば、2へ
6.counterを1増やす。リスト保存庫に2で作成したリストを追加
7.2へ
0076132人目の素数さん
2011/12/21(水) 23:17:40.45直裁的なコマンドはあるのかな…しらんばい!
とりあえず速攻版の案です。
list要素の頭を、sublist={a,b,c,d}として、
sublist〜Join〜sublistでsublist2
{a,b,c,d,a,b,c,d}
をつくる。
後続にsublistをシフトされた{c,d,a,b}があっても、
このパターンはsublist2の中に現れる。
強引ですが、これは例えば、
sublist〜Join〜sublist /. {___,c,d,a,b,___}
-> True
で検知はできます。
マッチ部分を残して、残りを再帰で呼び出すかな。
Orderlessを拡張した、75指摘のような円順列属性
が設定できれば簡単だけどな…
0077132人目の素数さん
2011/12/22(木) 08:11:24.74例えばx=(3^y)coszをz=の式にするにはどうすれば良いでしょうか
0078132人目の素数さん
2011/12/22(木) 09:42:34.77→
z == ArcCos[x/3^y] || 3y == 0 && x == 0 && z == ArcCos[Cos[z]]
0079132人目の素数さん
2011/12/22(木) 14:16:18.68ありがとうございます。
0080132人目の素数さん
2011/12/22(木) 16:41:52.81>>60 の rotatemaxright を使って、
Union[Map[rotatemaxright, lst]]
0081132人目の素数さん
2011/12/23(金) 09:26:23.27Union[Map[RotateLeft[#, Last[Flatten[Position[#, Max[#]]]]] &, lst]]
0082132人目の素数さん
2011/12/23(金) 12:32:35.11Residue[Series[f[z,q],{q,0,100}],{z,0}] としたいのですが、
Series で出てくるO(q^100) みたいなのが邪魔するようで、Residue を計算してくれないのですが
どうしたらいいでしょうか?
0083132人目の素数さん
2011/12/23(金) 13:39:53.11うちでは0って出るけどそれじゃダメなの?
0084132人目の素数さん
2011/12/23(金) 14:40:00.47そりは、らんだうのOだぎゃ〜
SeriesのOはNormal使うぎゃ!
ex.
Residue[Normal[Series[1/(z + q), {q, 0, 10}]], {z, 0}]
0085132人目の素数さん
2011/12/24(土) 00:50:28.85ParametricPlot[Cos[t], Sin[t], {t, 0, 2Pi}]
がありますが,媒介変数表示を使わずダイレクトに
x^2 + y^2 == 1 と関数を指定して描く方法はないでしょうか?
円のような単純な形なら媒介変数表示でも問題ないですが
複雑な関数形になるといちいち媒介変数表示に変換するのも大変なので。
0086132人目の素数さん
2011/12/24(土) 00:54:48.46ContourPlot で如何
0087132人目の素数さん
2011/12/24(土) 01:14:05.69おおベリーサンクス!
Axes->True,Frame->Falseをつけたら完璧になりました。
0088132人目の素数さん
2011/12/24(土) 15:43:16.50ありがとうございました!
ランダウの記号(って言うんですね)を除いてコピペしてたので、
その手間がなくなりました!!
0089132人目の素数さん
2011/12/26(月) 03:34:34.45ノートで動かす場合は相当ハイスペックじゃないとダメ?
0090132人目の素数さん
2011/12/26(月) 07:58:26.410091132人目の素数さん
2011/12/26(月) 11:06:01.650092132人目の素数さん
2011/12/26(月) 16:24:27.96cで言うファイルを選択するダイアログボックスを表示させることはできますか?
0093132人目の素数さん
2011/12/26(月) 19:52:24.59>モバイル環境でMathematicaを使いたいのですが、ウルトラブックで動かすのは厳しいですか?
>ノートで動かす場合は相当ハイスペックじゃないとダメ?
MacBookAirで使ってる
快適
0094132人目の素数さん
2011/12/26(月) 20:29:28.89r=RandomReal[ { -1 , 1 } , { 100 , 2 } ];
Graphics[Point[r]]
,{n,1,10,1} ]
このように記述しても、nが変化しても、乱数をその都度作成しません
どのようにすればnが1増えるごとに乱数を作成するようにできますか?
0095132人目の素数さん
2011/12/26(月) 21:24:56.99っSeedRandom
0096132人目の素数さん
2011/12/26(月) 21:44:50.14ありがとうございます
0097132人目の素数さん
2011/12/27(火) 10:46:05.17MBAいいな
今、Mathematica Windows版使ってるから、
買い直さなきゃいけないし無理だなぁ
0098132人目の素数さん
2011/12/27(火) 11:25:56.020099132人目の素数さん
2011/12/27(火) 15:44:28.39インストーラーあれば入るんじゃない?
0100132人目の素数さん
2011/12/27(火) 18:41:35.07OS移行はできるでしょ
0101132人目の素数さん
2011/12/27(火) 18:47:29.71フジテレビでも木村、安藤、滝川の報じた内容は、
フジテレビ自体が、フジテレビの株主にとっても
風説の流布と思われる。
どうしたら、ホリエモンと同罪の犯人を捕まえられますか?
0102132人目の素数さん
2011/12/27(火) 23:30:47.19Manipulate[r = RandomReal[{-1, 1}, {100, 2}];
n;
Graphics[Point[r]], {n, 1, 10, 1}]
だとできるみたいだよ、、。
nがどこか陽に入ってないと、
変更が無いと勝手に解釈するのかね?
0104132人目の素数さん
2011/12/28(水) 23:34:49.29三万しないだろ
0105132人目の素数さん
2011/12/29(木) 07:59:15.810106132人目の素数さん
2011/12/29(木) 10:07:53.10元がいくらだと思ってるんだ」
販売元
0107132人目の素数さん
2011/12/29(木) 10:08:36.19公正取引委員会に言った方がいいんじゃね?
0108132人目の素数さん
2011/12/29(木) 10:09:38.490109132人目の素数さん
2011/12/29(木) 10:18:04.78>このソフトって内外価格差がすごいんでしょ?
超円高だからなおさらだね。
HomeEditionなら2.29894015万円で買えるはずなのに。
0110132人目の素数さん
2011/12/29(木) 16:13:22.710111132人目の素数さん
2011/12/29(木) 21:45:08.89やっぱり人種差別?
■ このスレッドは過去ログ倉庫に格納されています