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

〓 Mathematica 四 〓

■ このスレッドは過去ログ倉庫に格納されています
0001132人目の素数さん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
0449132人目の素数さん2009/02/10(火) 22:01:09
>>447
>(宿題に使うのは可)

宿題に使ったら
バカになるじゃないか
0450132人目の素数さん2009/02/10(火) 22:27:39
>>449
アメでは大学院のクラスでもhomeworkが出るよ。日本で言うレポートのこと。

高価なMatlabでも安価な学生版があるわけだし、Mathematicaにあってもおかしくない。
0451132人目の素数さん2009/02/10(火) 22:43:10
>>448は、スチューデント版とは別な。スチューデント版はもっと安い。
学生でもなく、企業で使うのでもなく、家で趣味として数学を楽しむ人
がターゲット。ってどれぐらい需要があるんだろ。
0452132人目の素数さん2009/02/10(火) 23:50:04
大学で使ってて、卒業後に家でも使いたいって層?
0453132人目の素数さん2009/02/11(水) 00:39:54
正規ライセンスの Professional が職場にあり、自宅でHome
を使用し、その結果を職場のProfessionalで走らせる。
これライセンス違反になるの?
0454132人目の素数さん2009/02/11(水) 01:00:19
>>448
これって日本語版もあるの?
0455132人目の素数さん2009/02/11(水) 01:17:57
>>454
まだ今月の5日に発表されたばかりで、日本語版は無い。
そのうち出るかもしれんが。
0456132人目の素数さん2009/02/11(水) 08:58:24
日本語版は5万円と予想してみる
0457132人目の素数さん2009/02/11(水) 09:46:54
>>453
ライセンスがProfessionalとHome分あるなら何も問題無いでしょ。
0458132人目の素数さん2009/02/11(水) 10:23:59
>>456
円高メリットが、、、
04594432009/02/11(水) 11:31:25
逆にサンプルの数を増やしたら上手く行ったわ。やっぱり場所が
偏在してると駄目なんだろうか。

