トップページ⇒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
0232132人目の素数さん2008/10/30(木) 18:24:25
>>231 同情くださり有難うございます。

で、君は Mathematica をどんな風に使ってるのかね。

ver3.0 では「御愁傷様」だという例を一つで良いから見せてみろ。
0233132人目の素数さん2008/10/30(木) 19:59:47
バグが多くて
よく落ちた
0234132人目の素数さん2008/10/30(木) 21:10:25
上司から
承認しましゅって言われた
0235132人目の素数さん2008/11/01(土) 22:12:56
>>234
おめ。
何系の会社?
どこの販売代理店から買うの?
MapleやMatlabじゃなくてMathematicaの理由は?
0236132人目の素数さん2008/11/02(日) 17:08:14
マテマテカ4のスツーデントなんだけど、もう学生じゃないんだけど、
2週間たってからXPの復元機能つかってインストール前に戻せる?
0237132人目の素数さん2008/11/02(日) 17:09:35
ご自由に
0238132人目の素数さん2008/11/02(日) 17:40:13
ライセンス違反だが、目をつむろう。
0239132人目の素数さん2008/11/02(日) 18:28:46
mapleはともかくmatlabって競合するもの?

mathematicaもmatlabも両方使ってる身としては
これらを比較する感覚が分からない
0240132人目の素数さん2008/11/02(日) 22:57:13
数式処理と数値計算だからなぁ…
0241132人目の素数さん2008/11/03(月) 17:32:20
まあやろうと思えばMathematicaで数値計算ができるし、
Matlabで数式処理もできる。結局どっちのウェイトを重視
するかだよ。
0242132人目の素数さん2008/11/04(火) 00:25:12
Matlab, Maple, Mathematica, Maxima, Mathcad
数学5強ソフト:MA5
0243132人目の素数さん2008/11/04(火) 22:48:11
質問があります。
ノートブックでの編集時に表示形で表示させる方法を教えて頂けませんでしょう
か。ギリシャ文字をパレットより入力してしばらくは表示名で表示されていたのですが、なにかの
拍子に完全名での表示となってしまいました。形式変換や表示形式をいじくってみたのですがうま
くいきません。
0244132人目の素数さん2008/11/06(木) 10:10:17
>>243
Ctrl+Shift+tのことか?
0245132人目の素数さん2008/11/10(月) 10:00:04
Mathematica6に関して、

ParametricPlot3Dなどで描いた曲面をイラストレーターに貼り付けたいのですが、
ただコピペをしただけでは画像として貼り付けられてしまい、
一度epsファイルで保存した後、イラストレーターで読み込まないと
線の集まり(言い方が変ですみません)として読み込めません。
Mathematica5の時は出来ました。

形式を選択してコピーの項目をいろいろ試したのですがうまくいきません。
epsファイルに保存しないでコピペをする方法を
ご存じの方がいらっしゃいましたら教えてください。
0246132人目の素数さん2008/11/10(月) 17:36:15
コピーの形式を選ぶんじゃないの?
試さずに書いてるが
0247132人目の素数さん2008/11/10(月) 17:37:08
ああ、やってみたけどダメなのね

