トップページ⇒math
973コメント287KB

〓 Mathematica 四 〓

■ このスレッドは過去ログ倉庫に格納されています
0001１３２人目の素数さん2007/12/10(月) 16:00:01
　　　　　　　　_....._{{ 〃
　　　　 　, - ' ,..､､.ヾ{{フ'⌒`ヽ､
　　　　／　 ,:', -‐‐` ´ '´⌒ヽ　ヾ:､
.　　　,'　　 ,'´　,ィ ,ｨ ,' , 　 ｀ヽ',　 ',-<
　 　 ,' 　　.i　 /|. /.| { i,　 i,　　}.　 }_,,）)
　　　!　|　 ! .,'-.{ !　!|; |`､.}ﾞ!.!　|.　 !　ヽ.
　　　',　',　|Vｧ=､ﾞ､ ｀ﾞ､!-_:ﾄ,ﾘ', l !　| 　 ﾞ',
　　　 ヽ､', l:!Kノ}. 　 　 f:_.)iﾞi: ﾘ !　l　ル　
　　　　 | l!iヽﾞ- '　, 　　.!__:ﾉ ﾞ ,ﾘ l ﾘ'´ 　 　　
.　　　　 ',|!!､ 　 　r‐┐ 　 ｀ ノ'. /,ｲ　　　　／￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣ 　
　　　　　 'i!ﾞ､ヽ､　ﾞｰ'　　_, ィ,:',:''´　　　 ＜　 Mathematica に関する話題はここに書いてね！
　　　　　　ﾞ:､ｨ､jヾｰ::: 'iﾍ　.ノ',ﾘ. 　 　 　　 ＼＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿
　　　,､- '´　ヽ､ﾞ､　　 {　｀＞"､ 　
　　/＼＼　　　　',　　 }　　 //｀ヽ

過去スレ
>>2
0577１３２人目の素数さん2009/06/26(金) 14:59:16
二次元の極座標成分のベクトル｛Aｒ（ｒ、φ）、Aφ（ｒ、φ）｝を
｛ｒ、0、10｝、｛φ、-π、π｝の範囲でグラフィックにしたいんですけど、

VectorPlot[]

だと、デカルト座標（ｘ、ｙ）として読みこまれてしまって、
ほしい図がでてこないんですが、どうしたらいいですかね。
0578１３２人目の素数さん2009/06/26(金) 15:21:22
PolarPlot という関数がありますが違うんですかね
0579１３２人目の素数さん2009/06/27(土) 12:46:37
普通のベクトルの図示ができんでごわす
0580１３２人目の素数さん2009/06/28(日) 13:07:18
>>577

これでどうでしょう。

rotate[x_, y_, t_] := {x Cos[t] - y Sin[t], x Sin[t] + y Cos[t]}

Ar[r_, t_] := 0
At[r_, t_] := 1;

With[{r = Sqrt[x^2 + y^2], t = ArcTan[x, y]},
VectorPlot[rotate[Ar[r, t], At[r, t], t], {x, -10, 10}, {y, -10, 10}]]

0581１３２人目の素数さん2009/06/29(月) 15:25:04
>>578
PlorPlotだとベクトルが描けないような気がします。

>>580
できました！ありがとう！
当初、極座標成分ベクトルをデカルト座標成分ベクトルに直してプロットするところまでは
思いついたんですが、逆三角関数の処理がうまくできなくて困ってました。

自分の書いたプログラムの方も
ArcTan[y/x]→ArcTan[x,y]
に直したら正しい図が出てきましたｗ
0582１３２人目の素数さん2009/06/30(火) 23:12:03
>>567

もう解決してしまったかもしれないが、一応。

DSolve[{yl''[x] == -k x, yr''[x] == -k (L - x), yl[0] == 0,
yr[L] == 0, yl[L/2] == yr[L/2], yl'[L/2] == yr'[L/2]}, {yl[x],
yr[x]}, x]
Block[{L = 1, k = 1}, Plot[If[x <= L/2, yl[x], yr[x]] /. %, {x, 0, L}]]
0583１３２人目の素数さん 2009/07/01(水) 10:07:03
>>576

やりたいことはこういうことでしょうか?

data = {{1, 1.0}, {10, 2.2}, {100, 3}, {1000, 4.4}};
Fit[data, {1, Log[x]}, x]
g1 = LogLinearPlot[%, {x, MapThread[Min, data][[1]]/10,
MapThread[Max, data][[1]]*10}];
g2 = ListLogLinearPlot[data];
Show[g1, g2]
0584１３２人目の素数さん2009/07/05(日) 03:14:50
米株やってるけど、これほど安いソフトは無いと思う
0585１３２人目の素数さん2009/07/16(木) 23:12:55
高度な場所っぽいのにごめんなさい

y^2/b^2+z^2/c^2-x/a=0
この関数をxyz平面にプロットしたいんだけどどうすればいいんでしょう
0586１３２人目の素数さん2009/07/16(木) 23:13:49
sage忘れた・・・
ごめんなさい
0587１３２人目の素数さん2009/07/17(金) 18:05:46
a,b,cはどうするつもりだ
xyz平面とは何か
0588１３２人目の素数さん 2009/07/17(金) 18:25:18
>>587
まあまあ、いいじゃないですか。

>>585
バージョン6以降が使えるのだったら、

Manipulate[
ContourPlot3D[x^2/a^2 + y^2/b^2 - z/c == 0, {x, -2, 2}, {y, -2, 2}, {z, -10, 10}]
, {a, 1, 4}, {b, 1, 4}, {c, -1, 1}]

などとすればよいです。
0589１３２人目の素数さん2009/07/21(火) 21:47:08
フーリエ変換について


こんにちは、
y=t^4 Exp[-t^2];をフーリエ変換すると、

y2=FourierTransform[t^4 Exp[-t^2],t,w];
Print[y2];
になります。
この計算を、まともに下記で確認したいのですが、答えが一致しません。
下記のどこを修正すれば良いのでしょうか？


y=.;
y=t^4 Exp[-t^2];
y1=Integrate[y*Exp[-I*w*t],{t,-Infinity,Infinity}];
Print[y1];


下記HPのNo2の計算を、MATHEMATICAで確認したいのですが、プログラムを教えてください。

http://www.geocities.jp/dirac_equation/img010.pdf

0590１３２人目の素数さん2009/07/21(火) 23:22:31
>>589
うーん、マジレスしないといけないんだろうか?
y1 = FourierTransform[t^4 Exp[-t^2], t, w];
y2 = 1/Sqrt[2 Pi] Integrate[t^4 Exp[-t^2] Exp[-I w t], {t, -Infinity, Infinity}];
y1 - y2

とりあえずここで止めとく。反応があれば考えるかも。
0591１３２人目の素数さん2009/07/22(水) 07:20:50
Mathematica7のWindows版で永久実行中の不具合が出た人いる？
0592１３２人目の素数さん2009/07/22(水) 08:25:27

>>590
お返事有難う御座います。

y2 = 1/Sqrt[2 Pi] Integrate[t^4 Exp[-t^2] Exp[-I w t], {t, -Infinity, Infinity}];
の積分計算がうまくできません。if==何とかが出ます。設定が悪いのでしょうか？
0593１３２人目の素数さん 2009/07/22(水) 18:44:06
>>592

if==何とかじゃわからん。エラーメッセージを全部書きなさい。Mathematica のバージョンも書くこと。
もし初心者だったら、掛け算にはスペースを使わず、* を使ったほうがいい。
0594１３２人目の素数さん2009/07/23(木) 22:52:23
>>593
下記の通りです。Ver4.2です。

y2=1/Sqrt[2 Pi] Integrate[t^4 Exp[-t^2] Exp[-I w t],{t,-Infinity,Infinity}]

General::stop: 計算中，Series::esssのこれ以上の出力は表示されません．
SeriesData::argbu: SeriesDataは1つの引数で呼ばれました．3個と6個の間の引数が想定されています．

If[Im[w] == 0, ((1/16)*Sqrt[Pi]*(12 - 12*w^2 + w^4))/E^(w^2/4), Integrate[E^(-t^2 - I*t*w)*t^4, {t, -Infinity, Infinity}]]/Sqrt[2*Pi]


0595１３２人目の素数さん2009/07/24(金) 06:17:40
>>594
問題なく答えが出てるじゃないか。w の虚部が零か非零かで場合わけされてるんでしょ。
0596１３２人目の素数さん2009/07/29(水) 11:16:54
Ver5.0で

Plot[x, {x, -1, 1}]

といった具合にPlotでグラフ描画すると全部シャープ記号(#)で描画されて
めちゃめちゃ荒いアスキーアートになってしまいます。
普通に細い線でグラフを描くにはどうすればいいのでしょうか
0597１３２人目の素数さん2009/07/29(水) 12:43:22
>>596
実行環境を詳しく
0598１３２人目の素数さん2009/07/29(水) 22:03:41
>>597
kernel上でやってたのが原因でした・・
お騒がせしてすみませんでした；；

実行環境はWindowsXP，Mathematica5.0 kernelでした
0599１３２人目の素数さん2009/08/01(土) 16:35:09
市販のソフトを使わずにMathematica5.0で書いたグラフをExcelのセルにコピーする方法を
教えて下さい｡

普通にコピーしてテキストファイルに貼り付けて、いらない部分をデリートした後、
Excelでスペース区切りで開くと確かにデータは読み込めて、グラフにもすることが出来るのですが、
縦軸と横軸に何か縮尺がかかっており、また縦軸にオフセットが乗っています。
どうすれば正常に読み込ませることが出来るのでしょうか？

0600「猫」∈社会の屑 ◆ghclfYsc82 2009/08/01(土) 17:55:16
そんな「ソフトの使い方」なんか覚えても
数学は出来しませんねん！
それよりも自分の頭を使って何か考えたらどうですねん！
0601１３２人目の素数さん2009/08/01(土) 18:10:09
>>600
てめー、関係ない所まで首突っ込んで
何も悪くない人間まで罵倒するようになったか。
Mathematicaが仕事で必要な人間もいるんだよ。
自分と他人、他人Ａと他人Ｂが、それぞれ違う立場の
人間であることを理解できないなら人間やめろ。

あ、もうやめてるか。
0602「猫」∈社会の屑 ◆ghclfYsc82 2009/08/01(土) 18:16:36
オマエ何言ってんねん！
意見したらアカンのか！
0603「猫」∈社会の屑 ◆ghclfYsc82 2009/08/01(土) 18:29:43
ワシ、ちょっと考えたんやけどなァ、
自分と他人のそれぞれ違う立場が理解出来ひんんは
どっちやねん！
そういう事を何時もしとんはオマエとちゃうんか！
しかも此処は誰でもカキコ出来る自由掲示板やないけ！
オマエ、口に気を付けへんとエラい事になるゾ
判ったか！
0604そら2009/08/02(日) 00:42:53
とりあえず、600さんの名前が気に入らない。

>そんな「ソフトの使い方」なんか覚えても数学は出来しませんねん！
それは使う人に依ると思う。あなたが必要ないなら覚えなければ良い話。
0605１３２人目の素数さん2009/08/02(日) 12:05:13
>>599

こんなんじゃだめですか?

Table[{x, Sin[x]}, {x, 0, 2 Pi, 0.1}]
Export["graph.xls", %]

Ver 5.0 が xls 形式をサポートしていないようだったら、

Table[{x, Sin[x]}, {x, 0, 2 Pi, 0.1}]
Export["graph.csv", %]

とすればいいのかも。(Ver 5.0 が手元にないのでわからない。)
0606１３２人目の素数さん2009/08/03(月) 20:47:42
ｘ二乗検定のプログラムをmathematicaで作成せよ。

mathematicaでのカイ二乗統計量

ｘ二乗検定のプログラムをmathematicaで作成せよ。
(1) データ２項目のカテゴリカルデータ
1: 3 2
2: 2 1
3: 1 1
(2) クロス集計表を作成せよ。
(3) 独立性検定に用いるx二乗統計量を計算せよ。
(4) p値を求めよ。(x二乗分布の分布関数から)

(3)は、d1 = RandomChoice[{0.8, 0.2} -> {1, 2}, 100];(*Ａ大 1:男、2:女*)
d2 = RandomChoice[{0.4, 0.6} -> {1, 2}, 100];(*1:大学院進学 2:その他*)
d0 = {d1, d2};
d = Transpose[d0]と
入れた後に、
MeanTest[d, 1, FullReport -> True]
としました。
この結果、
{FullReport ->
TableForm[{{{1.15, 1.67}, {4.1797832761154154`, 14.177446878757825`}, StudentTDistribution[99]}}, TableHeadings -> {None, {"Mean", "TestStat", "Distribution"}}], OneSidedPValue -> CDF[StudentTDistribution[99], {-4.17978, -14.1774}]}
と出ました。

検定統計量は、mean1.15に対し、teststatが4.17978、mean1.67に対し、teststatが14.1774となりました。
検定統計量は２つでることは間違いではないでしょうか。

早急にお返事ください。

また、(4)はNeeds["HypothesisTesting`"]
ChiSquarePValue[0.3, 1]でいいんでしょうか？
0607１３２人目の素数さん2009/08/04(火) 23:26:53
こんにちは、
mathematica4.1,windows2000を使用しております。
BaseForm[200,2]を評価すると、そのままBaseForm[200,2]と表示されて答えが出ません。どうしたら計算するでしょうか？
0608１３２人目の素数さん 2009/08/05(水) 10:12:48
>>607

1+1 などの他の計算は実行されるでしょうか?
0609１３２人目の素数さん2009/08/05(水) 19:48:06
>>608
>1+1 などの他の計算は実行されるでしょうか?

大丈夫です。
0610１３２人目の素数さん 2009/08/06(木) 17:06:33
>>609
ってことはカーネルは動いているってことなのかな?
情報が少なすぎてよくわからん。スペルミスとかではないですよね?

0611１３２人目の素数さん2009/08/20(木) 17:57:09
すいません質問です。
Clear[dt]
Hold[dt[7]] /. dt[hikisuu_] :> hikisuu

がHold[7]になりますが、なぜ

Hold[Dt[7]] /. Dt[hikisuu_] :> hikisuu

でHold[7]とならず、Hold[Dt[7]]となってしまうのでしょうか？

Hold[Dt[7]] /. _?(Dt == # &)[hikisuu_] :> hikisuu
で無事Hold[7]になりましたが、上の原因が知りたいです。
(Windows VistaでMathematica 7.0.0です)
0612１３２人目の素数さん2009/08/20(木) 21:42:23
なんでDt[7]を7に置き換えたいんだ？
全微分ってのは、中で使われてる変数の名前に応じてその値が異なるから、
Dt[x]:>dx みたいにして使うことはあるけど、
例：http://reference.wolfram.com/mathematica/tutorial/TotalDerivatives.ja.html の最後
Dt[x_]で定義するのがそもそもおかしいな。
06136112009/08/20(木) 22:42:24
>>612
レスありがとうございます。例が不適切＆説明不足でした。
Dtは定義済みの関数の一つという意味で使いました。
パターンがマッチしてるのになんで置き換えてくれないんだ〜と
0614１３２人目の素数さん2009/08/20(木) 23:46:23
>>613
定義済み関数の中でも、Dtは特殊なんだ。変数の名前に依存するから。
Sin とかでやってみれば違いがわかる。
06156112009/08/23(日) 22:32:10
>>614
すいません確認が遅れてしまいました。レスありがとうございます。
Sinで試したらおっしゃる通りうまくいきました。定義されてるかどうかで決まるわけではなかったんですね。
Hold[Dt[7]] /. Hold[Dt[hikisuu_]] :> hikisuu
にするとどの関数でも変換するようなので、とりあえずHold付けておきます。
重ねて、レス下さった方々有り難うございました。
0616１３２人目の素数さん2009/09/02(水) 13:18:32
ForAll[x, 1/x == 1/x]はTrueとなりますが
xが0のときはどういう解釈なんでしょう？
0617１３２人目の素数さん2009/09/04(金) 17:23:31
>>616
1/0はComplexInfinityと一応定義されてるからじゃ？とおもったけど
単純に1/x == 1/xがTrueだからみたいね
ForAll[x, x == 0, 1/x == 1/x] // Trace
0618１３２人目の素数さん2009/09/04(金) 18:51:09
ComplexInfinityってDirectedInfinity[]の引数無しなんだな。
そんで方向が分からない時はイコールは未定義と。
全然知らんかった。
0619１３２人目の素数さん2009/09/07(月) 21:33:20
学生版を買ったとして、
卒業後もそれを使えるの？
0620１３２人目の素数さん2009/09/14(月) 01:35:38
読み込んだ画像の一部(○×○[pixel]）を切り出したいのですが
どう書けばいいのでしょうか。
0621１３２人目の素数さん 2009/09/17(木) 12:00:36
imagecropでできるはず
0622１３２人目の素数さん2009/10/04(日) 03:20:15
一様な電場中に導体球がおかれたときの電位・電場の様子を可視化せよ
ってわかる人いない？
0623１３２人目の素数さん2009/10/06(火) 22:54:44
流体力学の分野かな。
0624１３２人目の素数さん2009/10/08(木) 16:52:50
>>622　二次元

f[z_] := 1/Log[c] Log[Abs[(z - c)/(c z - 1)]] /. {c -> (3 - Sqrt[5])/2}

ContourPlot[Abs[f[x + y I]], {x, -1.2, 1.2}, {y, -1.2, 1.2},
PlotRange -> {0, 1}, PlotPoints -> 50, Mesh -> False,
Epilog -> {{PointSize[0.05], Hue[0.5],
Circle[{0, 0}, 1]}, {PointSize[0.05], Hue[0],
Circle[{1/3, 0}, (3 - Sqrt[5])/2]}
}]
0625１３２人目の素数さん2009/10/13(火) 18:04:50
数字を文字列に変換するにはどうしたらいいでしょうか？
06266252009/10/13(火) 18:07:23
わかりました。
0627１３２人目の素数さん2009/10/17(土) 08:55:32
z=f(x,y)
z=g(x,y)
の２曲面の交わる線がどんな形してるかを調べたいのですが
やり方が思いつきません。


z=f(x,y)
y=2x+3
のように曲面と直線の交わる線ならやり方はわかります。

x=t
y=2t+3
z=f(t,2t+3)
とやってParametricPlot3Dすればいいと思うのですが、
曲面と曲面の交わる線の表示がわかりません。
よろしくお願いします。
0628１３２人目の素数さん2009/10/17(土) 22:33:13
>>627
ParametricPlot3D[{x,y,z}/.Solve[{z==f(x,y),z==g(x,y)},{x,y}],{z,-1,1}]
とか
0629１３２人目の素数さん2009/10/17(土) 22:52:06
Mathematica で　Ｔｅｓｌａとかのgpgpuは使えるようになった？

ぐぐると去年の１１月ごろの記事で、「Mathematicaは来年初頭に対応する」というのが
ぞろっと出るけど、それ以降のがでてこない。wolframのサイトでも見つからないし。
うまくいかなかったって感じなのかな。
0630１３２人目の素数さん2009/10/18(日) 05:03:01
ParametricPlot3D[{x,y,z}/.Solve[{z == Sin(x+y),z==x+y},{x,y}],{z,-1,1}]
とやってみましたができませんでした。。
0631１３２人目の素数さん2009/10/18(日) 09:53:36
>>630
？？？
0632１３２人目の素数さん2009/10/18(日) 13:49:54
すみません、マスマティカいじったのがひさしぶりなので
お願いします
ver4です。
0633１３２人目の素数さん2009/10/21(水) 12:35:29
Pe[z_] := Erfc[-z/Sqrt[2]]/2
LogPlot[Pe[-Sqrt[R]], {R, 5, 15}]

がほとんど直線になります
QPSKという変調方式の誤り率なんですが
教科書では曲がっておりました
なぜでしょう？？？
0634１３２人目の素数さん2009/10/21(水) 15:43:42
Arrogance goes before destruction.
0635１３２人目の素数さん2009/10/21(水) 17:37:14
>>630
何をしたいのかさっぱりわからん
ソルウ゛にz要らんやん
0636１３２人目の素数さん2009/10/24(土) 00:08:49
例えばですね、z=sin(x+y)とz=xyの２曲面の交わる線が
どういう形をしているのかを知りたいというわけです。
よろしくお願いいたします
0637１３２人目の素数さん 2009/10/25(日) 19:32:02
>>636
ちょっとズルですが、以下のようなやり方はどうでしょう?

f[x_, y_] := Sin[x + y]
g[x_, y_] := x y
h[{x_, y_}] := {x, y, g[x, y]};
points = ContourPlot[f[x, y] == g[x, y], {x, -10, 10}, {y, -10, 10}][[1, 1]];
ListPointPlot3D[Map[h, points]]
0638１３２人目の素数さん2009/10/26(月) 07:00:59
わざわざありがとうございます。
しかしできませんでした。。
0639１３２人目の素数さん2009/10/26(月) 13:07:48
>>638
ContourPlot[Sin[x + y] == x y, {x, -3, 3}, {y, -3, 3}]
では？
0640１３２人目の素数さん2009/10/26(月) 18:53:54
初歩的な質問かもしれませんが、
mathematicaで出力をベクトルで表示することって可能ですか？
a={ax,ay,az}
b={bx,by,bz}
c={bx,by,bz}
d={bx,by,bz}
って入力したとして、
Dot[a,Cross[b,c]]+Dot[a,Cross[c,d]]
とかの出力は
az(-by cx +bx cy)+・・・
って感じでベクトルの成分で出力されてしまうんですが
a・(b×c＋c×d)
みたいにベクトルのままで出力されてほしいんです。
これってできますか？
0641１３２人目の素数さん2009/10/28(水) 19:15:05
>640
最後に、//TraditionalForm
0642１３２人目の素数さん2009/11/07(土) 00:18:31
よく思うんですが、
ベクトルとマトリックスをリストによって表現するのはwolframのミスではなかったか。
ベクトルの集合を作って、この集合に何か作用させようとするときに、リストを使うと簡単に行えない。
0643１３２人目の素数さん2009/11/07(土) 00:35:33
解析解を持たない微分方程式と実験データとを(最小二乗法等で)フィッティングしたいのですが
どのようにしたらフィッティングできるでしょうか？
FindFitとNDSolveを組み合わせるのでしょうか？
ご教授よろしくお願いいたします。
ちなみにver7を使っています。
0644１３２人目の素数さん2009/11/07(土) 22:48:34
>>642
明示的に列行列や行行列にするのはだめ？
{{1}, {0}} とか{{1,0}}とか。
0645１３２人目の素数さん2009/11/08(日) 15:00:02
>>644

ドキュメントセンターのFindFitの項目に例題がいっぱい載っている。
例えば

data = {{1.0, 12.}, {1.9, 10.}, {2.6, 8.2}, {3.4, 6.9}, {5.0, 5.9}};
model[a_?NumberQ, k_?NumberQ] :=
model[a, k] =
First[x /. NDSolve[{x'[t] + k x[t] == 0, x[0] == a}, x, {t, 0, 6}]]
fit = FindFit[data, model[a, k][t], {a, k}, t]
Show[Plot[model[a, k][t] /. fit, {t, 0, 6}], ListPlot[data]]

のようにすればよい。

0646１３２人目の素数さん2009/11/08(日) 15:01:06
>>645

間違えた。643への返信でした。
0647１３２人目の素数さん2009/11/08(日) 16:15:30
>>645
あまりの優しさに感動しました。
本当にありがとうございました。
またなにかございましたらよろしくお願いいたします。
0648１３２人目の素数さん2009/11/09(月) 04:04:33
あのーマスマティカって２変数関数の微分ってできますか？たとえばxa＾yをxで微分するとか
0649１３２人目の素数さん2009/11/09(月) 04:10:45
単なる偏微分だろ
0650１３２人目の素数さん2009/11/09(月) 04:19:46
マスマティカは偏微分できますか？xa＾yだったらどう入力すればいいんですか？普通の微分と同じですか？
0651１３２人目の素数さん2009/11/09(月) 04:36:26
普通の微分と同じ
D[x a^y,x]
0652１３２人目の素数さん2009/11/09(月) 04:52:13
>>651ありがとうござます。あと（y＾2）（a＾x）＋（x）（a＾（y＾2）） （a＞0）の点（0,0）における３次のテイラー多項式を出したいんですがこれってどう入力すればいいんですか？昨日やったんですがエラーばっかでできなかったんです・・・教えていただけませんか？
0653１３２人目の素数さん2009/11/09(月) 05:09:21
少しは調べろよw
Series[(y^2)(a^x)+(x)(a^(y^2)),{x,0,3},{y,0,3}]
0654１３２人目の素数さん2009/11/09(月) 10:15:27
どこかの質問スレと違って大違いだ
0655１３２人目の素数さん2009/11/09(月) 14:54:14
>>653ありがとう。ずっと｛（x,y）,0,3｝でやってました笑
0656１３２人目の素数さん2009/11/10(火) 20:02:35
マスマティカって関数の極値をいきなり出すことってできますか？
0657１３２人目の素数さん2009/11/10(火) 20:21:25
FindMaximumとかあるみたいだが、、、。
自分でもっと探してみな。
0658１３２人目の素数さん2009/11/19(木) 14:15:21
グラフにラジアン表記で目盛りをつけるにはいちいちTricksで指定しないと無理なんでしょうか？
0659１３２人目の素数さん2009/11/19(木) 17:07:59
いくつもある数を指定した数にくくりたいです。
たとえば、
(a,b,c,d,e,f,g,h,i,j,k,l,m,n,o)
とならんでいるものを、
(a,b,c)(d,e,f)(g,h,i)(j,k,l)(m,n,o)
みたいに3つずつのくくりにしたいです。
お願いします。
0660１３２人目の素数さん2009/11/19(木) 17:14:53
Partition[{a,b,c,,,},3]
0661１３２人目の素数さん2009/11/22(日) 13:00:12
Mathematica Home Editionが日本で買えないのは、やっぱり日本の代理店とか商社がじゃましてるから？
せっかくの円高なのに、、、。
0662１３２人目の素数さん2009/11/24(火) 11:17:36
MicrosoftMathかなりいいね
カルキングはクソ。買って損した
0663１３２人目の素数さん2009/11/24(火) 12:55:16
ホームエディションて普通のと何が違うの？
0664１３２人目の素数さん2009/11/24(火) 13:09:56

機能はプロフェッショナルと同じらしい。
しかし値段は無限と有限の違いだよ。
アメリカでは２月から売られてるようだが、日本では気配の気の字も感じられないな。

http://www.wolfram.com/products/mathematicahomeedition/qa.html

Q: How is Mathematica Home Edition different from the professional version of Mathematica?
Mathematica Home Edition is a fully functional version of Mathematica Professional with the same features.
0665１３２人目の素数さん2009/11/27(金) 18:17:59
Ver．6です。
図を見ている場所を知る方法ってありますか？
ViewPointで設定できることはわかるのですが、逆に見ている状態がどこにいるのかが知りたいです。
比較検討のために必要なので、わかる人がいましたらお願いします。
0666１３２人目の素数さん2009/11/27(金) 20:38:38
>>664
マジで！？
これって知人に海外旅行のついでに買ってきてもらうとかいうわけにはいかないの？
0667１３２人目の素数さん2009/11/28(土) 09:39:14
>これって知人に海外旅行のついでに買ってきてもらうとかいうわけにはいかないの？
どうなんだろうね。
しかしダウンロード販売してるのに、わざわざそんなことしなきゃいけないのかね。
日本の代理店とかに聞くと、ウルフラム社が日本とかに売らないようにしてる、とか言うが、
日本の代理店の方が高い方しか売らないでくれとお願いしてるんじゃないかと疑っている、、。
これは公正取引法違反じゃないのか？
0668１３２人目の素数さん2009/11/28(土) 15:45:51
Mathematica も実質無料で使える方法が開発されてきたからなあ。
Home Edition すらいらないじゃんってなるかも。

http://www.hirax.net/keywords/log/IronRuby/latest
これと、そこから貼られているリンク先の記事参照。
0669１３２人目の素数さん2009/11/28(土) 17:35:21
これは本にでもまとめてほしいところだな。でもwolfram社からすれば想定外の使い方だろうから、
そのうち手が打たれそうな気もする。
0670１３２人目の素数さん2009/12/06(日) 00:07:09
Mathematicaがすぐにフリーズするようになったのですがどうしたらいいですか？
何かを計算させている最中ではなく数式を打ち込んでいる最中に止まります
0671１３２人目の素数さん2009/12/06(日) 00:19:15
HDDに不良セクタが出来てるんじゃないの？
0672１３２人目の素数さん2009/12/06(日) 00:57:09
ディスククリーンアップとデフラグで治りますか？
0673１３２人目の素数さん2009/12/06(日) 07:30:08
クリーンアップとデフラグは意味ない。

確実に不良セクタの確認をするには専用のツールを使うしかない。
スタンダードなのはHD Tune。無料版と有料版があるが無料版でOK。
http://www.forest.impress.co.jp/article/2007/02/22/hdtune.html

もしこれで不良セクタが見つかった場合はHDDをフォーマットしてから
(クイックフォーマットはダメ)再インストールするのが確実。

一応OS標準の機能としてHDDのエラーチェックがありこれで修復もできるが
これは不良セクタで読めなかったファイルを勝手にダミーで置き換える上に
どのファイルを置き換えたかレポートしないのでほとんどの場合解決にならない。
0674１３２人目の素数さん2009/12/06(日) 09:03:26
microsoftMathって曲面を回転させるときになんで縦と横の比率が変わるんでしょうか？
0675１３２人目の素数さん2009/12/06(日) 21:08:52
こんにちは、

下記は強制振動のHPです。In[4]の変数を変えて、振幅をどんどん増加させるには、変数をどのようにすれば良いでしょうか？
http://www.eng.toyo.ac.jp/~nwada/AppliedPhysicsMathVer6/AP_ForcedOscillation_No7/5ForcedOscillationVer6.html
0676１３２人目の素数さん2009/12/07(月) 21:50:03
Mathematica Home Edition の紹介ページ
http://www.wolfram.com/products/mathematicahomeedition/
の一番下に，
Mathematica Home Edition is not licensed … …
… in the U.S., Canada, U.K., and Europe.
For other territories, please contact Wolfram Research.

とあるけど，「日本のユーザだけどHome Edition を買いたい！」
と尋ねてみた人いる？
■ このスレッドは過去ログ倉庫に格納されています