- 1 名前：１３２人目の素数さん mailto:sage [04/03/06 09:51]
- _....._{{ 〃
, - ' ,..､､.ヾ{{フ'⌒`ヽ､
／ ,:', -‐‐` ´ '´⌒ヽ ヾ:､
. ,' ,'´ ,ィ ,ｨ ,' , ｀ヽ', ',-<
,' .i /|. /.| { i, i, }. }_,,）)
! | ! .,'-.{ ! !|; |`､.}ﾞ!.! |. ! ヽ.
', ', |Vｧ=､ﾞ､ ｀ﾞ､!-_:ﾄ,ﾘ', l ! | ﾞ',
ヽ､', l:!Kノ}. f:_.)iﾞi: ﾘ ! l ル
| l!iヽﾞ- ' , .!__:ﾉ ﾞ ,ﾘ l ﾘ'´
. ',|!!､ r‐┐ ｀ ノ'. /,ｲ ／￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣
'i!ﾞ､ヽ､ ﾞｰ' _, ィ,:',:''´ ＜ Mathematica に関する話題はここに書いてね！
ﾞ:､ｨ､jヾｰ::: 'iﾍ .ノ',ﾘ. ＼＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿
,､- '´ ヽ､ﾞ､ { ｀＞"､
/＼＼ ', } //｀ヽ
★前スレ
〓Mathematica〓
science2.2ch.net/test/read.cgi/math/985023298/
- 482 名前：１３２人目の素数さん [04/11/05 12:03:23]
- Mathematica で括弧 { の縦長を作りたいのですが、
どうしたらよいでしょうか？
条件分けした関数定義を表記したいのです。
(計算したいのではなくて、きれいに表記したい)
- 483 名前：１３２人目の素数さん mailto:sage [04/11/05 12:30:00]
- >>478
0.95って…fもgも知らせずにそんなことだけ書かれてもね。
ちなみに、Mathematicaの式として(積分したいのなら)>>475は間違っている。
質問の仕方も情報小出しの典型で、なってない。
それから推測して、君はMathematicaのみならずコンピュータにも慣れてないだろう。
f[x]やg[x]が正しく書けてないことも大いにありうるし、もっと予想外のことで
つまづいているのかもしれない。
何をやったのか全部書かないとエスパー以外にはどうしようもないよ。
>>479
それMathematicaで解くの？数学の問題なら別のスレに。
>>480-481 らしいカキコだね。
>>482
StyleBox[RowBox[{"{", GridBox[{{X}, {Y}, {Z}}]}],
SpanMaxSize -> Infinity] // DisplayForm
"{"が色つきで表示されるのはなにかのお節介なんだろう。
- 484 名前：482 mailto:sage [04/11/05 12:36:04]
- >>483
ありがとう。
これって、ノートブックから対話的に入力することはできないんでしょうかね。
- 485 名前：マンコ [04/11/05 12:50:03]
- >>バカ 484
m
a
t
h
.
b
a
t
使
え
よ
>>483
だろ？ matlab も使用できずに調子にのらないほうがいいぞ。
パンツマン
- 486 名前：１３２人目の素数さん mailto:sage [04/11/05 13:17:59]
- >>484
OutputだけならFormatか何かでいけるだろうけど、
ノートブックに入力の時点ではカーネルまで情報が伝わってないから、
まずなんらかノートブックを適切に設定しないといけないだろうね。
がんばってくれ。
# 表示用途にはTeXのほうがいいと思う。
- 487 名前：１３２人目の素数さん [04/11/06 05:31:27]
- >>483
479 パソコンでとけという指示なのです。
- 488 名前：質問！ [04/11/06 16:54:26]
- Mathematica でプログラミングする場合、
末尾再帰の最適化は自動的に行ってくれるんでしょうか？
- 489 名前：１３２人目の素数さん mailto:sage [04/11/06 19:31:38]
- >>488
してくれない。ただRelaseHoldで計算を続けられる。
定義の時にHold関係で評価順序をいじってなんとかすることもできる。
(* Good *)
f[x_, s_] := If[x == 0, s, f[x - 1, s + x]]
f[1000, 0]
(* Good *)
id[x_] := x; SetAttributes[id, HoldAll]
g[x_, s_] := id[If[x == 0, s, g[x - 1, s + x]]]
g[1000, 0]
(* Bad *)
ClearAttributes[id, HoldAll]
g[1000, 0]
- 490 名前：488 mailto:sage [04/11/06 20:02:44]
- >>489
回答ありがとう！属性について調べてみるよ。
- 491 名前：１３２人目の素数さん mailto:sage [04/11/06 20:06:32]
- >>487
(2)は、二点間の道のうち(実際にあるくときの)距離が最小のもの(の距離)を
求めよということか？
だとしたら、[-1, 2]を{x1, x2, ..., xn}に分割して、yを点{x1,.. ,xn}上の
値できまる折れ線関数で近似する。x1, x2, ..., xnの関数として距離
が定まるのであとはFindMinimuを用いる。
(3)は簡単な手計算。
- 492 名前：１３２人目の素数さん [04/11/07 14:51:03]
- >>491
すいません、もうちょっと詳しくお願いします。
分割って何ですか？
- 493 名前：Emacs part13 スレの 1 ◆y1O6Cqv4XU [04/11/07 15:16:53]
- >>492
> >>491
> すいません、もうちょっと詳しくお願いします。
やだ
- 494 名前：１３２人目の素数さん mailto:sage [04/11/07 16:47:47]
- >>492
[-1, 2]上にx1, ..., xnのn個の点をx1 < x2 < ... < xnとなるようにとること。
>>491ではx1,..,xnの関数と書いたが、正しくはy1, ..., ynの関数だった。
分割を固定して、その上のyの値y1, ... ,ynがどうであれば、
パラメータをxとする道(x, y(x), z(x, y(x)))の距離が最小になるかを探る。
- 495 名前：１３２人目の素数さん [04/11/08 04:38:19]
- g(x)=f'(x) というような関数はどうやって定義すればいいのですか？
g[x_];=D[f[x],x]
g[0]
とすると
General::"ivar": "0は有効な変数ではありません．"
といわれてしまいます。
- 496 名前：１３２人目の素数さん mailto:sage [04/11/08 18:57:08]
- >>495
g[x_] := Derivative[1][f][x]
もしくは、
h[x_] := D[f[z],z] /. z -> x
- 497 名前：１３２人目の素数さん mailto:sage [04/11/08 21:52:38]
- このソフト使うのにプログラミング言語の知識が必要？
- 498 名前：ChaosicSoul ◆/yaJbLAHGw [04/11/08 22:43:05]
- Re:>497 functionが分かれば大丈夫。
- 499 名前：ChaosicSoul ◆/yaJbLAHGw [04/11/08 22:44:09]
- Re:>497 ごく基本的なことだが、入力した関数の評価を得るには、Shift+Enterだ。これだけは忘れないように。
- 500 名前：１３２人目の素数さん mailto:sage [04/11/08 22:52:05]
- >>497
このソフトが使えるようになれば、
Mathematicaというプログラミング言語の知識を得たことになる。
- 501 名前：ChaosicSoul ◆/yaJbLAHGw [04/11/08 22:58:13]
- Re:>500 Mathematica って、プログラミング言語だったのか。それは知らなかった。
- 502 名前：１３２人目の素数さん [04/11/09 22:33:26]
- どうしても以下の積分が計算できません・・。
Integrate[ Exp[-x^2] Erf[x + a], x]
なにか工夫すればmathematicaで出来るのでしょうか？
ご教授お願いいたします。
- 503 名前：１３２人目の素数さん [04/11/10 16:38:56]
- 物理でよく使うステップ関数Θ
マセマティカでは、何を使えばいいの？
N[Positive[x]]???
- 504 名前：１３２人目の素数さん [04/11/10 16:42:12]
- 関数をいれこにしたいとき どうすればいいの？
たとえば
F[x_] := x^2
G[F_] := Cos[F]
ってかくべきなのか？G[F_] := Cos[F[x]]ってやる
べきなのか迷ってま。
- 505 名前：１３２人目の素数さん [04/11/10 16:46:00]
- パレットを使って定積分を入力してしまったが、
本当は数値定積分しか興味ないとき、
どうやって修整すればいいの？
やっぱり、NIntegrate・・・・って全部手打ちしなおし？
- 506 名前：１３２人目の素数さん [04/11/10 16:59:42]
- >>505
パレットを使って定積分を入力したものを実行、
そのあとN[％]でいいんでない？
- 507 名前：１３２人目の素数さん mailto:sage [04/11/10 17:05:08]
- >>503
UnitStep
>>504
> 関数をいれこにしたいとき どうすればいいの？
もとからある関数に従う。
G[x_] := Cos[x] なら H[x_] := G[F[x]]
G[f_][x_] := Cos[f[x]] なら H[x_] := G[F][x]
- 508 名前：１３２人目の素数さん mailto:sage [04/11/10 17:08:13]
- >>505
打ちなおしがベスト。記号的に積分しようとして無駄に時間がかかるからね。
お薦めはしないが、上の方に
Unprotect[Integrate]
Integrate = NIntegrate
と書いてNIntegrateに置き換えることもできる。
- 509 名前：１３２人目の素数さん [04/11/10 18:45:47]
- >>506->>508
thanks a lot.
- 510 名前：510 [04/11/13 01:03:21]
- 二つほど質問します アドバイスお願いします
a={ {c,d} + {e,f} }
b={ {g,h} - {i,j} }
このようにa,bの式を定義し、実行すると
a={ {c+e,d+f} }
b={ {g-i,h-j} }
とリストの計算を行ってしまいます。
この計算を行わずにそのまま進める方法はないのでしょうか？
例えば c,d,e,f,g,h,i,jにそれぞれ1,2,3,4,5,6,7,8を代入しても表示結果が
a={ {1,2} + {3,4} }
b={ {5,6} - {7,8} }
となるようにしたいのです。
また、さらにこの性質を利用することにより
ある関数fを定義したときに
f[a,b] = f[{c,d},{g,h}] - f[{c,d},{i,j}] + f[{e,f},{g,h}] - f[{e,f},{i,j}]
と表示させる関数fを定義できるのではないかと思っているのですが
その点はどうでしょうか？
この解決法をわかる方どうかよろしくお願いいたします。
- 511 名前：１３２人目の素数さん mailto:sage [04/11/13 09:00:23]
- >>510
意味は分からないが…
単純に言うと
a = 1 + 3 (のような)
f[a] = ...
と定義したらaと入力して1 + 3が返り、
f[a]と入力してf[1] + f[3]みたいな表示が返ればいいのか？
a = HoldForm[1 + 3]
f[a:HoldForm[x + y]] = HoldForm[f[x] + f[y]]
いづれにせよ
計算されてなければa, bからc, d,...やPlus, Minusをとり出すことはできる。
- 512 名前：１３２人目の素数さん mailto:sage [04/11/13 09:10:47]
- MinusじゃなくてTimes[-1,..]という形か。
- 513 名前：510 [04/11/13 20:10:41]
- >>511
ありがとうございます
一つ目の質問に関しては「HoldForm」が私が思っていた理想とするものでした
大変参考になりました
これを元に2つ目の
f[a,b] = f[{c,d},{g,h}] - f[{c,d},{i,j}] + f[{e,f},{g,h}] - f[{e,f},{i,j}]
についても考えたいと思います。
これは要は
Outer[ F,{a,b},{c,d} ] = {F(a,b),F(a,c),F(b,c),F(b,d)}
というものがあると思いますが、これと似たような機能で
h[ F,{ list1,list2 },{ list3,list4 } ]
={F(list1,list3)},F(list1,list4),F(list2,list3),F(list2,list4)]
のようにリストの中にあるリストを分配してくれるとうなものを探していました。
引き続き調べてみようと思います。
また何かありましたらよろしくお願いいたします。
ありがとうございました
- 514 名前：１３２人目の素数さん mailto:sage [04/11/13 21:10:06]
- >>513
>Outer[ F,{a,b},{c,d} ] = {F(a,b),F(a,c),F(b,c),F(b,d)}
ではなくて、
Outer[F, {a, b}, {c, d}]
{{F[a, c], F[a, d]}, {F[b, c], F[b, d]}}
同様に、リストもOuterでよい。必要ならFlattenする。
Outer[F, {{1, 2}, {3, 4}}, {{5, 6}, {7, 8}}, 1]
{{F[{1, 2}, {5, 6}], F[{1, 2}, {7, 8}]}, {F[{3, 4}, {5, 6}],
F[{3, 4}, {7, 8}]}}
- 515 名前：510 [04/11/13 21:22:22]
- >>514
御指摘とアドバイスをありがとうございます
Outer[F,list1,list2, ... ,listn, m ]
のmの部分によってどのリストに適用できるかどうかを指定できる
という性質を見逃していました。
おかげさまで一つの悩みが解決し、先に進めそうです。
ありがとうございました。
- 516 名前：１３２人目の素数さん [04/11/13 21:40:46]
- HoldForm
フレッドホルム
- 517 名前：１３２人目の素数さん [04/11/15 00:18:14]
- ｋの変数としての関数ｇ は、
ｇ（ｋ）＝係数1（ｋ）×ｇ（ｋ-オフセット）＋係数２（ｋ）×ｇ（ｋ+オフセット）
の形に従う。これを逐次近似でとけ
っていわれても。 といて
ｇ vs ｋ 曲線を導け！といわれても、難しいな。
なんか初期試行関数のあたりをつける（Mathで）いい方法ない？
- 518 名前：１３２人目の素数さん [04/11/15 11:28:14]
- Integrate[E^0.5/(1+Exp[E-eta]),{E,0,infty}]
で定義される特殊関数の
名前は？（変数はetaです）
教えてください。F1／2とかいうシンボルが付加されてます
- 519 名前：１３２人目の素数さん mailto:sage [04/11/15 14:16:01]
- >>518
正しい式を書き込んでね。
- 520 名前：１３２人目の素数さん mailto:sage [04/11/15 14:35:18]
- F_1/2[eta_]:=
(2/Sqrt[Pi])*Integrate[E^0.5/(1+Exp[E-eta]),{E,0,infty}]
- 521 名前：１３２人目の素数さん mailto:sage [04/11/15 14:40:46]
- 分母のところが １＋指数関数
なので、γ関数ではなさそう。
- 522 名前：１３２人目の素数さん mailto:sage [04/11/15 14:50:29]
- www.itl.nist.gov/div898/software/dataplot/refman2/auxillar/fermdira.htm
これだな。しかし、マセマティカには組み込まれてないようだ。
LerchPhiとかいうのとガンマ関数を
両方使って定義しても良いけど そんなんするくらいなら
自分で定義した方がすっきり
- 523 名前：１３２人目の素数さん [04/11/15 16:08:41]
- 二項演算ｍを言語とし、次を公理とする理論のモデルで、ドメインが
｛１，２，３｝であり、e＝１となるものをすべてあげよ。
●∀x[m(e,x)=x]
●∀x[m(x,e)=x]
●∀x∃y[x=m(y,y)]
誰か教えてくらさい。
- 524 名前：１３２人目の素数さん [04/11/15 17:18:19]
- 一つお尋ねします
F[ {a,b}+{c,d} , {e,f}-{g,h} ]
を
F[{a,b},{e,f}] - F[{a,b},{g,h}] + F[{c,d},{e,f}] - F[{c,d},{g,h}]
に変えるようなものを作りたいと考えています
Distribute[ F[a + b, c + d] ]
↓
F[a, c] + F[a, d] + F[b, c] + F[b, d]
というのは見つけたのですが目的のものができません
どうも関数の中の値がリストになるとわからなくなってしまいます。
どうかご指導よろしくお願いいたします
- 525 名前：１３２人目の素数さん mailto:sage [04/11/15 18:18:25]
- >>524
元ネタがわからんからこうではないんかもしれんが、
SetAttributes[MyDistribute, HoldAll]
MyDistribute[f_[x___]] := Module[{g}, SetAttributes[g, HoldAll];
Distribute[g[x]] /. g -> f]
F[a_, {- b_, -c_}] := - F[a, {b, c}]
MyDistribute[F[{a, b} + {c, d}, {e, f} - {g, h}]]
- 526 名前：１３２人目の素数さん mailto:sage [04/11/15 18:24:13]
- このほうがいいかもしれん。
SetAttributes[MyDistribute, HoldAll]
MyDistribute[f_[x___]] := Module[{g}, SetAttributes[g, HoldAll];
g[a_, -b_] = - g[a, b];
Distribute[g[x]] /. g -> f]
MyDistribute[F[{a, b} + {c, d}, {e, f} - {g, h}]]
- 527 名前：１３２人目の素数さん [04/11/15 19:11:31]
- 二変数の関数Fujをかんがえる。ここで変数は iとｊ。
要素をFuj_{i,j}とする正方行列をつくりdeterminentを得たい
とき。どうすればいい？
Det[Flatten[{Table[N[Fuj[i, j]], {i, 1, 4, 1}, {j, 2, 5, 1}]}, 1]]？？
- 528 名前：１３２人目の素数さん mailto:sage [04/11/15 19:37:03]
- >>527
Det[Table[Fuj[i, j], {i, 1, 4}, {j, 1, 4}]]
- 529 名前：１３２人目の素数さん [04/11/15 20:13:18]
- >>528
これだとサブグループを作ってしまって、
正方行列にならないのでは？
list[i, j]=Table[Table[Fuj[i, j], {i, m1, m100}], {j, n1, n100}]
で行列を作っておいて、行列式へ。
そのほうがいくない？
- 530 名前：１３２人目の素数さん mailto:sage [04/11/15 20:58:56]
- >>529
はぁ？それ間違ってるし。
普通Fuj[i,j]ならiが行インデックスだろ。Array[Fuj,{4,4}]と比べてみろ。
っていうか最初っからArray使えばよかったな。
- 531 名前：１３２人目の素数さん [04/11/16 01:28:53]
- NIntegrate[Exp[-t^2], {t, 0, ∞}]
を数値積分すると結果は0.886227と出ます。
NIntegrate[Exp[-(t+a)^2], {t, 0, ∞}]) ここでaは0以外の整数。
この結果を数値(実数×aの形)で求めたいのですがmathematicaでは無理なのでしょうか？
もし可能でしたらその方法、不可能でしたら可能と思われるｿﾌﾄを教えていただきたいです。
よろしくお願いします。
- 532 名前：１３２人目の素数さん mailto:sage [04/11/16 01:40:49]
- >>531
どんなソフトでも不可能。実数×aなんて形にはならないから。
aの関数にしたいならIntegrateがいいだろう。
NIntegrateしてフィッティングもできなくはないが。
- 533 名前：531 [04/11/16 01:44:53]
- 解答ありがとうございます。
Integrateで計算するとインテグラルが残ってしまうんです・・。
フィッティングとは組み込み関数のfitのことでいいんでしょうか？
ヘルプを熟読してみます。
- 534 名前：532 mailto:sage [04/11/16 02:02:52]
- >>533
Integrate[Exp[-t^2], {t, a, \[Infinity]}] といっしょでしょ。
- 535 名前：531 mailto:sage [04/11/16 02:12:40]
- >>532
なんどもありがとうございます。
534の式だと結果に積分記号が残ったままで求めたい結果(数値だけ)が得られないんですよね・・。
他の方法を模索してみます・・。
- 536 名前：532 mailto:sage [04/11/16 03:12:12]
- >>535
バージョンいくつ？4.2だったら
(-1/2)Sqrt[Pi](-1 + Erf[a])
と計算されるんだが。
- 537 名前：531 [04/11/16 20:16:49]
- >>536
返答遅れてすみません・・。
バージョンは５です。Erfは誤差関数でインテグラルが残ってるんですよね・・。
- 538 名前：１３２人目の素数さん mailto:sage [04/11/17 00:58:51]
- 意味が分からん。Erfの内部実装が積分だと知ってるといってるんだろうか。
x^2 = Integral[t, {t, 0, x}]と書けるんだが
x^2にはインテグラルが残っているんだろうか。
- 539 名前：１３２人目の素数さん mailto:sage [04/11/17 01:00:01]
- Integrate[t, {t,0,x}] / 2
- 540 名前：１３２人目の素数さん mailto:sage [04/11/17 01:00:50]
- Integrate[t, {t,0,x}] * 2
- 541 名前：１３２人目の素数さん mailto:sage [04/11/17 01:22:18]
- Integrate[t, {t,0,x}] * Integrate[t, {t,0,2}]
- 542 名前：１３２人目の素数さん mailto:sage [04/11/17 01:30:45]
- よーし、積分してから微分しちゃうぞー。
- 543 名前：１３２人目の素数さん mailto:sage [04/11/17 16:20:29]
- 例えば Mathematica上で
In[2]:= Solve[ a^2 - 1 == 0 , a ]
と入力すると
Out[2]= {{a -> -1}, {a -> 1}}
が返ってきますよね？ ですがこの時に a の 1 つ目の解を参照するにはどのような
記述をすれば良いのでしょうか？
上の例で言えば、
一つ目の解[ Solve[ a^2 - 1 == 0 , a ] ] * 10
のようにして、
Out[2]= -10
が返るようにしたいのです。
- 544 名前：１３２人目の素数さん mailto:sage [04/11/17 18:50:58]
- >>543
(a /. Solve[a^2 - 1 == 0, a])[[1]] * 10
- 545 名前：１３２人目の素数さん [04/11/22 12:56:21]
- ウォルフラムマークって何のためにあるの？
- 546 名前：１３２人目の素数さん mailto:sage [04/11/22 23:53:16]
- Mathematica で f[x,y]=K （K=1〜10までの等高線） の書き方が分かりません。
ContourPlot[f[x, y], {x, -5, 15}, {y, -5, 15}, Contours -> 10, PlotRange -> {0, 10}]
これを実行すると、等高線が10本出ますが、f[x,y]=1〜10 なのかどうか、、、
どのようにしたらよいか教えてください。
- 547 名前：１３２人目の素数さん mailto:sage [04/11/23 02:14:12]
- >>546
ImplicitPlot
- 548 名前：１３２人目の素数さん [04/11/23 13:44:55]
- Mathematica の中・上級者向けで，
Mathematica のプログラミングを本格的に学べるいい本ある？
- 549 名前：546 mailto:sage [04/11/23 15:22:47]
- >>547
ありがとう。ImplicitPlot でできました。
- 550 名前：１３２人目の素数さん [04/11/23 21:41:44]
- arctanのグラフで，pi/2から-pi/2に突然飛ぶんですが，連続になるように描けませんか?
- 551 名前：ChaosicSoul ◆/yaJbLAHGw [04/11/23 21:43:49]
- Re:>550 そんなはずはない。入力した関数(式といったほうが分かりやすい？)を書いてくれ。
- 552 名前：550 [04/11/23 21:50:19]
- Plot[ArcTan[(Sin[x] - 2.767 * Sin[0.2173 * x]) / (Cos[x] - 2.767 * Cos[0.2173 * x])], {x, 0, 10Pi}]
です．
- 553 名前：クラ [04/11/23 21:52:13]
-
押部谷中学校の奴 皆死んでしまえ
私はロバなんかじゃない押部谷中学校の奴 皆死んでしまえ
私はロバなんかじゃない押部谷中学校の奴 皆死んでしまえ
私はロバなんかじゃない押部谷中学校の奴 皆死んでしまえ
私はロバなんかじゃない押部谷中学校の奴 皆死んでしまえ
私はロバなんかじゃない押部谷中学校の奴 皆死んでしまえ
私はロバなんかじゃない押部谷中学校の奴 皆死んでしまえ
私はロバなんかじゃない押部谷中学校の奴 皆死んでしまえ
私はロバなんかじゃない押部谷中学校の奴 皆死んでしまえ
私はロバなんかじゃない押部谷中学校の奴 皆死んでしまえ
私はロバなんかじゃない押部谷中学校の奴 皆死んでしまえ
私はロバなんかじゃない押部谷中学校の奴 皆死んでしまえ
私はロバなんかじゃない押部谷中学校の奴 皆死んでしまえ
私はロバなんかじゃない押部谷中学校の奴 皆死んでしまえ
私はロバなんかじゃない押部谷中学校の奴 皆死んでしまえ
私はロバなんかじゃない
- 554 名前：ChaosicSoul ◆/yaJbLAHGw [04/11/23 21:55:43]
- Re:>552
Plot[ArcTan[1/x],{x,-1,1}]
をやってみてくれ。
これでジャンプの原因が分かる。
- 555 名前：１３２人目の素数さん [04/11/23 21:59:24]
- 484 ： ：04/11/23 19:11 HOST:YahooBB219174040245.bbtec.net<8080>
152 ：依頼 ：04/10/11 15:38:30 HOST:33.93.215.220.ap.yournet.ne.jp
執拗なまでのコピペ荒しです。「うんち食いたい」や、某コテハンのアドレスを各スレにコピペしながら回っているようです。
これでもまだ1/5ぐらいの量です。よければ削除お願いします。永久アク禁してもらいたいぐらいですが。
153 ：依頼２ ：04/10/20 23:24:48 HOST:14.91.215.220.ap.yournet.ne.jp
名前「********@yahoo.co.jp」（名前がメールアドレスなので一応隠しました）と、
名前「LettersOfLiberty ◆〜〜〜〜〜」（〜〜〜はいろいろと）、
名前「FeaturesOfTheGod ◆〜〜〜〜〜」における共同荒らしが２ヶ月ほど絶え間なく続いていて数学の議論ができない状態です。
このキーワードでレスを摘出していただければわかります。
science3.2ch.net/test/read.cgi/math/1097495449/
science3.2ch.net/test/read.cgi/math/1095390340/
この２スレを見ていただければ、続いている荒らしについての議論がされています。
挙げた例はほんのわずかな例です。上から順にスレを開けばほとんどのスレが荒されているのがわかります。
いくつかすでにレスが削除されている様子ですが、それは荒らしレスの1/100ほどです。
尋常じゃないです、どうにかしていただきたい。
157 ：∂ ：04/11/20 05:40:32 HOST:65.98.66.20
163 ：π ：04/11/20 21:11 HOST:tetkyo024225.tkyo.te.ftth2.ppp.infoweb.ne.jp<80><8080>
171 ： ：04/11/23 16:10 HOST:glass.ipe.tsukuba.ac.jp<80><8080><3128><8000><1080>
- 556 名前：550 [04/11/23 22:06:18]
- >554
0で-pi/2からpi/2にジャンプしています．関係ないとおもって書きませんでしたが，versionは3です．
- 557 名前：ChaosicSoul ◆/yaJbLAHGw [04/11/23 22:11:47]
- Re:>556 念のために説明すると、lim_{t→∞}Arctan(t)=π/2,lim_{t→∞}Arctan(t)=-π/2.
- 558 名前：ChaosicSoul ◆/yaJbLAHGw [04/11/23 22:12:25]
- ↑lim_{t→-∞}Arctan(t)=-π/2.
- 559 名前：ChaosicSoul ◆/yaJbLAHGw [04/11/23 22:13:30]
- とにかくArctan(+∞)=π/2,Arctan(-∞)=-π/2.
[>558]の上矢印は数学記号ではない。
- 560 名前：550 [04/11/23 22:14:52]
- >554
arctanは多価ですが，(-pi/2, pi/2)に限定せず，とにかくグラフが連続になるようにスマートにやってもらいたいってことです．
- 561 名前：ChaosicSoul ◆/yaJbLAHGw [04/11/23 22:20:33]
- Re:>560 そういう意味か。
とりあえず、先ずはCos[x] - 2.767 * Cos[0.2173 * x]の零点および、前後の符号を調べて、場合分けするといいだろう。
符号が-から+に変わるところでPiを引いて、+から-に変わるところでPiを足せば連続になる。
- 562 名前：”削除”板荒らされる [04/11/23 22:29:24]
- qb5.2ch.net/test/read.cgi/saku/1033142451/l50
qb5.2ch.net/test/read.cgi/saku/1027349232/l50
- 563 名前：550 [04/11/23 22:30:07]
- >561
なるほど．どうもありがとうございます．ところで，それはMathematicaのコマンドでできるんですか?
- 564 名前：563 [04/11/23 22:36:17]
- f(x) = cos x - 2.767 * cos(0.2173 * x)
g(x) = f(x) if f(x) < 0
g(x) = f(x) + pi if f(x) > 0
みたいなのが簡単に書けるのか?ってことです．
- 565 名前：564 [04/11/23 22:37:20]
- 563のようなg(x)をどうMathematicaでやるのかってことです．
- 566 名前：ChaosicSoul ◆/yaJbLAHGw [04/11/23 22:42:40]
- Re:>563-565 私は何年か前にMathematicaの使用をやめたのでよく分からないが、If関数で出来るだろう。
- 567 名前：564 [04/11/23 22:58:16]
- >566
ありがとうございます．やれそうですね．
- 568 名前：１３２人目の素数さん mailto:sage [04/11/24 03:02:19]
- >>552
prev = Null;
YourArcTan[x_] := If[prev === Null, prev = ArcTan[x],
prev = ArcTan[x] + Pi * IntegerPart[(prev - ArcTan[x] + 0.5) / Pi]]
ListPlot[Table[
YourArcTan[(Sin[x] - 2.767*Sin[0.2173*x])/(Cos[x] -
2.767*Cos[0.2173*x])], {x, 0, 10 Pi, 0.1}], PlotJoined -> True]
- 569 名前：１３２人目の素数さん [04/11/24 19:27:53]
- mathematica5.1記念あげ
- 570 名前：１３２人目の素数さん [04/11/24 19:51:34]
- >>565
module
都会魚まじないを使って関数を定義すれば
よし。
- 571 名前：１３２人目の素数さん [04/11/25 15:33:18]
- ∫ g[x] f[z] dz があらかじめ定義されているとして
∫f[z] dz = Fを定義して、∫ g[x] f[z] dzをF g[x]と
変形するような計算はmathematicaではどうやってやるのでしょうか？
積分変数でない変数しか含まない関数を外に追い出す命令があればあとは
replaceで簡単なのですが・・・
- 572 名前：１３２人目の素数さん mailto:sage [04/11/25 16:28:15]
- ずっと考えてやっと閃きました
こうすればいいようです。
Unprotected[Integrate]
Integrate[f[x],{x,-inf,inf}]:=F
これで、この積分は自動的に評価されます
- 573 名前：１３２人目の素数さん mailto:sage [04/11/25 16:29:58]
- >>571
> 積分変数でない変数しか含まない関数を外に追い出す
簡単に作れるよ。
- 574 名前：１３２人目の素数さん mailto:sage [04/11/25 16:32:09]
- >>572
って自動で追い出されるじゃないか…
- 575 名前：１３２人目の素数さん mailto:sage [04/11/25 17:09:27]
- >>573 >>574
なにか設定が辺なのか追い出されない。
どういうことなんでしょうねぇ・・・
- 576 名前：卒業を助けてくださいm(_ _)m [04/11/25 18:15:18]
- 三次元上に幾つかの球を配置し、それをあらゆる平面で切り、断面積もしくは断面（円）
の半径を求めたいのですがどうしたらいいでしょうか？
これができないと卒業があやうくなります。ちなみに球の座標は
(0.0.0)(2.0.0)(2.2.0)(0.2√2.0)(0.0.2√2)(2√2.0.2√2)(2√2.2√2.2√2)(0.2√2.2√2)
(√2.0.√2)(2√2.√2.√2)(√2.2√2.√2)(0.√2.√2)(√2.√2.0)(√2.√2.2√2)です。
よろしくお願いします。
- 577 名前：１３２人目の素数さん [04/11/26 15:36:22]
- >>569
5.1でたのか、知らんかった。
アップグレードのお知らせとか送ってくれないのかな。
ところで5.0からのアップグレードはいくらくらいぼったくられるのだろう？
- 578 名前：１３２人目の素数さん mailto:sage [04/11/26 15:37:52]
- >>576
留年しろ
- 579 名前：１３２人目の素数さん [04/11/27 14:36:41]
- Mathematica と LaTex ではどちらが数式の記述能力が上ですか？
たとえば、あまり一般的でない記法とかを自由に記述できたりしますか？
(どちらがきれいな表示かは問題にしていません。)
- 580 名前：伊丹公理 [04/11/27 15:42:24]
- 初等的なものなら、Mathematica
編集ならLaTeX
自由自在、縦横無尽に使うなら TeX
- 581 名前：１３２人目の素数さん [04/11/27 15:43:07]
- >>579
普通にそれぞれの用途を考えたらわかると思うが？
- 582 名前：１３２人目の素数さん mailto:sage [04/11/27 15:46:04]
- >>580 >>581 ありがとう。
|
 |
