トップページ⇒math
1001コメント317KB

〓 Mathematica 2 〓

■ このスレッドは過去ログ倉庫に格納されています
0001132人目の素数さんNGNG
        _....._{{ 〃
      , - ' ,..、、.ヾ{{フ'⌒`ヽ、
    /  ,:', -‐‐` ´ '´⌒ヽ ヾ:、
.   ,'   ,'´ ,ィ ,ィ ,' ,   `ヽ',  ',-<
    ,'   .i  /|. /.| { i,  i,  }.  }_,,))
   ! |  ! .,'-.{ ! !|; |`、.}゙!.! |.  ! ヽ.
   ', ', |Vァ=、゙、 `゙、!-_:ト,リ', l ! |   ゙',
    ヽ、', l:!Kノ}.     f:_.)i゙i: リ ! l ル 
     | l!iヾ- ' ,   .!__:ノ ゙ ,リ l リ'´     
.     ',|!!、    r‐┐   ` ノ'. /,イ    / ̄ ̄ ̄ ̄ ̄ ̄ ̄ ̄ ̄ ̄ ̄ ̄ ̄ ̄ ̄ ̄ ̄ ̄ ̄  
      'i!゙、ヽ、 ゙ー'  _, ィ,:',:''´    <  Mathematica に関する話題はここに書いてね!
      ゙:、ィ、jヾー::: 'iヘ .ノ',リ.        \___________________
   ,、- '´ ヽ、゙、   { `>"、  
  /\\    ',   }   //`ヽ

 ★前スレ

〓Mathematica〓
http://science2.2ch.net/test/read.cgi/math/985023298/
0002132人目の素数さんNGNG
2
0003132人目の素数さんNGNG
Mathematicaはただで使うにかぎるよね
0004132人目の素数さんNGNG
駒場のiMacでver.5がつかえるようになってる..やttた
0005132人目の素数さんNGNG
みたいだね。アカウントもらうの面倒だし、あそこまで
行くのも面倒だし、MATHEMATICA 5 買ったし(たけーよ!まじで)
駒場のマック館はわたしには不要なり。
0006132人目の素数さんNGNG
私は工学部で論文をTEXでなく、Mathematicaで書こうという変わり者です。
数式はショートカットを使えば、Texよりはるかに早く書けますし、
グラフはgnuplotよりも綺麗に作れます。
そして何より計算も出来ます。

しかし……
数式の番号だけがどうも駄目です。
reportのスタイルシート内の
NumberedEquation
を使っているのですが、これは連番対応で、
(1) (2) (3) ……
と言う風にしかなりません。
Texでは章番号も考えられていて
(2.1) (2.2) ……
と出来ます。

誰か、NumberedEquationを章番号を対応したものに拡張してくれませんか?
あと、等号揃えで数式を書く方法があれば教えてください。
0007132人目の素数さんNGNG
>>1
算数が苦手なはずのさくらたんがMathematicaとは、これいかに?
0008132人目の素数さんNGNG
待てマジか
0009132人目の素数さんNGNG
age
0010132人目の素数さんNGNG
>>3
同意。
>>5
MATHEMATICA 5をわざわざ買ったのか・・・
はっきりいって馬鹿だな
0011132人目の素数さんNGNG
age
0012132人目の素数さんNGNG
教えて君で申し訳ありません。Mapの第1引数で指定する関数が、複数の引数をとる場合はどのようにすればいいのでしょうか。
0013132人目の素数さんNGNG
age
0014132人目の素数さんNGNG
>12
もっと具体的に
0015132人目の素数さんNGNG
未だに浮動小数点演算が使えないアカデミック版を使っています。
やはり費用を捻出できません。
Mathematicaと同じようなフリーソフトはあるのでしょうか?
Rとか?
0016132人目の素数さんNGNG
>>15
アカデミック版と普通の製品版とで機能の違いは無いはずだけど??
っていうか浮動小数点演算が出来ないってバージョンいくつだよ

それからRは統計解析ソフトだよね
ttp://www.okada.jp.org/RWiki/
0017132人目の素数さんNGNG
>>16
2.2です。
アカデミックと言うかstudents版は浮動小数点演算に87を使用できません。って制限が書いてあった。
0018132人目の素数さんNGNG
>>17
現在の最新バージョンは5.0だ。
大学生だったら大学生協で2~3万円くらいで買えるはずだから買っとけ。
話はそれからだ。

あと、オンラインソフトウェアに付いては
使えるオンラインソフトを語ろう@数学板
http://science2.2ch.net/test/read.cgi/math/1047462416/l50
MATLAB
http://science2.2ch.net/test/read.cgi/sim/1054724863/l50
あたりを参照してごらん。
0019132人目の素数さんNGNG
新年度を迎えるにあたって大学のパソ室にMathematica 5.0が
キターーーーーーーーーーーーーーーーーーーーー!!!!!
0020132人目の素数さんNGNG
>>17
>浮動小数点演算に87を使用できません

(ソフトが)浮動小数点演算が出来ないのではなく
CPUの浮動小数点演算命令(通称80x87命令)を使わないという意味では?
0021132人目の素数さんNGNG
>>20
そう書いたつもりですが...
購入したのは学生時代。
なんとかしてアカデミック買っても良いが、>>18さが教えてくれたところを参照してからにします。
0022132人目の素数さんNGNG
NYとかMXは?
0023132人目の素数さんNGNG
>22
WinnyやWinMXでダウンロード出来ないか?って事
但し、知っている通りMathematicaは非常にガードが高く、精巧にファイルをコピーしてもインストールして使える環境にする事はほぼ不可能。
Math-IDがインストールするパソコンごとに生成されるので、ライセンスと譲られたパスワードがあってもダメ。
ウルフラムリサーチか、販売代理店で新たにインストールしたパソコン専用のパスワード貰わなければいけないため。
これじゃ絶対裏技こけないよ。
0024132人目の素数さんNGNG
俺はこけましたが何か?
0025132人目の素数さんNGNG
>>24
通報されたいのか?
0026132人目の素数さんNGNG
こける=失敗
0027132人目の素数さんNGNG
Mathematica 4.2(カラフル)
Mathematica 5.0(黄金)
アイコンはどっちが好き?
0028132人目の素数さんNGNG
>>27
俺は4.2
0029132人目の素数さんNGNG
明日再放送開始なのでage
0030132人目の素数さんNGNG
>>29
何が?
0031132人目の素数さんNGNG
教えてください。

関数f[x]をNSolveのように方程式の数値解を用いて定義します。
このf[x]をNMinimizeやFindMinimumを使って最小値を求めようとすると
失敗します。
どうやら、f[x]のxを実数で評価しなくてはいけないのに、NMinimizeが
記号変数として評価しています。

どうしたらいいでしょうか?
0032132人目の素数さんNGNG
>>31
f[x_] := NSolve[...]
と定義する。
0033132人目の素数さんNGNG
MathIDを出てこない版があるしょ
unsecure
0034132人目の素数さんNGNG
>>33
何がいいたい!?
0035132人目の素数さんNGNG
>>33
MathIDを要求されるのはスチューデント版だけだと思うんだけど
0036132人目の素数さんNGNG
式の中のパラメタ x が実数であることを表明するには Element[x, Reals] とやりますが、
x > 0 を表明したいときはどうすればよいのでしょう?
0037132人目の素数さんNGNG
>>36
Simplify[(x^2)^(1/2), x > 0]
0038132人目の素数さんNGNG
>>23
keygenがあるだろ。 もっとちゃんと調べてくださーい。
0039132人目の素数さんNGNG
4.1が私の環境ではうまく動作しなかった(RSolve)のですが、
5の金色アイコンになってからはスムーズになった。
5は英語版を使用しているため、
5のmanualと、4.1用の日本語manualとを見比べながら使ってます。
英語力、特に数学英語力の無さを心から恥じる。
0040132人目の素数さんNGNG
mathematicaを起動しても、In[1]:が出てきません。どうすればいいの?
0041132人目の素数さんNGNG
FindRoot[f[x],{x,100}]により求まった解x->1.414を他の式に代入する場合は、
a=FindRoot[f[x],{x,100}]と他の変数に置換した上で使いまわせばよいのでしょうか?
この方法だと何か上手くいかず、例えば3aを計算しようとすると、
3a$7968->1.414みたいになってしまいます。
0042132人目の素数さんNGNG
>>37 サンクス!
0043132人目の素数さんNGNG
>>41
x /. FindRoot[f[x], {x, 100}]
0044132人目の素数さんNGNG
>>43
ありがとう
004544NGNG
しかし、今試してみたら出来ませんでした。
解がx$189->1.414であれば、x=x$189置換されているようです。
0046132人目の素数さんNGNG
>>45
何がいいたいのかわからん。x=x$189置換、って?
答えがx$189 -> 1.414 なのにx$189が含まれていない式
に代入するってなにがやりたい?

x -> hoge == Rule[x, hoge]であって、
f /. Rule[x,hoge] はf中のxをhogeに置換(xにhogeを代入)するものだ。
0047132人目の素数さんNGNG
球座標で球を描く方法はありませんか?

例えばr,θ,φをx、y、zに変換して3Dで描くことはできたのですが。
r,θ,φをそのまま使って3Dを書きたいのです。
0048132人目の素数さんNGNG
>>47
> 球座標で球を描く方法はありませんか?
意味がわからないが
<<Graphics`Shapes`
Show@Graphics3D@Sphere[1,30,30]
とか?

> r,θ,φをそのまま使って3Dを書きたいのです。
無理。関数の内部で変換するようにしろ。
0049132人目の素数さんNGNG
>>47
ParametricPlot3Dとかじゃやだ?
005044NGNG
何とかできました。
レス下さった方どうもありがとう。
0051132人目の素数さんNGNG
Vine Linux の上では、なぜか LINUX版のMathematicaがうまく動かないのですが、
(起動はするけど、画面がおかしい)だれか、コツを教えて欲しいです。
Vine って RHじゃないから、だめなのかな?
0052132人目の素数さんNGNG
いろいろとVineは古いんじゃない?
Linux板の方がいいと思う。
0053132人目の素数さんNGNG
Vine Mathematica で検索すると動いているようだけど。
0054132人目の素数さんNGNG
>>1
昨日のさくらたんには萌え狂ったよ。スレ違いスマソ。
0055ageNGNG
age
0056教えて下さい。NGNG
みなさんは、MATHEMATICAをどんなLINUXの上で実際に利用しているのでしょうか?
0057132人目の素数さんNGNG
おいらはゲイツのOS使ってますが何か?
0058132人目の素数さんNGNG
Mathematicaのアカデミック版は自分が学生のときしか使えないような
仕組みになっているのですか?毎年どこかへ登録しないといけないとか。
0059132人目の素数さんNGNG
>>58
アカデミック版とスチューデント版とはまた別物だよ。
詳しい説明を書いていたんだけど途中でブラウザが飛んでしまい、
再び書く元気が無い。
wolfram.co.jpとかhulinks.co.jpあたりをみて自分で調べてみてくれ。
006058NGNG
>>59
なんかアマゾンみたところ20万以上するみたいなんですが
このソフト使用可能なのは1ユーザですか?
高いですね。
0061132人目の素数さんNGNG
大規模な計算ができなかったり、Mathlinkだかが制限されてるのがスチューデント版で
フルパッケージがアカデミックな職業に就いてる人や学生に割引されてるのが
アカデミック版
たしかこんな感じ

前者は3万くらいで、後者は10万以上するはず。
割引なしだともっと高いけど
0062132人目の素数さんNGNG
随分前から機能制限はないはずだが>>student版
0063132人目の素数さんNGNG
>>61,62
ttp://wolfram.co.jp/products/student/mathforstudents/index.html
0064132人目の素数さんNGNG
ようするにアカデミックとスチューデントの違いは何?
0065132人目の素数さんNGNG
>63の説明を読む限り、購入時に学生証が必要なくらいか?
オフィシャルで敢えてマイナス面を書かない可能性もあるけど。
0066132人目の素数さんNGNG
>>60
Mathematicaは、WinXPのようにアクチが必要だが、Winと違いアクチに必要な
keygenが世に出回っている。 バイナリも探せばある。
0067132人目の素数さんNGNG
>>64
スチューデント版は要学生証コピーで、実際にインストールして使用するには
WolframにE-mail(英語)でMath IDなるものを申請する必要がある。
このMath IDはインストールし直したりすると変わってしまうので、その際には
再びWolframにその旨を説明して再取得しなくてはならない。
また、契約では大学を卒業したら使ってはいけないことになっている。
そのかわり廉価で一般製品版にアップグレードが可能。

アカデミック版は学位授与機関に所属している教職員向けのディスカウント版。
Math IDの申請とかは不要。

だいたいこんな感じかな?
0068132人目の素数さんNGNG
なるほど性能に制限はないけど
他の部分に制限があるんですね。
3.0の頃から変わったもんだ
0069132人目の素数さんNGNG
NumberedEquationを使っている方はどれぐらいいらっしゃいますか?

Section 1
x = 1 (1)
y = 2 (2)
x + y = 3 (3)
Section 2
x y = 2 (4)

こんな風にセクションが変わっても連番が続いていくのが嫌なんですが
Section 1
x = 1 (1.1)
y = 2 (1.2)
x + y = 3 (1.3)
Section 2
x y = 2 (2.1)
こういう風にするやり方を知りませんか?
0070132人目の素数さんNGNG
StyleSeetを編集しろアホ!
0071132人目の素数さんNGNG
質問です。
2Dグラフのy軸をx軸に対して60°傾けたいのですが方法がわかりません。
教えてください。
0072132人目の素数さんNGNG
71補足 つまり斜交系座標を2Dで書きたいんです。
0073132人目の素数さんNGNG
>>71-72
<< Graphics`Graphics`
Show[SkewGraphics[
    FullGraphics@Plot[Sin[x], {x, 0, 2 Pi}, 
        DisplayFunction -> Identity], {{1, 1/2}, {0, Sqrt[3]/2}}],
  DisplayFunction -> $DisplayFunction, AspectRatio -> Automatic]
0074132人目の素数さんNGNG
Mathematica5を初めて入れたんですが
起動時に音がないんですが…
これって無くなっちゃったの?(泣)
0075132人目の素数さんNGNG
無いけど、ver4以前にはあったの?
0076132人目の素数さんNGNG
>>75
はい、ありました。
設定をいじったら起動音がつきました。
やっぱりこれがないとMathematicaって気がしません。
0077132人目の素数さんNGNG
またまた、すいません。
斜交座標系についてなのですが、sinのグラフで教えていただいたのですが
単位円で斜交座標系にするのも教えていただけませんか?
他力本願なのはわかっていますが、初心者なもので勘弁してください。
0078132人目の素数さんNGNG
>>77
<< Graphics`ImplicitPlot`
<< Graphics`Graphics`
Show[SkewGraphics[
    FullGraphics@
      Graphics@ImplicitPlot[x^2 + y^2 == 1, {x, -1.2, 1.2}, {y, -1.2, 1.2}, 
          DisplayFunction -> Identity], {{1, 1/2}, {0, Sqrt[3]/2}}], 
  DisplayFunction -> $DisplayFunction, AspectRatio -> Automatic]
0079132人目の素数さん NGNG
>>78 
ありがとうございました。
ほんとに助かりました。
0080132人目の素数さんNGNG
すいませんが、振り子の運動のグラフィックスを書きたいのですがわかりません。
どなたかよろしくお願いします。
0081132人目の素数さんNGNG
(1) x^5 - 2x^4 + 3x^3 + x^2 - x + 1 = 0
(2) e^x - 3sinx - 5 = 0
(3) e^x + 1/(1-x^2) = 0
これら3つの方程式の解とグラフが出せません。 Solve や Plot だけではできませんでした。
ど〜か、教えてください。 
0082132人目の素数さんNGNG
固有空間の基底を求める際に、たとえば、
NullSpace[λE−A]とか使ったら、求まるんですが、
求めた結果、行ベクトル(複数あれば複数個)で出力されますよね。
でも、そうではなく、たった一つの基底の例を列ベクトルで出力させるコマンドってありませんか?

「基底1組を列ベクトルとして出力させよ」って言われたんですけど、調べてもわからなくて。
0083KingMathematician ◆5lHaaEvFNc NGNG
Re:>>81
出来ないはずはない。
Plot[x^5-2x^4+3x^3+x^2-x+1,{x,-3,3}]
Plot[Exp[x]-3Sin[x]-5,{x,-3,3}]
Plot[Exp[x]+1/(1-x^2),{x,-3,3}]
NSolve[x^5-2x^4+3x^3+x^2-x+1==0,x]
NSolve[Exp[x]-3Sin[x]-5==0,x]
NSolve[Exp[x]+1/(1-x^2)==0,x]
(現在手許にMathematicaが無いのでこれで大丈夫かどうか…。)
0084KingMathematician ◆5lHaaEvFNc NGNG
Re:>>82 転置のコマンドを探してくれ。
0085132人目の素数さんNGNG
>>84
転置のコマンドってTransposeのほかにあるんすか?
Transpose使ったら、列ベクトルとして出力されずに、行列になっちゃうんですよね。
行列としてではなく、列ベクトルで表示したいんですよ。
基底の組が二つなら、列ベクトルが二つ出力されるような。
0086KingMathematician ◆5lHaaEvFNc NGNG
Re:>>85 Mathematicaのリストは、縦横の区別が無かったような気がするが…。
行列でいいんじゃないの?
0087132人目の素数さんNGNG
>>86
やっぱりそうですか・・・俺もそう思うんですよね。
そんなコマンドどう考えてもないような気がして。
0088KingMathematician ◆5lHaaEvFNc NGNG
Re:>>87
あるいは、行列を得たうえ、
MatrixForm関数で出力してみるとか…。
0089132人目の素数さんNGNG
80に答えてエラい人
0090132人目の素数さんNGNG
89なのですが、振り子でなくて振り子時計の作り方教えて下さい。
振り子が振れるごとに針が動くような。
お願いします(ToT)
0091132人目の素数さんNGNG
>>90
もっと問題点を絞ってくれよう。

振り子の運動方程式がわからないのか、方程式の解き方がわからないのか、
グラフィックの描き方があわからないのか、アニメーションにしたいのか・・・
0092132人目の素数さんNGNG
>>91
すいません。グラフィックが書きたいです。
できれば、振り子が一回振れるごとに秒針が一秒進んでいくような時計を作りたいと思っています。
どなたか宜しくお願いしますm(_ _)m
他人の力に頼りすぎというのは分かってますが、どこから始めていいのか分からないです。
0093132人目の素数さんNGNG
92です。何度もすいません。グラフィックでなくて、アニメーションを書きたいです。
0094132人目の素数さんNGNG
NSolve[Exp[x]-3Sin[x]-5==0,x]
NSolve[Exp[x]+1/(1-x^2)==0,x]
で、計算させると次のような注意をされてしまいます。

Solve::tdep:
本質的に非代数的な方法で解かれる変数が方程式に含まれているようです

解決策はありますか? 
Plotの方は上手く行ったみたいなのですが・・・。
お願いします。
0095132人目の素数さんNGNG
>>94
FindRoot[Exp[x] - 3Sin[x] - 5 == 0, {x, 2}]
ヘルプを引け。See alsoぐらい読め。
0096132人目の素数さんNGNG
>>95
遂に、怒られてしまった。
でも、ありがとうございます。
0097132人目の素数さんNGNG
>>78
SkewGrafphicsじゃ出ないんですけど。
>>79
コピペしてできたんですか?
0098132人目の素数さんNGNG
>>97
Graphicsも綴れない上にコピペすらできないとは
さすが教えて君ですね。
0099132人目の素数さんNGNG
>>92を教えて頂ける神はいませんか?
0100132人目の素数さんNGNG
>>98
当たり前じゃないか!これが教えて君のすごさ。
SkewGraphicsだとできないのよ〜。なんで〜?
>>79
微分積分をなめるな!
0101132人目の素数さんNGNG
>>100を教えて頂ける神はいませんか?
■ このスレッドは過去ログ倉庫に格納されています