15/02/27 10:38:04.85 EbhLAWFK.net
_....._{{ 〃
, - ' ,..､､.ヾ{{フ'⌒`ヽ､
／ ,:', -‐‐` ´ '´⌒ヽ ヾ:､
. ,' ,'´ ,ィ ,ｨ ,' , ｀ヽ', ',-<
,' .i /|. /.| { i, i, }. }_,,）)
! | ! .,'-.{ ! !|; |`､.}ﾞ!.! |. ! ヽ.
', ', |Vｧ=､ﾞ､ ｀ﾞ､!-_:ﾄ,ﾘ', l ! | ﾞ',
ヽ､', l:!Kノ}. f:_.)iﾞi: ﾘ ! l ル
| l!iヽﾞ- ' , .!__:ﾉ ﾞ ,ﾘ l ﾘ'´
. ',|!!､ r‐┐ ｀ ノ'. /,ｲ ／￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣
'i!ﾞ､ヽ､ ﾞｰ' _, ィ,:',:''´ ＜ Mathematica に関する話題はここに書いてね！
ﾞ:､ｨ､jヾｰ::: 'iﾍ .ノ',ﾘ. ＼＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿
,､- '´ ヽ､ﾞ､ { ｀＞"､
/＼＼ ', } //｀ヽ
過去スレ
〓Mathematica〓
ｽﾚﾘﾝｸ(math板)
〓 Mathematica 2 〓
ｽﾚﾘﾝｸ(math板)
〓 Mathematica 3 〓
ｽﾚﾘﾝｸ(math板)
〓 Mathematica 四 〓
ｽﾚﾘﾝｸ(math板) (鯖飛びでログ消滅)
URLﾘﾝｸ(mimizun.com)
〓 Mathematica 5 〓
ｽﾚﾘﾝｸ(math板)
〓 Mathematica 伍 〓 (実質6)
ｽﾚﾘﾝｸ(math板)
2:１３２人目の素数さん
15/02/27 20:35:00.69 +UQKa//5.net
前スレ>>997
>どんなプロセスを経てるのかはブラックボックスだが。
Traceを使えば途中のプロセスを確認できます(見方はヘルプ参照)。
ex.
Simplify[Sum[
n Binomial[m, n] FactorialPower[m, n] FactorialPower[l - m,
m - n], {n, 1, m}]/FactorialPower[l, m] // FunctionExpand,
Assumptions -> Element[m, Integers]] // Trace
3:１３２人目の素数さん
15/02/28 23:40:16.67 DZoqI/Ay.net
raspberry piのmathematicaをスマホで使うってできます？
両方共Linuxだしいけそうなんだけど
4:１３２人目の素数さん
15/03/11 18:56:11.04 5t8YBppG.net
ウルフラムデモンストレーションプロジェクト
が10000を超えたみたいだね
このスレに投稿したことある人っているの？
5:１３２人目の素数さん
15/03/11 19:04:21.30 Np8Z0I3f.net
一行でさらっとデモ書けるとかっこいいんだろうな。
6:１３２人目の素数さん
15/06/18 22:21:54.71 l1rDPpYs.net
閑散スレなので回答は期待しないけど、あえてお尋ねします：
wolframaplha（Web版）で、
１．Mathematicaのコマンドを実行するにはどうしたらいいのでしょうか？
やろうとすると、認識できませんでしたとか何とか、拒否されます。
２．変数名に、たとえばi0など使うと、ベッセル級数であると勝手に解釈されてしまいます。
この解釈をやめさせる（エスケープする）には、どうしたらよいでしょうか？
7:１３２人目の素数さん
15/06/19 20:03:47.34 T41qgADD.net
具体的な｢問題点｣を特徴づける、例題はありますか？
変数名のi0が、ベッセル級数？<なら変名数変えろよ。
おら心折れて、やる気△1000％なんで↓↓↓対応よろ。
8:１３２人目の素数さん
15/06/20 02:42:58.70 6PEFarmy.net
？？？
9:１３２人目の素数さん
15/06/22 12:20:24.66 LN7kEZbm.net
ベクトル解析分野の研究に使ってる人がいた
図解が便利だって言ってたけど結局研究進められず
田舎に帰ってったわ 無駄な買い物だったね
10:１３２人目の素数さん
15/06/22 22:22:08.70 eeRhDB1W.net
ベクトル解析分野の研究ってすごく頭の悪そうな言い方がよくできるな。
11:１３２人目の素数さん
15/06/23 01:05:36.61 Uz6Ys7tN.net
研究利用で図解に便利と言っているぐらいだから察してあげるべき
12:１３２人目の素数さん
15/06/27 22:09:47.97 Lroxz4xC.net
中身のない研究者は洗練された文言でごまかすというのが学会の常識である。
13:１３２人目の素数さん
15/06/27 22:29:22.01 AND4dtuQ.net
中味のない研究はmathematicaでごまかすのが常識である。
14:１３２人目の素数さん
15/07/02 19:38:46.21 xmHLxpka.net
ParametricPlot［｛cos［t］，sin［t］｝，｛t，0，2Pi｝］これで円描こうと思ったんだけど何かダメみたいです。何が間違いですか？
15:１３２人目の素数さん
15/07/02 20:21:59.69 65cbSMwp.net
関数名は最初大文字
16:１３２人目の素数さん
15/07/06 19:32:10.76 f2WBNGIf.net
Webでは大丈夫だよ
17:１３２人目の素数さん
15/07/14 03:46:06.73
18: ID:LiWlwh92.net
19:１３２人目の素数さん
15/07/14 17:36:08.31 IZD0iO1s.net
モアレ？
20:１３２人目の素数さん
15/07/15 22:00:10.11 xw9NvOmU.net
>>18
そうモアレ
これって回避する方法ってなんかある？
21:１３２人目の素数さん
15/07/15 23:58:50.60 9YHmMtXT.net
ない！
22:１３２人目の素数さん
15/07/31 15:10:37.74 aPY2SDMh.net
解像度を下げて拡大表示するしかないね。
23:１３２人目の素数さん
15/08/13 16:15:56.75 ZNiLVcdt.net
Mathematica10.0.0と10.0.2の間でkeygenが使えなくなってたりしますか
なんかうまくいきません
24:22
15/08/13 16:51:22.45 ZNiLVcdt.net
解決しました！
25:１３２人目の素数さん
15/08/14 22:11:49.85 tsvz1M5z.net
Mathematicaのソースコードはどこに書くのでしょうか？
ノートブックといわれるファイルに書くのでしょうか？
それともテキストエディタを使ってコードを書いて、ノートブックから読み込むのでしょうか？
26:１３２人目の素数さん
15/08/14 22:27:37.66 131cX4Ip.net
ノートブックに
1+1
Enter
とか入力したらどうなるん？
つーかそもそもどういう環境？
27:１３２人目の素数さん
15/08/15 00:13:34.14 kFSNb2CH.net
>Mathematicaのソースコード
それは門外不出
28:１３２人目の素数さん
15/08/15 07:02:59.04 j0qrH8Xi.net
ラズベリーパイ2でのMathematicaの使い心地はどうですか？
遅すぎますか？
29:１３２人目の素数さん
15/08/16 13:00:55.98 K3Qi5+8T.net
パッケージファイルのこと？
30:１３２人目の素数さん
15/08/17 20:45:47.61 9jMMb3DB.net
>>22
10.0.0.2ってMACしかなくね？
31:１３２人目の素数さん
15/08/19 01:04:50.81 MsAJerlF.net
10.2バージョンうｐのメールきた
32:１３２人目の素数さん
15/08/19 13:43:59.70 cV7pE5O3.net
やっとかー
アメリカに遅れること約1ヶ月か。
33:１３２人目の素数さん
15/09/02 16:12:46.94 P2FwdD16.net
むかしは
plot[....]
でぐらふがかけたのに（いまでも）
いまでは
ss := plot[....];
ではぐらふがかけないね
ss
出かける。
いつからこうなったんだろう
34:１３２人目の素数さん
15/09/03 02:03:56.25 6b8jsJgU.net
最後にセミコロンがついているから、出力を抑制してるだけでは？
35:１３２人目の素数さん
15/09/03 02:08:19.72 nPYXDvzv.net
:=だからじゃねーの
36:１３２人目の素数さん
15/09/07 04:19:54.84 mkN4TiZz.net
RasberryPI2のMATHEMATICAについての質問です。
コマンドのマセマティカは動くのですが、WINDOW（X)画面はINITIALZEで灯ったままです。
そのまえは動いていたのですが、同じような経験のかたはいませんか？
37:１３２人目の素数さん
15/09/07 21:07:21.98 mkN4TiZz.net
こわれたんだよ キミ
やすいから まず CARD（１５００円）をかって再インストールするんだな
あとは誰かよく知っている奴に教えても懶惰な
38:１３２人目の素数さん
15/09/12 04:24:22.92 bTfzVmge.net
377 ：１３２人目の素数さん：2015/09/06(日) 16:49:15.46 ID:A7xQ0jVT
あ、訂正します：
Raspberry Pi2が届きました。
RaspbianをインストールしMathematicaを使ってみましたが問題がありました。
最初は起動できるのですが、一度終了して、また起動しようとすると、
「Initializing Kernels ...」というメッセージのところでフリーズ
してしまうんですよね。
調べたところまだ修正されていないバグだそうです。
対策は、WolframというGUIではないMathematicaを起動して、
PacletUpdate["CloudObject"]
を評価すると以後、問題なく使えるようになるようです。
ちなみに、Raspberry Pi2の性能でもほとんど速度的に問題なく
Mathematicaを使えるようです。
SDカードにも注意が必要です。
Amazon.co.jpで推奨のTranscendの32GBのmicroSDカードを最初に買った
のですが、エラーが出て起動できなくなりました。調べたら他にも同じ
人がいて、どうも相性が良くないようです。相性というか、Raspberry Pi2
かmicroSDカードのどちらかがmicroSDカードの仕様を満たしていないか、
microSDカードの仕様自体に問題があるかですよね。ひどい話です。
SAMSUNGの32GBのmicroSDカードを新たに買いましたが、全く問題なく
使用できています。
家でもMathematicaが安く使えるっていいですよね。
39:１３２人目の素数さん
15/09/18 19:58:04.49 npM5UDr5.net
mathematicaはlispに似てるのかな？
40:１３２人目の素数さん
15/09/20 09:26:09.42 wSAuf8N0.net
双方から「あんなのと一緒にするな！」と叱られそうだｗ
41:１３２人目の素数さん
15/09/22 22:51:36.47 xhHJSXd3.net
ほふにゃ～ん
42:１３２人目の素数さん
15/09/29 13:42:22.41 BSxu+0U8y
この掲示板、現在、投稿可能でしょうか？
43:１３２人目の素数さん
15/09/30 19:19:36.73 /y4CU8As0
こんにちは、
下記の計算で、z1=z2となりますが、前に係数epが付いただけで、
y1=y2、y1=y3となりません。
なぜでしょうか？
ep =.;
a =.;
z1 = Exp[-Log[a]]
z2 = Exp[Log[1/a]]
z1 - z2
y1 = Exp[ep/2*(Log[1/a])]
y2 = Exp[ep/2*(-Log[a])]
y3 = Exp[-ep/2*(Log[a])]
FullSimplify[y1 - y2]
FullSimplify[y1 - y3]
44:１３２人目の素数さん
15/10/01 10:21:05.21 oTlTUtkC.net
こんにちは、
すいませんが、以下を教えて下さい。
質問１、
a^(k)=Exp[k*Log[a]]
ですが、（下記の計算参照）
y1 = (1/a)^(k/2)を、変換して
y2 = Exp[k/2*(Log[1/a])]
か、もしくは
y3 = Exp[k/2*(-Log[a])]
に書き換えることは可能でしょうか？
可能でしたら、
(1/a)^(k/2)→ Exp[k/2*(Log[1/a])]
(1/a)^(k/2)→ Exp[k/2*(-Log[a])]
に書き換える方法を知りたいです。
x1 = a^(k)
x2 = Exp[k*Log[a]]
x1 - x2
y1 = (1/a)^(k/2)
y2 = Exp[k/2*(Log[1/a])]
y3 = Exp[k/2*(-Log[a])]
45:１３２人目の素数さん
15/10/01 10:21:31.83 oTlTUtkC.net
質問２、
下記の計算で、z1=z2となりますが、前に係数kが付いただけで、
y1=y2、y1=y3となりません。
なぜでしょうか？
k =.;
a =.;
z1 = Exp[-Log[a]]
z2 = Exp[Log[1/a]]
z1 - z2
y1 = Exp[k/2*(Log[1/a])]
y2 = Exp[k/2*(-Log[a])]
y3 = Exp[-k/2*(Log[a])]
FullSimplify[y1 - y2]
FullSimplify[y1 - y3]
46:１３２人目の素数さん
15/10/01 13:46:42.25 q69rHjXO.net
>>44
多価性
47:１３２人目の素数さん
15/10/02 22:56:01.28 me7VNaXR.net
>>44
多価関数の分岐問題を無視するなら、FullSimplifyでなく
PowerExpandを強行作用させる。
>>43
組込関数PowerのProtect属性を一度外してオーバーロード
(再定義)する。
その際には、Exp[k Log[a]]がa^kに自動的に簡約されない
ように、HoldFormなどのラッパーをかませる。
またaがEだと無限地獄に陥るのでUnsameQなどの判定も必要。
48:１３２人目の素数さん
15/10/02 22:58:12.22 me7VNaXR.net
やべ･･･地下スレを上げちゃったゴメンなさい
49:１３２人目の素数さん
15/10/03 12:09:38.46 i3GiK4WT.net
>>46
ご回答有難う御座います。
＞PowerExpandを強行作用させる。
解りました。
>>43
やってみます。
50:１３２人目の素数さん
15/10/03 19:59:13.61 1Xvcyzxf.net
>>48
言ってみたものの結構むずい、再帰終端があまいですが単純なサンプル例。
Unprotect[Power, Log];
Power[a_/;a=!=E, b_ /;b=!=-1]:=(b Log[a])//HoldForm[Power[E, #]] &
Log[Power[a_,-1]]:=-Log[a]
Protect[Power, Log];
組込関数をいじっているので、副作用に注意が必要です。
(*Test*)
(1/a)^(k/2) (* -> Exp[-1/2 k Log[a] *)
% - Exp[k/2 Log[1/a]](* -> 0 *)
Exp[-Log[a]] - Exp[Log[1/a]](* -> 0 *)
51:１３２人目の素数さん
15/10/04 21:14:20.33 VsqVNwlb.net
>>49
ご回答有難う御座います。
自分でやって、直ぐに諦めました。
ご回答を見て、「やっぱ難しい。」ことが確認出来ました。
副作用に注意の上、応用して、使用させて頂きます。
助かりました。
52:１３２人目の素数さん
15/10/04 22:27:45.86 i+FfBeQa.net
-1=(√(-1))^2=√((-1)^2)=1みたいな計算をするってオチが待ってるような
53:１３２人目の素数さん
15/10/07 05:00:12.36 CGHSLu1P.net
マセマティカのグラフィック最初に見た時衝撃的だったなー。
コンピューターとか数学の真の姿を見た気分だったw。当時は。
54:１３２人目の素数さん
15/10/07 14:36:30.57 iEgT5nzT.net
最初にmathematicaを見たのはPC98x1用のMS-DOS版だったな
早速コピーして持って帰ったｗ
55:１３２人目の素数さん
15/10/07 20:34:43.59 GPZbsljf.net
当時は数式処理ソフトってフリーウェアばかりで、そんな中
商用だなんてえれー自信過剰なやつだと思ったもんだ。
56:１３２人目の素数さん
15/10/07 21:47:08.01 xCO/kZ86.net
mathematicaの存在を知ったのは98年くらい。ちょうどインターネットが流行りだった頃だった
機能にもビビったが何よりも驚いたのは値段だな。adobe製品より高いじゃんって
57:１３２人目の素数さん
15/10/07 22:48:46.62 IP1y9sj4.net
個人用は念頭にないのかもね
58:１３２人目の素数さん
15/10/09 16:26:19.06 ZgH28ffB.net
研究費も取れないやつが個人で使うソフトじゃないってことだろ。
59:１３２人目の素数さん
15/10/09 18:42:14.39 27E40q/z.net
Mathematica 10.2
スノレパ切り捨てかよ
60:１３２人目の素数さん
15/10/09 21:12:26.20 GUJOWNGo.net
なぜ日本人には作れないのか？
61:１３２人目の素数さん
15/10/09 21:45:08.91 rT1ZZfem.net
Risa/Asirは日本発だよ
62:１３２人目の素数さん
15/10/10 08:50:32.60 8Ia75fQS.net
>>57
６０００円もあればラズパイで使えるのに
63:１３２人目の素数さん
15/10/10 08:54:38.12 Uzke+66q.net
おま国な値段のホームエディション日本語版。えいごばんのねだんでも売ればいいのに
64:１３２人目の素数さん
15/10/10 22:15:49.67 /4Db+7J2.net
ラズパイにバンドルされてるんだな
NEXTみたいだｗ
高校生が宿題やるくらいだったら余裕って程度のマシンスペックだし個人用ならアリかもな
65:１３２人目の素数さん
15/10/11 11:18:23.21 6td4HPeh.net
>>63
2Bでどうにかまともに操作できるスペック
BまではWolfram(CUI)でないと苦痛なレベル
66:１３２人目の素数さん
15/10/12 16:36:51.72 0PkZrgdI.net
誰かMathematicaでAVIファイルの読み込みとかやった事ある人いないか
67:１３２人目の素数さん
15/10/12 16:44:53.36 0PkZrgdI.net
(* in *)
Import[
"IMGA.avi", {{
"BitDepth",
"ColorSpace",
"Duration",
"FrameCount",
"FrameRate",
"ImageSize",
"VideoEncoding"
}}]
Import["IMGA.avi", {"Frames", 1}] <-この結果が欲しい
(* out *)
{8, RGBColor, 7.173776069290165`, 172, 23.976215362548828`, {1280,
720}, "MJPG"}
Import::fmterr: データをvideo形式でインポートすることができません． >>
こんな感じで読み込めないんだよ
これは文法的問題なのか動画のエンコードの問題なのか
一応Mathematica9で読み込めるMotionJPEGでエンコードしたんだが
誰か解決出来る人いない？
ちなみに，H261,H263などのコーデックは試した.
68:１３２人目の素数さん
15/10/12 21:39:23.02 kOQXOCe2.net
>>66
10.2で手持ちのaviファイルで実行してみたけど、2つとも正常に動作した。
なので、エンコードの問題だね。
69:１３２人目の素数さん
15/10/12 22:54:15.27 OMgfvQc/.net
>>67 ありがと、エンコードソフト変えてみる。
70:１３２人目の素数さん
15/11/16 12:39:42.46 CDXjkC7P.net
こんにちは、
下記HPのP１０ 上から６行目計算をしたいのですが、入射・散乱光子の偏極の部分（下記コード参照）を、このように計算したらいいのか？解りません。
教えて下さい。
URLﾘﾝｸ(members3.jcom.home.ne.jp)
(*コンプトン散乱～クライン・仁科の公式 P１０ 上から６行目計算*)
s =.;
u =.;
(*ガンマ行列*)
g[0] = {{1, 0, 0, 0}, {0, 1, 0, 0}, {0, 0, -1, 0}, {0, 0, 0, -1}};
g[1] = {{0, 0, 0, 1}, {0, 0, 1, 0}, {0, -1, 0, 0}, {-1, 0, 0, 0}};
g[2] = {{0, 0, 0, -I}, {0, 0, I, 0}, {0, I, 0, 0}, {-I, 0, 0, 0}};
g[3] = {{0, 0, 1, 0}, {0, 0, 0, -1}, {-1, 0, 0, 0}, {0, 1, 0, 0}};
(*入射・散乱電子・光子*)
sl[k] = g[0]*k0 + g[1]*(-k1) + g[2]*(-k2) + g[3]*(-k3);
sl[k'] = g[0]*k0' + g[1]*(-k1') + g[2]*(-k2') + g[3]*(-k3');
sl[pi] = g[0]*pi0 + g[1]*(-pi1) + g[2]*(-pi2) + g[3]*(-pi3);
sl[pf] = g[0]*pf0 + g[1]*(-pf1) + g[2]*(-pf2) + g[3]*(-pf3);
e4 = IdentityMatrix[4];
ms = m*e4;
71:１３２人目の素数さん
15/11/16 12:41:08.70 CDXjkC7P.net
＞＞67の続きです
(*入射・散乱光子の偏極 ここの部分が解りません*)
(*sl[epsilon]=g[0]*epsilon0+g[1]*(-epsilon1)+g[2]*(-epsilon2)+g[3]*(-epsilon3);
sl[epsilon']=g[0]*epsilon0'+g[1]*(-epsilon1')+g[2]*(-epsilon2')+g[3]*(-epsilon3');*)
sl[epsilon] = e4;
sl[epsilon'] = e4;
(*トレース部分の計算*)
y1 = 0; y2 = 0;
For[x = 0, x <= 3, x++,
For[y = 0, y <= 3, y++,
s1 = Tr[sl[epsilon'].sl[k].sl[epsilon].(sl[pi] + ms).sl[epsilon].sl[k].sl[epsilon'].(sl[pf] + ms)];
y1 = y1 + s1;
]];
72:１３２人目の素数さん
15/11/16 12:42:42.80 CDXjkC7P.net
＞＞68の続きです
(*計算結果の整理 入射・散乱光子の偏極でのこの部分も解りません*)
y1 = y1 //. {pi1 -> 0, pi2 -> 0, k0 -> pi3, k1 -> 0, k2 -> 0, k3 -> -pi3,
pf0 -> pi0, pf1 -> pi3*Sqrt[1 - z^2], pf2 -> 0, pf3 -> pi3*z, k' 0 -> pi3,
k' 1 -> -pi3*Sqrt[1 - z^2], k' 2 -> 0, k' 3 -> -pi3*z, pi0 -> (s + m^2)/(2 Sqrt[s]),
pi3 -> (s - m^2)/(2 Sqrt[s]), z -> 1 + t/(2 pi3^2), t -> 2 m^2 - s - u, epsilon0 -> 1,
epsilon1 -> 1, epsilon2 -> 1, epsilon3 -> 1, epsilon0' -> 1, epsilon1' -> 1, epsilon2' -> 1,
epsilon3' -> 1};
s = 2*k*pi + m^2;
u = -2*k'*pi + m^2;
Print["(*計算結果*)"];
Print[Simplify[y1]];
Print["(*正しい計算結果*)"];
8*(pi*k)*(pi*k')
73:１３２人目の素数さん
15/11/17 09:12:29.76 3ovFUbn6.net
＞＞69
すいません。最後の正しい計算結果は、以下となるはずです。
Print["(*正しい計算結果*)"];
8*(pi*k)*((pi*k') + 2*(epsilon'*k)^2)
74:１３２人目の素数さん
15/11/17 15:58:46.02 yKlve9W4.net
ベクトルとスカラーの区別もつかんのか
75:１３２人目の素数さん
15/11/17 17:26:13.64 3ovFUbn6.net
お返事有難う御座います。
＞ベクトルとスカラーの区別もつかんのか
この部分のことでしょうか？
(*入射・散乱光子の偏極 ここの部分が解りません*)
(*sl[epsilon]=g[0]*epsilon0+g[1]*(-epsilon1)+g[2]*(-epsilon2)+g[3]*(-epsilon3);
sl[epsilon']=g[0]*epsilon0'+g[1]*(-epsilon1')+g[2]*(-epsilon2')+g[3]*(-epsilon3');*)
sl[epsilon] = e4;
sl[epsilon'] = e4;
ベクトルにしました。
URLﾘﾝｸ(www43.tok2.com)
epsilon0 -> 1,
epsilon1 -> 1, epsilon2 -> 1, epsilon3 -> 1, epsilon0' -> 1, epsilon1' -> 1, epsilon2' -> 1,
epsilon3' -> 1
この部分を、直せば、計算できるのでしょうか？
76:１３２人目の素数さん
15/11/17 21:39:39.86 3ovFUbn6.net
ずーと考えているんですが、解らないです。
入射光子は
k0 -> pi3,
k1 -> 0,
k2 -> 0,
k3 -> -pi3,
で、これに直交するので、たぶん
epsilon0 -> 0,
epsilon1 -> 1,
epsilon2 -> 1,
epsilon3 -> 0,
となると思います。
では、散乱光子に
k' 0 -> pi3,
k' 1 -> -pi3*Sqrt[1 - z^2],
k' 2 -> 0,
k' 3 -> -pi3*z,
に直交する
epsilon0' -> ?,
epsilon1' -> ?,
epsilon2' -> ?,
epsilon3' -> ?;
値は、あるのでしょうか？考え方が間違っているでしょうか？
77:１３２人目の素数さん
15/11/18 13:05:57.11 +rEnD0zr.net
>>75
>>69のpdfを最後まで読めば
78:１３２人目の素数さん
15/11/18 14:08:48.47 3O/g4pbU.net
>>66
Mathematica9でAVIのデータって対応コーデックでエンコードしてるはずなのに
読み込めない事あるよね
79:１３２人目の素数さん
15/11/18 18:28:29.54 ZGbh9dRh.net
お返事有難う御座います。
PDFのP13とP14からε(1)、ε‘(1)（=εd[1]）, ε(2)、ε‘(2)は以下のように思います。
P９のε・ε＝－１になるような“ε”が、具体的にどのような行列になるのか？解りません。
ε[1] = {0, 1, 0, 0};
ε[2] = {0, 0, 1, 0};
εd[1] = {0, Cos[theta], 0, Sin[theta]};
εd[2] = {0, 0, 1, 0};
80:１３２人目の素数さん
15/11/18 20:55:04.92 +rEnD0zr.net
>>78
>ε[1] = {0, 1, 0, 0};
>ε[2] = {0, 0, 1, 0};
>εd[1] = {0, Cos[theta], 0, Sin[theta]};
>εd[2] = {0, 0, 1, 0};
各々について
>P９のε・ε＝－１
の意味での “ε[1]・ε[1]” 等を計算してみ
81:１３２人目の素数さん
15/11/19 04:59:38.05 DYBf4v7N.net
>>79
お返事有難う御座います。
各々について
>P９のε・ε＝－１
の意味での “ε[1]・ε[1]” 等を計算してみ
考えたのですが、ε=(0,ε)の定義というか意味が解らないです。
pi=(m,0)なら、電子の静止質量ｍとし、pi=(m,0,0,0,)とわかるのですが、
ε=(0,ε)なら、ε= {0, 1, 0, 0}を素直に入れると、ε= {0,0,1, 0, 0}になってしまいます。
またεは、スカラーや行列ではなく、ベクトルなら、ε・ε＝－１になるのは,、下記のように虚数しかないと思います。
しかし、そうするとε[2]・ εd[2] =-1になってしまいます。
ε[1] = {0, I, 0, 0};
ε[2] = {0, 0, I, 0};
εd[1] = {0, I*Cos[theta], 0, I*Sin[theta]};
εd[2] = {0, 0, I, 0};
82:１３２人目の素数さん
15/11/19 16:32:39.76 RTjH01/q.net
>>80
太字は３次元空間のベクトルなんじゃないの > >>69のpdf
83:１３２人目の素数さん
15/11/20 15:05:45.99 iwwtB9CQ.net
お返事有難う御座います。
>>太字は３次元空間のベクトルなんじゃないの > >>69のpdf
その通りです。解りました。
ε・ε＝－１
ε'・ε'＝－１
ε(1)・ε'(1)＝CosΘ
ε(1)・ε'(2)＝ε(2)・ε'(1)＝0
ε(2)・ε'(2)＝1←この式は、（－１）の間違いでは無いでしょうか？PDFのP14の一番上の式
そうしますと、以下のmathematica programで、計算できるのですが、如何でしょうか？
ep = (1/Sqrt[2])*{0, I, I, 0};
epdash = (I/Sqrt[2])*{0, -Cos[theta], 1, Sin[theta]};
Simplify[ep.ep]
Simplify[epdash.epdash]
(*分解*)
ep1 = {0, I, 0, 0};
ep2 = {0, 0, I, 0};
epdash1 = {0, -I*Cos[theta], 0, I*Sin[theta]};
epdash2 = {0, 0, I, 0};
(ep1.epdash1)^2 + (ep2.epdash2)^2 + (ep1.epdash2)^2 + (ep2.epdash1)^2
Simplify[ep1.ep1]
Simplify[ep2.ep2]
Simplify[ep1.epdash1]
Simplify[ep2.epdash2]
Simplify[ep1.epdash2]
Simplify[epdash2.ep1]
84:１３２人目の素数さん
15/11/20 16:52:15.37 5WwBOUNo.net
4元ベクトルの「内積」とMathematicaの「.」演算は別ものだろうに
85:１３２人目の素数さん
15/11/20 17:41:08.23 iwwtB9CQ.net
ご指摘有難う御座います。
修正しました。これで如何でしょうか？
g = {{1, 0, 0, 0}, {0, -1, 0, 0}, {0, 0, -1, 0}, {0, 0, 0, -1}};
ep = (1/Sqrt[2])*{0, 1, 1, 0};
epdash = (1/Sqrt[2])*{0, -Cos[theta], 1, Sin[theta]};
Simplify[ep.g.ep]
Simplify[epdash.g.epdash]
(*分解*)
ep1 = {0, 1, 0, 0};
ep2 = {0, 0, 1, 0};
epdash1 = {0, -Cos[theta], 0, Sin[theta]};
epdash2 = {0, 0, 1, 0};
Simplify[(ep1.g.epdash1)^2 + (ep2.g.epdash2)^2 + (ep1.g.epdash2)^2 + \
(ep2.g.epdash1)^2]
Simplify[ep1.g.ep1]
Simplify[ep2.g.ep2]
Simplify[ep1.g.epdash1]
Simplify[ep2.g.epdash2]
Simplify[ep1.g.epdash2]
Simplify[epdash2.g.ep1]
86:１３２人目の素数さん
15/11/20 18:04:04.03 iwwtB9CQ.net
-Cos[theta],は、間違いでしょうね。Cos[theta],が正しいはずです。
87:１３２人目の素数さん
15/11/20 18:46:42.15 iwwtB9CQ.net
これで、如何でしょうか？
Print["(*４元ベクトル*)"];
g4 = {{1, 0, 0, 0}, {0, -1, 0, 0}, {0, 0, -1, 0}, {0, 0, 0, -1}};
ep = (1/Sqrt[2])*{0, 1, 1, 0};
epdash = (1/Sqrt[2])*{0, Cos[theta], 1, Sin[theta]};
Simplify[ep.g4.ep]
Simplify[epdash.g4.epdash]
Print["(*３次元空間ベクトル分解*)"];
g3 = {{1, 0, 0}, {0, 1, 0}, {0, 0, 1}};
ep1 = {1, 0, 0};
ep2 = {0, 1, 0};
epdash1 = {Cos[theta], 0, Sin[theta]};
epdash2 = {0, 1, 0};
Simplify[(ep1.g3.epdash1)^2 + (ep2.g3.epdash2)^2 + (ep1.g3.epdash2)^2 \
+ (ep2.g3.epdash1)^2]
Simplify[ep1.g3.ep1]
Simplify[ep2.g3.ep2]
Simplify[ep1.g3.epdash1]
Simplify[ep2.g3.epdash2]
Simplify[ep1.g3.epdash2]
Simplify[epdash2.g3.ep1]
88:１３２人目の素数さん
15/11/21 12:30:55.01 fraSz3dZ.net
こんにちは、
epdash = (1/Sqrt[2])*{0, Cos[theta], 1, Sin[theta]};
としますと、kdashとepdashの内積が、"0"になりません。
下記のどこが間違っているでしょうか？
k0 = pi3;
k1 = 0;
k2 = 0;
k3 = -pi3;
kdash0 = pi3;
kdash1 = -pi3*Sqrt[1 - z^2];
kdash2 = 0;
kdash3 = -pi3*z;
episilon0 = 0;
episilon1 = (1/Sqrt[2])*1;
episilon2 = (1/Sqrt[2])*1;
episilon3 = 0;
(*この部分は正しいでしょうか？*)
episilondash0 = -1;
episilondash1 = Sqrt[1 - z^2];
episilondash2 = 1;
episilondash3 = z;
(*-------------------------*)
Simplify[episilondash0*episilondash0 - episilondash1*episilondash1 - episilondash2*episilondash2 - episilondash3*episilondash3]
Simplify[episilon0*episilon0 - episilon1*episilon1 - episilon2*episilon2 - episilon3*episilon3]
Simplify[kdash0*kdash0 - kdash1*kdash1 - kdash2*kdash2 - kdash3*kdash3]
Simplify[episilondash0*kdash0 - episilondash1*kdash1 - episilondash2*kdash2 - episilondash3*kdash3]
Simplify[episilon1*episilondash1 + episilon2*episilondash2 + episilon3*episilondash3]
89:１３２人目の素数さん
15/11/21 15:12:04.06 fraSz3dZ.net
URLﾘﾝｸ(www43.tok2.com)
この図の通り、計算したのですが、やはりダメです。
s = 2*k*pi + m^2;
u = -2*kdash*pi + m^2;
z = 1 + t/(2 *pi3^2);
t = 2 m^2 - s - u;
pi0 = (s + m^2)/(2 Sqrt[s]);
pi1 = 0;
pi2 = 0;
pi3 = (s - m^2)/(2 Sqrt[s]);
pf0 = pi0;
pf1 = pi3*Sqrt[1 - z^2];
pf2 = 0;
pf3 = pi3*z;
k0 = pi3;
k1 = 0;
k2 = 0;
k3 = -pi3;
kdash0 = pi3;
kdash1 = -pi3*Sqrt[1 - z^2];
kdash2 = 0;
kdash3 = -pi3*z;
episilon0 = 0;
episilon1 = (1/Sqrt[2])*1;
episilon2 = (1/Sqrt[2])*1;
episilon3 = 0;
(*この部分は正しいでしょうか？*)
episilondash0 = 0;
episilondash1 = (1/Sqrt[2])*Sqrt[1 - z^2];
episilondash2 = (1/Sqrt[2])*1;
episilondash3 = (1/Sqrt[2])*z;
(*----------------------*)
Print["(*この値は"０"になる*)"];
Print[Simplify[episilon0*k0 - episilon1*k1 - episilon2*k2 - episilon3*k3]];
Print[Simplify[episilondash0*kdash0 - episilondash1*kdash1 - episilondash2*kdash2 - episilondash3*kdash3]];
(*Print[Simplify[episilondash1*kdash1+episilondash2*kdash2+episilondash3*kdash3]];*)
Print[Simplify[episilon0*pi0 - episilon1*pi1 - episilon2*pi2 - episilon3*pi3]];
Print[Simplify[episilondash0*pi0 - episilondash1*pi1 - episilondash2*pi2 - episilondash3*pi3]];
Print[Simplify[k0*k0 - k1*k1 - k2*k2 - k3*k3]];
Print[Simplify[kdash0*kdash0 - kdash1*kdash1 - kdash2*kdash2 - kdash3*kdash3]];
Print["(*この値は"-1"になる*)"];
Print[Simplify[episilon0*episilon0 - episilon1*episilon1 - episilon2*episilon2 - episilon3*episilon3]];
Print[Simplify[episilondash0*episilondash0 - episilondash1*episilondash1 - episilondash2*episilondash2 - episilondash3*episilondash3]];
90:１３２人目の素数さん
15/11/23 13:14:06.17 8rcLFYdN.net
>>87
>kdash1 = -pi3*Sqrt[1 - z^2];
>kdash2 = 0;
>kdash3 = -pi3*z;
と
>episilondash1 = Sqrt[1 - z^2];
>episilondash2 = 1;
>episilondash3 = z;
が直交するはずだと思ってるの？
91:１３２人目の素数さん
15/11/24 10:48:12.96 4ii4n/VM.net
お返事有難う御座います。
＞が直交するはずだと思ってるの？
その通りだと思い、計算していました。
下記HPの「mathematica」をクリック願います。
計算結果が表示します。
URLﾘﾝｸ(www43.tok2.com)
いま、PDFのP8の３行目
URLﾘﾝｸ(members3.jcom.home.ne.jp)
”p・? = p・?′ = 0（実験室系なので）になるので ”
という文から、そもそも以下（重心系）を、実験室系に変更しないと計算（ｐiε＝pfε'=0）が合わないのでは？
と考えてます。従いまして、現在
s = 2*k*pi + m^2;
u = -2*kdash*pi + m^2;
z = 1 + t/(2 *pi3^2);
t = 2 m^2 - s - u;
pi0 = (s + m^2)/(2 Sqrt[s]);
pi1 = 0;
pi2 = 0;
pi3 = (s - m^2)/(2 Sqrt[s]);
pf0 = pi0;←（この形は、重心系）
pf1 = pi3*Sqrt[1 - z^2];←（この形は、重心系）
pf2 = 0;
pf3 = pi3*z;←（この形は、重心系）
k0 = pi3;
k1 = 0;
k2 = 0;
k3 = -pi3;
kdash0 = pi3;
kdash1 = -pi3*Sqrt[1 - z^2];
kdash2 = 0;
kdash3 = -pi3*z;
URLﾘﾝｸ(osksn2.hep.sci.osaka-u.ac.jp)
のP4を元に、以前教えて頂いた重心系を、実験室系に変更したいのですが、解らず困っています。
92:１３２人目の素数さん
15/11/24 10:50:01.46 4ii4n/VM.net
すいません。文字化けです。
”p・イプシロン = p・イプシロン′ = 0（実験室系なので）になるので ”
93:１３２人目の素数さん
15/11/24 10:57:39.85 4ii4n/VM.net
すいません。また間違えました。
pi0 = (s + m^2)/(2 Sqrt[s]);←（この形は、重心系）
pi1 = 0;
pi2 = 0;
pi3 = (s - m^2)/(2 Sqrt[s]);←（この形は、重心系）
pf0 = pi0;
pf1 = pi3*Sqrt[1 - z^2];
pf2 = 0;
pf3 = pi3*z;
94:１３２人目の素数さん
15/11/24 13:46:18.18 4ii4n/VM.net
実験系を計算しました。下記は如何でしょうか？
正しいでしょうか？
s =.;
u =.;
z =.;
t =.;
(*u=-2*k*q+m^2;
t=2 m^2-s-u;
z=1+t/(2 *k3^2);
w=1+u/(2 *k3^2);*)
k0 = (s - m^2)/ Sqrt[s];
k1 = 0;
k2 = 0;
k3 = -(s - m^2)/ Sqrt[s];
p0 = m;
p1 = 0;
p2 = 0;
p3 = 0;
j0 = (s - m^2)/(2 Sqrt[s]);
j1 = -(s - m^2)/(2 Sqrt[s])*Sqrt[1 - w^2];
j2 = 0;
j3 = (s - m^2)/(2 Sqrt[s])*w;
q0 = (s + m^2)/(2 Sqrt[s]);
q1 = (s - m^2)/(2 Sqrt[s])*Sqrt[1 - z^2];
q2 = 0;
q3 = (s - m^2)/(2 Sqrt[s])*z;
Print["(計算確認*)"];
p = p0*p0 - p1*p1 - p2*p2 - p3*p3;
q = q0*q0 - q1*q1 - q2*q2 - q3*q3;
k = k0*k0 - k1*k1 - k2*k2 - k3*k3;
j = j0*j0 - j1*j1 - j2*j2 - j3*j3;
Print["(*０になる*)"];
Simplify[(p + k)^2 - (j + q)^2]
Simplify[(p - q)^2 - (k - j)^2]
Simplify[(p - j)^2 - (q - k)^2]
Simplify[k]
Simplify[j]
Print["(*mになる*)"];
Simplify[p]
Simplify[q]
s = m^2;
Print["(*０になる*)"];
Simplify[p + k - j - q]
Simplify[k3 - (j3 + q3)](*z軸のつり合い*)
Simplify[j1 - q1](*ｙ軸のつり合い*)
95:１３２人目の素数さん
15/11/24 17:03:44.05 D/YnhDfb.net
>>93
sってどんな量？
96:１３２人目の素数さん
15/11/24 17:36:26.29 4ii4n/VM.net
お返事有難う御座います。
URLﾘﾝｸ(members3.jcom.home.ne.jp)
のP２の下から６行目の式です。
結局、
Simplify[j*q]
Simplify[p*k]
は、”０”ですから、ｓ＝ｍ＾２ではないでしょうか？
97:１３２人目の素数さん
15/11/24 17:45:52.98 D/YnhDfb.net
>>95
s=m^2 なら
>k0 = (s - m^2)/ Sqrt[s];
>k1 = 0;
>k2 = 0;
>k3 = -(s - m^2)/ Sqrt[s];
>j0 = (s - m^2)/(2 Sqrt[s]);
>j1 = -(s - m^2)/(2 Sqrt[s])*Sqrt[1 - w^2];
>j2 = 0;
>j3 = (s - m^2)/(2 Sqrt[s])*w;
は全部ゼロになるが、そういう計算をやりたいの？
98:１３２人目の素数さん
15/11/24 18:59:47.16 4ii4n/VM.net
お返事有難う御座います。
＞は全部ゼロになるが、そういう計算をやりたいの？
違います。
すいません、入口が解らないです。
URLﾘﾝｸ(members3.jcom.home.ne.jp)
のP４の下から、８行目に、pi^2=pf^2=m^2,k^2=0とあります。
k^2= k0*k0 - k1*k1 - k2*k2 - k3*k3
は、実験室系でも、”0”になるのでしょうか？
最初は、
k0 = Sqrt[s] - m;
k1 = 0;
k2 = 0;
k3 = (Sqrt[s] - m);
p0 = m;
p1 = 0;
p2 = 0;
p3 = 0;
でよろしいでしょうか？
99:１３２人目の素数さん
15/11/25 11:19:41.36 UERObkTV.net
k0 = Sqrt[s] - m;
k1 = 0;
k2 = 0;
k3 = (Sqrt[s] - m);
p0 = m;
p1 = 0;
p2 = 0;
p3 = 0;
s = Simplify[2*(p*k) + m^2]
で、s=m^2になってしまいます。
すると、k0 = ｗとか、新しい変数を使う必要があるのでしょうか？
すると、実験室系では、重心系のように
Simplify[y3 //. {p1 -> 0, p2 -> 0,
k0 -> p3, k1 -> 0, k2 -> 0, k3 -> -p3,
q0 -> p0, q1 -> p3*Sqrt[1 - z^2], q2 -> 0, q3 -> p3*z,
j0 -> p3, j1 -> -p3*Sqrt[1 - z^2], j2 -> 0, j3 -> -p3*z,
p0 -> (s + m^2)/(2 Sqrt[s]), p3 -> (s - m^2)/(2 Sqrt[s]),
z -> 1 + t/(2 p3^2), t -> 2 m^2 - s - u}]
とか、纏められるのでしょうか？
100:１３２人目の素数さん
15/11/25 15:16:08.17 Qdnl0bDq.net
>>98
前スレより再録
>全然理解してないって昔から指摘されてるのに、全く進歩しないねぇ
>「ローレンツ不変量」とか知らんのだろう？
>特殊相対論を勉強するところから。
>デタラメやる前にちっとは勉強したら
>特殊相対論の勉強を頑に拒むのはなぜ？
101:１３２人目の素数さん
15/11/25 17:30:57.70 UERObkTV.net
お返事有難う御座います。
Simplify[y3 //. {p1 -> 0, p2 -> 0,
k0 -> p3, k1 -> 0, k2 -> 0, k3 -> -p3,
q0 -> p0, q1 -> p3*Sqrt[1 - z^2], q2 -> 0, q3 -> p3*z,
j0 -> p3, j1 -> -p3*Sqrt[1 - z^2], j2 -> 0, j3 -> -p3*z,
p0 -> (s + m^2)/(2 Sqrt[s]), p3 -> (s - m^2)/(2 Sqrt[s]),
z -> 1 + t/(2 p3^2), t -> 2 m^2 - s - u}]
この式（重心系）の意味は、下記HPのP4を見てやっと理解できました。
URLﾘﾝｸ(osksn2.hep.sci.osaka-u.ac.jp)
この式(6.26a)を、自力で導出するのは、かなり難しいと思います。
同様に、（知っている実験室系の式）の意味を理解するのは、出来ますが、導出するのは困難です。
従いまして、偏極を指定した断面積を自力で導出するのは、時間の無駄ですので、取りあえず明らめます。
URLﾘﾝｸ(www.kadokawa.co.jp)
下�
102:LHPでの非偏極での計算でOKとします。 http://amonphys.web.fc2.com/amonfc.pdf
103:１３２人目の素数さん
15/11/27 16:45:33.20 K8C1Fes7.net
応用問題が解けなきゃ理解したことにならないって高校くらいで教わらないのか
104:１３２人目の素数さん
15/12/06 02:23:19.03 9ZV2BAqG.net
初めて書き込みます、宜しくお願いします。
三次関数の解を視覚的に表現してみたくて工夫しました。
切片を変数にしてその解を重ねてみました。
X,Y軸と、奥行きにｉ軸をとっています。
複素数の解も含めれば、どんな三次関数も解が
３個有ると視覚的に分かります。
この表現方法には何の根拠も有りませんが、
色々試してみたら面白いグラフが描けました。
どんな意味が有るのか自分でも分かりませんが、
とりあえず見てやってください。
sol[y_] = Solve[y^2 + y == x^3 - x^2, x]
ans[j_, t_] := x /. sol[t][[j]]
Do[gr[n] = Graphics3D[Table[Point[{Re[ans[n, t]], Im[ans[n, t]], t}], {t, -2, 0.5, 0.001}]], {n, 1, 3}]
Show[gr[1], gr[2], gr[3], ViewPoint -> {-0.5, -5, 0}]
105:１３２人目の素数さん
15/12/06 04:53:57.45 /Zdpd7nb.net
なんじゃこりゃ～
106:１３２人目の素数さん
15/12/06 08:12:18.79 9ZV2BAqG.net
見ていただいてありがとうございます。
本来は y = ax^3 + bx^2 + cx + d
の解を視覚的に見るために作りました。
a=1
b=-5
c=3
d=4
sol[t_]=Solve[a*x^3+b*x^2+c*x+d==t,x]
ans[j_,t_]:=x/.sol[t][[j]]
m=0.1
Do[gr[n]=Graphics3D[Table[Line[{{Re[ans[n,t]],Im[ans[n,t]],t},{Re[ans[n,t+m]],Im[ans[n,t+m]],t+m}}],{t,-10,10,m}]],{n,1,3}]
Show[gr[1],gr[2],gr[3],Axes->True,AspectRatio->Automatic,PlotRange->{{-5,5},{-5,5},{-10,10}},ViewPoint->{2,-5,0}]
a,b,c,dは任意の係数を指定します。
mは曲線の滑らかさです。
y軸の任意の値が含まれるx-i複素数平面に
解が必ず３個有ります(重解含む)。
書き替えれば４次、５次関数でも表現できます。
係数には複素数も代入できます。
適当にいじってみていただけたら幸いです。
107:１３２人目の素数さん
15/12/07 15:12:13.62 eC7hl6uO.net
面白い曲線だな。ParametricPlot3Dを使った方が
簡単だと思うよ。好みは人それぞれだけどね。
x /. Solve[y^2 + y == x^3 - x^2, x];
Map[{Re[#], Im[#], y} & , %];
ParametricPlot3D[%, {y, -2, 1}, AxesLabel -> {"Re[x]", "Im[x]", "y"},
PlotLabel -> "y^2+y==x^3-x^2"]
108:１３２人目の素数さん
15/12/07 20:01:25.33 ONtsWkUw.net
ご教授ありがとうございます。
その通りですね。
ここで使用している数式は12/4(金)にNHKＥテレで放送された
数学ミステリー白熱教室で紹介されたものです。
ある数論の問題 y^2 + y == x^3 - x^2 ３次方程式の解で、
素数Pを法とする場合はある調和解析の関数となり、
複素数の場合は幾何学のトーラスとなるという話でした。
ラングランズ・プログラムというものらしいですが、
私には知識不足で理解できませんでした。
とりあえず、グラフの中央にある歪んだ円に大変興味を持ちました。
この辺が何かを意味しているような気がしますが、
私が考えられる次元はこの程度です。
どなたか知識のある方が何かを発見する手掛かりとなれたら本望です。
109:１３２人目の素数さん
15/12/07 20:25:40.85 Tq8BIhkH.net
潜望鏡深度まで浮上！
110:１３２人目の素数さん
15/12/08 00:14:04.66 KipLHGUT.net
俺もグラフィックスオブジェクトをShowする方が好きだな
Maximaに書き換えるとき見た目を合わせ易いし
111:１３２人目の素数さん
15/12/08 03:33:17.43 XscFjqkO.net
ただの数字遊びですが、これも面白かったので載せます。
たまねぎのような構造
sol[y_] = Solve[y^3 + y^2 == x^4, x]
ans[j_, t_] := x /. sol[t][[j]]
Do[gr[n] = Graphics3D[Table[Point[{Re[ans[n, t]], Im[ans[n, t]], t}], {t, -2, 1, 0.001}]], {n, 1, 4}]
anim = Table[
112:Show[gr[1], gr[2], gr[3], gr[4], ViewPoint -> {20*Sin[s], 20*Cos[s], 0}], {s, Pi/24, 2*Pi, Pi/24}] もう良く分からない sol[y_] = Solve[y^4 + y == x^5 - x^3, x] ans[j_, t_] := x /. sol[t][[j]] Do[gr[n] = Graphics3D[Table[Point[{Re[ans[n, t]], Im[ans[n, t]], t}], {t, -2, 1, 0.001}]], {n, 1, 5}] anim = Table[Show[gr[1], gr[2], gr[3], gr[4], gr[5], ViewPoint -> {20*Sin[s], 20*Cos[s], 0}], {s, Pi/24, 2*Pi, Pi/24}]
113:１３２人目の素数さん
15/12/08 21:05:53.29 fafZe/EG.net
わけワカメw
114:１３２人目の素数さん
15/12/08 21:20:58.41 XscFjqkO.net
連投ごめんなさい、
なんか面白くなってしまいました。
連投制限かMathematicaの記述がエラーに引っかかってしまい
他にも面白い曲線があるのですが投稿できずに残念です。
一番面白い？のはこの
タイトル<虫>です。
sol[y_] = Solve[y^4 + y == x^4*y^2 - x^3, x]
ans[j_, t_] := x /. sol[t][[j]]
Do[gr[n] = Graphics3D[Table[Point[{Re[ans[n, t]], Im[ans[n, t]], t}], {t, -2, 1, 0.01}]], {n, 1, 4}]
anim = Table[Show[gr[1], gr[2], gr[3], gr[4], ViewPoint -> {20*Sin[s], 20*Cos[s], 0}], {s, Pi/24, 2*Pi, Pi/24}]
115:１３２人目の素数さん
15/12/12 20:04:05.97 F+My5ir0.net
y^2 + y == x^3 - x^2 に、パラメタpをいれた
即席H-Function:x^3 - p x^2つくってみたがなw
x /. Solve[y^2 + y == x^3 - p x^2, x];
Animate[Plot[Evaluate[Re[%]], {y, -1.5, 0.5},
PlotRange -> {-1, 1},
Filling -> {1 -> {{3}, LightPink}, 2 -> {Top, LightPink}},
Axes -> False], {p, 0.1, 0.9}, AnimationRunning -> False]
116:１３２人目の素数さん
15/12/12 22:59:23.40 mv17/rkp.net
返信ありがとうございます。
早速ノートブックにコピペしていじってみましたが、
当方Mathematica４を使用しておりまして再現できませんでした。
sol[y_] = Solve[y^2 + y == x^3 - p*x^2, x]
p = 1.5
ans[j_, t_] := x /. sol[t][[j]]
Do[gr[n] = Graphics3D[Table[Point[{Re[ans[n, t]], Im[ans[n, t]], t}], {t, -2, 1, 0.01}]], {n, 1, 3}]
anim = Table[Show[gr[1], gr[2], gr[3], ViewPoint -> {20*Sin[s], 20*Cos[s], 0}], {s, Pi/6, 2*Pi, Pi/6}]
このようにpを変化させてできる曲線でイメージはよろしいのでしょうか？
さらに、H-Functionについて不勉強で理解できておりませんのでご教授頂ければ幸いです。
追伸
面白い曲線 タイトル <ケルベロス>
sol[y_] = Solve[y^4 + y == x^4*y - x^3, x]
ans[j_, t_] := x /. sol[t][[j]]
Do[gr[n] = Graphics3D[Table[Point[{Re[ans[n, t]], Im[ans[n, t]], t}], {t, -2, 1, 0.01}]], {n, 1, 4}]
anim = Table[Show[gr[1], gr[2], gr[3], gr[4], ViewPoint -> {20*Sin[s], 20*Cos[s], 0}], {s, Pi/24, 2*Pi, Pi/24}]
117:１３２人目の素数さん
15/12/13 00:25:12.81 axvNzcue.net
ケルベロス？ なんじゃこりゃ
H(えっち)-Functionは、
"Mathematica版「おっぱい（曲面）方程式」"
でググれば判る様な、無意味な遊びです。
118:１３２人目の素数さん
15/12/13 02:25:11.92 RhssocmV.net
紳士の遊びですね？ｗ
ケルベロスと名付けたのは、犬みたいな形で顔の部分が3本の曲線だからです。
なんか、>>1 のAAのキャラクターが出てくるアニメに出てきたような記憶が。
こんな曲線もあります <鼓>
sol[y_] = Solve[y^4 + y == x^4 - x^2, x]
ans[j_, t_] := x /. sol[t][[j]]
Do[gr[n] = Graphics3D[Table[Point[{Re[ans[n, t]], Im[ans[n, t]], t}], {t, -2, 1, 0.001}]], {n, 1, 4}]
anim = Table[Show[gr[1], gr[2], gr[3], gr[4], ViewPoint -> {20*Sin[s], 20*Cos[s], 0}], {s, Pi/24, 2*Pi, Pi/24}]
119:１３２人目の素数さん
15/12/19 21:54:10.67 mzCHiIu8.net
人並みに扱われて勘違いしている田舎者チョンのニケア信教 ◆BkMobJaj1A
こと山出しのニケア信教 ◆BkMobJaj1A。
その無知無教養さ加減はハゲの中でも下の下。
大阪大学や関西大学の学生からも馬鹿にされる為体。
St Marco Passion ◆BkMobJaj1A の臆病無比な卑劣さは、最底辺のハゲキモ蛆虫に劣る嫌らしさ！
こんな化け物老去勢オカマの存在を、我が国は赦しておいてはいけない。
早々にこの河馬ヅラをしたアナル変質者を朝鮮半島パクのもとへ強制送還させよう！！！
120:１３２人目の素数さん
15/12/25 14:34:39.76 biauouUl.net
ParallelDoの中で添字付共有変数を使いたいんだけどどうすればよいですか？
以下のように書いたらエラーが出てしまいました：
Clear[a];
Do[a[i]=0, {i,1,10}]; (* 初期値 *)
SetSharedVariable[a];
ParallelDo[a[i]=i,{i,1,10}] (* 並列計算 *)
Do[Print[a[i]],{i,1,10}]
121:１３２人目の素数さん
15/12/28 00:59:30.78 NFbTjtr3.net
添字付き変数渡しは、Headのせいか難しいっぽい。
答えにはなっていませんが、ListのPart扱いなら、
a = {};
Do[AppendTo[a, 0], {10}](*初期値*)
SetSharedVariable[a];
ParallelDo[a[[i]] = i, {i, 1, 10}] (*並列計算*)
Do[Print[a[[i]]], {i, 1, 10}]
122:１３２人目の素数さん
15/12/28 11:25:53.74 XH7cvZlD.net
>>118
どうもです
私も結局リファレンス通りListで渡しました
ParallelDoでかなり高速化できました
しかし並列カーネル4個追加で\73,440って高いっす
123:１３２人目の素数さん
16/02/03 17:25:33.87 REZsa8b9.net
馬鹿な日本人ほど海外を崇めて、海外はすごいとかほめそやして
挙句の果てに日本人に留学を勧めたり海外の大学を勧めたりするが
実際は外人なんてクズばかりで勉強しないくせに選民意識だけは高いし
人種差別は平気でするしでどうしようもない
留学なんて奨励してる奴はキチガイですわ
mathematicaの値段も頭おかしいのか？日本人が優秀だから日本でmathematicaを売ると
技術的にボロ負けしてしまうと危惧してるんだろうか？おそらくそうだろう。
アメリカがすごいのは大学や研究なんかじゃなくて金を荒稼ぎしてるからだからであって
日本が真似すると大やけどどころか沈没だよ。馬鹿な日本人ほどアメリカの真似したがるけど。
日本がすごいのは日本人が頑張ってきたからだよ。
124:１３２人目の素数さん
16/02/03 20:57:46.08 VcbUmeJE.net
Mathematica は所属してる大学とか組織でライセンス取るものだろ。
125:１３２人目の素数さん
16/02/04 09:53:50.95 2sg1Gtew.net
Mathematicaで理工学部程度の数学が学べるおすすめの書籍を教えてください。
126:１３２人目の素数さん
16/02/04 09:56:19.03 2sg1Gtew.net
または理工学部程度の数学でMathematicaを学べる書籍を教えてください。
127:１３２人目の素数さん
16/02/04 11:25:15.90 A+CLB+hi.net
対して数出ていないし古いのしかないから
図書館検索で全部借りればいい
128:１３２人目の素数さん
16/02/04 11:27:18.89 A+CLB+hi.net
俺のお気に入りはこれ
URLﾘﾝｸ(www.kinokuniya.co.jp)
129:１３２人目の素数さん
16/02/04 11:46:32.82 2sg1Gtew.net
>>125
おもしろそうです
130:１３２人目の素数さん
16/02/04 18:55:14.58 h6GhpBCQ.net
ませまちか は ○○○で ○○す物
131:１３２人目の素数さん
16/02/05 19:02:15.13 VmFpJCfn.net
センター試験や大学入試問題をコマンド一発で解けるのは感動
証明と図形以外の問題で解けないのはないだろって
逆に言えばその二つが出来れば完璧なのに
132:１３２人目の素数さん
16/02/05 20:55:05.68 4S9VmYC2.net
そんなもの解いてもしょうがない
133:１３２人目の素数さん
16/02/06 04:07:51.62 CZQRzoj6.net
>>122
おすすめ
『レクチャーズ オン Mathematica』
もくじなどのpdfがある
レクチャーズ オン Mathematica・サポートページ
URLﾘﾝｸ(www.math.titech.ac.jp)
134:１３２人目の素数さん
16/02/10 17:25:12.67 xg3fAtil.net
{i,j,k} を要素に持つリストをつくりたいんですがうまい記述の仕方あるでしょうか？
i=0～Nx
j=0～Ny
k=0～Nz
の範囲の整数として
{
{0,0,0},
{1,0,0},
{2,0,0},
… …,
{3,2,5},
…,
{Nx,Ny,Nz}
}
のような感じです．
135:１３２人目の素数さん
16/02/10 18:49:52.80 WSI9K
136:NQ8.net
137:１３２人目の素数さん
16/02/10 19:08:59.13 xg3fAtil.net
>>132
ありがとうございましゅ！
138:１３２人目の素数さん
16/02/10 19:09:16.46 xg3fAtil.net
×ありがとうございましゅ！
○ありがとうございます！
139:１３２人目の素数さん
16/02/18 23:46:48.85 hcnN01i/.net
1/0となりますっていうエラーの出る分母の値（0と認識される値?、結果が無限大と認識される値?）ってどれくらいでしょうか。
電子の質量入れて計算すると飛びます。
分母のオーダーが10^(-31-α)とかでもだめですか？
140:１３２人目の素数さん
16/02/18 23:47:54.83 cFQO+ZMK.net
>>135
具体例を
141:１３２人目の素数さん
16/02/19 00:36:33.18 BVdQKtrr.net
ええとすみません。たとえば、
1/Exp[-x]
とするとxがどの辺のときに計算が放置されるのでしょうか？
142:１３２人目の素数さん
16/02/19 09:45:48.44 sj9/NYrE.net
x=10.^15 は大丈夫
x=10.^15*4 でアンダーフロー
143:１３２人目の素数さん
16/02/19 19:27:51.70 BVdQKtrr.net
とｎ
電子の質量が入ってくるときとかどうするんだろうね…
144:１３２人目の素数さん
16/02/19 19:55:53.52 9jEB8QMH.net
>>139
その、電子の質量を入れて計算させると1/0エラーが出るっていう式をそのまま書いてみて
145:１３２人目の素数さん
16/02/28 18:27:57.65 5GJ+OBvk.net
u'=-uなる微分方程式を初期値hを0から1まで変えながら図にするのに
下のようにしたのですが
上手く行きません。何が悪いのでしょうか
Do[{
sol1 = NDSolve[{
u'[t] == -2 u[t],
u[0] == h
}, u[t], {t, 0, 3}]
Plot[Evaluate[u[t] /. %], {t, 0, 3}]
},
{h, 0, 1}]
146:１３２人目の素数さん
16/02/28 19:05:21.41 H7dcneBr.net
Show[Table[
sol1 = NDSolve[{u'[t] == -2 u[t], u[0] == h}, u[t], {t, 0, 3}] ;
Plot[Evaluate[u[t] /. sol1], {t, 0, 3}], {h, 0, 1, 0.1}]]
or
list = Evaluate[
Table[sol1 =
NDSolve[{u'[t] == -2 u[t], u[0] == h}, u[t], {t, 0, 3}];
u[t] /. sol1, {h, 0, 1, 0.1}]];
Plot[list, {t, 0, 3}]
こんなんみたいのかな
147:１３２人目の素数さん
16/02/28 19:35:00.37 5GJ+OBvk.net
すいません
%→sol1とコンマ忘れでいけましたね
大変ありがとうございました
148:１３２人目の素数さん
16/03/11 21:14:10.00 LiuUp7W3.net
質問です
確率変数x,yとzがあり、それぞれ平均値mx,my,mzで標準偏差sx,sy,sz
の正規分布をもって変動するものとします。
このとき例えばz x/(x+y)の値がどのように分布するかを簡単にグラフ化
する手法と、その標準偏差を簡単に求める方法はあるでしょうか。
分布図はモンテカルロ法、統計値は一次近似の数式計算とかででしたが、
忘れた頃にやるので、火急の時には厳しい･･･
Ver10以下の範囲で、何かヒントがあればお願いします。
149:１３２人目の素数さん
16/03/12 21:40:18.28 r9WZX4oj.net
d = TransformedDistribution[
z x/(x + y), {x \[Distributed] NormalDistribution[mx, sx],
y \[Distributed] NormalDistribution[my, sy],
z \[Distributed] NormalDistribution[mz, sz]}];
example = {mx -> 1, sx -> .2, my -> 2, sy -> .7, mz -> 2.9, sz -> 1.1};
PDF[d /. example, x]
d /. example // StandardDeviation
(\[Distributed]はESCdistESCと打っても良い。）
で確率密度関数と標準偏差が出るはずだけど、式が複雑すぎて
計算しきれていないみたい。まあゼロ割になりかねない式だから、
標準偏差があるかどうか微妙だが。
なのでモンカルを使うと、
data = RandomVariate[d /. example, 100000];
Histogram[
150:data] data // StandardDeviation という感じ。でもSDは安定しないな。やはり式の形が… スムーズなグラフを描きたいのなら、 Plot[Evaluate@PDF[data // SmoothKernelDistribution, x], {x, -1, 5}] とかやれば良い。
151:１３２人目の素数さん
16/03/12 23:42:05.46 o9XKea1M.net
ありがとうございます。
式自体は単純に、基準電圧zを抵抗y,xで分圧した電圧で、
その分布を求める場合ですが、モンカルだよりですかね。
変数毎に乱数発生をさせて、式に代入させていましたが、
いましたが、TransformedDistribution->RandomVariate
の流れは参考になりました。
あとSmoothKernelDistributionも(^^)/
152:１３２人目の素数さん
16/03/28 20:52:34.19 Y/nPZlRi.net
Maple使ってる人いる？
eliminateって機能があって、
MarhematicaのEliminate関数と同じ、連立方程式からの変数消去なんだけど、
あまりにアホすぎて使い物にならんねコレ
153:１３２人目の素数さん
16/03/28 23:40:49.43 gs+YwEEW.net
使い物になるという話かと思ったら、使い物にならないという話かよ。
154:１３２人目の素数さん
16/03/29 09:21:30.33 MS5DySjF.net
MCのことモンカルって言う人はじめてみたわ
155:１３２人目の素数さん
16/03/31 12:58:22.72 cpRtmv87.net
Mapleのeliminateってまだ邦訳されてないから、最近追加された機能かな？
個人的にMathematicaで一番重宝してる変数の整理、消去がMapleだと今市だな。
156:１３２人目の素数さん
16/03/31 16:47:29.31 lQq9ZfEU.net
ell = 8; m = 0;
Integrate[ SphericalHarmonicY[ell, m, \[Theta], 0]* Sin[\[Theta]]^2 (1 + q Sin[\[Theta]]^2)*Sin[\[Theta]], {\[Theta], 0, \[Pi]}]
俺の環境 (ver10.4, Windows7_64bit) でこの計算やらせると落ちてしまう．
ell=6だと回る．
なんで～～（泣）
157:149
16/03/31 17:12:04.92 lQq9ZfEU.net
ver10.0だと回る
ぐぬぬ…
158:１３２人目の素数さん
16/04/03 10:21:42.74 +ao9jRpb.net
>>151
割っただろ
159:１３２人目の素数さん
16/04/03 10:44:28.95 QaspXQZ2.net
やばそうな割り算無さそうなんだけどなぁ．
ver 10.3 (Windows7_64bit) でも落ちる．
ver 8 (student ed., Windows XP pro) ではちゃんと計算される．
10.1と10.2はアップデートしてしまったから不明．
ver 10.3しか確かめてないけどMacProでも落ちるからハードが原因じゃない気がする．
はぁ～とりあえずver 10.0入ってる少し古い計算機使います．
160:１３２人目の素数さん
16/04/04 12:24:52.18 8UdNWihF.net
10.4だけど確かに落ちる。展開するとどんな形になるのかと思って、FunctionExpandを適用してみた。
ell = 8; m = 0;
FullSimplify[FunctionExpand[SphericalHarmonicY[ell, m, theta, 0] Sin[theta]^2 (1 + q Sin[theta]^2) Sin[theta]]]
三角関数の組み合わせ。qに具体的な値を入れると積分できるか？
Table[Integrate[%, {theta, 0, Pi}], {q, -1, 1, 1/5}]
->{0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0}
答えは0っぽい。で、この後気まぐれに元の式をもう一度計算してみた。
Integrate[SphericalHarmonicY[ell, m, theta,0] Sin[theta]^2 (1 + q Sin[theta]^2) Sin[theta], {theta, 0, Pi}]
->0
今度は計算できる！不思議！
161:１３２人目の素数さん
16/04/06 13:03:16.89 gULLYejW.net
なんだそりゃw
外部からアクセスできないキャッシュの内容によって挙動が変わるのか。
報告しとくかな。
162:１３２人目の素数さん
16/04/19 20:07:51.97 YSV4FQMK.net
URLﾘﾝｸ(imgur.com)
↑Histogramでヒストグラムを描きました。
階級値の数字が300, 400, 500, 600と100間隔で表示されていますが、
300, 350, 400, 450, 500, 550, 600と表示させたいです。
どうすればいいのでしょうか？お願いします。
163:１３２人目の素数さん
16/04/20 19:34:29.49 EJjD1eVy.net
Ticksで座標軸の目盛りを明示的に指定すれば？
ex.横軸の目盛り範囲[100,800]隔50を指定する
sample = RandomVariate[NormalDistribution[500, 100], 1000];
Histogram[sample, {100, 800, 50},
Ticks -> {Range[100, 800, 50], Automatic}]
164:１３２人目の素数さん
16/04/20 20:43:33.60 V7TU7EwI.net
>>158
URLﾘﾝｸ(imgur.com)
ありがとうございました。
でも↑の画像のようになってしまいました。
数字は階級の両端の数字ではなく階級値を表示させたいんです。
165:１３２人目の素数さん
16/04/20 20:45:48.41 V7TU7EwI.net
>>158
ありがとうございました。
Ticks -> {Range[125, 775, 50], Automatic}]
みたいにやればできるんですね。
ありがとうございました。
166:１３２人目の素数さん
16/04/25 22:30:29.53 nOxB4NtD.net
>>125
その本良かったんですか。買ったけど読んでない。いまではmathematicaは
やめてmapleを使うことにした。
167:１３２人目の素数さん
16/04/26 07:33:53.58 Bqjxy5C+.net
Mapleのほうが使いやすいよね。
168:１３２人目の素数さん
16/05/10 17:58:44.15 3vtuhWyp.net
A = { {1,2}, {3,4} } // MatrixForm
A.A (*これだと行列計算はしてくれない*)
これ一度 MarixFormでラッピングしてしまった後から、コード上でアンラップする方法って無いんですかね？
実用性云々(ラッピングしなきゃいいじゃん) ではなく単純に疑問です。
A = ToExpression @ StringSplit[#," "]& @ StringSplit[#,"\n\n"]& @ ToString[A]
文字列にして読み直ししたら一応いけたんですが、改行は2回スペースも2回続きそんなのをあてにしていいものやら...
もっと単純に一発でできてもよさそう。
169:１３２人目の素数さん
16/05/10 21:58:53.04 N5W3xcsN.net
>>163
A[[1]]
170:１３２人目の素数さん
16/05/10 23:35:12.79 ISuglzw8.net
行列を代入したい、でもMatrixFormで確認もしたい、という時は、
(A={{1,2},{3,4}})//MatrixForm
みたいにやるな。
171:１３２人目の素数さん
16/05/11 01:10:37.40 xWSeBPqz.net
>>164, >>165 ありがとうございます。
>>164
「～Form の類いは、関数というよりはデータ構造構築子で、元データを1個だけ格納してる」 って理解で合ってるでしょうか
この辺りの詳細って WolframのWEBドキュメントに載ってます？
172:１３２人目の素数さん
16/05/11 16:10:36.87 fSvrr8qW.net
>>166
Part 関数を参照
173:１３２人目の素数さん
16/05/11 19:31:46.17 xWSeBPqz.net
>>167 ありがとうございます。
174:１３２人目の素数さん
16/05/11 23:05:47.89 QU9FYAS5.net
強引だけどA = { {1,2}, {3,4} } // MatrixFormで
A.A を計算するだけならMatrixFormでThreadもあり
A.A // Thread[#, MatrixForm] &
175:１３２人目の素数さん
16/05/12 10:39:58.32 QuIsVXVk.net
プログラミングで普通に思い浮かべるThreadとは関係無くて、
そのまんま「糸」でデータを縫い合わせる関数なのね。
基本的なのにまだまだ知らない関数があるなあ。
176:１３２人目の素数さん
16/06/15 11:57:22.83 uO5svwl0.net
梅津千春＝立岡咲樹 かかってこいヨーイチ
177:￥ ◆2VB8wsVUoo
16/06/15 18:37:21.73 KWnWf/3r.net
￥
178:￥ ◆2VB8wsVUoo
16/06/15 18:37:47.07 KWnWf/3r.net
￥
179:￥ ◆2VB8wsVUoo
16/06/15 18:38:14.77 KWnWf/3r.net
￥
180:￥ ◆2VB8wsVUoo
16/06/15 18:38:44.15 KWnWf/3r.net
￥
181:￥ ◆2VB8wsVUoo
16/06/15 18:39:12.19 KWnWf/3r.net
￥
182:￥ ◆2VB8wsVUoo
16/06/15 18:39:33.61 KWnWf/3r.net
￥
183:￥ ◆2VB8wsVUoo
16/06/15 18:40:03.74 KWnWf/3r.net
￥
184:￥ ◆2VB8wsVUoo
16/06/15 18:40:56.9
185:9 ID:KWnWf/3r.net
186:￥ ◆2VB8wsVUoo
16/06/15 18:41:17.39 KWnWf/3r.net
￥
187:￥ ◆2VB8wsVUoo
16/06/15 18:41:37.11 KWnWf/3r.net
￥
188:￥ ◆2VB8wsVUoo
16/06/16 18:30:38.78 PgonDtoO.net
￥
189:￥ ◆2VB8wsVUoo
16/06/18 02:40:26.20 3GXqstO/.net
￥
190:１３２人目の素数さん
16/06/18 21:01:21.49 bG4TQCiY.net
大類昌俊
関西すうがく徒のつどい
関東すうがく徒のつどい
URLﾘﾝｸ(s32.postimg.org)
URLﾘﾝｸ(s32.postimg.org)
URLﾘﾝｸ(s32.postimg.org)
URLﾘﾝｸ(s31.postimg.org)
URLﾘﾝｸ(s31.postimg.org)
URLﾘﾝｸ(s31.postimg.org)
191:１３２人目の素数さん
16/07/08 17:35:43.32 cG8o2Rlw.net
a = 1.234567890;
N[a, 10]
の出力が 1.23457 になってしまうのだけれど，
N関数って機械精度の数を渡されると常に6桁表示になるの？
192:１３２人目の素数さん
16/07/08 17:56:49.57 cG8o2Rlw.net
Nのせいじゃなくて標準出力が機械精度に対して6桁表示なのね…
InputForm[a]もしくはNumberForm[a,10]で表示された
193:１３２人目の素数さん
16/07/09 07:07:00.48 fDkSF8u6.net
10.4.0 for Mac OS X x86 (64-bit) (March 1, 2016) なんだけど、
フォントのサイズ変更したいから URLﾘﾝｸ(www.math.titech.ac.jp) にある
> メニューから「編集」→「環境設定...」* → 「詳細」→ 「オプションインスペクタを開く」→ 「書式設定」→ 「フォント設定」→ 「FontSize(サイズ)」とすすみ,これをデフォルトの 12 から適宜増や す.「適用」ボタンを押すとフォントサイズが大きくなる.
を行おうとしたが、「適用」ボタンがグレーのままで押しても適用出来ない。
どうしたら良いんだコレ？
URLﾘﾝｸ(i.imgur.com)
194:１３２人目の素数さん
16/07/15 12:32:01.25 C6cVoJv7.net
list1 = {
{x1, y1, z1},
{x2, y2, z2}
};
list2 = {
{v1, v2},
{w1, w2}
};
こういうタイプの2つのリストの各要素を結合して，
{
{x1, y1, z1, {v1, v2} },
{x2, y2, z2, {w1, w2} }
}
というリストを作るために
FlattenAt[#, 1] & /@ Partition[Riffle[list1, list2], 2]
と記述してるんですが，より高速な方法があれば教えてください
195:186
16/07/16 00:47:18.27 xDKztG0Z.net
Clear[result];
result = Transpose@list1;
result = AppendTo[result, list2];
result = Transpose@result;
で速度が2倍ぐらいになりました
196:１３２人目の素数さん
16/07/16 06:13:38.45 GrLp8R2o.net
速度はわからんけど、
MapThread[Append[#1, #2] &, {list1, list2}]
かなあ。
197:186
16/07/16 18:15:35.46 xDKztG0Z.net
>>190
更に速くなりました
記述もスマートですしこれを使いたいと思います
ありがとうございました
198:１３２人目の素数さん
16/07/20 21:06:00.17 K8aqavNL.net
ver10.4 で並列カーネルの状態ダイアログから並列カーネルを全部閉じると
↓みたいにエラーが発生するんだけど同じひといる？
1つずつ閉じても最後の1個を閉じるところで同じエラーがでる
URLﾘﾝｸ(i.imgur.com)
199:１３２人目の素数さん
16/08/22 22:06:54.62 +pVfiDmq.net
TEST
200:１３２人目の素数さん
16/08/23 06:38:21.34 2MEC67az.net
11のアイコンしょぼすぎ
201:￥ ◆2VB8wsVUoo
16/08/23 08:16:54.14 dXrvzIKU.net
￥
>1 ：名無しさん ：2006/04/30(日) 01:41:01 ID:KPnB.CH2
> 迷惑かしらん
>
>5568 ：名無しさん：2016/08/17(水) 18:26:13 ID:???
> うるさい
>
>5569 ：kmath1107★：2016/08/17(水) 21:46:32 ID:???
> 人への念の盗み見による介入を阻め。
>
>5571 ：名無しさん：2016/08/17(水) 23:39:07 ID:???
> うるさい
>
>5576 ：kmath1107★ ：2016/08/18(木) 20:58:14 ID:???
> 人への念の盗み見による介入を阻め。
>
>5577 ：名無しさん ：2016/08/18(木) 21:05:02 ID:???
> >>5575
> うるさい
>
> >>5576
> 賛同致します
>
>5578 ：kmath1107★ ：2016/08/19(金) 08:46:22 ID:???
> 人への念の盗み見による介入を阻め。
>
> Re:>>5577 人への念の盗み見による介入が無くなれば世の不和が無くなるだろう.
>
>5582 ：￥ ◆2VB8wsVUoo ：2016/08/19(金) 08:53:36 ID:???
> 芳雄が理想とし、自ら体現する大学教授とは？
> ０．自分が『お教授である』という利点を徹底活用して、偉そうに振舞う。
> １．年寄りや権威には擦り寄って顔色を窺い、ラクして損しない様にスル。
> ２．難しい分野や困難な研究テーマは徹底して避けて、努力を最小化する。
> ３．高い学歴とか権威を効率的に利用して、自分を飾って偉く見せ掛ける。
> ４．他人に見える部分だけを巧みに繕ってメッキし、人格者のフリをする。
> ５．相手のオツムの質を窺い、シッタカだけで見識がある様に見せ掛ける。
> ６．自分よりも優秀な人間は絶対に敵に回さないでヘラヘラと仲良くする。
> ７．自分から見てダメオツムな野郎は、上から目線で威圧して屈服させる。
> ８．大して中身が無いカラッポ知識を針小棒大に騒ぎ立て、蘊蓄を傾ける。
> ９．自分の大脳が働いてない低能ぶりは、口先で適当に誤魔化して逃げる。
>
> ￥
>
202:１３２人目の素数さん
16/08/23 11:32:08.36 6Ki0HatY.net
ver11になって
>>151と>>192治ってるね
203:１３２人目の素数さん
16/08/23 17:41:02.27 ovShytuJ.net
で，Ver. 11は何がいいんだ?
204:￥ ◆2VB8wsVUoo
16/08/23 19:09:01.28 dXrvzIKU.net
￥
205:￥ ◆2VB8wsVUoo
16/08/23 19:09:19.67 dXrvzIKU.net
￥
206:￥ ◆2VB8wsVUoo
16/08/23 19:09:38.28 dXrvzIKU.net
￥
207:￥ ◆2VB8wsVUoo
16/08/23 19:09:55.88 dXrvzIKU.net
￥
208:￥ ◆2VB8wsVUoo
16/08/23 19:10:14.01 dXrvzIKU.net
￥
209:￥ ◆2VB8wsVUoo
16/08/23 19:10:34.40 dXrvzIKU.net
￥
210:￥ ◆2VB8wsVUoo
16/08/23 19:10:53.88 dXrvzIKU.net
￥
211:￥ ◆2VB8wsVUoo
16/08/23 19:11:15.13 dXrvzIKU.net
￥
212:￥ ◆2VB8wsVUoo
16/08/23 19:11:34.81 dXrvzIKU.net
￥
213:￥ ◆2VB8wsVUoo
16/08/23 19:11:56.55 dXrvzIKU.net
￥
214:￥ ◆2VB8wsVUoo
16/08/24 09:23:14.31 Ygo7U3hv.net
￥
215:￥ ◆2VB8wsVUoo
16/08/24 09:45:57.14 Ygo7U3hv.net
￥
216:１３２人目の素数さん
16/08/24 18:39:49.17 7clTglsc.net
きちがいはMathematicaも買えないのか
217:￥ ◆2VB8wsVUoo
16/08/24 19:36:05.87 Ygo7U3hv.net
￥
218:１３２人目の素数さん
16/08/24 19:52:30.22 Y71bxgoq.net
11、なんか良く落ちるな。入力支援系の機能を全部切ったら、
なんとか安定したような気がする。
219:￥ ◆2VB8wsVUoo
16/08/25 02:22:56.99 l8BZ/IJq.net
￥
>1 ：名無しさん ：2006/04/30(日) 01:41:01 ID:KPnB.CH2
> 迷惑かしらん
>
>5568 ：名無しさん：2016/08/17(水) 18:26:13 ID:???
> うるさい
>
>5569 ：kmath1107★：2016/08/17(水) 21:46:32 ID:???
> 人への念の盗み見による介入を阻め。
>
>5571 ：名無しさん：2016/08/17(水) 23:39:07 ID:???
> うるさい
>
>5576 ：kmath1107★ ：2016/08/18(木) 20:58:14 ID:???
> 人への念の盗み見による介入を阻め。
>
>5577 ：名無しさん ：2016/08/18(木) 21:05:02 ID:???
> >>5575
> うるさい
>
> >>5576
> 賛同致します
>
>5578 ：kmath1107★ ：2016/08/19(金) 08:46:22 ID:???
> 人への念の盗み見による介入を阻め。
>
> Re:>>5577 人への念の盗み見による介入が無くなれば世の不和が無くなるだろう.
>
>5582 ：￥ ◆2VB8wsVUoo ：2016/08/19(金) 08:53:36 ID:???
> 芳雄が理想とし、自ら体現する大学教授とは？
> ０．自分が『お教授である』という利点を徹底活用して、偉そうに振舞う。
> １．年寄りや権威には擦り寄って顔色を窺い、ラクして損しない様にスル。
> ２．難しい分野や困難な研究テーマは徹底して避けて、努力を最小化する。
> ３．高い学歴とか権威を効率的に利用して、自分を飾って偉く見せ掛ける。
> ４．他人に見える部分だけを巧みに繕ってメッキし、人格者のフリをする。
> ５．相手のオツムの質を窺い、シッタカだけで見識がある様に見せ掛ける。
> ６．自分よりも優秀な人間は絶対に敵に回さないでヘラヘラと仲良くする。
> ７．自分から見てダメオツムな野郎は、上から目線で威圧して屈服させる。
> ８．大して中身が無いカラッポ知識を針小棒大に騒ぎ立て、蘊蓄を傾ける。
> ９．自分の大脳が働いてない低能ぶりは、口先で適当に誤魔化して逃げる。
>
> ￥
>
220:１３２人目の素数さん
16/08/29 18:49:24.55 jEsFMSAM.net
f[x_] := 1.1 * exp[-1/x] + exp[-1/x] * Sin[1/x];
Plot[f[x], {x, 0, 0.001}]
とすると、グラフがぺったんこになってしまいます。
これをちゃんと描くにはどうしたらいいのでしょうか？
221:￥ ◆2VB8wsVUoo
16/08/29 18:51:09.42 5a8Ea2gJ.net
￥
>1 ：名無しさん ：2006/04/30(日) 01:41:01 ID:KPnB.CH2
> 迷惑かしらん
>
>5568 ：名無しさん：2016/08/17(水) 18:26:13 ID:???
> うるさい
>
>5569 ：kmath1107★：2016/08/17(水) 21:46:32 ID:???
> 人への念の盗み見による介入を阻め。
>
>5571 ：名無しさん：2016/08/17(水) 23:39:07 ID:???
> うるさい
>
>5576 ：kmath1107★ ：2016/08/18(木) 20:58:14 ID:???
> 人への念の盗み見による介入を阻め。
>
>5577 ：名無しさん ：2016/08/18(木) 21:05:02 ID:???
> >>5575
> うるさい
>
> >>5576
> 賛同致します
>
>5578 ：kmath1107★ ：2016/08/19(金) 08:46:22 ID:???
> 人への念の盗み見による介入を阻め。
>
> Re:>>5577 人への念の盗み見による介入が無くなれば世の不和が無くなるだろう.
>
>5582 ：￥ ◆2VB8wsVUoo ：2016/08/19(金) 08:53:36 ID:???
> 芳雄が理想とし、自ら体現する大学教授とは？
> ０．自分が『お教授である』という利点を徹底活用して、偉そうに振舞う。
> １．年寄りや権威には擦り寄って顔色を窺い、ラクして損しない様にスル。
> ２．難しい分野や困難な研究テーマは徹底して避けて、努力を最小化する。
> ３．高い学歴とか権威を効率的に利用して、自分を飾って偉く見せ掛ける。
> ４．他人に見える部分だけを巧みに繕ってメッキし、人格者のフリをする。
> ５．相手のオツムの質を窺い、シッタカだけで見識がある様に見せ掛ける。
> ６．自分よりも優秀な人間は絶対に敵に回さないでヘラヘラと仲良くする。
> ７．自分から見てダメオツムな野郎は、上から目線で威圧して屈服させる。
> ８．大して中身が無いカラッポ知識を針小棒大に騒ぎ立て、蘊蓄を傾ける。
> ９．自分の大脳が働いてない低能ぶりは、口先で適当に誤魔化して逃げる。
>
> ￥
>
222:￥ ◆2VB8wsVUoo
16/08/29 19:20:13.91 5a8Ea2gJ.net
￥
223:￥ ◆2VB8wsVUoo
16/08/29 19:20:30.09 5a8Ea2gJ.net
￥
224:￥ ◆2VB8wsVUoo
16/08/29 19:20:46.96 5a8Ea2gJ.net
￥
225:￥ ◆2VB8wsVUoo
16/08/29 19:21:04.52 5a8Ea2gJ.net
￥
226:￥ ◆2VB8wsVUoo
16/08/29 19:21:23.77 5a8Ea2gJ.net
￥
227:￥ ◆2VB8wsVUoo
16/08/29 19:21:42.19 5a8Ea2gJ.net
￥
228:￥ ◆2VB8wsVUoo
16/08/29 19:21:59.45 5a8Ea2gJ.net
￥
229:￥ ◆2VB8wsVUoo
16/08/29 19:22:16.28 5a8Ea2gJ.net
￥
230:￥ ◆2VB8wsVUoo
16/08/29 19:22:33.12 5a8Ea2gJ.net
￥
231:￥ ◆2VB8wsVUoo
16/08/29 19:22:51.13 5a8Ea2gJ.net
￥
232:１３２人目の素数さん
16/09/01 01:12:32.98 GL+8D+po.net
Raspberry Pi 入れてたら本当にMathematicaがディストリビューションに
入ってた。便利な時代になったなあ。 <
233:br> でも結局無料マイククラフトで遊んでばっかりw
234:１３２人目の素数さん
16/09/01 19:28:37.43 qequVMiW.net
いいね!
235:１３２人目の素数さん
16/09/07 06:16:55.51 v7cFoWZ0.net
計算した結果などをファイルにノートブック形式で保存すると、
次回、開いたときに、再評価しないといけなくて、面倒なのですが、
みなさんはどうやって計算した結果などを保存していますか？
あと、定義した関数などをマイライブラリにする方法を教えてください。
236:１３２人目の素数さん
16/09/07 21:31:34.26 lbTu4qXo.net
PDFにしとけばいい。
237:１３２人目の素数さん
16/09/08 04:19:24.58 8ps/Mk46.net
>>228
計算結果格納した変数を用意してmx形式で Export するとか．
次回はそれを Import する．
238:￥ ◆2VB8wsVUoo
16/09/09 07:30:00.35 c0Am8D5Q.net
￥
239:￥ ◆2VB8wsVUoo
16/09/09 07:30:20.50 c0Am8D5Q.net
￥
240:￥ ◆2VB8wsVUoo
16/09/09 07:30:37.04 c0Am8D5Q.net
￥
241:￥ ◆2VB8wsVUoo
16/09/09 07:30:56.13 c0Am8D5Q.net
￥
242:￥ ◆2VB8wsVUoo
16/09/09 07:31:14.56 c0Am8D5Q.net
￥
243:￥ ◆2VB8wsVUoo
16/09/09 07:31:33.79 c0Am8D5Q.net
￥
244:￥ ◆2VB8wsVUoo
16/09/09 07:31:49.26 c0Am8D5Q.net
￥
245:￥ ◆2VB8wsVUoo
16/09/09 07:32:06.26 c0Am8D5Q.net
￥
246:￥ ◆2VB8wsVUoo
16/09/09 07:32:44.54 c0Am8D5Q.net
￥
247:￥ ◆2VB8wsVUoo
16/09/09 07:33:16.72 c0Am8D5Q.net
￥
248:￥ ◆2VB8wsVUoo
16/09/10 17:06:33.50 9+jIN1kB.net
￥
249:￥ ◆2VB8wsVUoo
16/09/10 17:47:38.45 9+jIN1kB.net
￥
250:￥ ◆2VB8wsVUoo
16/09/11 03:22:26.28 M5fLCYO8.net
￥
251:１３２人目の素数さん
16/09/11 03:38:19.76 F80S3sIN.net
Export["fig1.jpg", Plot[Sin[x],{x,0,Pi}]]
とjpg画像として保存しようとすると
Export::noopen : Cannot open fig1.jpg.
というエラーが出てしまいます。
どうすれば、いいのでしょうか？
252:￥ ◆2VB8wsVUoo
16/09/11 03:43:20.34 M5fLCYO8.net
￥
>1 ：名無しさん ：2006/04/30(日) 01:41:01 ID:KPnB.CH2
> 迷惑かしらん
>
>5714 ：名無しさん：2016/09/01(木) 22:40:59 ID:???
> >>5711
> 黙ってろカスが。お前こんなことずっと続けてて父親に申し訳ないと思わないのか。
>
>5718 ：￥ ◆2VB8wsVUoo ：2016/09/02(金) 07:47:45 ID:???
> >>5714
> マジレスしておくが、芳雄にはきちんと罰だけは受けて貰う。あんな酷い事をし
> ておきながら、無傷であの世に逃亡というのは絶対に許されない。死ぬ前に充分
> な精神的苦痛をタップリと味わうべき。あの糞野郎だけは絶対に許されないので。
> 芳雄に対する怒りと憎しみは、馬鹿板に対する怒りとは比べ物にはならんわ。
>
> ￥
>
>5720 ：￥ ◆2VB8wsVUoo ：2016/09/02(金) 08:54:09 ID:???
> >>5714
> 言って置くが、被害を受け始めた高校生の頃から私は芳雄を論理分析し、その欠
> 陥や弱点を精密に理解し、そしてその横暴極まりない無責任な態度に対抗しなが
> ら狙い撃ちにして来た。私は芳雄のせいで甚大な被害を被ったのであり、それを
> 「親が責任を取る」という様ないい加減な逃げ口上で逃亡し、無責任を通す卑怯
> な行為は到底許されない。なのでその報いだけでもきちんと受けさせてやるだけ。
>
> 糞芳雄の野郎、このまま逃げ切りは許さない。自分から言い放った『親としての
> 責任』というものが微塵でも残ってるのであれば、それ相当の行為が自らなされ
> て当然というものだろう。手を切り落とすもよし、足を切り落とすもよし。或い
> は自分で主張した釜ヶ崎に自分で行って、そして労務者にでも殴られて撲殺され
> るのもいいだろう。
>
> とにかく自分で言った事だけは、きちんと自分から実行するべき。知らぬ存ぜぬ
> で、無責任な逃げ切りだけは許されない。ソレこそが芳雄が言う所の卑怯者だか
> らだ。糞芳雄は恥を知るべき。今からでもいいから、尊厳の意味を理解するべき。
>
> ￥
>
253:１３２人目の素数さん
16/09/11 03:49:55.91 F80S3sIN.net
SetDirectory
でディレクトリを設定したら保存できました。
デフォルトではディレクトリが "/" になっていました。
これを自動的にノートブックが保存されているディレクトリにするにはどうすればいいのでしょうか？
254:￥ ◆2VB8wsVUoo
16/09/11 03:59:07.02 M5fLCYO8.net
￥
>1 ：名無しさん ：2006/04/30(日) 01:41:01 ID:KPnB.CH2
> 迷惑かしらん
>
>5714 ：名無しさん：2016/09/01(木) 22:40:59 ID:???
> >>5711
> 黙ってろカスが。お前こんなことずっと続けてて父親に申し訳ないと思わないのか。
>
>5718 ：￥ ◆2VB8wsVUoo ：2016/09/02(金) 07:47:45 ID:???
> >>5714
> マジレスしておくが、芳雄にはきちんと罰だけは受けて貰う。あんな酷い事をし
> ておきながら、無傷であの世に逃亡というのは絶対に許されない。死ぬ前に充分
> な精神的苦痛をタップリと味わうべき。あの糞野郎だけは絶対に許されないので。
> 芳雄に対する怒りと憎しみは、馬鹿板に対する怒りとは比べ物にはならんわ。
>
> ￥
>
>5720 ：￥ ◆2VB8wsVUoo ：2016/09/02(金) 08:54:09 ID:???
> >>5714
> 言って置くが、被害を受け始めた高校生の頃から私は芳雄を論理分析し、その欠
> 陥や弱点を精密に理解し、そしてその横暴極まりない無責任な態度に対抗しなが
> ら狙い撃ちにして来た。私は芳雄のせいで甚大な被害を被ったのであり、それを
> 「親が責任を取る」という様ないい加減な逃げ口上で逃亡し、無責任を通す卑怯
> な行為は到底許されない。なのでその報いだけでもきちんと受けさせてやるだけ。
>
> 糞芳雄の野郎、このまま逃げ切りは許さない。自分から言い放った『親としての
> 責任』というものが微塵でも残ってるのであれば、それ相当の行為が自らなされ
> て当然というものだろう。手を切り落とすもよし、足を切り落とすもよし。或い
> は自分で主張した釜ヶ崎に自分で行って、そして労務者にでも殴られて撲殺され
> るのもいいだろう。
>
> とにかく自分で言った事だけは、きちんと自分から実行するべき。知らぬ存ぜぬ
> で、無責任な逃げ切りだけは許されない。ソレこそが芳雄が言う所の卑怯者だか
> らだ。糞芳雄は恥を知るべき。今からでもいいから、尊厳の意味を理解するべき。
>
> ￥
>
255:￥ ◆2VB8wsVUoo
16/09/11 10:19:34.25 M5fLCYO8.net
￥
256:￥ ◆2VB8wsVUoo
16/09/11 10:19:51.22 M5fLCYO8.net
￥
257:￥ ◆2VB8wsVUoo
16/09/11 10:20:06.34 M5fLCYO8.net
￥
258:￥ ◆2VB8wsVUoo
16/09/11 10:20:41.31 M5fLCYO8.net
￥
259:￥ ◆2VB8wsVUoo
16/09/11 10:21:00.60 M5fLCYO8.net
￥
260:￥ ◆2VB8wsVUoo
16/09/11 10:21:20.82 M5fLCYO8.net
￥
261:￥ ◆2VB8wsVUoo
16/09/11 10:21:41.47 M5fLCYO8.net
￥
262:￥ ◆2VB8wsVUoo
16/09/11 10:22:01.11 M5fLCYO8.net
￥
263:￥ ◆2VB8wsVUoo
16/09/11 10:22:32.59 M5fLCYO8.net
￥
264:￥ ◆2VB8wsVUoo
16/09/11 10:22:51.83 M5fLCYO8.net
￥
265:￥ ◆2VB8wsVUoo
16/09/12 02:45:14.94 wdbNdCQa.net
￥
266:１３２人目の素数さん
16/09/12 02:59:34.74 6uRK9yXr.net
>>246
俺は毎回
SetDirectory@NotebookDirectory[];
って書いてるけどこれが面倒なの？
267:￥ ◆2VB8wsVUoo
16/09/12 03:22:46.49 wdbNdCQa.net
￥
268:￥ ◆2VB8wsVUoo
16/09/12 08:38:03.71 wdbNdCQa.net
￥
269:￥ ◆2VB8wsVUoo
16/09/12 10:10:57.78 wdbNdCQa.net
￥
270:￥ ◆2VB8wsVUoo
16/09/12 11:46:57.80 wdbNdCQa.net
￥
271:￥ ◆2VB8wsVUoo
16/09/12 13:27:59.99 wdbNdCQa.net
￥
272:￥ ◆2VB8wsVUoo
16/09/12 14:14:21.13 wdbNdCQa.net
￥
273:￥ ◆2VB8wsVUoo
16/09/12 15:02:02.99 wdbNdCQa.net
￥
274:￥ ◆2VB8wsVUoo
16/09/12 18:37:29.79 wdbNdCQa.net
￥
275:￥ ◆2VB8wsVUoo
16/09/12 20:48:03.17 wdbNdCQa.net
￥
276:￥ ◆2VB8wsVUoo
16/09/13 02:05:29.24 SVOgK8nu.net
￥
277:￥ ◆2VB8wsVUoo
16/09/16 01:22:40.45 Lx0ol+eh.net
￥
278:￥ ◆2VB8wsVUoo
16/09/16 05:14:32.99 Lx0ol+eh.net
￥
279:１３２人目の素数さん
16/09/18 22:03:27.49 SzPDJhjW.net
(-1)^(1/3)
は、
1/2 + sqrt(3)/2*i
1/2 - sqrt(3)/2*i
のどちらを表わすのでしょうか？
何か決まりがあるのでしょうか？
いちいち、実部と虚部を取って確認するのが面倒です。
280:￥ ◆2VB8wsVUoo
16/09/18 22:22:33.65 RnuvbZ5M.net
￥
>414 名前：１３２人目の素数さん ：2016/09/15(木) 12:12:20.88 ID:zW1tnm+Q
> 痴漢でもなんでも、業績を上げていれば世間はほっておかない。
> 哲也がヤケッパチになったのは、自分がただの有象無象の一人に過ぎないことを思い知ったから。
> 痴漢行為はヤケッパチになった結果としての所業だろう。
>
281:１３２人目の素数さん
16/09/18 23:05:10.88 2kzAQTlr.net
普通 Arg[-1] は π でしょ？
なら (-1)^(1/3) は Exp[iπ/3] でしょ？
282:￥ ◆2VB8wsVUoo
16/09/18 23:59:55.93 RnuvbZ5M.net
￥
>57 :１３２人目の素数さん 2016/09/18(日) 22:27:13.98 ID:ol2qzlaN
>東京の税金たからないで関西に帰れよ部落民
>
>61 :１３２人目の素数さん 2016/09/18(日) 22:54:42.02 ID:ol2qzlaN
>お前の親でもない赤の他人の東京都からナマポふんだくって一人前ズラしてんじゃねえよ関西部落民
>とっとと痴漢しに関西に帰れよ
>鬼のようにぶっさいくな関東女茨城女よりも四国や関西で痴漢した方が楽しいんだろ？ん？
>64 :１３２人目の素数さん 2016/09/18(日) 23:04:21.99 ID:ol2qzlaN
>関西に帰るのがいやならフランスの旧植民地の大学にでも行きゃあいいだろうがよ
>フランス崇め奉ってる植民地根性なら旧植民地がお似合いだろうがよ
>フランス文化受容強要の美しい現実も見られるだろうしなｗ
>
>66 :１３２人目の素数さん 2016/09/18(日) 23:10:41.77 ID:ol2qzlaN
>親のいいなりの関西のお受験坊ちゃんなんて関東女に相手されるどころかキンタマ握りつぶされそうだしな
>フランス人女には口げんかで負けるし
>フランス植民地選良の黒人女にでも慰めてもらえば？
>
>70 :１３２人目の素数さん 2016/09/18(日) 23:16:27.29 ID:ol2qzlaN
>フランス語でフランスの掲示板で関西のお受験パパの暴虐っぷりとお受験坊やのへな�
283:ｿょこっぷり宣伝して回ればいいのに >日本人には常識レベルの関西のテストだけ誤魔化すのに特化したお受験親子の実力皆無っぷりなんて自分で実証して回ったって冷笑すらされんだろうに？ >旧関係者のガン無視っぷりにますます逆恨みがつのるだけじゃねぇのｗｗｗｗ > >72 :１３２人目の素数さん 2016/09/18(日) 23:20:13.28 ID:ol2qzlaN >実力ありゃあ旧関係者も可哀想に感じてどっかにアカデミックな引き立てもあらアするかも知らねえが >宇沢親子をしょっぱくしたコネと実績じゃあ冷笑すらされずガン無視空気だわな日本に限らず > >74 :１３２人目の素数さん 2016/09/18(日) 23:22:55.17 ID:ol2qzlaN >親が教授じゃなかったらアカポスに最初っから引っかからなかった程度の癖に上等だな関西のお受験お坊ちゃん >
284:￥ ◆2VB8wsVUoo
16/09/19 00:33:49.73 9A1kTU24.net
￥
285:￥ ◆2VB8wsVUoo
16/09/19 09:34:22.29 9A1kTU24.net
￥
>57 :１３２人目の素数さん 2016/09/18(日) 22:27:13.98 ID:ol2qzlaN
>東京の税金たからないで関西に帰れよ部落民
>
>61 :１３２人目の素数さん 2016/09/18(日) 22:54:42.02 ID:ol2qzlaN
>お前の親でもない赤の他人の東京都からナマポふんだくって一人前ズラしてんじゃねえよ関西部落民
>とっとと痴漢しに関西に帰れよ
>鬼のようにぶっさいくな関東女茨城女よりも四国や関西で痴漢した方が楽しいんだろ？ん？
>64 :１３２人目の素数さん 2016/09/18(日) 23:04:21.99 ID:ol2qzlaN
>関西に帰るのがいやならフランスの旧植民地の大学にでも行きゃあいいだろうがよ
>フランス崇め奉ってる植民地根性なら旧植民地がお似合いだろうがよ
>フランス文化受容強要の美しい現実も見られるだろうしなｗ
>
>66 :１３２人目の素数さん 2016/09/18(日) 23:10:41.77 ID:ol2qzlaN
>親のいいなりの関西のお受験坊ちゃんなんて関東女に相手されるどころかキンタマ握りつぶされそうだしな
>フランス人女には口げんかで負けるし
>フランス植民地選良の黒人女にでも慰めてもらえば？
>
>70 :１３２人目の素数さん 2016/09/18(日) 23:16:27.29 ID:ol2qzlaN
>フランス語でフランスの掲示板で関西のお受験パパの暴虐っぷりとお受験坊やのへなちょこっぷり宣伝して回ればいいのに
>日本人には常識レベルの関西のテストだけ誤魔化すのに特化したお受験親子の実力皆無っぷりなんて自分で実証して回ったって冷笑すらされんだろうに？
>旧関係者のガン無視っぷりにますます逆恨みがつのるだけじゃねぇのｗｗｗｗ
>
>72 :１３２人目の素数さん 2016/09/18(日) 23:20:13.28 ID:ol2qzlaN
>実力ありゃあ旧関係者も可哀想に感じてどっかにアカデミックな引き立てもあらアするかも知らねえが
>宇沢親子をしょっぱくしたコネと実績じゃあ冷笑すらされずガン無視空気だわな日本に限らず
>
>74 :１３２人目の素数さん 2016/09/18(日) 23:22:55.17 ID:ol2qzlaN
>親が教授じゃなかったらアカポスに最初っから引っかからなかった程度の癖に上等だな関西のお受験お坊ちゃん
>
286:１３２人目の素数さん
16/09/22 17:56:14.66 P9SKn3h5.net
冒険でしょでしょ？
287:１３２人目の素数さん
16/10/28 18:11:24.82 r+F5fgXx.net
mathematicaの三次元での対数グラフの作成コマンドはどのようにすればよいのでしょうか？
288:￥ ◆2VB8wsVUoo
16/10/28 18:19:42.10 fs/1cRpR.net
￥
>329 名前：１３２人目の素数さん ：2016/10/26(水) 17:24:53.77 ID:LOz3feeR
> 孫を奪うと言いつつ好みのタイプでムラムラ牌揉み
> 情けないねえ...
>
>331 名前：ニノ ：2016/10/28(金) 04:27:43.07 ID:YMecsJRq
> 女性に痴漢は最低の行為です
> 恥を知ってください
>
289:￥ ◆2VB8wsVUoo
16/10/28 18:24:28.94 fs/1cRpR.net
￥
290:￥ ◆2VB8wsVUoo
16/10/28 18:24:47.32 fs/1cRpR.net
￥
291:￥ ◆2VB8wsVUoo
16/10/28 18:36:33.83 fs/1cRpR.net
￥
292:￥ ◆2VB8wsVUoo
16/10/28 18:36:50.15 fs/1cRpR.net
￥
293:￥ ◆2VB8wsVUoo
16/10/28 18:37:09.66 fs/1cRpR.net
￥
294:￥ ◆2VB8wsVUoo
16/10/28 18:37:26.64 fs/1cRpR.net
￥
295:￥ ◆2VB8wsVUoo
16/10/28 18:37:42.67 fs/1cRpR.net
￥
296:￥ ◆2VB8wsVUoo
16/10/28 18:37:58.34 fs/1cRpR.net
￥
297:￥ ◆2VB8wsVUoo
16/10/28 18:38:18.76 fs/1cRpR.net
￥
298:￥ ◆2VB8wsVUoo
16/10/28 18:38:35.23 fs/1cRpR.net
￥
299:１３２人目の素数さん
16/10/28 21:05:20.94 iExeOuXc.net
>>279
ヘルプをみろ
300:￥ ◆2VB8wsVUoo
16/10/29 01:23:08.71 GG1HSXYD.net
￥
>326 名前：１３２人目の素数さん ：2016/10/26(水) 14:13:06.88 ID:dz3LPMS/
> >>2-3
> 虐待的躾
>
> >>4
> その主張は個人の精神の内に限られた中での狭い正論
> 法的には不当な手続きによる風評悪化工作
>
> 縁組解脱するでもなければ復讐も果たせず、無駄以上のマイナスに終わる人生へ進む増田哲也
>
>327 名前：１３２人目の素数さん ：2016/10/26(水) 14:15:31.32 ID:dz3LPMS/
> 「孫を奪う」
> 手段が
> 「自分の任意を駆使して｣
> …
>
> 警察・検察・弁護士・裁判官「それを仄めかすと言う｣
>
>328 名前：１３２人目の素数さん ：2016/10/26(水) 14:29:49.76 ID:dz3LPMS/
> しかし最後に決めるのは法律ではなく過去判例や世情判例、法律は実は決め切らない
> 口八丁手八丁で判例が左右する
>
> 増田哲也の不毛な戦いは続く
>
>330 名前：１３２人目の素数さん ：2016/10/26(水) 17:54:03.72 ID:dz3LPMS/
> 「ムラムラしたんだから仕方ないがな」みたいな発言
>
> 性感を、絶頂に至らせずに高め強める為に
> ある周波数かつ弱電流高電圧で絶頂越えを感電制止し
> 無限に高まり強まる性感を与えつつ
> 性感を全身に広げる為に口腔鼻腔～肺の内気を
> 窒息感たっぷりに高圧に保ちつつも酸欠しない様に内気を常に酸素還元する
>
> 無限に高まり強まりつつ全身に至る性感の中で
> 余
301:りにも強い性感に死に対する欲望が怒涛の勢いで湧き上がり > 性感の大海の内に命が尽きる事を願うだろう > 義父に対する復讐よりも死に焦がれる性欲に堕ちるのだ > 「ムラムラ」「仕方ない」のだから >
302:￥ ◆2VB8wsVUoo
16/10/29 02:53:37.10 GG1HSXYD.net
￥
303:￥ ◆2VB8wsVUoo
16/10/29 02:53:53.76 GG1HSXYD.net
￥
304:￥ ◆2VB8wsVUoo
16/10/29 02:54:11.35 GG1HSXYD.net
￥
305:￥ ◆2VB8wsVUoo
16/10/29 02:54:30.78 GG1HSXYD.net
￥
306:￥ ◆2VB8wsVUoo
16/10/29 02:54:50.11 GG1HSXYD.net
￥
307:￥ ◆2VB8wsVUoo
16/10/29 02:55:10.80 GG1HSXYD.net
￥
308:￥ ◆2VB8wsVUoo
16/10/29 02:55:28.89 GG1HSXYD.net
￥
309:￥ ◆2VB8wsVUoo
16/10/29 02:55:46.30 GG1HSXYD.net
￥
310:￥ ◆2VB8wsVUoo
16/10/29 02:56:06.34 GG1HSXYD.net
￥
311:￥ ◆2VB8wsVUoo
16/10/29 02:56:26.41 GG1HSXYD.net
￥
312:１３２人目の素数さん
16/10/29 06:54:24.67 Qwx92sL0.net
v11にしたんだがImportがくっそ遅くなっててブチ切れ中ｗ
v11.0.0もv11.0.1もどっちも遅いことを確認した。
比較対象はv10の最後のバージョンのv10.4.1とする。
＝＝＝＝＝ 激遅ぷんぷん丸確認コード ＝＝＝＝＝
まずは適当な画像ファイルを用意する。
ここでは以下のスパイキーとする。
URLﾘﾝｸ(www.wolfram.com)
確認コードはこれを10回インポートするだけ。
a = Table[Import[
313:１３２人目の素数さん
16/10/29 06:57:47.92 Qwx92sL0.net
なんだ？
2chもバグか？
途中で消えるぞ。
v11にしたんだがImportがくっそ遅くなっててブチ切れ中ｗ
v11.0.0もv11.0.1もどっちも遅いことを確認した。
比較対象はv10の最後のバージョンのv10.4.1とする。
＝＝＝＝＝ 激遅ぷんぷん丸確認コード ＝＝＝＝＝
まずは適当な画像ファイルを用意する。
ここでは以下のスパイキーとする。
URLﾘﾝｸ(www.wolfram.com)
確認コードはこれを10回インポートするだけ。
a = Table[Import["header-spikey.png"], {i, 10}]; // AbsoluteTiming
これが、v10では0.5秒なのに対して、v11では65秒かかる。
ウルフラムって製品リリース前にしっかりテストしないんだよな～。
ユーザーをデバッガーだと勘違いしてる。
ふざけんなよ。
314:１３２人目の素数さん
16/10/29 07:16:39.54 pM7yZCx0.net
>>304
> なんだ？
> 2chもバグか？
> 途中で消えるぞ。
確認画面が出る初回書き込みの時、"でコメントが切れるバグがある。
多分、通常書き込みと違い、レスのエスケープを省略してるんだろう（2ch運営はド阿呆だから）
315:￥ ◆2VB8wsVUoo
16/10/29 07:51:40.42 GG1HSXYD.net
￥
>326 名前：１３２人目の素数さん ：2016/10/26(水) 14:13:06.88 ID:dz3LPMS/
> >>2-3
> 虐待的躾
>
> >>4
> その主張は個人の精神の内に限られた中での狭い正論
> 法的には不当な手続きによる風評悪化工作
>
> 縁組解脱するでもなければ復讐も果たせず、無駄以上のマイナスに終わる人生へ進む増田哲也
>
>327 名前：１３２人目の素数さん ：2016/10/26(水) 14:15:31.32 ID:dz3LPMS/
> 「孫を奪う」
> 手段が
> 「自分の任意を駆使して｣
> …
>
> 警察・検察・弁護士・裁判官「それを仄めかすと言う｣
>
>328 名前：１３２人目の素数さん ：2016/10/26(水) 14:29:49.76 ID:dz3LPMS/
> しかし最後に決めるのは法律ではなく過去判例や世情判例、法律は実は決め切らない
> 口八丁手八丁で判例が左右する
>
> 増田哲也の不毛な戦いは続く
>
>330 名前：１３２人目の素数さん ：2016/10/26(水) 17:54:03.72 ID:dz3LPMS/
> 「ムラムラしたんだから仕方ないがな」みたいな発言
>
> 性感を、絶頂に至らせずに高め強める為に
> ある周波数かつ弱電流高電圧で絶頂越えを感電制止し
> 無限に高まり強まる性感を与えつつ
> 性感を全身に広げる為に口腔鼻腔～肺の内気を
> 窒息感たっぷりに高圧に保ちつつも酸欠しない様に内気を常に酸素還元する
>
> 無限に高まり強まりつつ全身に至る性感の中で
> 余りにも強い性感に死に対する欲望が怒涛の勢いで湧き上がり
> 性感の大海の内に命が尽きる事を願うだろう
> 義父に対する復讐よりも死に焦がれる性欲に堕ちるのだ
> 「ムラムラ」「仕方ない」のだから
>
316:￥ ◆2VB8wsVUoo
16/10/29 07:56:46.47 GG1HSXYD.net
￥
317:￥ ◆2VB8wsVUoo
16/10/29 07:57:01.27 GG1HSXYD.net
￥
318:￥ ◆2VB8wsVUoo
16/10/29 07:57:15.93 GG1HSXYD.net
￥
319:￥ ◆2VB8wsVUoo
16/10/29 07:57:32.48 GG1HSXYD.net
￥
320:￥ ◆2VB8wsVUoo
16/10/29 07:57:49.30 GG1HSXYD.net
￥
321:￥ ◆2VB8wsVUoo
16/10/29 07:58:06.85 GG1HSXYD.net
￥
322:￥ ◆2VB8wsVUoo
16/10/29 07:58:22.54 GG1HSXYD.net
￥
323:￥ ◆2VB8wsVUoo
16/10/29 07:58:39.22 GG1HSXYD.net
￥
324:￥ ◆2VB8wsVUoo
16/10/29 07:58:54.82 GG1HSXYD.net
￥
325:￥ ◆2VB8wsVUoo
16/10/29 07:59:10.11 GG1HSXYD.net
￥
326:１３２人目の素数さん
16/10/29 15:49:26.08 AU6jkTy+.net
v11って全体的に重い気がする (体感で)
327:￥ ◆2VB8wsVUoo
16/10/29 16:43:39.02 GG1HSXYD.net
￥
328:１３２人目の素数さん
16/11/11 02:23:12.47 9/JMGEzK.net
>304
SQLインジェクションでもされそうだな
329:１３２人目の素数さん
16/11/22 21:08:16.89 Ttl+5Vfy.net
だれかわかる方いませんかね
お願いします
Wolfram Alphaの書き方について質問です。グレブナー基底を計算したいのですが、ほぼ同じ文構造にしているのに、片方だけ門前払いのようになってしまいます。... #知恵袋_
URLﾘﾝｸ(detail.chiebukuro.yahoo.co.jp)
330:￥ ◆2VB8wsVUoo
16/11/22 21:27:21.96 gduvw08G.net
￥
>前科持ち変質者と絶対出会える掲示板 [無断転載禁止]
>
>1 名前：１３２人目の素数さん 2016/11/16(水) 21:02:24.40 ID:8UX5OsVV
> 変質者前科持ちと気が触れ合える掲示板
>
>11 名前：１３２人目の素数さん ：2016/11/19(土) 08:36:12.59 ID:6KwDBI7h
> 変質者前科持ち＝増田哲也
>
>12 名前：１３２人目の素数さん ：2016/11/19(土) 09:04:39.15 ID:AZB04dZ8
> わざわざ言わんでもええ
>
>13 名前：出会える掲示板 ◆2VB8wsVUoo ：2016/11/19(土) 15:58:01.20 ID:21LrO2+x
> 絶対に…
>
> ケケケ￥
>
>14 名前：１３２人目の素数さん ：2016/11/19(土) 16:31:33.55 ID:6KwDBI7h
> 六十目前で父親逆恨みしたり掲示板逆恨みする根性の腐れっぷりは凄くて困る
>
331:１３２人目の素数さん
16/11/22 21:53:19.01 CUsD7g5C.net
>>320
画像小さすぎ
332:￥ ◆2VB8wsVUoo
16/11/22 22:05:47.57 gduvw08G.net
￥
333:￥ ◆2VB8wsVUoo
16/11/22 22:06:04.08 gduvw08G.net
￥
334:￥ ◆2VB8wsVUoo
16/11/22 22:06:20.76 gduvw08G.net
￥
335:￥ ◆2VB8wsVUoo
16/11/22 22:06:37.43 gduvw08G.net
￥
336:￥ ◆2VB8wsVUoo
16/11/22 22:06:54.32 gduvw08G.net
￥
337:￥ ◆2VB8wsVUoo
16/11/22 22:07:10.41 gduvw08G.net
￥
338:￥ ◆2VB8wsVUoo
16/11/22 22:07:29.27 gduvw08G.net
￥
339:￥ ◆2VB8wsVUoo
16/11/22 22:07:47.14 gduvw08G.net
￥
340:￥ ◆2VB8wsVUoo
16/11/22 22:08:03.87 gduvw08G.net
￥
341:￥ ◆2VB8wsVUoo
16/11/22 22:08:24.06 gduvw08G.net
￥
342:１３２人目の素数さん
16/11/22 22:12:02.64 Ttl+5Vfy.net
>>322
URLﾘﾝｸ(i.imgur.com)
URLﾘﾝｸ(i.imgur.com)
黄緑のマーカーの部分しか違わないのになぜですかね
343:￥ ◆2VB8wsVUoo
16/11/22 22:15:17.08 gduvw08G.net
￥
>前科持ち変質者と絶対出会える掲示板 [無断転載禁止]
>
>1 名前：１３２人目の素数さん 2016/11/16(水) 21:02:24.40 ID:8UX5OsVV
> 変質者前科持ちと気が触れ合える掲示板
>
>11 名前：１３２人目の素数さん ：2016/11/19(土) 08:36:12.59 ID:6KwDBI7h
> 変質者前科持ち＝増田哲也
>
>12 名前：１３２人目の素数さん ：2016/11/19(土) 09:04:39.15 ID:AZB04dZ8
> わざわざ言わんでもええ
>
>13 名前：出会える掲示板 ◆2VB8wsVUoo ：2016/11/19(土) 15:58:01.20 ID:21LrO2+x
> 絶対に…
>
> ケケケ￥
>
>14 名前：１３２人目の素数さん ：2016/11/19(土) 16:31:33.55 ID:6KwDBI7h
> 六十目前で父親逆恨みしたり掲示板逆恨みする根性の腐れっぷりは凄くて困る
>
344:￥ ◆2VB8wsVUoo
16/11/22 22:22:03.23 gduvw08G.net
￥
345:￥ ◆2VB8wsVUoo
16/11/22 22:23:00.28 gduvw08G.net
￥
346:￥ ◆2VB8wsVUoo
16/11/22 22:23:47.25 gduvw08G.net
￥
347:￥ ◆2VB8wsVUoo
16/11/22 22:24:40.11 gduvw08G.net
￥
348:￥ ◆2VB8wsVUoo
16/11/22 22:25:31.11 gduvw08G.net
￥
349:￥ ◆2VB8wsVUoo
16/11/22 22:26:35.66 gduvw08G.net
￥
350:￥ ◆2VB8wsVUoo
16/11/22 22:27:27.77 gduvw08G.net
￥
351:￥ ◆2VB8wsVUoo
16/11/22 22:28:20.20 gduvw08G.net
￥
352:￥ ◆2VB8wsVUoo
16/11/22 22:29:17.47 gduvw08G.net
￥
353:￥ ◆2VB8wsVUoo
16/11/22 22:30:11.80 gduvw08G.net
￥
354:１３２人目の素数さん
16/11/23 01:54:46.02 W4WKLPhR.net
>>333
長過ぎて入力できてないんじゃないの
355:￥ ◆2VB8wsVUoo
16/11/23 05:56:41.19 3HDEcW6H.net
￥
>前科持ち変質者と絶対出会える掲示板 [無断転載禁止]
>
>1 名前：１３２人目の素数さん 2016/11/16(水) 21:02:24.40 ID:8UX5OsVV
> 変質者前科持ちと気が触れ合える掲示板
>
>11 名前：１３２人目の素数さん ：2016/11/19(土) 08:36:12.59 ID:6KwDBI7h
> 変質者前科持ち＝増田哲也
>
>12 名前：１３２人目の素数さん ：2016/11/19(土) 09:04:39.15 ID:AZB04dZ8
> わざわざ言わんでもええ
>
>13 名前：出会える掲示板 ◆2VB8wsVUoo ：2016/11/19(土) 15:58:01.20 ID:21LrO2+x
> 絶対に…
>
> ケケケ￥
>
>14 名前：１３２人目の素数さん ：2016/11/19(土) 16:31:33.55 ID:6KwDBI7h
> 六十目前で父親逆恨みしたり掲示板逆恨みする根性の腐れっぷりは凄くて困る
>
356:￥ ◆2VB8wsVUoo
16/11/23 05:58:02.79 3HDEcW6H.net
￥
357:￥ ◆2VB8wsVUoo
16/11/23 05:59:39.29 3HDEcW6H.net
￥
358:￥ ◆2VB8wsVUoo
16/11/23 06:01:00.33 3HDEcW6H.net
￥
359:￥ ◆2VB8wsVUoo
16/11/23 06:03:45.74 3HDEcW6H.net
￥
360:￥ ◆2VB8wsVUoo
16/11/23 06:04:04.32 3HDEcW6H.net
￥
361:￥ ◆2VB8wsVUoo
16/11/23 06:04:23.03 3HDEcW6H.net
￥
362:￥ ◆2VB8wsVUoo
16/11/23 06:04:38.23 3HDEcW6H.net
￥
363:￥ ◆2VB8wsVUoo
16/11/23 06:04:55.67 3HDEcW6H.net
￥
364:￥ ◆2VB8wsVUoo
16/11/23 06:05:11.53 3HDEcW6H.net
￥
365:￥ ◆2VB8wsVUoo
16/11/23 06:12:01.55 3HDEcW6H.net
￥
366:１３２人目の素数さん
16/11/23 09:05:41.98 rja+NBr8.net
>>333
成功したコードと失敗したコードをここに書いてみ。
367:￥ ◆2VB8wsVUoo
16/11/23 10:02:06.28 3HDEcW6H.net
￥
>前科持ち変質者と絶対出会える掲示板 [無断転載禁止]
>
>1 名前：１３２人目の素数さん 2016/11/16(水) 21:02:24.40 ID:8UX5OsVV
> 変質者前科持ちと気が触れ合える掲示板
>
>11 名前：１３２人目の素数さん ：2016/11/19(土) 08:36:12.59 ID:6KwDBI7h
> 変質者前科持ち＝増田哲也
>
>12 名前：１３２人目の素数さん ：2016/11/19(土) 09:04:39.15 ID:AZB04dZ8
> わざわざ言わんでもええ
>
>13 名前：出会える掲示板 ◆2VB8wsVUoo ：2016/11/19(土) 15:58:01.20 ID:21LrO2+x
> 絶対に…
>
> ケケケ￥
>
>14 名前：１３２人目の素数さん ：2016/11/19(土) 16:31:33.55 ID:6KwDBI7h
> 六十目前で父親逆恨みしたり掲示板逆恨みする根性の腐れっぷりは凄くて困る
>
368:￥ ◆2VB8wsVUoo
16/11/23 10:03:41.65 3HDEcW6H.net
￥
369:１３２人目の素数さん
16/11/23 10:45:44.84 NxE/wuAP.net
>>357
下の画像はメモ帳のキャプチャでコード書いてあるメモ帳をコピペして計算したから下の画像のとうりです
370:￥ ◆2VB8wsVUoo
16/11/23 10:46:25.77 3HDEcW6H.net
￥
>前科持ち変質者と絶対出会える掲示板 [無断転載禁止]
>
>1 名前：１３２人目の素数さん 2016/11/16(水) 21:02:24.40 ID:8UX5OsVV
> 変質者前科持ちと気が触れ合える掲示板
>
>11 名前：１３２人目の素数さん ：2016/11/19(土) 08:36:12.59 ID:6KwDBI7h
> 変質者前科持ち＝増田哲也
>
>12 名前：１３２人目の素数さん ：2016/11/19(土) 09:04:39.15 ID:AZB04dZ8
> わざわざ言わんでもええ
>
>13 名前：出会える掲示板 ◆2VB8wsVUoo ：2016/11/19(土) 15:58:01.20 ID:21LrO2+x
> 絶対に…
>
> ケケケ￥
>
>14 名前：１３２人目の素数さん ：2016/11/19(土) 16:31:33.55 ID:6KwDBI7h
> 六十目前で父親逆恨みしたり掲示板逆恨みする根性の腐れっぷりは凄くて困る
>