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

〓 Mathematica 3 〓

■ このスレッドは過去ログ倉庫に格納されています
0001１３２人目の素数さん2005/07/15(金) 16:37:20
　　　　　　　　_....._{{ 〃
　　　　 　, - ' ,..､､.ヾ{{フ'⌒`ヽ､
　　　　／　 ,:', -‐‐` ´ '´⌒ヽ　ヾ:､
.　　　,'　　 ,'´　,ィ ,ｨ ,' , 　 ｀ヽ',　 ',-<
　 　 ,' 　　.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/

〓 Mathematica 2 〓
http://science3.2ch.net/test/read.cgi/math/1078534285/
0574１３２人目の素数さん2007/04/17(火) 21:29:32
アクティべーションは正規ユーザをなめてる
0575１３２人目の素数さん2007/04/18(水) 04:06:21
>>573
会社はStephen Wolframの延長だからね。
0576◇宮城200か12-54＠Linuxザウルス : ◆mzpjBMNq3U 2007/04/18(水) 11:34:08
私はver,4.2までしか知らないのですが、mathematicaのアクティベーション
って、どのようなものですか
従来のStudent版などのようにMathID依存のパスワードや、一般の３０桁ぐらいの
パスワードなら経験済みです。
シマンテックのＮＩＳのようにいちいちサーバと通信するのでしょうか
0577１３２人目の素数さん2007/04/21(土) 15:02:19
正規ユーザですが
我真致家つかいます
0578１３２人目の素数さん2007/05/02(水) 06:58:54
6.0近日リリースあげ
0579１３２人目の素数さん2007/05/02(水) 11:43:06
英語版リリース
ttp://www.wolfram.com/products/mathematica/index.en.html
ttp://www.wolfram.com/products/mathematica/newin6/

Mathematica 6 Launched（スラド本家）
ttp://science.slashdot.org/article.pl?sid=07/05/01/1827259
0580１３２人目の素数さん2007/05/03(木) 16:34:25
Mathematica
と
メープル
どっちが
つよいの？
0581１３２人目の素数さん2007/05/04(金) 12:34:53
互換性ならMathematica。
価格ならMaple。
0582１３２人目の素数さん2007/05/04(金) 13:58:24
Mathematicaはプレミアを買わないと特別サービスがないが、
Mapleは予告無しに特別サービスがある事がある。
0583１３２人目の素数さん2007/05/04(金) 22:17:46
p=Plot [y1, {x, 0, 0.215}]
lip=ListPlot[];
Show[p,lip]
の洋にplotとlistplotを
同じグラフに書きたいのですが、
コレだとグラフが３っつ表示されてしまいます。
最初の２つを非表示にすることは出来ませんでしょうか？
0584１３２人目の素数さん 2007/05/04(金) 22:44:07
>583
確か、DisplayFunction->Identity だったような気がする。
Plot, ListPlotなどのオプション。

ShowはDisplayFunctionを無視するので表示される。
05855832007/05/04(金) 22:57:57
すみません。
それでやってみたのですが、
ぜんぶ消えてしまい、Showでも表示されませんでした。
0586習い始め2007/05/04(金) 23:12:57
>>583 、585
例えば、
a= Plot[Sin[x], {x, 0, 2 π}, DisplayFunction -> Identity];
b=Plot[Cos[x], {x, 0, 2 π}, DisplayFunction -> Identity];
c=plot2 = Plot[Sin[2 x], {x, 0, 2 π}, DisplayFunction -> Identity];
Show[a, b,c, DisplayFunction -> $DisplayFunction];
のように、最初にDisplayFunction->Identity としておいて、ShowでDisplayFunction -> $DisplayFunction
とするとうまくいくはず。
0587１３２人目の素数さん2007/05/04(金) 23:31:06
Mathematicaて
プログラム？
ドイツ語ぽいなｗ
0588KingOfUniverse ◆667la1PjK2 2007/05/05(土) 00:02:48
talk:>>587 ドイツ語も書けるだろうな。
05895832007/05/05(土) 00:41:25
>>586
ありがとう。うまくいきました
0590習い始め2007/05/05(土) 00:59:11
>>586↑　
お役に立ててよかったです。こちらこそDankeです。擬Lisp言語のMathematicaは、結構楽しめますね。独逸語はあまり得意ではありませんけど。
0591１３２人目の素数さん2007/05/06(日) 13:17:39
DisplayFunction
ってわからないなあ

自分では使えなさそう
0592１３２人目の素数さん2007/05/06(日) 16:43:10
6になってから何かおもしろい機能増えましたか？4->5のときのReduceの機能拡張
には驚いたけど今回それに匹敵するようなのってあります？
0593１３２人目の素数さん2007/05/07(月) 18:46:31
Ver.4からあとはあまり変わってないんちゃう

Mapleに負けてるな
0594１３２人目の素数さん 2007/05/08(火) 00:29:30
Ver4 -> 5.2 は、見た目の大きな変化が無いけど、
色んな処理がかなり早くなったので、少しくらい大きなデータのロードや
ループなど４では躊躇するような時でもよく使うようになった。

Ver6は、グラフの質があがってる感じしない？WolframのHelpページ。
あと、GUIでパラメーターを変えられるリアルタイムの描画など面白そう。
0595１３２人目の素数さん2007/05/08(火) 07:04:41
>>593 そうですか。私はMapleのほうは良く知らないんですがどういったところ
がMathematicaとくらべて得意なんでしょうか？
>>594 確かにグラフィックの質は良くなりましたね。これだけでもかなり遊べそう。
肝心の数式処理のほうでなにか画期的なものはありましたか？
0596１３２人目の素数さん2007/05/08(火) 20:12:29
>>595
速いとか、バグ少ないとか、アルゴリズム公開してるとか聞くが、使った
ことが無いので確証はない。デマかも。
0597１３２人目の素数さん2007/05/09(水) 18:32:33
　　　　　　　　_....._{{ 〃
　　　　 　, - ' ,..､､.ヾ{{フ'⌒`ヽ､
　　　　／　 ,:', -‐‐` ´ '´⌒ヽ　ヾ:､
.　　　,'　　 ,'´　,ィ ,ｨ ,' , 　 ｀ヽ',　 ',-<
　 　 ,' 　　.i　 /|. /.| { i,　 i,　　}.　 }_,,）)
　　　!　|　 ! .,'-.{ !　!|; |`､.}ﾞ!.!　|.　 !　ヽ.
　　　',　',　|Vｧ=､ﾞ､ ｀ﾞ､!-_:ﾄ,ﾘ', l !　| 　 ﾞ',
　　　 ヽ､', l:!Kノ}. 　 　 f:_.)iﾞi: ﾘ !　l　ル
　　　　 | l!iヽﾞ- '　, 　　.!__:ﾉ ﾞ ,ﾘ l ﾘ'´
.　　　　 ',|!!､ 　 　r‐┐ 　 ｀ ノ'. /,ｲ　　　　／￣￣￣￣￣￣￣￣
　　　　　 'i!ﾞ､ヽ､　ﾞｰ'　　_, ィ,:',:''´　　　 ＜　 6.0リリースおめ！！
　　　　　　ﾞ:､ｨ､jヾｰ::: 'iﾍ　.ノ',ﾘ. 　 　 　　 ＼＿＿＿＿＿＿＿＿
　　　,､- '´　ヽ､ﾞ､　　 {　｀＞"､
　　/＼＼　　　　',　　 }　　 //｀ヽ
0598１３２人目の素数さん2007/05/09(水) 19:02:58
>>597
どう違うか、どう良いか説明汁！
0599１３２人目の素数さん2007/05/12(土) 09:02:49
「近日中」のままリリースされない。高かったプレミエサービスが切れちゃうよお！
0600１３２人目の素数さん2007/05/12(土) 13:07:46
あ、メールが届いてる
何々？受講料一人


(　ﾟдﾟ)

(つд⊂)ｺﾞｼｺﾞｼ

(；ﾟдﾟ)

(つд⊂)ｺﾞｼｺﾞｼ
　　_, ._
（；ﾟ Дﾟ）
0601１３２人目の素数さん2007/05/12(土) 22:35:12
おれも目を疑った。どんな金持ちが受けるのかねえ。。
0602１３２人目の素数さん2007/05/12(土) 22:43:53
しかも「入門コース」だからなあ。これが「上級コース」とかなったら…?
0603１３２人目の素数さん2007/05/14(月) 09:00:37
WOLFRAMのHP、全然見れないんですけど。皆さんいかがですか。
いつも5のMathematica bookの日本語ページを開いてるんだけど、
嫌がられたのかなあ・・・orz
0604１３２人目の素数さん2007/05/14(月) 21:20:11
いつものとおり「近日リリース」がでてくるよ。
06056032007/05/15(火) 00:57:01
>604
確認有り難うございます。
ping wolfram.comでRequest time outとなってしまって、
今のところ数学用語の英単を増やすとか、ネットワークのお勉強を
かじってみるくらいしかできそうにない。へにょー。
くらいしかできそうにない。
06066032007/05/15(火) 13:33:00
串さしたらいけました。でも重ーい。
0607１３２人目の素数さん2007/05/23(水) 12:44:25
6.0いれました(Mac版)。
ぬるいユーザなもんでインターフェースの違いしか分からないんですが、、
グラフとかNotebook内の表示とか、全体的に表示が大幅に綺麗になってる。
あと図をCmd-Cで簡単にPDFとしてコピーできるようになってうれしい。
0608１３２人目の素数さん2007/05/23(水) 14:24:07
>>607
旧版のNotebookは怪しいバグが結構あったが。
今度のはどうかな。
0609１３２人目の素数さん2007/05/23(水) 17:49:21
>>607
日本語版でたの？　webではいまだ近日中リリースだけど。
0610１３２人目の素数さん2007/05/25(金) 21:25:20
榊原先生、肝硬変だったそうですね
0611１３２人目の素数さん2007/05/26(土) 12:09:37
だれ？
06126072007/05/26(土) 13:48:50
>>609
英語版。
>>608
んーぬるいユーザなんで・・。
具体的にどういうバグか書いてくれたら試せるけど。
0613１３２人目の素数さん2007/05/26(土) 22:06:10
日本では英語版の販売しないと思ったけど、海外から2ch？
0614１３２人目の素数さん2007/05/27(日) 12:49:12
612じゃないが海外だと何か問題があるのか?
0615１３２人目の素数さん2007/05/27(日) 20:31:28
Fragile?と婉曲に言っているのでは．．．でもMac版だし？
0616１３２人目の素数さん2007/05/28(月) 05:49:23
Fragileって何だ?
もしかしてwarez→ワレず→われ物→fragile?
0617１３２人目の素数さん2007/05/28(月) 09:05:53
つまり>>613はJIPの人間ってことか。
0618１３２人目の素数さん2007/05/30(水) 21:36:49
われまてぃか

JIPPO 日本電子ごにゅごにょ
0619１３２人目の素数さん2007/06/03(日) 10:52:44
x^2+y^2+z^2=1 のように，３変数の陰関数で表された曲面を表示させることはできませんか？
0620１３２人目の素数さん2007/06/03(日) 19:45:25
できるよ
06216192007/06/03(日) 23:50:38
>>620
確かにContourPlot3Dでできました！ありがとうございました。
0622１３２人目の素数さん2007/06/04(月) 00:14:02
>>608のバグってどういうのか教えて。
俺も英語版使ってるから調べたいんだけど。
0623１３２人目の素数さん2007/06/07(木) 12:55:38
なんかmathematicaがようやくversion6になったんだって? おくれてんなー、
matlabがversion6になったのいったい何年前だと思ってんだよ(ﾌﾟ
0624１３２人目の素数さん2007/06/08(金) 22:47:30
まだなってねーよボーケ。
0625１３２人目の素数さん2007/06/09(土) 08:10:03
ある自然数を入れ替える関数を教えてください。

例
123 → 321

12545　→　54521

45200 →　254
0626１３２人目の素数さん2007/06/09(土) 08:17:06
>>625
つ Excel
0627１３２人目の素数さん2007/06/09(土) 13:58:54
>>626
レスありがとうございます。

やはりマセマティカに入れ替える機能はないのですか？
0628１３２人目の素数さん2007/06/09(土) 14:11:46
>>622
自動字下げ関連のバグだろ。空白が入ったら意味が変わって
困るところに強制的空白入れてくれたりする。（FullForm記述で回避
出来る）テキストの文脈依存で、こうするとこうコケるという法則性を
見つけるのが困難。コメントに日本語を使用すると多発するような気がする。
0629１３２人目の素数さん2007/06/09(土) 14:58:46
a[x_, n_] := IntegerPart[x*10^(-n + 1)] - IntegerPart[x*10^(-n)]*10;
k[x_] := Length[IntegerDigits[x, 10]];
f[x_] := Sum[a[x, i]*10^(k[x] - i), {i, 1, k[x]}];
0630１３２人目の素数さん2007/06/09(土) 17:15:07
>>625 >>629
f[x_] := FromDigits@Reverse@IntegerDigits@x
0631１３２人目の素数さん2007/06/10(日) 07:58:51
>629 >630様

ご回答ありがとうございました。
お陰様で大変勉強になりました。
0632１３２人目の素数さん2007/06/10(日) 09:58:55
倍数を判定する機能があれば、教えてもらえませんか？
0633１３２人目の素数さん2007/06/10(日) 13:16:09
Modのこと?
0634１３２人目の素数さん2007/06/11(月) 01:32:49
6って目を引くような機能って追加されましたか？それともただのお布施？
英語版使ってる人どうです？
0635１３２人目の素数さん2007/06/11(月) 13:10:18
すみません。
6種類のグラフィックスを、2行3列の行列形式で表示させるには
どうしたらよいでしょうか？
0636１３２人目の素数さん2007/06/11(月) 14:54:31
グラフを「行列形式」ってきみ面白いね
0637１３２人目の素数さん2007/06/11(月) 15:58:39
>>635
GraphicsArrayでヘルプ検索。
0638１３２人目の素数さん2007/06/12(火) 03:21:42
>>634
ウルフラムによると、Ver.1以来の再発明らしい。
英語版は15日トライアル版あるんだから、使ってみて報告頼む。
http://www.wolfram.com/products/mathematica/experience/request.cgi
0639１３２人目の素数さん2007/06/12(火) 07:41:50
Ver.6見た目や操作性の品質がかなり良くなってるね。
中身が再発明ってほどに変わってるかどうかはよく分からんけど。
06406322007/06/12(火) 21:13:25
>>633
modでなく、9の倍数や99の倍数など、即座に計算することは可能ですか？
0641１３２人目の素数さん2007/06/12(火) 21:14:53
>>640
1から、好きな個数の配列用意して9とか99にかけるだけちゃうんかと。
あいかわらずなにしたいのかわからん。
06426322007/06/12(火) 21:20:09
>>641
書き込みありがとうございます。
実は、N桁の自然数において、元の数と入れ替えた数の
和と差にはある規則性があることに気がつきました。

それを証明するきっかけとして、mathematicaで倍数判定
を自動化することを考えました。　
0643１３２人目の素数さん2007/06/12(火) 21:27:03
>>642
元の数と入れ替えたのもとの数がなにかもわからないし、まず、説明方法を考えたほうがいいと
おもうよ。
例えば、関数をつくりたいなら、インプット要素と期待するアウトプットを書くとかね。
06446322007/06/12(火) 21:34:40
>>643
任意の自然数において成り立つ法則だと思うのですが、例えば、

元の数　12
入れ替えた数　21

この2数の和　→　33（11の倍数）
この2数の差　→　9 （9の倍数）

これは2桁の数の例ですが、3桁、4桁、n桁と拡大したときに、
規則的な倍数変化をするように思ったのです。
06456322007/06/12(火) 21:41:23
インプットと期待するアウトプットについて書いておらず、すみません。

インプットは任意のn桁の自然数です。
アウトプット二パターンあり、一パターン目は、そのn桁の自然数を
入れ替えた数との差のが何の倍数になっているか調べることです。
（99の倍数など）

二パターン目は、n桁の自然数と入れ替えた数との和が何の倍数
になっているか結果が帰ってくることです。
0646１３２人目の素数さん2007/06/12(火) 21:42:10
>>644
あいかわらずわかりづらいです。
インプットは、N桁の整数
アウトプットは、なに？

あと、33(11の倍数)の3ではなく11のほうを選ぶことも必要なの？その場合、その基準は？
0647１３２人目の素数さん2007/06/12(火) 21:43:22
>>647
ニアミス。
アウトプットはわかりました。
何の倍数ってのは、素因数分解じゃなくて、特定のものをかえすひつようがあるの？
06486322007/06/12(火) 21:47:07
>>646
何度もすみません。

>あと、33(11の倍数)の3ではなく11のほうを選ぶことも必要なの？その場合、その基準は？

例えば、二桁の数を 10a+b とおくと、入れ替えた数は 10b+a となります。
その和は 11a+11b なので、11の倍数です。
その差は 9a-9b なので、9の倍数です。

このような11の倍数であるとか、9の倍数であるといったアウトプットが欲しいのです。
06496322007/06/12(火) 21:48:46
>>647
特定のものを返して欲しいです。
詳しくは >648で述べさせていただいたとおりです。

何度もレスを頂きありがとうございます。
0650１３２人目の素数さん2007/06/12(火) 21:57:55
>>648
都合のいい例ばかりで一般的な規則がわかりません。
たとえば1392の場合、どんな値をどういう理屈で返すのでしょう？
0651１３２人目の素数さん2007/06/12(火) 22:05:58
ついでに13945あたりも知りたいです。
0652１３２人目の素数さん2007/06/13(水) 18:58:46
質問です。あくまで一例ですが、

func[r_] := (
　　s = func2[r];　(*func2はなんらかの複雑な処理*)
　　t /. FindRoot[Sin[t] + t == s, {t, 0}]
)

なる関数を定義したとき、逆関数的に

FindRoot[func[r] == 6, {r, 0}];

などとして、返り値tが目的の値になるようなrを求めようとすると
エラーになります。
なにがいけないのでしょうか？
0653１３２人目の素数さん2007/06/14(木) 00:42:35
具体的にエラーになる例あげて。
06546522007/06/14(木) 10:28:17
たとえば先ほどのfunc2を挟まない、

func[r_] := (
　　t /. FindRoot[Sin[t] + t == r, {t, 0}]
)
FindRoot[func[r] == 6, {r, 0}];

このコードはエラーになります。
（ただしエラーと共に正しい答えも…？）

ただこのコードだと、Sin[t]+tにt=6入れれば欲しい答えが出ますが、
そうではないという意味でさっきはfunc2を挟みました。
実際にはfuncはrを受け取ってゴニョゴニョしてループとか条件分岐とか
あって、それからFindRootやって、出てきた答えをまたゴニョゴニョして
返す、といったちょっと複雑な関数なため、逆に辿るのは無理です。

つまり、「ちょっと複雑めな関数を外から逆関数的に使いたくて
FindRootしてみたら、その関数の中にあるFindRootでエラーになる。
なんとかならんか」ということです。
0655１３２人目の素数さん2007/06/14(木) 15:26:06
そもそもその逆関数はwell-definedなのかい？
06566522007/06/15(金) 23:56:42
well-definedでググってみたけどよく分からない…
上の例はwell-definedではないのでしょうか

実際のfuncの中身は、とある光学系における幾何光学的な光線追跡で、
入射光角度を引数に最終的な到達点の座標を返すものです。
(mathematicaにやらせる仕事じゃないかもしれませんが)
逆にここに到達させるためにはどんな角度で…ってやろうとしたら
行き詰ったわけで。
0657１３２人目の素数さん2007/06/16(土) 01:48:34
普通に2stepのloopをプログラムで書けば？
FindRootで逆関数をもとめられてるわけじゃないんだから。
06586522007/06/19(火) 02:58:27
>>657
2分法のプログラムを書いて何とかなりました
どうもです
0659１３２人目の素数さん2007/06/21(木) 22:25:09
英語版のトライアルの申し込みしたんですが、２週間以上たっても全くなんの返事も来ません。
皆さんはどうですか？
0660１３２人目の素数さん2007/06/21(木) 23:28:31
問い合わせしてみれば？
0661１３２人目の素数さん2007/06/26(火) 21:23:15
Ver.6 日本語版ﾏﾀﾞｰ?
0662１３２人目の素数さん2007/06/29(金) 02:53:49
age
0663１３２人目の素数さん2007/07/01(日) 00:45:02
ノートブックの出力形式について,

指数部が -3<#<3 の時はそのまま
それ以外のときは3の倍数(EngineeringForm形式)

をデフォルトに設定したいのですが，
ヘルプを見てもどこに設定していいやら分かりません。
(オプション Number/Format らしいのですが…)

式は

NumberForm[%, ExponentFunction -> (If[-3 < # < 3, Null, 3 Quotient[#, 3]] &)]

で合っていると思うのですが
設定するオプションの位置をご存知の方
どうぞ宜しくお願いします。

(未だにこの独特のオプション設定ウィンドウの扱い方が分からない…)
0664１３２人目の素数さん2007/07/01(日) 22:11:21
漸化式で与えられた数列の一般公を求めたいのですが、ｲﾏｲﾁよくわからん。

漸化式　a_0=0,a_1=1,a[n+1]=a[n]+a[n-1]　で与えられた数列の一般公を求めたいのですが・・・

RSolve[{a[n+1]==a[n]+a[n-1],a[0]==0,a[1]==1},a[n],n]

として shift+enter 押してもできない・・・
0665１３２人目の素数さん2007/07/01(日) 22:12:33
↑すみません。やめるつもりが誤って書き込んでしまいました。
0666１３２人目の素数さん2007/07/01(日) 22:17:30
>>664
フィボナッチ数って知ってる??
0667１３２人目の素数さん2007/07/01(日) 22:46:05
再帰しちゃうからMathematicaで処理できるんだろうか…
0668１３２人目の素数さん2007/07/02(月) 02:17:30
Mathematicaはいずれビジネスとしてはうまくいかなくなるだろう。
Mapleがそれに続くだろう。
0669１３２人目の素数さん2007/07/02(月) 02:48:51
>>664
それ実行する前にClear[a]とか?
0670習い始め2007/07/02(月) 18:47:22
>>664
RSolve[{a[n+1]==a[n]+a[n-1],a[0]==0,a[1]==1},a[n],n] //FullSimplify
でOK
0671１３２人目の素数さん2007/07/03(火) 20:53:33
質問です。
2DPlotで横軸に取るプロット数を任意に決める方法はありますか？
たとえば、Plot[Sin[x],{x,-1,1}]において、プロット数を10個に指定して描くことはできますか？
ListPlot以外の方法でどうかお願いします！
0672１３２人目の素数さん2007/07/03(火) 21:08:54
>>671
無理。
ListPlotを使って、Plotと同じ引数をもつ関数かけばいいでＦＡ。
06736712007/07/03(火) 21:36:29
>>672
分かりました、有り難うございます。

ところで、こちらがnbファイルをアップして、プログラムの無駄な部分を検証して下さる方はいますか？
計算時間を短くしたいのです。
無理承知で一応。
■ このスレッドは過去ログ倉庫に格納されています