data = Cases[{{WeatherData[#, "Longitude"],
WeatherData[#, "Latitude"]}, WeatherData[#, "WindSpeed"]*
({Cos[#], Sin[#]} &[WeatherData[#, "WindDirection"]])} & /@
WeatherData[{"Tokyo", 50}], {{_Real, _Real}, {_Real, _Real}}];
g1 = ListStreamPlot[data];
g2 = Graphics[{EdgeForm[Black], LightGray,
CountryData["Japan", "FullPolygon"]}];
Show[g2, g1, ImageSize -> 400, AbsoluteOptions[g1, PlotRange],
AspectRatio -> Automatic]
04604452009/02/11(水) 16:30:58
書き方が悪かったみたいですね.
たとえばy=axのグラフを書こうとするとaに何か値を入れなければなりませんよね.
このとき,aが未定定数のまま,プロットができないかという質問です.
0461132人目の素数さん2009/02/11(水) 18:37:31
mathematicaにa,2a,3aと目盛りを振ってもらいたいわけですね?
0462132人目の素数さん2009/02/11(水) 20:19:35
>>461
違うと思います。
>>460
a が分からないと右上がりかどうかも分からないので、グラフの形は分かりません。
a に具体的な値をいろいろ当てはめて同じグラフにプロットすることはできます。
0463132人目の素数さん2009/02/12(木) 00:58:35
>>460
Manipulate[Plot[Sin[a x], {x, 0, 2 \[Pi]}], {a, 1, 10}]
0464132人目の素数さん2009/02/12(木) 01:07:53
ttp://commons.wikimedia.org/wiki/File:KleinBottle-01.png

このページのコードを実行してみたんだけど、
切れ目が入ってしまって、画像のような出力は得られない。
どうやらu=πのところっぽいんだけど、なんでだろ?
0465132人目の素数さん2009/02/12(木) 03:37:46
うちの大学がMathematicaからMaximaに乗り換えたんだけど氏ねよ
0466132人目の素数さん2009/02/12(木) 06:14:41
>>464
UnitStepをIf文に直してuの範囲を0〜4Piにしたらそれらしいものに
なったけど、まだ何か違うな
0467132人目の素数さん2009/02/12(木) 06:20:52
あ、if文に直すというのは、uの判定を元の式どおりにするってことです。
0468132人目の素数さん2009/02/12(木) 12:18:13
>>465
定員割れしてフトコロ寂しいんだろ。察してやれ
0469132人目の素数さん2009/02/12(木) 16:02:44
>>461
そうです.
>>462
言われてみれば,そりゃそうですね.
>>463
こりゃいいですね.ありがとう.
0470132人目の素数さん2009/02/12(木) 19:25:08
>>465
さようならw
生協とか>>448の日本語版を個人で買ってこのスレに戻って来ることを期待しとるぞ
0471132人目の素数さん2009/02/12(木) 19:55:27
>>464
最初問題なく出力されたけど、
起動しなおしてもう1回やってみたら切れ目が・・・
なんじゃこりゃ
0472132人目の素数さん2009/02/14(土) 20:55:51
Home Editionいいな
でもさ、通常より格段に安いとは言ってもそこそこの値段がするものなんだからパッケージが欲しいなあ
カスタマーサービスに連絡しろって書いてあるけど実際もらえるのかな
0473132人目の素数さん2009/02/16(月) 11:29:33
すいません、どうしても判らないんで質問させてください
行列式とか、複数の数式をまとめてカウントする方法って無いでしょうか?
\!\(\*
TagBox[
RowBox[{"(", "\[NoBreak]", GridBox[{
{"8", "5", "0", "6", "0"},
{"3", "0", "0", "2", "0"},
{"0", "0", "4", "0", "0"},
{"2", "0", "2", "2", "2"},
{"7", "0", "0", "0", "0"}
}], "\[NoBreak]", ")"}],
Function[ BoxForm`e$,
MatrixForm[ BoxForm`e$]]]\)
こんな感じの行列式の1つの数をカウントする方法をご教授願いたいです
CountだとList要素で、しかも1つのlistしか出来ないみたいなので
0474132人目の素数さん2009/02/16(月) 11:41:42
意味がよくわからないけど、例えば0より大きい要素の数を数えるとかだったら、


Count[\!\(\*
TagBox[
RowBox[{"(", "", GridBox[{
{"8", "5", "0", "6", "0"},
{"3", "0", "0", "2", "0"},
{"0", "0", "4", "0", "0"},
{"2", "0", "2", "2", "2"},
{"7", "0", "0", "0", "0"}
}], "", ")"}],
Function[BoxForm`e$,
MatrixForm[BoxForm`e$]]]\), a_ /; a > 0, 2]
0475132人目の素数さん2009/02/16(月) 12:02:05
すいません、わかりづらかったですよね。。
例えば
{5,0,0,0,0}という数字の羅列があったとして
0の数字の個数が知りたい場合は
Count[{5,0,0,0,0},0]にすればいいですよね?
それでは、{5,0,0,0,0}、{6,2,0,0,3}、{5,2,0,0,0}などの乱数リストが
100個あった場合、0の数の合計を知りたい時どうすればいいのか判らないのです
0476132人目の素数さん2009/02/16(月) 13:33:32
>>475
リストのリストなら、例示したように、Countの第3引数のレベルを2にすればいいんじゃないの?
Count[リストのリスト, a_/;a==0, 2]
で0の数がでるでしょ?
04774762009/02/16(月) 13:39:26
>>475
Countの説明をよく見た方がいい。第3引数のlevelspecとか。
0478132人目の素数さん2009/02/16(月) 14:54:21
>>477
解決しました!ありがとうございました!
0479132人目の素数さん2009/02/18(水) 23:52:58
みんなどれ落としてるの?いくつかあるけど容量が微妙に違うような?
0480132人目の素数さん2009/02/19(木) 07:57:46
買ってるよ
0481132人目の素数さん2009/02/19(木) 18:33:27
うむ、この機能で30万円なら安い
0482132人目の素数さん2009/02/19(木) 18:45:48
ListPlot で自動で凡例はつけられないのですか?
0483132人目の素数さん2009/02/19(木) 19:20:13
> うむ、この機能で30万円なら安い
orz
0484132人目の素数さん2009/02/22(日) 01:19:15
質問ーー。
Mathematica 4 をVistaでも使ってる人いる?
0485132人目の素数さん2009/02/22(日) 04:35:17
age
04864762009/03/06(金) 16:44:54
一体いつになったら日本でhome editionが買えるんだよ?
0487132人目の素数さん2009/03/07(土) 12:23:26
英語で問い合わせる作業に戻るんだ
0488132人目の素数さん2009/03/07(土) 15:30:11
コンセントの形で国を分類するとか、ver7の例題が楽しすぎる。Mathematicaはどこを目指してるんだ。
0489132人目の素数さん2009/03/07(土) 22:58:21
MS-Officeじゃない?

Mathematicaはスゴイよ。最適化の問題を解こうと思ってMatlabでmpsフォーマットのファイルを
読み込むライブラリか何かネットにないかな?と思って探したけどなかった。しかし、
Mathematicaはデフォルトでサポートw
0490132人目の素数さん2009/03/08(日) 15:59:24
ListPlot で簡単に凡例できませんか?
ver6 です
Mathematica のサイトにある

Needs["PlotLegends`"]
ListPlot[Table[{x, f[x]}, {f, {Sin, Cos, Log}}, {x, 0, 10, 0.5}],
PlotLegend -> {"Sine", "Cosine", "Log"},
LegendPosition -> {1.1, -0.4}, Joined -> {True, True, False},
PlotMarkers -> Automatic]

↑すらできません
PlotLegend は Plot, ListPlot で使えるらしいです

http://reference.wolfram.com/mathematica/PlotLegends/ref/PlotLegend.html
0491132人目の素数さん2009/03/08(日) 23:27:10
Mathematicaの凡例って無駄にでかい余白と言い無駄にでかい影と言いあんま
使う気しないんだけど、なんであんなデザインなんだろう。
04924902009/03/08(日) 23:46:15
>>491
では1つのグラフに複数のデータをプロットする場合は
どのように区別させているのですか?
0493132人目の素数さん2009/03/09(月) 03:21:43
>>491
確かに。
俺は Text とか Line とか使って手動で凡例作ってる。
0494132人目の素数さん2009/03/09(月) 23:32:39
理論物理学者で数学ソフトを扱う米Wolfram ResearchのCEO、スティー
ブン・ウルフラム氏が、新たな検索技術「Wolfram|Alpha」を限定公開した。

Wolfram|Alphaは5月に公開予定で、現在は少数のユーザーにのみ公開している。
このプロジェクトは、アルゴリズムや自然言語解析などを活用して、「円周率の300
けた目は?」といった事実に関する質問に回答する「計算型ナレッジエンジン」を目
指している。ウルフラム氏は具体的な仕組みを明らかにしていない。

Wolfram|Alphaのデモに参加した検索エンジンの専門家ノバ・スピバック氏は、この
検索エンジンは「Googleのように答えを含む文書を返すのでもなく、Wikipediaのよう
な巨大なデータベースでもなく、Powersetのように単に自然言語を解析して文書を
検索するのでもない」としている。

Wolfram|Alphaは、「ティンブクトゥはどこの国にあるか」「水素原子の陽子は幾つか」
「今月のシアトルの平均降水量は?」「ISSはどこか」「GOOG(Google)の株価が300ド
ル以上だったのはいつか」といった事実に関する質問に回答してくれるという。

スピバック氏は、Wolfram|Alphaは幅広い質問への答えを提供し、データベースから
答えを探すのではなく回答を計算するという点でGoogle よりもずっとスマートだとし
ている。「WebにとってGoogleと同じくらい重要かもしれない」「Googleの人がこれを見
たら驚いて、欲しくなるだろう」と賞賛している。

http://headlines.yahoo.co.jp/hl?a=20090309-00000039-zdn_n-sci
0495132人目の素数さん2009/03/10(火) 00:16:16
やりたいことは分かったが、サービスとして定着するかどうかは微妙だな〜
0496132人目の素数さん2009/03/10(火) 18:38:37
本当にそんなにすごいものであれば普通にGoogleに買収されそうで
0497132人目の素数さん2009/03/10(火) 19:44:50
スティーブン・ウルフラムって天才科学者だぞ
0498132人目の素数さん2009/03/10(火) 21:20:53
どこが天才?
物理に寄与した?
0499132人目の素数さん2009/03/10(火) 21:45:40
天才がいれば儲かれば誰も苦労しない。
0500132人目の素数さん2009/03/11(水) 02:11:00
スティーブン・ウルフラムが宗教を創ったとしたら
俺は入教してしまうだろう
0501132人目の素数さん2009/03/11(水) 02:30:01
数学なんて一種の宗教じゃんw
0502KingGold ◆3waIkAJWrg 2009/03/11(水) 04:30:17
人類への念の無許可見による介入を阻めば、哲学もよりよくなるだろう。
0503132人目の素数さん2009/03/12(木) 00:12:31
折れのいたところの数学教員はカルトの教祖みたいなキチガイばかりだった。
0504132人目の素数さん2009/03/21(土) 19:32:25
ウルフラムの業績を列挙しようぜ
0505132人目の素数さん2009/03/22(日) 08:56:35
Mathematica を開発した

以上
0506132人目の素数さん2009/03/22(日) 10:19:11
他には
0507132人目の素数さん2009/03/22(日) 13:01:40
Mathematica で儲けてウハウハ
弟も役員でウハウハ
一家安泰
0508132人目の素数さん2009/03/25(水) 20:24:35
やせました
0509132人目の素数さん2009/03/29(日) 23:39:44
http://ja.wikipedia.org/wiki/%E3%82%B9%E3%83%86%E3%82%A3%E3%83%BC%E3%83%96%E3%83%B3%E3%83%BB%E3%82%A6%E3%83%AB%E3%83%95%E3%83%A9%E3%83%A0
0510132人目の素数さん2009/04/03(金) 11:26:47
ver6からデバッガがついたのはいいんだけど、使い方がいまいちわからない。
どっかにチュートリアルとか使い方の解説はないかな。
ヘルプ見ても個別のコマンドの短い説明が載ってるだけで、ノートブックでの統合的な使い方が
わからない。Webで探したけど、不思議なほど見つからないんだよね。
0511132人目の素数さん2009/04/03(金) 21:43:53
は?
0512132人目の素数さん2009/04/05(日) 22:35:40
>>510
Mathematica Navigatorという本に入門程度は書いてあった。
日本のMathematica本はみんな古くて、ver6以上扱ってるのないな。
0513132人目の素数さん2009/04/06(月) 18:40:34
ヘルプが充実したから
もう本は出ないか
0514132人目の素数さん2009/04/06(月) 23:15:07
ヘルプは一通り知った後辞書代わりにするにはいいんだけど、
一から勉強したいとか、面白い機能がないかパラパラ探すにはまだ
本のほうがいいな。その点」Wolframの本はよかったんだが。
0515132人目の素数さん2009/04/07(火) 20:16:07
ウルフラムの本も
ソフトに入ってるんじゃなかったっけ
0516132人目の素数さん2009/04/09(木) 10:08:30
virtual bookというのはついてるけど、ウルフラムの本がそのまま入ったという感じはしない。、
トピックの寄せ集めって感じ。実質的な中身は同じなんだろうけど、本に比べると読みづらいんだな。
0517132人目の素数さん2009/04/09(木) 11:47:40
ところで、home editionは日本ではでないの?
0518132人目の素数さん2009/04/11(土) 14:19:29
Mathematicaって使えたら就職には有利?
0519132人目の素数さん2009/04/11(土) 15:13:20
あんまり。Mathematica使えることを有利と評価する会社なら、
論文一本でも多く出しておくことのほうが有利に評価される。
0520132人目の素数さん2009/04/11(土) 15:27:23
>>518
全然有利にならない。RDBMSのSQL使える方がよっぽどウリになる。
0521132人目の素数さん2009/04/11(土) 15:50:25
なるほど…
0522132人目の素数さん2009/04/11(土) 19:27:37
うちは業務でMathematicaを使うことが相当な頻度で
あるから少しは有利になるかもしれんけど、操作法なんて
すぐ覚えられるからなあ。むしろ使いこなすだけの数学的
知識が必要。
0523132人目の素数さん2009/04/11(土) 21:53:55
今年度からver7になったんだが、windows版はウチの研究室のどのマシンでもがまったく動作しない
調べて見ても同様のケースについては全然報告がないので当惑している。
今度の学会に、今から他言語で一から組み直すにはもう時間がない・・・・
かといって本学のVer6.0の契約は今月いっぱいまでだろう、・・・・・正直困った。

具体的には

・フロントエンド、カーネルが起動するが1+1すら演算中のまま答えを返さない、ずっとそのまま。
・ドキュメントセンターを開こうとする、あるいはネットワークのテストを行おうとするとうまくいかない。
・関数自体の動作は起動のたびにjavaw.exeというプロセスを止めると回復する、
 これでもドキュメントセンター、ネットワーク系ははおかしいまま。
・Administratorでインストール、起動した場合はすべてうまく動作するようである。
・カーネルだけの動作ならどの権限でもうまく動作する。

何か指針がありましたら、ご教示ください・・・・。よろすく・・・・。
0524KingGold ◆3waIkAJWrg 2009/04/12(日) 07:29:34
人への念の無許可見による介在を阻止せよ。
0525132人目の素数さん2009/04/12(日) 15:22:38
>>523
インストールして一回目の起動ではそういう現象も有った。
>1+1でずっと演算中…

pc再起動したらなくなったよ
ちなみにWindowsXP 64bit

確かver6は平行して使えると思ったけど??
0526132人目の素数さん2009/04/12(日) 21:27:50
ありがとうございます。

>pc再起動したらなくなったよ
インストール以来再起動することは何度もあるんですが
やはりうまくいかないままです。
0527132人目の素数さん2009/04/24(金) 00:26:34
>>526
向こうも理由が分からないならVer6.0をもう少し使わせてもらえないか掛け合ってみるとか?
05285232009/04/27(月) 03:58:05
ごめんなさい、解決の報告をしてませんでした。
システム課の方と戦って、なんとか動くようになりました
プロキシの設定をうまく参照できていないようですねぇ・・・。
0529132人目の素数さん2009/04/29(水) 19:02:03
ネットワークライセンスか
起動のたびにいちいち確認するのな
シングルアロンならそんな問題はない
0530132人目の素数さん2009/04/29(水) 20:48:51
スタンドアロンね。
0531132人目の素数さん2009/05/06(水) 17:18:55
(* 二次元のOrdering[ ] *)
Ordering2D[mat_] :=
Transpose@{Quotient@##, 1 + Mod@##} &[
Ordering@Flatten@mat + # - 1, #] &[Dimensions[mat][[2]]]

(* テスト *)
MatrixForm /@ (test =
Flatten[Table[RandomInteger[10, {row, col}], {row, 10}, {col, 10}],
1])
Table[
{# == Sort@#} &[test[[n, Sequence @@ #]] & /@ Ordering2D[test[[n]]]],
{n, Length@test}]


変則的なやつ{{1,2},{3}}とか、3次元以上{{1,2},{{3,{4}}},5}
にも使えるOrdering関数を寛大でエロい人下さい!
0532132人目の素数さん2009/05/06(水) 23:59:30
これだべ
Flatten[Position[list, #] & /@ Sort@Flatten@list, 1]
05335312009/05/08(金) 15:17:04
>>532
すいません返事が遅くなりました。
こんなコンパクトな方法があるとは!ありがとうございました。
0534132人目の素数さん2009/05/08(金) 22:31:21
7.0.1
0535132人目の素数さん2009/05/09(土) 15:39:07
自分でパッケージ作ってそれをみんなに使ってもらいたい時は
自分のホームページで宣伝するしかないのかな?
0536132人目の素数さん2009/05/09(土) 19:11:21
MATHEMATICA 7.0.1
* 中核となる画像処理関数の性能アップ
* 基本数学,数学授業,文章作成のアシスタントパレットの日本語化
* 素早い画像処理を可能にする右クリックメニュー
* 新しいチュートリアル,「How to」ガイド,スクリーンキャスト
* ドキュメントに含まれる数千に及ぶ新規例題
* 向上したドキュメント検索
* Windows 7の手書き数式認識機能との統合
* 新しいgridMathematica Serverとの統合
0537132人目の素数さん2009/05/26(火) 23:25:43
こんにちは、

下記HPに記載の計算をwindows PCで評価するのですが、
メモリーが足りなくて途中で終了してしまいます。環境は
次の通りですが、最後まで計算させる方法を教えてください。
また計算結果(グラフ)がどのような結果なのか?教えて下さい。
なお、計算時間は5時間以上必要です。
計算プログラム
http://www.geocities.jp/etctransformation/mathematica1-7.html


PC環境
Dell
Inspiron 530
Windows Vista Home Basic
メモリ 100GB
プロセッサ Intel Core 2 Duo CPU 2.2GHz
0538132人目の素数さん2009/05/27(水) 08:21:50
>>537
>>メモリ 100GB
   。 。
  / / ポーン!
( Д )
0539132人目の素数さん2009/05/27(水) 18:58:48
教えてやる

Windows Vista などというクソは
100GBのメモリを乗せても
3GBとしか使えないのだ

出直してこい!
0540猫でつ ◆ghclfYsc82 2009/05/27(水) 19:41:36
確かに「その通り」で、それは何もビスタに限らず、マイクロソフトのOSは
クソばかりだが、リナックスに入れ替えようとするとデバイスドライバが無い
から困りますよね。この「糞みたいな状況」は何とかなりませんかね。

猫の希望はソラリスですが、もしダメならデビアンでもエエのですが。
誰かどうしたらエエか教えて下さい。
(恐らくクノーピクスで解決なのではと思っていますが。)

0541132人目の素数さん2009/05/27(水) 21:33:48
おまえはマックがお似合い
0542猫でつ ◆ghclfYsc82 2009/05/27(水) 21:43:54
マックも確か中はBSDですよね。だからXウィンドウが使えるから好きですねw

0543132人目の素数さん2009/05/28(木) 00:17:57
今、Linuxでデバドラがないって、どんな機器を使ってんだろ・・・
0544132人目の素数さん2009/05/28(木) 00:21:06
Win以外はエロゲができんからダメだ
0545猫でつ ◆ghclfYsc82 2009/05/28(木) 00:47:30
いや、ノートとかだったらNICのチップさえ判らないのが時々ありますよ。
今だったらプローブとかもあるんだろうけど。
とにかくノートって安く小さくする為に変な部品を使ってますよ。

0546132人目の素数さん2009/05/28(木) 00:51:29
Slackware全盛のころは大変だったが、最近は無線LANでも
あんまり苦労せんがのお・・・
0547猫でつ ◆ghclfYsc82 2009/05/28(木) 01:27:31
ああ、そうなんですか。ほんなら明日にでもやってみますわ。
そやけど本当はソラリスが一番好きなんですが。

0548132人目の素数さん2009/05/28(木) 21:50:56
ネットで落とせばいいけど、最近の↓

http://www.amazon.co.jp/dp/486190465X
Linux Perfect Vol.3

http://www.amazon.co.jp/dp/4048679244/
週刊アスキー別冊 さくさくUbuntu! 新バージョン9.04 CD-ROM付き
■ このスレッドは過去ログ倉庫に格納されています