正規に効いてみたら
メーリングリストとか
0248132人目の素数さん2008/11/22(土) 21:17:26
        _....._{{ 〃
      , - ' ,..、、.ヾ{{フ'⌒`ヽ、
    /  ,:', -‐‐` ´ '´⌒ヽ ヾ:、
.   ,'   ,'´ ,ィ ,ィ ,' ,   `ヽ',  ',-<
    ,'   .i  /|. /.| { i,  i,  }.  }_,,))
   ! |  ! .,'-.{ ! !|; |`、.}゙!.! |.  ! ヽ.
   ', ', |Vァ=、゙、 `゙、!-_:ト,リ', l ! |   ゙',
    ヽ、', l:!Kノ}.     f:_.)i゙i: リ ! l ル
     | l!iヾ- ' ,   .!__:ノ ゙ ,リ l リ'´
.     ',|!!、    r‐┐   ` ノ'. /,イ    / ̄ ̄ ̄ ̄ ̄ ̄ ̄ ̄ ̄ ̄ ̄ ̄ ̄
      'i!゙、ヽ、 ゙ー'  _, ィ,:',:''´    <  Mathematica 7リリースおめ!
      ゙:、ィ、jヾー::: 'iヘ .ノ',リ.        \_____________
   ,、- '´ ヽ、゙、   { `>"、
  /\\    ',   }   //`ヽ
0249132人目の素数さん2008/11/22(土) 22:46:39
奇数バージョンだから 期待しないな
0250132人目の素数さん2008/11/23(日) 05:39:44
  ☆ チン
        ☆ チン  〃  ∧_∧   / ̄ ̄ ̄ ̄ ̄ ̄ ̄
          ヽ ___\(\・∀・)< 6.1まだー?
             \_/⊂ ⊂_)_ \_______
           / ̄ ̄ ̄ ̄ ̄ ̄ ̄/|
        |  ̄  ̄ ̄ ̄ ̄ ̄ ̄:| :|
        |           .|/
0251132人目の素数さん2008/11/23(日) 23:44:17
Mathematica7・・・アイコンがきしょくわるくなったな(笑)
俺的には4の虹色のアイコンが傑作だったと思う
今回のやつは完全にウイルスだ

ところで7ってwhat's newはあるけど(http://www.wolfram.com/products/mathematica/newin7/)
まだ製品はリリースされてなくね!?
0252132人目の素数さん2008/11/25(火) 17:17:15
ver3なんですが、PlotVectorFoieldでベクトルの軸を
太くしたいんですが、どうしたらいいか知りませんか?
0253132人目の素数さん2008/11/25(火) 21:19:03
Field
だろ

ヘルプみりゃ
太くできるんじゃね
0254132人目の素数さん2008/11/25(火) 22:32:56
見ても線の長さを変えるパラメータはありますが、
太くするのは見当たらないんですが。

typoすまそ
0255132人目の素数さん2008/11/25(火) 22:35:21
追加。

描いた図をEPSでLaTeXに張り込むと
線が細すぎてきれいに表示されないので困ってます。
0256132人目の素数さん2008/11/26(水) 18:25:59
うるさい。
0257132人目の素数さん2008/11/26(水) 19:02:21
まったり汁!
0258132人目の素数さん2008/12/03(水) 20:38:52
A={
{1,1,-1,-1},
{I a ,-I a, -b, b},
{e^(I ka), e^(-I ka),-e^(I kd)e^(-kb),-e^(I kd)e^(kb)},
{I a e^(I ka), -I a e^(-I ka),- b e^(I kd)e^(-kb),b e^(I kd)e^(kb)}

の行列式を

A[[1,1]] Det[ A[[{2,3,4},{2,3,4}]] ]
+A[[1,2]] Det[ A[[{2,3,4},{3,4,1}]] ]
+A[[1,3]] Det[ A[[{2,3,4},{4,1,2}]] ]
+A[[1,4]] Det[ A[[{2,3,4},{1,2,3}]] ]

で計算しました。答えは出たのですが、最終的には

Det[A] = 8I a b e^{I kd} {Cos[kd] - Cos[ka] Cosh[kb] - ((b^2-a^2)/2a b) Sin[ka] Sinh[kb] }

と整理できるはずなのですが、うまくいきません。
どうすればいいですか?
0259132人目の素数さん2008/12/04(木) 09:38:14
>>258
ExpToTrigとFullSimpifyでできない?

eは\[ExponentialE]を使ってる?
0260132人目の素数さん2008/12/04(木) 12:08:04
>>259
ありがとうございます。できました。

>eは\[ExponentialE]を使ってる?

・・・・使ってませんでした。これが原因か。
4次のままで行列式が計算できなかったのも orz orz orz
0261132人目の素数さん2008/12/16(火) 18:18:00
初めまして、最近mathematicaを使い始めた初心者です
学校の課題でPrimal-Dual法を用いて最小費用流を求めるプログラムを書け
というのが出たのですが、現在"Residual Flow"の生成が上手くいかない状況です
どなたか詳しい方いましたら教えていただけないでしょうか?
なおVerは6.0です

0262132人目の素数さん2008/12/16(火) 21:15:47
>>261
うまく行かないといわれても、どういう実装をしようとしていて、
どの部分が分からないのかを言ってくれないと、さっぱりだよ。
02632612008/12/17(水) 13:05:12
>>262
グラフを使って最小費用流問題をPrimal-Dual法で解きたいのですが
残余ネットワークの生成の仕方が分からないということです
0264132人目の素数さん2008/12/17(水) 23:17:02
>>263
それは >>262 の質問に対する答えに全くなってないよ。

「どういう実装」と聞いているのは、例えばどのようにデータを管理しているか、
とか、そういうことを聞いている(グラフをどう持っているかとか)。

「どの部分」と聞いているのは、残余ネットワークの定義が分からないのか、
残余ネットワークを数式でどう表したらいいかわからないのか、
定義も式も分かっているけど Mathematica での書き方が分からないのか、
とかそういうのを聞いている。
02652612008/12/18(木) 19:24:32
そういう意味だったんですね・・申し訳ありません
一応今の所は下のような感じになっています
g0 = {{1, 2}, {2, 3}, {1, 3}, {1, 4}, {4, 3}, {4, 5}, {3, 5}};
g = FromOrderedPairs[g0];
h0 = Table[Random[Integer, {1, 100}], {7}]
h1 = SetEdgeWeights[g, h0];
h2 = SetEdgeLabels[g, GetEdgeWeights[h1]];
capacity = Table[Random[Integer, {2, 15}], {7}]
h3 = SetEdgeWeights[g, capacity];
costlist = {h0, ToOrderedPairs[g]};
TableForm[costlist];
capacitylist = {capacity, ToOrderedPairs[g]};
TableForm[capacitylist];
flowlist = {Table[flow, {Length[g0]}], ToOrderedPairs[g]};
TableForm[flowlist];


02662612008/12/18(木) 19:32:15
連投失礼します
残余ネットワークのどの部分が分からないかということに関しては
「残余ネットワークを数式でどう表したらいいかが分からない」です。

あともう一つ分からない所があるのですが、mathematicaのグラフの辺に
2つ以上の重みをつけることは可能なのでしょうか?
質問ばかりで申し訳ないですがよろしくお願いします
0267132人目の素数さん2008/12/18(木) 22:26:05
>>266
数式で書けない限りMathematicaでも書けない。
その部分は教科書なり何なりで勉強してらっしゃい。

二種類以上の重みは、「重みのペア」を一つの重みだと考えればいいよ。
02682612008/12/20(土) 02:34:50
>>267 お返事ありがとうございます。
もう少し自分で勉強してがんばってみます。
0269132人目の素数さん2008/12/20(土) 15:49:35
%ってひとつ前の出力だけど、
ひとつ前でなくてひとつ上の出力を参照する記号はありますか?
ctrl+shift+Lではなくて%みたいに短いと見やすいんですが、
%で繋いでドンドン積んでいって途中で間違えるとやり直すのが面倒だよぬ
0270132人目の素数さん2008/12/21(日) 01:56:56
%1など、n番前の出力結果というのがあるよ。
0271132人目の素数さん2008/12/21(日) 11:24:15
%1, %2などは、n番前ということではなく、n番目の出力結果なので、それでいいはず。
http://reference.wolfram.com/mathematica/ref/Out.html

でも、何度も使うようだったら、変数に記憶しておくほうがいいよ。
02722692008/12/21(日) 13:31:33
みなさんレスありがとう。使ってみます
0273132人目の素数さん2008/12/21(日) 22:07:49
7でアンドゥは立派になった?
0274132人目の素数さん2008/12/22(月) 16:40:24
6でフロントエンドのパーサがおかしくなった時は
新しいセルに手で打ち直すしかないのかな?
0275132人目の素数さん2008/12/22(月) 20:25:36
ドキュメントセンターのもっさり感は7で改善された?
0276132人目の素数さん2008/12/23(火) 13:14:39
みんな7に興味津々w
0277やんやん ◆jReFkq.CTY NGNG?2BP(0)
だって無料セミナー受けちゃったんだもん。
0278132人目の素数さん2008/12/23(火) 16:24:17
cpuの片方占領して重くなるのは何とかしてほしい
0279132人目の素数さん2008/12/23(火) 22:43:58
新しいバージョンだもん
もちろんバグがてんこ盛りだよん!
0280132人目の素数さん2008/12/26(金) 16:30:01
n番目の完全数を返す関数だと思うのですが4以上を入力すると上手くいきません
関数自体を自分で書き換えるしかないでしょうか?
f[n_] :=
 Nest[If[
        If[# == 0, 0,
            If[
             Mod[#2, #] ==
              0, # + #0[# - 1, #2], #0[# - 1, #2]]] &[#, #] ==
         2*#, #, #0[# + 1]] &[# + 1] &, 1, #] &@n
0281132人目の素数さん2008/12/26(金) 22:07:34
日本語がおかしい
まずどっからもってきた関数なのか説明しろ
0282132人目の素数さん2008/12/26(金) 22:37:29
>>280
動かしてないが見た感じ定義をそのまんま書いたっぽい
再帰が深すぎるんじゃない?
再帰の限界を環境変数でいぢればいい
0283132人目の素数さん2008/12/27(土) 17:28:10
平均m, 項数Nの二項分布をN→∞でポアソン分布になるという計算を
させようとしたのですが、

Limit[Binomial[N, r](m/N)^r (1 - m/N)^(N - r), N -> Infinity]

とすると

Gamma[1/N+1+O[N]^3]で真性特異点が見つかりましたと言われて計算できません
Binomial関数を階乗になおしても同じです。

MathematicaではGamma関数を含むと極限計算ができないんですか?
それともなにか工夫をすれば上記計算ができるようになりますか?
0284132人目の素数さん2008/12/29(月) 14:20:42
KETpic という、Mathematica の図を picture 環境にできる
ソフトがあるのはこの掲示板でも何回か見たので使ってみた
のですが、横軸の 1 と縦軸の 1 が同じ長さになってしまいます。
Mathematica に入力したのは以下のようなものです。

Get[ "・・・/ketpic6.m"]
Get[ "・・・/ketpicapp6.m"]
XMIN = 0;
XMAX = 5;
g1 = Plot[x^2, {x, XMIN, XMAX}];
setwindow[{XMIN, XMAX}, {0, 25}];
openfile["foo.tex"]
openpicture["0.5cm"];
drwline[g1];
closepicture[1];
closefile[]

・・・のところは本当は ketpic6.m, ketpicapp6.m
のディレクトリの絶対パスです。
TeX では input で読み込んでいるだけなのですが
図は縦横比が 25 : 5 で縦長になっています。
Mathematica では AspectRatio というコマンドで変えるので
ketpic6.m, ketpicapp6.m の AspectRatio->Automatic
という部分を消してみたのですが変わりませんでした。
使っている人がいたら教えてください。
0285132人目の素数さん2008/12/29(月) 20:45:59
>>283
ver6だと求まったよ
0286132人目の素数さん2008/12/30(火) 12:34:10
7が出るってメールが来たから何かと思ったら、ベクトルの可視化ってあの程度の事か。
わざわざやる需要あんの?
0287132人目の素数さん2008/12/30(火) 19:58:52
ver6がいかにも未完成だったから完成度を高めてくれるだけも意味がある。
0288132人目の素数さん2008/12/30(火) 19:59:24
× だけも
○ だけでも
0289132人目の素数さん2008/12/30(火) 21:03:43
いや、
さらにバグ増加です
0290132人目の素数さん2008/12/30(火) 21:49:39
結局、7はどうなの?インストする価値あり?
0291132人目の素数さん2008/12/30(火) 21:56:51
まずは買ってから悩めよw
0292132人目の素数さん2008/12/31(水) 04:16:20
プレミア だから
無料でくれるらしい
0293132人目の素数さん2008/12/31(水) 07:05:43
>>292
俺もプレミア入ってるがそんな案内まだきてないぞ?
どこの代理店?日本電子計算?HULINKS?
0294132人目の素数さん2009/01/01(木) 18:16:35
おれんとこにはwolfram researchから直接日本語のメールが来た。
0295 【小吉】 【623円】 2009/01/01(木) 22:07:00
「ぐだぐだ言わずに買わんかい!」って内容か
0296132人目の素数さん2009/01/02(金) 02:33:28
いや
「バージョンアップできるのは二つ前までで終わりだ
 二つ前はマイナーを入れて数えるんだぞ」
って奴
0297132人目の素数さん2009/01/07(水) 19:14:52
7の日本語版でたな。
英語版から1ヶ月経たずに出すとは翻訳チームもなかなかのもの。
ただし、誤字脱字やふさわしくない翻訳も散見されるが。

んで、肝心の内容はというと、俺に言わせれば素晴らしいの一言。
きれいなグラフがサクッと作れるし、並列計算機能が標準搭載されるようになったし。
個人的にびっくりした機能が数列を何項か与えると一般項を返す関数。
数列データベースを参照してるとのことで、例えばn次元球の体積だと
5項ではだめだけど6項与えたら一般項をちゃんと求めてきた。すごい。
0298132人目の素数さん2009/01/08(木) 20:09:04
それはすごい。クイズ解くのも楽になるなw
0299132人目の素数さん2009/01/08(木) 23:54:32
テーラー展開の一般項を求めるのにも使えそうだな。
0300132人目の素数さん2009/01/09(金) 00:25:49
Reduce関数も強化されてる?
0301132人目の素数さん2009/01/09(金) 11:00:09
誰か、mathematicaの起動時のメニューバーの長さを変更する方法を教えてくれ。
0302132人目の素数さん2009/01/09(金) 18:34:39
しごく
0303132人目の素数さん2009/01/09(金) 21:02:05
>>299
それ専用の関数がある
http://reference.wolfram.com/mathematica/ref/SeriesCoefficient.html
0304132人目の素数さん2009/01/09(金) 21:58:47
新機能、楽しそうなものが豊富じゃないか。
年度末調整で買うか。
0305132人目の素数さん2009/01/09(金) 22:58:17
torrentであるだろ。日本語版はどうかしらんが。
0306132人目の素数さん2009/01/09(金) 23:24:47
少しでも開発者にフィードバックするためにお金を払って買いたいよね。
0307132人目の素数さん2009/01/10(土) 02:50:26
それは賛成する
しかしアクティベーションがうざい
0308132人目の素数さん2009/01/11(日) 00:10:35
再インストールしたら使えなくなった。
0309132人目の素数さん2009/01/11(日) 03:33:50
数十万のソフトだからなあ。torrentでおとして万一ばれたら怖い。
0310132人目の素数さん2009/01/11(日) 10:50:41
そういえばv7のインストール時に
シングルローカルライセンスかネットワークライセンスを
聞いてこないや。
これが原因か?
0311132人目の素数さん2009/01/11(日) 14:24:10
これって?
0312132人目の素数さん2009/01/12(月) 06:07:42
むしろ数十万だからじゃないか?
0313132人目の素数さん2009/01/12(月) 17:36:15
Mathematica Lightバージョンとか、計算機能を一部制限して、安いのが出ればいいね。
20000円とか
0314132人目の素数さん2009/01/12(月) 17:42:59
学生なら生協で買えばそれくらいの値段だろ?
社会人?
0315132人目の素数さん2009/01/12(月) 17:50:37
学生で買う奴いるんだろうか。大抵、学校のパソコンに入ってるだろ。
0316132人目の素数さん2009/01/12(月) 18:15:28
だったら母校の生協いって買えばいんじゃね!?
0317132人目の素数さん2009/01/12(月) 18:43:25
パッケージで売ってるんだっけ?
0318132人目の素数さん2009/01/12(月) 19:52:39
売ってる
要組合員証
0319132人目の素数さん2009/01/14(水) 23:51:02
v7はかなり良い!

v4-もっさり
v5-やや改善
v5.2-サクサク!
v6-もっさり&メモリ消費
v7-高機能でサクサク!

これで、5.2&6.0両方使いだったが、v7だけに移行できる。
0320132人目の素数さん2009/01/15(木) 00:04:59
レポありがとう。やっとbtで落としたマテマテカをインストールする決心がついたよ。
週末に一念発起してインストする。
0321132人目の素数さん2009/01/15(木) 00:39:21
btって日本語あるか?
0322132人目の素数さん2009/01/16(金) 08:15:55
btのってstudent.verじゃないのであるっけ?
0323132人目の素数さん2009/01/16(金) 17:59:32
こんどのは日本語版を買う価値がある
ヘルプの日本語はよくできてる
0324132人目の素数さん2009/01/16(金) 18:01:46
やっぱ落とすやつのが多いのかw
そりゃそうだよなw
0325132人目の素数さん2009/01/16(金) 21:21:56
大多数の人(大学・研究所含)は買うでしょ.
落とす奴のほうが多くなったら開発なんて続かない.

落としたやつも開発者への感謝の気持ちは忘れんなよ.
0326132人目の素数さん2009/01/16(金) 22:21:53
学生と教員は安く買えるからな。
俺もVer3持ってるけどアカデミック版だからこそ買えた。
97年だったけど初めてインターネットのありがたさを実感したわ。
それまでどこで売っているかさえわからなかったから。
0327132人目の素数さん2009/01/16(金) 22:23:45
というよりもっと簡単な方法無いの?
ドングリだっけ? LW3Dのやつとか
0328132人目の素数さん2009/01/16(金) 23:40:36
ドンブリだろ
あんなものはすぐクラックされる

悪血が最狂
アドビをみろ
0329132人目の素数さん2009/01/16(金) 23:47:55
古いバージョンいれてると
v7入らないっぽい。
OS再インストールしないとだめかも。
0330132人目の素数さん2009/01/17(土) 00:50:59
Windows7β1にVer.7入れたらきちんと動いた
autorunのファイルでトロイを感知した
拾ってきたやつだからかなw
0331132人目の素数さん2009/01/17(土) 13:58:20
v7の学生価格っていくらでしょうか?
どなたかご存じですか?

生協で聞けば教えて
もらえるんでしょうか?
■ このスレッドは過去ログ倉庫に格納されています