〓 Mathematica 2 〓

[表示 : 全て最新50 1-99 101- 201- 301- 401- 501- 601- 701- 801- 901- 1001- 2chのread.cgiへ]
Update time : 12/19 02:15 / Filesize : 256 KB / Number-of Response : 1002
[このスレッドの書き込みを削除する]
[＋板最近立ったスレ＆熱いスレ一覧 : ＋板最近立ったスレ／記者別一覧] [類似スレッド一覧]


↑キャッシュ検索、類似スレ動作を修正しました、ご迷惑をお掛けしました

〓 Mathematica 2 〓

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/
751 名前：１３２人目の素数さん mailto:sage [05/02/02 12:14:45 ]: >>740
Outer使え。

Gen[n_] := Flatten[Outer[List, Sequence @@ Table[{0, 1}, {n}]], n - 1]

Gen[5]
752 名前：740 mailto:sage [05/02/02 13:21:19 ]: >>751
Outerをうまく使えないものか考えていました。
ありがとうございます。
すごくスッキリしました！

なかなかMathematicaプログラミング技術が上達しなくて、
日々奮闘しているので、こちらは大変勉強になります。
753 名前：１３２人目の素数さん mailto:sage [05/02/02 18:14:15 ]: >>752
そういうふうに、正しく(すっきりと)やろうとするのは大切だよ。
アドバイス:きれいなプログラムが書けるようになりたいなら、ForとかDoとかは使わないこと。
754 名前：１３２人目の素数さん [05/02/02 18:46:48 ]: >>748
初歩的な質問に親切に答えていただいてありがとうございます！
755 名前：１３２人目の素数さん mailto:sage [05/02/02 19:25:36 ]: 組み合わせを求める質問、あちこちで見たな。需要が多いみたい
だから、次のバージョンあたりで簡単にできる関数を入れてくれると
うれしい。
756 名前：１３２人目の素数さん [05/02/03 01:13:37 ]: ImplicitPlotって４．０では使えないのでしょうか？
<< Graphics`ImplicitPlot`
a := 1; b = 1.6; c := 1
p := 1; q := -1; r := -1
ImplicitPlot[ax^2 + 2bxy + cy^2 + px + qy + r == 0, {x, -3, 3}]
この様に入力しても「ImplicitPlotはプロテクトされています」と出てきてグラフィックが表示されないのですが…
757 名前：１３２人目の素数さん mailto:sage [05/02/03 15:37:03 ]: >>756
そのように入力したら変数名はaxやbxyなので、
エラーメッセージこそ違えど、動かないでしょうね。
で、本当はどう入力したんですか？
コピーして同じになるものを貼ってください。
758 名前：１３２人目の素数さん [05/02/03 19:00:17 ]: Mathematicaの質問とは少し的がはずれてますが、
VC#.Netを使用してMathLinkとの通信を行うソフトを開発しております。
しかし、結果の取得の部分でどうしてもうまくいかなく行き詰まっております。
その内容としては、オリジナルのパッケージを読み込み、評価式を送信すると、
グラフや数字の結果が得られるというものです。
その結果の中でも、Answer{int1,int2,...,intN}EndAnswer　で囲まれた部分を
受け取りたいのですがうまくいきません。
どうすればよいでしょうか？
よろしくお願いします。
759 名前：１３２人目の素数さん [05/02/03 21:39:49 ]: このプログラムをMathematicaで作動させたいのですがどう変形すればいいでしょうか？

またInvFFTは高速フーリエ変換です。
BEGIN
InitGauss(seed)
beta := 2*H + 1
FOR i := 0 TO N/2 - 1 DO
rad := power(i + 1, -beta/2)*Gauss()
phase := 2*3.14592*rand()/Arand
A[i] := rad*cos(phase)
B[i] := rad*sin(phase)
END FOR
InvFFT(A, B, X, N/2)
END

ブラウン運動をフーリエ変換で解析するのが目的です。
どうかお願いします。
760 名前：１３２人目の素数さん [05/02/04 00:15:51 ]: >>757
ありがとうございます！
例えば
<< Graphics`ImplicitPlot`
ImplicitPlot[x^3 + y^3-3xy== 0, {x, -2, 2},{y,-2,2},AxesOrigin->{0,0}]
この様な式が、本やネットに載っていたのでそのままかいても
does not have a single variable other than
とでてグラフ化できません。
この x^3 + y^3-3xy== 0をx^3 + y^3-3y== 0やx^3 + y^3-3x== 0にしたら出来るのですが…
なぜかxyの項が入るとプロットできません。
何かPackageがうまく組み込めていないとかあるのでしょうか？？
761 名前：１３２人目の素数さん mailto:sage [05/02/04 01:10:51 ]: >>760
だからxyはx yじゃないの。
axyはa x yじゃないの。
xyはx y == x * y とは別の変数なの。OK？
762 名前：１３２人目の素数さん mailto:sage [05/02/04 01:14:33 ]: xyじゃなくてx y(間にスペース)な。
763 名前：１３２人目の素数さん [05/02/04 01:55:26 ]: >>761
>>762
すみません。超初心者＆孤立無援なものでスペースがいる事を知れませんでした
ありがとうございました。
764 名前：１３２人目の素数さん mailto:sage [05/02/04 12:13:05 ]: >>763
マニュアルやオンラインヘルプくらい見ましょうよ…
765 名前：１３２人目の素数さん mailto:sage [05/02/04 23:55:52 ]: バグを発見してレポートを送ったらメールが来て、「Mathematica5.1では
正常に動作するようになりましたので、アップデートしてください」とな。
有料。ぉぃ。
766 名前：１３２人目の素数さん mailto:sage [05/02/05 00:51:28 ]: (´-`).。ｏＯ (そこでもう一押しして、無料でver upしてもらう！！)
767 名前：超初心者 [05/02/05 01:00:51 ]: 大学で触ったこともないのにいきなりレポートだされて困ってます。
いろいろ教えてください。お願いします。
まず一つ目です。
陰関数のグラフを書くにはどうしたらいいのでしょうか。
y=f(x）の形になっていれば書けるのですが、f(x
y)=0の形になってしまうとわかりません。
x^5+y^5-3xy=0を例にお願いします。
768 名前：１３２人目の素数さん mailto:sage [05/02/05 01:29:15 ]: >>767
<< Graphics`ImplicitPlot`

ImplicitPlot[x^5 + y^5 - 3x y == 0, {x, -2, 2}]
769 名前：超初心者 [05/02/05 01:45:00 ]: >>768ありがとうございます。
今日は遅いので続きは明日にききます。って明日メ切なんですけどね。
もしお暇でしたらよろしくお願いします。
770 名前：超初心者 [05/02/05 11:03:31 ]: 極座標r=acosθのグラフをかくにはどうしたらいいのでしょうか。
わかりません。お願いします。
771 名前：超初心者 [05/02/05 11:34:15 ]: 追加で767の問題で定数aがある場合はどうしたらいいのでしょうか？
例y2^-x^2(x+a)=0
772 名前：長所新車 [05/02/05 14:56:32 ]: 解決しました
773 名前：765 mailto:sage [05/02/05 19:45:13 ]: >>766
DSolve[...](...はある式)を評価するとMathKernelが落ちるっていう
バグなんだが。なんかバグフィックスに使われたような気がして
あまりいい気がしないコメントがResearch & Developmentって
部署のDirector名義で返ってきた。一押ししても無理やろうな。
基本的にWolframはケチっぽいし。
774 名前：１３２人目の素数さん mailto:sage 釣られてみるか [05/02/06 00:56:44 ]: >>771
Mathematicaはヘルプが充実しているからまずはそれを使え。
解説書もたくさん出ているから大きめの本屋で漁ってみて
手頃だと思うのを買ってみるといい。
自分の力で考えたり調べたりする前に安易に2chに頼るのは
止めとけ。
脳味噌腐るぞ。
775 名前：１３２人目の素数さん [05/02/07 18:53:11 ]: [Random[II]=(II+1)^(-3/2)*NormalDistribution,{II,1,100}]
ＩＩを１から１００まで繰り返したいのですが、うまくいきません。
どうすればいいでしょうか？
また正規分布の表し方はこれでいいのでしょうか？
776 名前：１３２人目の素数さん mailto:sage [05/02/07 19:13:54 ]: > ＩＩを１から１００まで繰り返したいのですが、うまくいきません。
変数を繰り返すとは意味がわからん。書いてある式も意味がわからん。

> また正規分布の表し方はこれでいいのでしょうか？
HelpのNormalDistributionの項を見よ。
777 名前：775 [05/02/07 20:06:20 ]: >すいいません。
ＩＩではなくiとして考えてください。
Ｃ言語でいうfor(i=1;i<=100;i++)がやりたいです。
このやり方でDoを使わずにできるときいたのですができませんでした。
778 名前：１３２人目の素数さん mailto:sage [05/02/07 21:10:02 ]: 文法も何も考えずにでたらめ書いて動くわけないだろ。
何を求めたいのかすらわからん。
779 名前：１３２人目の素数さん mailto:sage [05/02/07 22:20:10 ]: こういうことがしたいのか?かなりエスパー入ってるが。

<< Statistics`NormalDistribution`
R = Table[(II + 1)^(-3/2)*Random[NormalDistribution[0, 1]], {II, 1, 100}]
780 名前：１３２人目の素数さん mailto:sage [05/02/07 22:20:27 ]: >>777
あなたがやろうとしていることはC言語も知らないのに、
「printf関数とは何ですか」と質問しているに等しい
781 名前：777 [05/02/07 23:53:21 ]: >132人目の素数さん
やりたいことはまさにその通りです。
ありがとうございます。
もっと勉強してから出直します。
782 名前：779 mailto:sage [05/02/08 00:02:27 ]: どの名無しさんだか。
783 名前：１３２人目の素数さん [05/02/09 11:02:21 ]: 何のプログラミング言語でもいいから
２つの項を入力されたらmost general unifierを出力する
*(1,y) *(x,+(a,b)) -> {x->1,y->+(a,b)}
のようなものを作れ、という課題が出たのですが、mathematicaでもできるらしいと聞きました。
mathematicaではどうすればいいのかどなたか教えていただけないでしょうか。
784 名前：１３２人目の素数さん mailto:sage [05/02/09 12:43:37 ]: まともに動いてるプログラムに日本語のコメント入れたら構文エラー
で動かんくなった．(Ver. 4.0)SJISの処理でスキャナーがコケてるんだろう．
785 名前：１３２人目の素数さん mailto:sage [05/02/09 15:43:32 ]: >>783
"most general unifier"なんて知らないが、講義で求めるアルゴリズムを習ったんだろ？
そのまま実装してみろよ。
786 名前：１３２人目の素数さん mailto:sage [05/02/09 23:10:58 ]: >>783はﾏﾙﾁ
pc5.2ch.net/test/read.cgi/tech/1076418993/372
787 名前：１３２人目の素数さん mailto:sage [05/02/11 03:54:59 ]: 777にはリアルでウケたwww
788 名前：１３２人目の素数さん [05/02/11 09:55:11 ]: dataf=Table[f[m],{m,0,600}]

Do[WriteString[stmp, dataf[[m]]], "\n"], {m, 1, 601}]

でファイルに書き出しているのですが、出力が
{105.98}
{106.704}
{107.147}
{108.42}
{108.795}
みたいにカギ括弧がついてエクセルに持って行ったときに不便で仕方有りません。
かっこ無しで出力する方法って無いでしょうか？
789 名前：１３２人目の素数さん [05/02/11 15:05:59 ]: >>788
書き直しなさい、そのままでは実行できない。
790 名前：１３２人目の素数さん mailto:sage [05/02/11 17:51:47 ]: それっぽい関数がある気もするけど、こんな感じ?

(*PrintAsCSV[リスト(, 桁数)] : 何か書き出すぞ.*)
ClearAll[PrintAsCSV, hPrintAsCSV]
PrintAsCSV[x_, precision_:$MachinePrecision] := hPrintAsCSV[x, precision]
PrintAsCSV::notnumber = "変なもの`1`が含まれていますが何か?";
PrintAsCSV::nulllist = "空リストみっけ.";
hPrintAsCSV[x_, p_] /; ((! NumericQ[N[x]]) && (! ListQ[x])) || (Head[x] === Complex) := Module[{}, Message[PrintAsCSV::notnumber, "'" <> ToString[x] <> "'"]; "("<>ToString[x]<>")"]
hPrintAsCSV[{}, p_] := Module[{}, Message[PrintAsCSV::nulllist]; "(空リスト)"]
hPrintAsCSV[x_, p_] /; (! ListQ[x]) && (MachineNumberQ[x]) && (Head[x] =!= Complex) := ToString[InputForm[x, NumberMarks -> False]]
hPrintAsCSV[x_, p_] /; (! ListQ[x]) && (NumericQ[x]) && (Head[x] =!= Complex) := ToString[N[x, p]]
hPrintAsCSV[{x__}, p_] := hPrintAsCSV[x, p]
(*タブがデフォ.*)
hPrintAsCSV[x__, y__, z___, p_] := hPrintAsCSV[x, p] <> "\t" <> hPrintAsCSV[y, z, p]
(*んで, 改行条件の設定.コメントアウトで動作が変わるよん*)
hPrintAsCSV[{x__}, {y__}, z___, p_] := hPrintAsCSV[{x}, p] <> "\n" <> hPrintAsCSV[y, z, p]
hPrintAsCSV[x__, {y__}, z___, p_] := hPrintAsCSV[x, p] <> "\n" <> hPrintAsCSV[{y}, z, p]
hPrintAsCSV[{x__}, y__, z___, p_] := hPrintAsCSV[{x}, p] <> "\n" <> hPrintAsCSV[y, z, p]

(*デモ*)
{3, Sin[1], {x, {3}, {5/3, 2 + 3I, {0, 8}, 4.2866}, {{1, , 2}, {}, {4.68462134654532463543513465413246843213543546345}}}}
tmpstr = PrintAsCSV[%]
791 名前：790 mailto:sage [05/02/11 18:29:19 ]: 科学表記されて死ぬな。
9行目
○ToString[AccountingForm[N[x, p]]]
○ToString[FortranForm[N[x, p]]]
×ToString[N[x, p]]
我ながら暇人。
792 名前：１３２人目の素数さん mailto:sage [05/02/11 23:37:15 ]: リストの関数ってのは定義可能？たとえば

Risuto2[y_,z_]: =
CoefficientList[Normal[Series[Lc[x, y, z], {x, 0, 8}]]],x]

それとも
FirstCoeff[y_,z_]: =
CoefficientList[Normal[Series[Lc[x, y, z], {x, 0, 8}]]],x][[1]]
??
793 名前：１３２人目の素数さん mailto:sage [05/02/12 00:12:37 ]: >>792
リストを引数に取ることも戻り値にすることも出来る。
794 名前：788 mailto:sage [05/02/12 13:55:56 ]: 吸いません・・・　　すごいおちでした。

datafの定義の中の式を{}で囲んでました…
だめだもうむりぽ。
795 名前：１３２人目の素数さん [05/02/12 18:56:38 ]: 複数のリストをひとつのグラフに表示したいです。

l1 = Table[x, {x, 0, Pi, 0.1}];
l2 = Table[Sin[x], {x, 0, Pi, 0.1}];
ListPlot[{l1, l2}]

↑エラー。
どうすれば表示できますか？あほですいませんお願いします。
796 名前：１３２人目の素数さん mailto:sage [05/02/12 21:12:41 ]: >>795
<< Graphics`MultipleListPlot`
l1 = Table[x, {x, 0, Pi, 0.1}];
l2 = Table[Sin[x], {x, 0, Pi, 0.1}];
MultipleListPlot[{l1, l2}]
797 名前：796 mailto:sage [05/02/12 22:08:15 ]: >>795
もしパッケージを使いたくなかったら以下。DisplayFunctionのヘルプの
中の例にまんま載ってるし。Mathematicaはヘルプが最高の資料だぜぃ。
l1 = Table[x, {x, 0, Pi, 0.1}];
l2 = Table[Sin[x], {x, 0, Pi, 0.1}];
p1 = ListPlot[l1, DisplayFunction -> Identity];
p2 = ListPlot[l2, DisplayFunction -> Identity];
Show[{p1, p2}, DisplayFunction -> $DisplayFunction];
798 名前：１３２人目の素数さん mailto:sage [05/02/13 00:28:19 ]: >>Mathematicaはヘルプが最高の資料
同意
799 名前：１３２人目の素数さん [05/02/14 07:27:23 ]: << Graphics`MultipleListPlot`
lis={1,2,3};
MultipleListPlot[lis,lis/4]

を実行すると

MultipleListPlot[{1,2,3},{1/4,1/2,3/4}]

という結果しか帰って来ません。
どうすればグラフが表示されますか。
800 名前：１３２人目の素数さん mailto:sage [05/02/14 07:56:30 ]: >>799
自分の頭使えよ。ヘルプでMultipleListPlotやそれらしきものを探したか？
多分バージョンが古いんだろうな。
801 名前：１３２人目の素数さん [05/02/14 10:59:53 ]: マニュアル以外に
お勧めの本は無いのでしょうか？

テンプレも無いみたいでしたが
802 名前：名無しさん@Vim%Chalice [05/02/14 11:42:21 ]: >>801
プログラミングMATHEMATICA - バージョン3&4対応
www.amazon.co.jp/exec/obidos/ASIN/4894711613/qid=1108348626/sr=1-8/ref=sr_1_10_8/250-5779356-1145006
内容が言語の根幹にかかわることなので、5でも変わりない。
803 名前：１３２人目の素数さん [05/02/14 19:26:34 ]: 画像をImportして、その画像に対して中心を原点、四隅に対してx軸、y軸の値を設定したいんですが、
どうしたらいいんでしょうか。
804 名前：１３２人目の素数さん mailto:sage [05/02/15 20:55:20 ]: 初心者です．お教えください
フーリエ変換するときに，係数をデフォルト値と変えるために，毎回，FourieParametersを打ち込んでます．
こんなカンジ
FourierTransform[1, t, w, FourierParameters -> {1, -1}]
毎回　FourierParameters -> {1, -1}　を打ち込むのが面倒なんで，どこかに記憶することはできませんか？
記憶させた後は，
FourierTransform[1, t, w]
をやれば，上と同じ結果が出てくれるとうれしいです．
805 名前：１３２人目の素数さん mailto:sage [05/02/15 21:36:23 ]: >>804
できます。SetOptions。
起動時に読み込まれるファイルで設定することもできます。
806 名前：804 mailto:sage [05/02/15 22:27:22 ]: SetOptionsできたー！　>>805さんくす！
おこがましいですが、起動時に読み込まれるファイルで設定する方法って
どうするか教えていただけませんか？おねがいします。
807 名前：１３２人目の素数さん [05/02/17 05:24:12 ]: 1から10の間にある乱数を20個発生させて、
それらのうちで｢3以上8以下｣の範囲にある値の数を数えたいです。
前半は
Table[Random[Real, {1, 10}], {20}]
で出来たのですが、後半の数える部分が上手くいきません。
Countを使うのでしょうが、｢3以上8以下｣が設定できません・・。

どのように設定すればいいのか教えていただけませんか？
よろしくお願いします。
808 名前：１３２人目の素数さん [05/02/17 07:59:31 ]: >>807

risuto2[risuto1_]:=which[n<3,0,n<8,1,true,0];
Print[sum[risuto2]];

how about this?
809 名前：１３２人目の素数さん mailto:sage [05/02/17 15:52:01 ]: >>807
Countを使うなら:
Count[Table[Random[Real, {1, 10}], {20}], n_?(3 <= # <= 8 &)]

Length@Select[...]も悪くはない。
810 名前：１３２人目の素数さん mailto:sage [05/02/17 15:53:16 ]: nは要らなかった。_?(...)
811 名前：１３２人目の素数さん mailto:sage [05/02/17 16:19:54 ]: >>808
risutoはねぇだろ
812 名前：807 mailto:sage [05/02/17 17:51:15 ]: >>808-811
ありがとうございました。809さんので無事にできました。
813 名前：１３２人目の素数さん mailto:sage [05/02/17 19:52:30 ]: >>811

榊原さんの教科書風にしたわ
814 名前：１３２人目の素数さん mailto:sage [05/02/18 12:56:39 ]: 軽蔑すべき輩だと思う
815 名前：１３２人目の素数さん [05/02/18 19:15:37 ]: わざとだろ(w
突っ込まれるの待ってたんじゃね?
816 名前：１３２人目の素数さん mailto:sage [05/02/19 16:26:06 ]: 質問なんですが
ttp://documents.wolfram.com/v5/Built-inFunctions/NumericalComputation/EquationSolving/FurtherExamples/NBMLImages/NDSolve/NDSolve_79.ja.gif
この画像の3行目の頭にある
u(1,0)[1,t]
はInputFormではどう書くのですか？
817 名前：１３２人目の素数さん mailto:sage [05/02/19 16:47:28 ]: Derivative[1, 0][u][1, t]
でした。スマソorz..
818 名前：１３２人目の素数さん [05/02/19 20:18:09 ]: Mathematicaからまともな表を表示する方法はありますか？
ちなみにLinkForExcelは可変長リストを返す関数に関して糞なのでダメ。
TeX系はインタラクティブじゃないのでイヤです。
819 名前：１３２人目の素数さん [05/02/19 21:42:06 ]: Do[Plot…],{i,0,100}]
って感じでパラメーター変えながら100枚ほどプロットしたのですが、
それぞれのグラフのタイトルとして i=1 とかって表示させるにはどうしたらいいですか？
820 名前：１３２人目の素数さん mailto:sage [05/02/19 22:46:20 ]: >>818
これじゃだめかい？だめだろうねぇ。
t = Table[Subscript[a, i, j], {i, 5}, {j, 5}];
DisplayForm[FrameBox[GridBox[t, RowLines -> True, ColumnLines -> True]]]

>>819
Table[Plot[Sin[i x], {x, 0, 2π}, PlotLabel -> "i=" <> ToString[i]], {i, 3}]
821 名前：１３２人目の素数さん mailto:sage [05/02/19 23:43:40 ]: >>818
Javaで自作。

Link for Excelが標準的な解なわけだから、
> 可変長リストを返す関数に関して糞
とやらをなんとかして使うのがいいと思うが。
822 名前：819 mailto:sage [05/02/19 23:43:50 ]: >>820
多謝
823 名前：１３２人目の素数さん mailto:sage [05/02/20 08:58:22 ]: こんど、PC新しくするんだけど、Mathematicaには
Pentium4とAthlon64のどちらが向いていますか？
今のところ考えているのはPen4 3.4GHz(EM64T)か
Athlon64 3500+くらいのやつです。
824 名前：１３２人目の素数さん mailto:sage [05/02/20 11:08:39 ]: Linuxなら64bitのMathematicaがあるよ。Windowsは知らん。
825 名前：818 mailto:sage [05/02/20 18:08:45 ]: >>820-821
ありがとうございます。
とりあえずはLinkForExcel+Excel上のグチャグチャで凌ごうと思います。
826 名前：１３２人目の素数さん mailto:sage [05/02/21 10:41:09 ]: >>824
なるほど64bit版ですか。今のところ32bit Windows版を考えてるんですが、安定してるなら
64bit Linux版に乗り換えたいところですね。

どなたかPen4とAthlon64の両方で使っているという方がいましたら、感想などよろしくお願いします。
827 名前：１３２人目の素数さん [05/02/22 12:56:28 ]: << Statistics'Continuous Distributions'

で入れると、どうやっても

Get::noopen: Statistics'Continuousを開くことができません．

でエラー返されちゃうんですが。
バージョンは4です。
828 名前：１３２人目の素数さん mailto:sage [05/02/22 13:00:44 ]: >>827
<<Statistics`ContinuousDistributions`

じゃないの？　ContinuousとDistributionsの間に空白が入るのはおかしい。
829 名前：827 mailto:sage [05/02/22 15:01:59 ]: >>828
解決しました。
「'」と「`」が間違っていました。
ありがとうございました。
830 名前：１３２人目の素数さん mailto:sage [05/02/22 16:25:36 ]: >>829
バックダッシュは間違えやすいよね
831 名前：１３２人目の素数さん mailto:sage [05/02/22 19:15:36 ]: >>830
バッククウォートと言います。

ダッシュってのは横線。'をダッシュというのは日本の中高校数学だけ。
832 名前：１３２人目の素数さん mailto:sage [05/02/23 02:32:07 ]: ちなみに'の正式名称は"prime"ね。
833 名前：１３２人目の素数さん [05/02/27 19:33:25 ]: 上の方と同じような質問なのですが

<< Graphics`ImplicitPlot`
ImplicitPlot[x y - y^2 == 3, {x, -2, 2}]

と打つと
Set::"write": \
"\!$Options[ImplicitPlot]$のタグ\!$ImplicitPlot$\
はプロテクトされています．"

とでるのですが何がいけなかったでしょうか･･
834 名前：１３２人目の素数さん mailto:sage [05/02/27 22:21:26 ]: >>833
俺んとこではでないぞ@Mathematica5
835 名前：１３２人目の素数さん mailto:sage [05/02/28 22:28:13 ]: Mathematica link for Excel使っている人いる？
836 名前：１３２人目の素数さん mailto:sage [05/03/02 21:39:17 ]: すまへん。LOG[1+a x]にフェルミ分布関数の微分をかけたような
被積分関数を０から無限大まで数値積分したい。
そのとき、Methodはどれを選ぶと早いのでしょうか？実際は
もっと複雑な被積分関数なので、まあまあのせいどで
現実的な時間に終わってほしい。台形？やっぱり？
リカーションとか分割とかナイスな設定あったら教えて。
837 名前：１３２人目の素数さん mailto:sage [05/03/03 05:56:09 ]: >>835
持ってるけど使ってないぞ。
838 名前：１３２人目の素数さん [05/03/03 11:00:48 ]: age
839 名前：１３２人目の素数さん [05/03/03 15:32:07 ]: やっぱり計算が遅い。対数関数と指数関数の積をインテグランドに
したものはやっぱり計算が遅い。前者の対数関数を
ｘの多項式で近似し、後者をガウス関数で近似すればええのんかな？
今のところ、積分区間をゼロから無限大まで引っ張っているけど
どうせ重要な積分区間は限られているし、その狭い区間だけ
計算させるようにすれば格段に短縮されるのかな？もう本当
つらい。
840 名前：１３２人目の素数さん [05/03/03 16:59:32 ]: Do[式, {i, min_i, max_i, step_i}]
→ step_i おきに i を min_i から max_i まで変えながら式を繰り返す．

てなこっちゃけど、結果を対数表示させたいので、min_i*step_i^n
ってループさせる方法は？
841 名前：１３２人目の素数さん mailto:sage [05/03/03 19:46:19 ]: >>840
式をそう書いたら言いやん。
842 名前：１３２人目の素数さん [05/03/11 15:57:38 ]: ＞＞376

全く下らん問題やな。数値積分にして、メソッドのところを
モンテカルロにしたら？次にインテグレートで出力結果をえる。
そして二つを比較。
843 名前：１３２人目の素数さん mailto:sage [05/03/12 01:59:26 ]: >>842
230日前のレスにレスする君に脱帽。
844 名前：１３２人目の素数さん mailto:sage [05/03/12 15:33:27 ]: 5.1.1のうpでーたが来たよう
845 名前：１３２人目の素数さん [05/03/13 07:05:41 ]: Mathematicaってどこの数学科でも授業で使い方教えてくれるんですか？
846 名前：１３２人目の素数さん [05/03/18 22:57:03 ]: 円周率の平方根は有理数だそうです。

In[1] := Limit[x - Sqrt[Pi],
x -> 19151686109235253480650512155425821931577/
10805181810206786582137323831443648757793]
Out[1] = 0
847 名前：１３２人目の素数さん mailto:sage [05/03/18 23:26:28 ]: >>846
Block[
{$MaxExtraPrecision=100},
Limit[x-Sqrt[Pi], x-> 19151686109235253480650512155425821931577/
10805181810206786582137323831443648757793]
]
848 名前：１３２人目の素数さん mailto:sage [05/03/19 03:48:57 ]: >>846
4.2だとそうはならんな。
849 名前：１３２人目の素数さん mailto:sage [05/03/19 17:04:04 ]: 昨年卒業したので、Ｓｔｕｄｅｎｔ版からＰｒｏ版へのアップグレード
期限がもうすぐなんだけど、卒業証明書って必須なの？実家に置いてきちゃったよ・・・。
850 名前：１３２人目の素数さん mailto:sage [05/03/19 23:37:44 ]: >>849
バーシティーウェーブに問い合わせしたら？
851 名前：１３２人目の素数さん [2005/03/24(木) 17:06:51 ]: 保守上げ
852 名前：１３２人目の素数さん mailto:sage [2005/03/24(木) 22:16:56 ]: >>849
後輩か教授に金渡して買ってもらえ。
853 名前：１３２人目の素数さん [2005/03/28(月) 07:56:51 ]: interpolation function
良い感じ。
しかし
NIntegrateInterpolatingFunction　意味不明
どうやったら積分収束がはやくなるの
854 名前：１３２人目の素数さん [2005/03/29(火) 03:50:46 ]: MATLAB とかMAPLEをサイトライセンスで入れていると、
MATHEMATICAのサイトライセンスの料金を高くするというような
公正な競争を阻害するライセンスの販売システムになっている。
大学ではみんなボイコットして、MAPLEに乗り換えよう。
855 名前：１３２人目の素数さん mailto:sage [2005/03/30(水) 22:12:03 ]: Mathematicaが直感的に操作できて（ﾟдﾟ）ｳﾏｰ　
856 名前：１３２人目の素数さん mailto:sage [2005/03/31(木) 01:37:06 ]: Mathematica 高すぎ
857 名前：１３２人目の素数さん mailto:sage [2005/03/31(木) 14:09:32 ]: Export[ , ,"GIF"]
が動きません。
こんなエラーが出ます。

Export::fmterr: 無効なPNM形式です

"GIF" 以外はJPEGでもBMPでも動くようです。

documents.wolfram.com/v4-ja/RefGuide/Export.html

一体なにが問題なのか分るかたお教えください。
858 名前：つづき mailto:sage [2005/03/31(木) 14:14:15 ]: documents.wolfram.com/mathematica/functions/Export

ここを見ても、正しいことをしているようです。
バージョン5.1です
859 名前：１３２人目の素数さん [皇紀2665/04/01(金) 14:51:23 ]: >>818

昔作った関数でこういうのがあった。

TF = TableForm[PaddedForm[#, {6, 5}] & /@ # & /@ #,
Alignments -> Right, TableSpacing -> {0, 0}] &;

Table[…]//TF

みたいな使い方をしてる。

もう忘れたから、
Mathematicaに貼り付けて
「選択項目のヘルプ」でしらべてちょ。
860 名前：１３２人目の素数さん [2005/04/02(土) 21:13:23 ]: 二分木なデータ構造をMathematicaでやろうとしたらどう実装すればいいですか？
Lisp風なリスト？
861 名前：１３２人目の素数さん mailto:sage [2005/04/02(土) 23:30:44 ]: Mathematica自体がLisp風な訳だが。
862 名前：１３２人目の素数さん [2005/04/03(日) 11:01:02 ]: >>861
でも、リストの深いところを破壊しようとすると全部書き換える事になって遅くなりませんか？
863 名前：862 mailto:sage [2005/04/03(日) 11:24:11 ]: つうかリストの破壊が基本的にできない気がしてきました。書き換えしかない。
864 名前：１３２人目の素数さん mailto:sage [2005/04/03(日) 12:19:28 ]: >>862
二分木のデータを変更すると、そこに至るための上の部分の木も再生成されるが、log(n)だ。
だから、普通Schemeで二分木使う時はset!でデータ書き換えたりしないと思うのだが。

Mathematicaでは「書き換え」はシンボルに対してしかできないだろう。
一部を書き換えると全部が「コピー」または「再生成」される。
どうしても書き換えたいなら、シンボルによる二分木を作っておいて、あとでシンボルに値を
アサインするようにすればいいんじゃないか。
865 名前：862 mailto:sage [2005/04/03(日) 22:19:37 ]: >>864
そうですよね、「コピー」または「再生成」しかできない。
（ちょっとこっちな言語の用語に詳しくないもんで、すいません。）
Unique[]ってのがあるみたいなんで、それでノードを乱打して繋げてみます。
ありがとうございます。

#今日リストの大コピー合戦で実装してみたら、
#Length[Flatten[リスト]] = 10000あたりでもう超ウルトラ遅い。
#ノード数は200ぐらいなのにorz
866 名前：１３２人目の素数さん mailto:sage [2005/04/06(水) 23:34:24 ]: 教えてください
Simplify[Abs[a + b*I], {a ∈ Reals, b ∈ Reals}]
とすると，
Abs[a + I b]
という答えが返ってきて困っています．aもbも実数と言ってるんだから，もっと簡単になるだろ！
Sqrt[a^2 + b^2]
という解を得るには，どうしたらよいのでしょうか？
867 名前：１３２人目の素数さん mailto:sage [2005/04/07(木) 00:35:10 ]: >>866
機械にとっては、次のどちらが簡単だと考える方が自然かね？
Abs[Plus[a, Times[Complex[0, 1], b]]]
Power[Plus[Power[a, 2], Power[b, 2]], Rational[1, 2]]
868 名前：866 mailto:sage [2005/04/07(木) 01:36:28 ]: 自己解決しました．867さん，ご意見ありがとう
ComplexExpand[Abs[a + b*I]]
でやってくれました
869 名前：１３２人目の素数さん [2005/04/08(金) 13:02:41 ]: >>868
> 自己解決

自己解凍みたいw
870 名前：博士 ◆OBpuRHyGa. mailto:もっちーＡＧＥ [2005/04/08(金) 14:58:47 ]: lim f(x)=sin∫f(x)となるようなf(x)をヒルベルト空間を用いて
x→∞
求めよ。バナハ空間でもよい。
871 名前：１３２人目の素数さん [2005/04/08(金) 15:17:58 ]: >>870
積分の範囲は？
872 名前：博士 ◆OBpuRHyGa. mailto:もっちーＡＧＥ [2005/04/08(金) 16:12:06 ]: 0→∞
873 名前：１３２人目の素数さん mailto:sage [2005/04/08(金) 20:41:10 ]: >>870

なんでヒルベルト空間なんているんだよ。
lim[n→∞]f(x)=0
∫[0,∞]f(x)dx=0
にすればいいだけじゃん。
たとえば
f[x]=(-1)^[x]/[1+x/2]
874 名前：873 mailto:sage [2005/04/08(金) 20:45:48 ]: >>873
lim[n→∞]f(x)=0
↓
lim[x→∞]f(x)=0
875 名前：１３２人目の素数さん [2005/04/14(木) 15:41:02 ]: >>868

MyRe[H_] :=
1/2*(ComplexExpand[H, TargetFunctions -> {Re, Im}] +
ComplexExpand[Conjugate[H], TargetFunctions -> {Re, Im}])
876 名前：１３２人目の素数さん [2005/04/24(日) 10:50:44 ]: 保守のため、上昇
877 名前：１３２人目の素数さん [2005/04/28(木) 00:33:04 ]: Simplify[Conjugate[a + I b], a ∈ Reals && b ∈ Reals]で
Conjugate[a + I b]となり, a-I bにならないのですがどうしてでしょう？

ちなみに、
Simplify[Conjugate[I b], a ∈ Reals && b ∈ Reals]は
-i b　になるし、
Simplify[Conjugate[a+I ], a ∈ Reals && b ∈ Reals]は
-i+a　になります。
878 名前：１３２人目の素数さん mailto:sage [2005/04/28(木) 19:14:20 ]: >>877
Simplify[Conjugate[a + I b], a ∈ Reals && b ∈ Reals]でa - I bになるが。
@Mathematica 5.0
879 名前：１３２人目の素数さん [2005/04/28(木) 19:55:03 ]: >>878

Mathematica4.0.1 mac版
では

Simplify[Conjugate[a + I b], a ∈ Reals && b ∈ Reals]は

Conjugate[a + I b]

です。878さんのはwindows版ですか？
880 名前：878 mailto:sage [2005/04/29(金) 19:29:24 ]: >>879
Win版だけど、バージョンの違いだと思われ。OS変えるだけで
わざわざカーネルのソース書き換えないだろう。
881 名前：１３２人目の素数さん mailto:sage [2005/05/01(日) 10:16:29 ]: Simplify[Conjugate[a + I b], a ∈ Reals && b ∈ Reals, ComplexityFunction -> LeafCount]

V4系にはConjugate[..]のほうが単純に見えるんだろう。
882 名前：１３２人目の素数さん [2005/05/03(火) 10:00:50 ]: age
883 名前：１３２人目の素数さん [2005/05/10(火) 20:25:40 ]: hos
884 名前：１３２人目の素数さん [2005/05/11(水) 19:13:01 ]: ちょっと質問なのでが
Mathematicaを使ってアイパターンを描画させたいのですがMathematicaでできるでしょうか？
gnuplot使っていたのですがアイパターンを描けずMathematicaに移行したいと思っています
885 名前：１３２人目の素数さん mailto:sage [2005/05/11(水) 21:38:09 ]: gnuplotでできなかったのは、誰にも聞かなかったからで、
Mathematicaでできたとしたら、それは誰かに教えてもらえたからでしょうね。
886 名前：１３２人目の素数さん [2005/05/12(木) 17:56:57 ]: プログラム板でレスなかったのでこちらで質問させてください。

CUIで使ってるときに、1行に表示される文字数を変更する方法はありませんか？
例えば、

In[1]:= N[Pi,100]
Out[1]= 3.1415926535897932384626433832795028841971693993751058209749445923078\
> 16406286208998628034825342117068

としたときに、結果を改行せずに表示してほしいのですが。
887 名前：１３２人目の素数さん mailto:sage [2005/05/12(木) 18:51:26 ]: Mathematica 5.01のMac版とSolaris版で試したのですが、
In[22]:= 1. 10^(-309) +0.0
Out[22]= 0.
上のようになるのはバグでなく機械精度の問題ですか？

また、この結果を
1. 10^(-309)
となるようにする方法ってありますか？
888 名前：887 mailto:sage [2005/05/12(木) 19:18:22 ]: すいません
In[22]:= 1. 10^(-309) +0.0
Out[22]= 0.
こうなるのは、有効桁数のこと考えたら当たり前ですね。逝ってきまつ
889 名前：１３２人目の素数さん mailto:sage [2005/05/12(木) 21:03:13 ]: >>886
無理
890 名前：１３２人目の素数さん [2005/05/15(日) 10:27:27 ]: さっきランダムウォークの
コードを書いた。はろうか
891 名前：１３２人目の素数さん [2005/05/15(日) 10:57:05 ]: 今起きたばかりで
　コンドームと一瞬読めてしまった俺ｶﾞｲﾙ
892 名前：１３２人目の素数さん mailto:sage [2005/05/15(日) 16:55:26 ]: 迷ってるのなら、貼れ
893 名前：１３２人目の素数さん [2005/05/19(木) 22:01:32 ]: >>892

今日また、コードを書いた。
894 名前：１３２人目の素数さん [2005/05/20(金) 18:44:08 ]: Ver.5.1　９ラック版ある？
895 名前：１３２人目の素数さん mailto:sage [2005/05/20(金) 20:06:58 ]: 　　　　　　〃〃　ｶﾞｯ
　　　＿__〃　 ∧＿∧
　　　|　　|　　（・∀・ ,,）
　　 .=|　　|==○○=　ヽ
　　从|＿_|∩　ヽ　　､(⌒)っ
　（　｀Д´）/　　ヽ＿）
　　　　　　/ ←>>894
896 名前：１３２人目の素数さん mailto:sage [2005/05/21(土) 21:57:03 ]: >>894
刑務所行って探して来い
897 名前：１３２人目の素数さん [2005/05/25(水) 18:10:48 ]: おまいらMathematicaMark 2004の結果教えてくり
やり方は
<<Utilities`Benchmark`
BenchmarkReport[]

おいらはﾁﾝｺﾊﾟｯﾄﾞ T42 PenM 1.7GHz 512MB Mathematica5.1.1で1.59
898 名前：１３２人目の素数さん mailto:sage [2005/05/31(火) 12:33:44 ]: ３点O(0,0,0)、A(1,0,0)、B(0,1,1)を通る平面上に、
Aを中心とする半径１の円をｙ軸の周りに１回転してできる回転体を
Mathematicaを使って書きたいんですけど
どんなコマンドにしたらいいですか？
899 名前：ChaosicSoul ◆/yaJbLAHGw [2005/05/31(火) 12:50:54 ]: Re:>>898
パラメータ表示で曲面を描くコマンドがあったはずだ。一個のパラメータで円を作って、もう一個のパラメータは回転用に使えばいいだろう。
円のパラメータ表示は、(1+cos(t),√(2)sin(t)/2,√(2)sin(t)/2)でいいだろう。
これに回転用の行列を掛ければ完成だ。パラメータ表示を縦ベクトルにして、
((cos(s),0,-sin(s)),(0,1,0),(sin(s),0,cos(s)))^T を左から掛ければいいだろう。
900 名前：ChaosicSoul ◆/yaJbLAHGw [2005/05/31(火) 12:51:19 ]: ちなみに正しいスペルは chaotic のようで。
901 名前：８９８ mailto:sage [2005/05/31(火) 12:55:36 ]: コピペでMathematicaに貼り付けたらできちゃうように
コマンドを作ってもらってもいいでしょうか…
902 名前：ChaosicSoul ◆/yaJbLAHGw [2005/05/31(火) 13:02:29 ]: Re:>>901 今Mathematicaが手元に無いから何とかして自分で作ってくれ。
903 名前：８９８ mailto:sage [2005/05/31(火) 13:07:28 ]: >902
ありがとうございました。

自分はあんまりMathematicaは使いこなせないんで、
ChaosicSoulさんがMathematicaを使えるようになったり、
他の方でも、できるようならコマンドを書いていただけるとうれしいです。
皆さんお願いします。
904 名前：１３２人目の素数さん mailto:sage [2005/05/31(火) 15:26:04 ]: そこまで人に頼るのかよ
905 名前：Zeno ◆5nZQbNmQPs [2005/05/31(火) 17:56:11 ]: Reply-to:>>903
　　　　　　　　　　　　　君は将来性がない人間だな。
　　　　　　　　　そんな簡単なグラフは自分で書くようにしろ。

________________________________________________________
セオドア・カジンスキー「産業社会とその未来」 (aka. マニフェスト) の抜粋
www.cnn.com/US/9509/unabomber/09-19/am/excerpt.html
906 名前：１３２人目の素数さん mailto:sage [2005/05/31(火) 18:25:23 ]: >>903
何故かこっち(Methematica 5.0)では途中で固まるが、これであってるはず
ParametricPlot3D[Transpose[{{Cos[s], 0, -Sin[s]}, {0, 1, 0}, {Sin[s], 0, Cos[s]}}].{1 + Cos[t], Sin[t]/Sqrt[2], Sin[t]/Sqrt[2]}, {t, 0, 2π}, {s, 0, 2π}];
907 名前：８９８ mailto:sage [2005/05/31(火) 21:37:46 ]: >>905
英語ばっかりだ～
読めん…

>>906
ありがとー！
やってみます。
908 名前：１３２人目の素数さん mailto:sage [2005/06/01(水) 00:12:28 ]: 学校の宿題を代わりにやってくれるスレはここですか
909 名前：ねえねえ [2005/06/01(水) 09:57:48 ]: science3.2ch.net/test/read.cgi/math/1051275230/l50
>>297
誰か私にちからを…
910 名前：ChaosicSoul ◆/yaJbLAHGw [2005/06/01(水) 10:37:09 ]: Re:>>909 Cのファイル入出力でバイナリモードを使えばできる。何が改行コードかに注意。
911 名前：ねえねえ [2005/06/01(水) 11:14:48 ]: 承知!!
912 名前：ねえねえ [2005/06/01(水) 11:27:30 ]: >>910
ありがとー
出来そうです。
913 名前：１３２人目の素数さん [2005/06/02(木) 13:40:42 ]: u, v を実数, k を定数としたとき、
-5u^{4}v + 10u^{2}v^{3}-v^{5} = k
のグラフをUV平面に書きたいのですが，
方法が分かりません。
とりあえず k=1 の時を書こうとしましたが、
Plot を使うには v について解く必要がありそうですし，
Solve とか試してみましたがエラーで全然動きません。
どなたか教えて下さい。
914 名前：913 mailto:sage [2005/06/02(木) 14:31:55 ]: Plot[{{Root[1 + 5*u^4*#1 - 10*u^2*#1^3 + #1^5 &, 1]}, {Root[
1 + 5*u^4*#1 - 10*u^2*#1^3 + #1^5 &, 2]}, {Root[
1 + 5*u^4*#1 - 10*u^2*#1^3 + #1^5 &, 3]}, {Root[
1 + 5*u^4*#1 - 10*u^2*#1^3 + #1^5 &, 4]}, {Root[
1 + 5*u^4*#1 - 10*u^2*#1^3 + #1^5 &, 5]}}, {u, -10, 10}]

とかしてみたらそれらしいのが出ました(k=1)。
何か違う気もしますが，もう少しいじってみます。
915 名前：１３２人目の素数さん mailto:sage [2005/06/02(木) 15:06:21 ]: >>913
ImplicitPlotで。

UVP[k_] :=
ImplicitPlot[ - 5 u^4 v + 10 u^2 v^3 - v^5 == k, {u, -10, 10}, {v, -10, 10}]
UVP[1]
916 名前：915 mailto:sage [2005/06/02(木) 15:07:04 ]: <<Graphics`ImplicitPlot`
ね。
917 名前：１３２人目の素数さん mailto:sage [2005/06/02(木) 22:11:37 ]: >>915
うまいね、UVPという関数を作る感じか。
918 名前：918 [2005/06/02(木) 23:00:40 ]: 9=1+8
9-1=8
919 名前：919 mailto:sage [2005/06/02(木) 23:02:02 ]: ｸｲｯｸ　ワイパー
920 名前：１３２人目の素数さん [2005/06/07(火) 11:13:05 ]: 今日、大学生協行ったら5.2へのフリーアップグレードつきのパッケージが出てた。
俺が2週間前に買ったときは無かったのに
　　　　　　　　　　　　　　　　　┌─┐
　　　　　　　　　　　　　　　　　｜も.｜
　　　　　　　　　　　　　　　　　｜う　|
　　　　　　　　　　　　　　　　　│来│
　　　　　　　　　　　　　　　　　│ね│
　　　　　　　　　　　　　　　　　│え .|
　　　　　　　　　　　　　　　　　│よ .|
　　　　　　　　　　　　　　　　　│ !!.│
　　　　　　ｼｮﾎﾞｰﾝ　　　ﾊﾞｶ　└─┤　　　　ﾌﾟﾝﾌﾟﾝ
　　　　　ヽ(´･ω･`) ﾉヽ(`Д´)ﾉ　　(`Д´)ﾉ　　　（　`Д）
　　　　　　|￣￣￣|─|￣￣￣|─|￣￣￣|─□（ヽ┐U
　　～～　￣◎￣　　.￣◎￣　　￣◎￣　　 ◎－>┘◎
921 名前：１３２人目の素数さん [2005/06/07(火) 16:51:27 ]: ここは大学で出た宿題がわかんないんだけど聞いてもいいのかな?
922 名前：１３２人目の素数さん mailto:sage [2005/06/07(火) 17:21:59 ]: 5.2ってまだ出てないよね
いつ出るんだろ
923 名前：１３２人目の素数さん mailto:sage [2005/06/07(火) 18:05:57 ]: >>921
いいんジャマイカ？
924 名前：９２１ [2005/06/07(火) 23:07:59 ]: やったね＾＾ありがと
定点A（a,0）と楕円(x^2/2)+y^2=1上の動点Pとの距離APの最小値ｂを求めよ
また、aを横軸、ｂを縦軸にとって、aとｂの関係をグラフに示せ
っていう問題なんですが、条件を置いてからのそこから先の展開ができません。
925 名前：１３２人目の素数さん mailto:sage [2005/06/08(水) 02:15:02 ]: スレ違いだから簡単に
Pを(√2 cosθ,sinθ)と置いて距離APの2乗を導き、微分=0を調べればいいんでは
つか高校レベルじゃない？arccosとか出てくるから大学なのか
926 名前：１３２人目の素数さん mailto:sage [2005/06/09(木) 18:57:38 ]: 5.1.1がリリースされたみたい。　5.1自体つい半年前に出たばかり。
ただいま、某サイトからダウソ中。
927 名前：１３２人目の素数さん mailto:sage [2005/06/09(木) 20:22:38 ]: 5.1.1は前からあるよ。
つかワレ厨は氏ね！
928 名前：１３２人目の素数さん mailto:sage [2005/06/09(木) 20:47:05 ]: ウルフラムのホムペからも金払えばダウソ出来るよ。
929 名前：１３２人目の素数さん mailto:sage [2005/06/10(金) 02:35:20 ]: 既知
930 名前：１３２人目の素数さん [2005/06/15(水) 18:34:10 ]: m
931 名前：１３２人目の素数さん [2005/06/17(金) 02:36:27 ]: LiveGraphics3Dで3Dグラフィクスを作ってるんだが、Mathematicaでちゃんと
PlotRange使ってプロット範囲指定してるのにWriteLiveFormで変換してHTMLで見ると
PlotRangeで指定したことがまるっきり無視されるんだが、どうすればいいんだ？
932 名前：１３２人目の素数さん mailto:sage [2005/06/17(金) 08:12:56 ]: jisaku.u-satellite.net/uploader/files/869.gif
933 名前：１３２人目の素数さん [2005/06/17(金) 12:26:16 ]: ｲﾝﾃﾙｵﾜｯﾄﾙ
934 名前：１３２人目の素数さん mailto:sage [2005/06/17(金) 20:17:49 ]: ｿﾝﾅｺﾄﾜｶｯﾄﾙ
935 名前：１３２人目の素数さん [2005/06/18(土) 12:28:34 ]: matlabにしてもmathematicaにしても、ここまで差が出るとは。
理系の研究室にopteronが売れまくるのも当然だな
936 名前：１３２人目の素数さん mailto:sage [2005/06/18(土) 16:28:56 ]: すいません，質問なんですが，
ListPlot[{{x1,y1},{x2,y2},…]のように，
3次元のデータ点{x1,y1,z1},{x2,y2,z2},…を
3Dプロットする方法はないですか？
937 名前：１３２人目の素数さん mailto:sage [2005/06/18(土) 22:21:02 ]: >>936
Graphics`Graphics3D`のScatterPlot3D
938 名前：１３２人目の素数さん [2005/06/21(火) 20:01:05 ]: x≧0かつy≧0かつx+y≦3のとき
z=x-2-2xy+2y^2-2x-2y+6　のグラフを書きたいんですがどうしたらよいでしょうか

もう一つ同じく不等式系とグラフで 2x^2+3xy+2y^2≦7のとき正の定数aを用いて
z=(x+a)(y+a)
のグラフも教えていただけると幸いです

お願いします
939 名前：939 mailto:sage [2005/06/21(火) 20:24:37 ]: 939 ｿｹｯﾄ
940 名前：１３２人目の素数さん mailto:sage [2005/06/22(水) 02:31:11 ]: >>938
その不等式くらい解け。
Plot3D[x - 2 - 2x y + 2y^2 - 2x - 2y + 6, {x, 0, 3}, {y, 0, 3}];
941 名前：１３２人目の素数さん [2005/06/22(水) 19:54:15 ]: 938

2x^2の不等式の奴はむりだとおもわれ
942 名前：１３２人目の素数さん mailto:sage [2005/06/22(水) 22:02:53 ]: >>938
region[x_, y_] /; 2 x^2 + 3 x y + 2 y^2 <= 7 = 1
region[x_, y_] = Infinity
Plot3D[region[x, y] (x + a) (y + a) /. a -> 3, {x, -3, 3}, {y, -3 , 3},
PlotPoints -> 80]

手抜きだが、エラーメッセージは無視してくれ。
943 名前：１３２人目の素数さん [2005/06/23(木) 16:04:48 ]: mathematicaって途中の式を表示する機能ってありますか？
944 名前：１３２人目の素数さん mailto:sage [2005/06/23(木) 16:55:07 ]: >>943
Traceは？
945 名前：１３２人目の素数さん mailto:sage [2005/06/23(木) 19:31:21 ]: >>944
これなら数学の勉強にも使えそうでつね、ありがとん。
946 名前：１３２人目の素数さん [2005/06/29(水) 21:50:40 ]: ３次元のデータ(x,y点での値)
を2次元平面状に色であらわしたいのですが、どうすればいいでしょうか？
たとえば、
f(x,y) = 1000 なら赤色
f(x,y) = 100 なら青　
みたいに大きいほど赤　すくないほど　青　みたいに表したいです。
947 名前：１３２人目の素数さん [2005/06/29(水) 22:09:29 ]: 安定な特異点と不安定な特異点を各１つ以上もつ非線形なベクトル場を考え、Mathematica でプロットせよ。
ってどうやればいいんですか？
948 名前：１３２人目の素数さん mailto:sage [2005/06/29(水) 22:31:50 ]: >>946
ContourPlot と ColorFunction
949 名前：１３２人目の素数さん [2005/06/29(水) 22:50:05 ]: age
950 名前：１３２人目の素数さん mailto:sage [2005/06/29(水) 22:53:15 ]: >>947
Graphics`PlotField3D`
PlotVectorField3D
951 名前：１３２人目の素数さん [2005/06/29(水) 23:25:32 ]: >>950
詳しく教えてもらえたら嬉しいです！
952 名前：１３２人目の素数さん mailto:sage [2005/06/30(木) 10:04:30 ]: >>951
> 安定な特異点と不安定な特異点を各１つ以上もつ非線形なベクトル場
はもう考えてあるの？
953 名前：１３２人目の素数さん [2005/06/30(木) 11:47:01 ]: >>951
それすらわかりません。模範解答みたいなの教えてもらえませんか？
954 名前：１３２人目の素数さん [2005/06/30(木) 11:52:38 ]: ↑>>952でした
955 名前：１３２人目の素数さん [2005/06/30(木) 15:27:59 ]: age
956 名前：１３２人目の素数さん mailto:sage [2005/07/01(金) 01:22:30 ]: V5の日本語版の尻おしえてくれぇぇ
957 名前：１３２人目の素数さん mailto:sage [2005/07/01(金) 02:21:51 ]: 　　　　　　　　　　　　　＿＿＿＿
　　　　　　　　　　　.／, - ､, - ､　　￣ヽ
　　　　　　　　　　./-┤　｡|｡　 |――-､　ヽ
　　　　　　　　　|　ヽ｀- ○- ´ ／　　ヽ　 |
　　　　　　　　　|　-　　 |　　　―　　 |　 |
　　　　　　　　　|　 ´　　|　　　｀ヽ　 .　|　 |ヽ
　　∩　　　　　　人｀､ _ 　|　　　＿.- ´ |　.|　　＼
　　|　　⌒ヽ　／　＼　￣￣￣　　　ノノ　　　＼
　　|　　　 |´　　　　|￣―--―― ´ヽ　　＿　　／⌒＼
　　＼_ 　 _/-―――.|　（Ｔ）　　　　　　｀l 　　 Τ（　　　）
　　　￣　　　　　　 |　　￣　　　　　　　}　　　 |　＼＿／
　　　　　　　　　　　　 | ､--―　￣|　　　/
ＦＵＣＫ　ＹＯＵぶち殺すぞ・・のび太・・・・！お前は、大きく見誤っている。この世の実態が見えていない。
まるで３歳か４歳の幼児のように､この世を自分中心・・
求めれば､回りは右往左往して世話を焼いてくれる､そんなふうに、まだ考えてやがるんだ・・。臆面もなく・・・・！

甘えを捨てろ。お前の甘え・・その最もたるは、毎日のように叫んでいる､その、「ドラえもぉ～ん！」だ。
泣きつけば道具を出してくれるのが当たり前か・・・・？なぜそんなふうに考える・・・・？バカがっ・・・・！
とんでもない誤解だ。世間というものはとどのつまり、誰も他人の助けになど応えたりはしない。
飢餓で苦しむアフリカの子供たち・・戦争で住む家を失った者たち・・
食べ物を持て余し､馬鹿げたことに金をつぎこむ日本人は、彼らの求めに応えてやったか？応えちゃいないだろうが・・！
これは身近にないからだとか、そういうことじゃあない。目前にあってもそうなのだ。
何か得られるものでもない限り､他人を救ったりしない。それが基本だ。
その基本をはき違えているから、わざわざ２２世紀からオレが来る羽目になったんだ・・・・！！

無論中には、助けるものもいる。しかしそれは自分にとって都合がいいからであって・・つまりは・・のせられてるってことだ。
なぜ・・それがわからない・・？なぜ・・それに気付かない・・・・？
958 名前：１３２人目の素数さん mailto:sage [2005/07/01(金) 02:31:03 ]: >>956
素直に、英語版使いな。。　偉そうな顔をしている自称苦楽屋がいるけど、連中に
そんな腕はない。
959 名前：１３２人目の素数さん mailto:sage [2005/07/01(金) 08:56:34 ]: 　　　　　　　　_....._{{ 〃
　　　　　, - ' ,..､､.ヾ{{フ'⌒`ヽ､
　　　　／　 ,:', -‐‐` ´ '´⌒ヽ　ヾ:､
.　　　,'　　 ,'´　,ィ ,ｨ ,' , 　｀ヽ',　 ',-<
　　 ,' 　　.i　 /|. /.| { i,　 i,　　}.　 }_,,）)
　　　!　|　 ! .,'-.{ !　!|; |`､.}ﾞ!.!　|.　 !　ヽ.
　　　',　',　|Vｧ=､ﾞ､｀ﾞ､!-_:ﾄ,ﾘ', l !　| 　ﾞ',
　　　ヽ､', l:!Kノ}. 　　 f:_.)iﾞi: ﾘ !　l　ル　
　　　　 | l!iヽﾞ- '　, 　　.!__:ﾉﾞ ,ﾘ l ﾘ'´ 　　　
.　　　　 ',|!!､　　r‐┐ 　｀ノ'. /,ｲ　　　　／￣￣￣￣￣￣￣￣￣￣　
　　　　　 'i!ﾞ､ヽ､　ﾞｰ'　　_, ィ,:',:''´　　　＜　 >>956氏ね、ヴォケ！
　　　　　　ﾞ:､ｨ､jヾｰ::: 'iﾍ　.ノ',ﾘ. 　　　　＼＿＿＿＿＿＿＿＿＿＿
　　　,､- '´　ヽ､ﾞ､　　 {　｀＞"､　
　　/＼＼　　　　',　　 }　　 //｀ヽ
960 名前：１３２人目の素数さん mailto:sage [2005/07/01(金) 23:53:14 ]: 英語版のシリアルを入力し、英語になってしまったんで、
シリアルを変えたいんですが、どうやったらできるんですか？
961 名前：１３２人目の素数さん mailto:sage [2005/07/02(土) 00:19:16 ]: 5.1の場合、

C:\Documents and Settings\All Users\Application Data\Mathematica\Licensing\mathpass

を消す。　それ以前の場合は、

　Wolfram Research\Configuration\Licensing\mathpass

を消す。　mathpassってファイルにパスワードが書いてあるから、そのファイルを関係有りそうな
フォルダから検索すれば見つかる。
962 名前：１３２人目の素数さん mailto:sage [2005/07/02(土) 01:09:19 ]: 1+2
ってかいて、SHIFT+ENTERおしたら、ウィンドウズのエラーが表示されて計算しないんだけど・・・
なんでかわかりませんか？
963 名前：１３２人目の素数さん mailto:sage [2005/07/02(土) 07:45:47 ]: エラーの内容ぐらい書けよ
つか、呪われてるんとちゃうｗ
964 名前：１３２人目の素数さん mailto:sage [2005/07/03(日) 00:05:34 ]: >>962
kernelから壊れてるんじゃないのか？
965 名前：１３２人目の素数さん mailto:sage [2005/07/05(火) 10:34:04 ]: 5.2ﾏﾀﾞｰ?
ﾁﾝﾁﾝAA略
966 名前：１３２人目の素数さん [2005/07/06(水) 19:36:00 ]: age
967 名前：１３２人目の素数さん [2005/07/08(金) 21:43:37 ]: ある複素関数の実数部を取り出して、それをPlot3Dしたいのですが、
うまくいきません。
例えば(x+yI)^3の実数部の関数をxとy、それぞれ0から5までの範囲で
3次元プロットしたい場合、次のようにやってみたのですがエラーが出て
しまいます。

Plot3D[Re[(x+yI)^3],{x,0,5},{y,0,5}]

どのようにすればいいでしょうか？
968 名前：１３２人目の素数さん mailto:sage [2005/07/08(金) 22:06:10 ]: yI != y I。下のをコピペしてみよう。

Plot3D[Re[(x + y I)^3], {x,0,5}, {y,0,5}]
969 名前：１３２人目の素数さん [2005/07/08(金) 22:14:16 ]: >>968
あー、できました！ありがとうございます！
初心者で基本も分かっておらず、すいませんでした。
970 名前：犬笠銀次郎 mailto:http://www6.speednet.ne.jp/～91nj1r0 [2005/07/08(金) 22:16:48 ]: Mathematica は高いらむ～～～～～。
971 名前：１３２人目の素数さん [2005/07/09(土) 23:01:45 ]: 計算して出した関数の逆関数のグラフをプロットさせてみたいとき、
どうすればいいでしょうか？

例えば
Plot[InverseFunction[x^2], {x, 0, 10}]

ではダメでした。これは逆関数が一意に決定しないからですか？
しかし、

Plot[InverseFunction[x], {x, 0, 10}]

でもダメでした。
どうかアドバイスをお願いします。
972 名前：１３２人目の素数さん mailto:sage [2005/07/10(日) 01:59:06 ]: Plot[InverseFunction[# &][x], {x, -3, 3}]
973 名前：１３２人目の素数さん mailto:sage [2005/07/10(日) 03:26:59 ]: >>971
ImplicitPlot
974 名前：１３２人目の素数さん mailto:sage [2005/07/14(木) 19:52:09 ]: ver5.1が出てからだいぶ経ちましたが、ver5.0以前には無い機能でこれはイイという機能はありますか？
975 名前：１３２人目の素数さん [2005/07/14(木) 21:36:02 ]: Ver5.2 発表　下げ
976 名前：１３２人目の素数さん [2005/07/14(木) 21:44:29 ]: A,B,C,D,E,Fの６個の玉に糸を通して首飾り
を作るとき何通りの作り方があるか？
（⇒回転以外に裏返して同じになるもの
も全部同じ首飾りとして考える。）

円順列ではないようなので、
どうやって解けば良いのかわかりません。
教えてください。
977 名前：１３２人目の素数さん mailto:sage [2005/07/14(木) 21:49:50 ]: 高校生に聞け
978 名前：１３２人目の素数さん [2005/07/14(木) 21:50:19 ]: コンビ屋の超難問です
979 名前：１３２人目の素数さん mailto:sage [2005/07/15(金) 00:40:41 ]: www.wolfram.com/products/mathematica/newin52/
Athlon 64 X2が欲しくなってきた
980 名前：１３２人目の素数さん mailto:sage [2005/07/15(金) 03:12:13 ]: >>976
(6-1)!/2
981 名前：１３２人目の素数さん [2005/07/15(金) 10:39:29 ]: (d^2x)/(dt^2)+μ(x^2-1)(dx/dt)+x=a+εcos(bt)の数値計算プログラム作成は
どうやればいいのでしょう？
982 名前：１３２人目の素数さん mailto:sage [2005/07/15(金) 15:01:09 ]: ﾙﾝｹﾞ･ｸｯﾀ!
983 名前：１３２人目の素数さん mailto:sage [2005/07/15(金) 16:38:14 ]: 次ｽﾚ
science3.2ch.net/test/read.cgi/math/1121413040/
984 名前：１３２人目の素数さん mailto:sage [2005/07/15(金) 18:17:11 ]
985 名前：１３２人目の素数さん mailto:sage [2005/07/15(金) 18:17:18 ]
986 名前：１３２人目の素数さん mailto:sage [2005/07/15(金) 18:17:39 ]
987 名前：１３２人目の素数さん mailto:sage [2005/07/15(金) 18:17:57 ]
988 名前：１３２人目の素数さん mailto:sage [2005/07/15(金) 18:18:42 ]
989 名前：１３２人目の素数さん mailto:sage [2005/07/15(金) 18:18:45 ]
990 名前：１３２人目の素数さん mailto:sage [2005/07/15(金) 18:19:15 ]
991 名前：１３２人目の素数さん mailto:sage [2005/07/15(金) 18:19:17 ]
992 名前：１３２人目の素数さん mailto:sage [2005/07/15(金) 18:19:37 ]
993 名前：１３２人目の素数さん mailto:sage [2005/07/15(金) 18:19:38 ]
994 名前：１３２人目の素数さん mailto:sage [2005/07/15(金) 18:19:59 ]
995 名前：１３２人目の素数さん mailto:sage [2005/07/15(金) 18:20:00 ]
996 名前：１３２人目の素数さん mailto:sage [2005/07/15(金) 18:20:19 ]
997 名前：１３２人目の素数さん mailto:sage [2005/07/15(金) 18:20:21 ]
998 名前：１３２人目の素数さん mailto:sage [2005/07/15(金) 18:20:39 ]
999 名前：１３２人目の素数さん mailto:sage [2005/07/15(金) 18:20:59 ]
1000 名前：１３２人目の素数さん mailto:sage [2005/07/15(金) 18:21:02 ]: 〓 Mathematica 3 〓
science3.2ch.net/test/read.cgi/math/1121413040/
1001 名前：１００１ [Over 1000 Thread]: このスレッドは１０００を超えました。
もう書けないので、新しいスレッドを立ててくださいです。。。

[ 新着レスの取得/表示 (agate) ] / [ 携帯版 ]

read.cgi ver5.27 [feat.BBS2 +1.6] / e.0.2 (02/09/03) / eucaly.net products.
担当:undef