〓 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/
0002１３２人目の素数さん
2005/07/15(金) 16:40:030003１３２人目の素数さん
2005/07/15(金) 22:30:46算数が苦手なはずのさくらたんがMathematicaとは、これいかに？
0004１３２人目の素数さん
2005/07/15(金) 23:43:080005１３２人目の素数さん
2005/07/16(土) 00:13:36数ヲタにはロリコンしかいないの？ Part10
http://science3.2ch.net/test/read.cgi/math/1114124400/
0006１３２人目の素数さん
2005/07/16(土) 02:02:42「◆ わからない〜」スレを立てたのはさくらたんだって
0007１３２人目の素数さん
2005/07/16(土) 02:07:01乙
0008１３２人目の素数さん
2005/07/16(土) 08:28:44新スレおめでとうございます
, ＿ ﾉ）
γ∞γ~ ＼
| / 从从) ）
ヽ | | l l |〃/ＶＶＶＶＶＶＶＶＶＶＶＶＶＶＶＶＶＶＶＶＶＶＶＶＮ＼
｀从ﾊ~ ワノ∩ ハニャウェ━━━━━━━━━━━━ブ >εε=ヽ( `Д´)ﾉ ｳﾜｧｧｧｧﾝ
⊃ .ＶＶＶＶＶＶＶＶＶＶＶＶＶＶＶＶＶＶＶＶＶＶＶＶＶＮ／
, ＿ ﾉ）
γ∞γ~ ＼
| / 从从) ） 人人人人人
ヽ | | l l |〃 ﾆｺﾆｺ ≪ヽ( `Д´)ﾉ ≫ ﾋﾞﾘﾋﾞﾘ
｀从ﾊ~ ワノ） ^Ｙ^Ｙ^Ｙ^Ｙ^Ｙ
, ＿ ﾉ）
γ∞γ~ ＼
| / 从从) ）
ヽ | | l l |〃 ﾊﾆｬｰﾝ！ ヽ(・∀・ )ﾉ ﾊﾆｬｰﾝ！
｀从ﾊ~ ワノ∩
0009１３２人目の素数さん
2005/07/16(土) 16:52:22,. '´ ／-‐- ｀ヽ / ＼ `.､
,:' ,:' , , , ｀ ヽ ', ':,
,:' ,:' ,:' / ,' i ､ ', ﾞ:,,
,',' ,' ,' ,' /{ ,'i! ,',. ',, ', ', ',',
. i.i ! i ,. ,'i ,',,,{.{ |!. |,,', !! }'､ ! i !
'!', |, { l l l'''; i ﾞ､ ',ﾞ､ |. ', .}|}ﾉヾ, r‐-､ l.|
! ﾞ､ヾ',',ヽ| _......_ ｀ﾞ V......_ |ﾉ!｀ヽｨl l
| iヽl ｯ''ﾞ~~ﾞ' 'ﾞ~~ﾞﾞ'ヾ_.,',' ,','
! ! ||', ⊂⊃ , ⊂⊃.〃 .,i
l ', ii .l ｰ-‐ ノ.,' , ,:'ﾉ
',.',{{ ヽ､ _ ノ,:' ,:'´
ﾞ､',',|ヽ､ヽ､ , ｨ／"〃ﾘ
ヾ ヽヾﾞﾞ'｀!' ー ´ |"´ノ'
｀ヽ`,｀「´´￣｀｀_, イ
_...､--‐‐''´ ____.....〉｀'‐‐--- ､
みんな、さくらの応援ありがとう！
0010１３２人目の素数さん
2005/07/16(土) 20:29:510011１３２人目の素数さん
2005/07/19(火) 06:43:44,' / ,' {ｌ. ! {/ ,ｲ / }| !|', !. ', ', ﾞ,
ﾊ〃 ! !| | | ∠/ ,:'-ﾉ} /ﾘ l ,ﾑ. ! } |!
ﾊヽ､ゝ!| ｌ | ,:',;='ｨ'､'´ ,'.ノ ﾉ.,;lﾉ=､l .,' ,' ,' ﾉ
{ l ｌ ', |'ｦi(_ノ.} ´ i(ノ.}ﾞ!ノ,:',:''´
', h. ', ',ﾞ､ ':ﾞﾞ_.ﾉ. ':ﾞ_ﾉ〃ン
':, { ',', ':,':, 丶 ,' l .}
ヾ ':,':, ':ヾ､._ 「´/ ,' | .,' 5.2リリースおめでとうございます！
｀ヾ-､｀ヽ_ ｀´ _,.ィﾘ.ﾉ ,'
ﾘ';',ヾ| ｀ ‐┬ ´ _ノノ,'/
ヾ,､-- ､ _ | ´ノ'
f ヾ､..___ ヽ､ ｰ‐''
0012１３２人目の素数さん
2005/07/23(土) 05:26:360013１３２人目の素数さん
2005/07/25(月) 17:29:42無料ですか？
0014１３２人目の素数さん
2005/07/25(月) 17:35:39買う。めちゃくちゃ高い。
0015１３２人目の素数さん
2005/07/25(月) 17:43:35いくらですか？
0016１３２人目の素数さん
2005/07/25(月) 19:04:15http://www.varsitywave.co.jp/products/mathematica/html/student.html
0017１３２人目の素数さん
2005/07/25(月) 19:12:05高いなぁ・・・
バージョン更新したらもう1度払いなおさないといけないとかはないですよね？
あと、学生版じゃない奴はもっと高いんですか？
機能はそっちのほうがいいんでしょ？
0018１３２人目の素数さん
2005/07/25(月) 19:34:47学生や学校関係者でなければ、\320,706 （税込）
http://www.amazon.co.jp/exec/obidos/ASIN/B0009I9R4S/qid=1122287546/sr=1-16/ref=sr_1_0_16/249-6418441-5801104
機能などについてはWolfram Researchで調べてください。
0019１３２人目の素数さん
2005/07/25(月) 19:47:4616のリンクには機能はプロフェッショナル用と変わらないと書いてありますが、
本当に何も変わらないんですか？10倍も値段が違うのに？
学生には特別安く提供するってだけですか？
0020１３２人目の素数さん
2005/07/25(月) 20:16:57http://www.wolfram.com/index.ja.html
0021１３２人目の素数さん
2005/07/25(月) 20:23:37http://www.wolfram.com/products/student/mathforstudents/qa.html#difference
0022ニコちゃん ◆9COufv/UGU
2005/07/25(月) 20:46:49処理スピード、機能は同等。
ハードコピーのMathematica Bookがついてこない。
プリントアウトすると、下に"Printed by Mathematica for Students"がつく。
学生の証明書が必要。
か。 しかし、ワレマティカって言われるくらいの代物だし（以下自粛。。
0023１３２人目の素数さん
2005/07/25(月) 21:13:34> しかし、ワレマティカって言われるくらいの代物だし（以下自粛。。
詳しく。
何がいけないんですか？
0024１３２人目の素数さん
2005/07/25(月) 23:41:49一番の違いはインストール時にMathIDが要求されること。そのため異なるＰＣにインストールするには新たにMathIDをWolfram Researchに請求する必要がある。
Pro版はMathIDは必要なく原理的には何台でもインストールできる。（もちろんライセンス上問題はあるが…）
複数台にインストールできるからといってMathematicaをMath linkを使って並列計算させようしてもPro版だと確か４台までしかLinkできなかったはず。それ以上を望むならさらに上位バージョンが必要。
0025１３２人目の素数さん
2005/07/26(火) 03:00:450026１３２人目の素数さん
2005/07/26(火) 11:54:21なんにも自分で調べないのに5万や10万を払ってソフトを買うわけがない。
0027１３２人目の素数さん
2005/07/27(水) 07:04:49「３ｘ＋１問題
まず，(1以上の)自然数 n に対して次のような関数 f(n)
f(n) = n/2 : n が偶数の場合
f(n) = 3n+1 : n が奇数の場合
を考える．
これに対し，任意の自然数 n に対して，関数 f を繰り返し適用するといつか必ず 1 になるという「予想」がある．
この予想は真か偽か… というのがこの問題である．
さて，この予想の真偽を体感すべく，上の f(n) を Mathematica で 定義し，
n=1 から n=100 程度まで予想が成り立つかどうか試してみよ．
また、fm(n) = 1 なる最小の m を K(n) と書いたとき，
K(n) がいくつになるか，n=1 から n=100 程度まで調べ，グラフにせよ．」
f(n)の定義までは出来たのですが、K(n)の定義のしかたがわかりません。
どなたかご教授をお願いします。
0028１３２人目の素数さん
2005/07/27(水) 08:55:590029１３２人目の素数さん
2005/07/27(水) 09:32:58f[n_]:=n/2/;EvenQ[n]
f[n_]:=3n+1/;OddQ[n]
K[n_]:=Length[NestWhileList[f,n,#!=1&]]-1
ListPlot[Table[K[n],{n,100}]];
0030１３２人目の素数さん
2005/07/27(水) 10:40:51ageなくても見てる奴は見てる。２ちゃんねるブラウザがある奴なら
0031１３２人目の素数さん
2005/07/28(木) 16:28:20それ何？
0032１３２人目の素数さん
2005/07/28(木) 17:33:58２ちゃんねるブラウザ の検索結果 約 35,200 件
0033１３２人目の素数さん
2005/07/29(金) 00:04:490034１３２人目の素数さん
2005/07/29(金) 02:17:50付属のMathematicaブックを順に読んでいくのが一番良いと思う。ただし、
プログラミングの素養がある程度あるという前提で。
0035１３２人目の素数さん
2005/07/29(金) 11:58:26のような配列を作りたいのですが、どうすればできますでしょうか？
よろしければヒントお願いします
0036１３２人目の素数さん
2005/07/29(金) 15:15:36Module[{s=ToString[BaseForm[b,2]]},
StringDrop[s,{Part[StringPosition[s,"\n"],1,1],-1}]]
BinDigitsN[b_,N_]:=Module[{l=Length[d=Characters[BinDigits[b]]]},
Join[Table[0,{N-l}],d]]
Table[BinDigitsN[n,4],{n,15}]
0037さくらﾀﾝ
2005/07/29(金) 15:47:23BinDigits[0]={0};
BinDigits[1]={1};
BinDigits[x_]:=Join[BinDigits[Quotient[x,2]],{Mod[x,2]}]
BinDigitsN[x_,n_]:=Module[{l=Length[d=BinDigits[x]]},Join[Table[0,{n-l}],d]]
Table[BinDigitsN[x,4],{x,15}]
0038さくらﾀﾝ
2005/07/29(金) 15:54:48BinDigits[0]={};
BinDigits[x_]:=Join[BinDigits[Quotient[x,2]],{Mod[x,2]}]
でおｋだた
0039１３２人目の素数さん
2005/07/29(金) 21:46:19ありがとうございます。
mathematicaブックって洋書しか売っていないのでしょうか？
夏休みなので、学校のサーバに自宅からログインして使おうと
思っているので、ヘルプのマセマ本では使いにくいので
実際の本を手元に置いて使いたいのですが。
0040１３２人目の素数さん
2005/07/30(土) 01:09:35第4版は訳書がありますが、第5版は原書しかありません。
0041１３２人目の素数さん
2005/07/30(土) 01:12:28digits[n_] := Table[IntegerDigits[i, 2, n], {i, 0, 2^n - 1}];で
digits[4]とすれば求めるものが得られる。
0042１３２人目の素数さん
2005/07/30(土) 22:23:53ありがとうございました。
やっぱり、ないのですね。
第四版が古本屋で安く手に入らないか、さがしてみます。
0043１３２人目の素数さん
2005/07/31(日) 01:42:520044１３２人目の素数さん
2005/07/31(日) 02:08:55>>39
0045１３２人目の素数さん
2005/08/02(火) 19:48:521000x1000くらいの行列を記したファイルを連続で読み込んで、
そのグラフをアニメーションさせるにはどうしたらいいでしょうか。
配列にしてやってDoとShowで回せばいいと思うんですが、
ファイル"f1.dat", "f2.dat", "f3.dat"... とあった場合に
連続でImportさせるにはどうしたらよいのか分からないです・・・。
0046１３２人目の素数さん
2005/08/02(火) 19:51:100047１３２人目の素数さん
2005/08/03(水) 15:53:48すみません、ファイルにチェインっていうのが
わからないんですがどういうことでしょうか？？
0048さくらﾀﾝ
2005/08/03(水) 16:32:04俺も分からん、教えてんか。
とりあえず、
SetDirectory["データのあるディレクトリ"];
data = Map[Import, FileNames["*.dat"]];
で、できへん？
あ、でもファイル名の数字の部分をを"f01.dat"とかにせんと、順番が変なるわ。
0049さくらﾀﾝ
2005/08/03(水) 16:34:510050１３２人目の素数さん
2005/08/03(水) 17:35:33> data = Map[Import, FileNames["*.dat"]];
Mapを使ってImportするとき、データは行列なんで"Table"で読み込みたいんですが
どうやって記述したらいいでしょうか。
諦めて手動でやろうと：
f01=Import["f01.dat","Table"];
f02=Import["f02.dat","Table"];
f03.....
として、ListDensityPlot[f01]、ListDensityPlot[f02]...で描いたグラフをアニメーションさせる、ってのは無理でしょうか。
何度もすみません。お願いします。
0051１３２人目の素数さん
2005/08/03(水) 19:36:25とりあえずTable[Import["f"<>ToString[i]<>".dat"],{i,3}]とすればとりあえず
{(f1.datのデータ),(f2.datのデータ),(f3.datのデータ),…}とはできる。
0052さくらﾀﾝ
2005/08/03(水) 21:01:31ファイルの拡張子がdatやったら、自動的にTable形式で読み込むとヘルプに書いとるから
特に指定する必要は無いと思うが、あえてやるんやったら
data = Map[Import[#, "Table"]&, FileNames["f*.dat"]];
て感じか。
>>51
そのやり方（・∀・）ｴｴﾅｧ!!
0053１３２人目の素数さん
2005/08/07(日) 22:52:20FAQ のような気がするんだけど、 みつからなかった。
0055１３２人目の素数さん
2005/08/09(火) 08:41:43Off[General::spell];
0056１３２人目の素数さん
2005/08/10(水) 23:08:500057１３２人目の素数さん
2005/08/11(木) 00:34:02ときどき見てた
0058１３２人目の素数さん
2005/08/11(木) 01:28:50これはPC用ソフトMathematica(マセマティカ)
0059１３２人目の素数さん
2005/08/11(木) 17:48:08ﾜﾗﾀw
0060１３２人目の素数さん
2005/08/16(火) 17:42:49MultipleListPlotでは対数軸は扱えないのでしょうか？？何か良い方法ないですかね。
0061１３２人目の素数さん
2005/08/16(火) 17:45:18`,ヾ ／ ,;;iiiiiiiiiii;､ ＼ _ノｿ´
iｶ ／ ,;;´ ;lllllllllllllii､ ＼ ｉｶ
iｻ' ,;´ ,;;llllllllllllllllllllii､ ｆｻ
!ｶ､._ ,=ゞiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiii!! ＿_ｆｶﾍ.
/ `ヾｻ;三ミミミミﾐご彡彡彡ミヾｻ`´ 'i､
i' ,.＿Ξミミミミミミき彡/////ii＿ |
| ;ｶ≡|ヾヾヾミミミミミぶ､//巛iﾘ≡ｶi |
| iｻ |l lヾヾｼヾミミﾐﾐり|iｉ//三iﾘ `ｻi |
| ,ｶ ,ｶll|l l lヾリﾘﾘﾘﾘ川川|爪ミミiﾘllｶ､ｶi |
| ;iｻ,ｻ |l l l リﾘ川川川川|爪ミﾐiiﾘ ｻi ｻi |
| iｶ ;ｶ, |l l ﾘﾘﾘﾘ川川川川l爪ﾐﾐilﾘ ,ｶi ｶi |
| iｻ ;ｻ, |ﾘ ﾘﾘ川川川川川l爪ミﾐiﾘ ,ｻi ｻi |
| iｻ ;iｶ, | ﾘ彡彡川川川川|爪ﾐﾐｉﾘ ,ｶi :ｻ、 |
,i厂 ｉｻ, |彡彡彡彡ﾉ|川川|爪ﾐミﾘ ,ｻi `ヘ､
,√ ,:ｶ, |彡彡彡彡ﾉ川川|ゞﾐﾐﾐﾘ ,ｶi `ヾ
´ ;ｻ, |彡彡彡彡川川ﾘゞﾐミﾘ ,ｻi
;ｶ, |彡彡彡彡リﾘﾘミミミｼ ,ｶi
,;ｻ, |彡彡ノリリﾘﾘミミミｼ ,ｻi
;ﾒ'´ i彡ノリﾘﾘﾘリゞﾐミｼ `ﾍ､
;ﾒ ヾリリﾘﾘノ巛ゞシ `ﾍ､
;ﾒ ｀`十≡=十´ `ﾍ､
0062１３２人目の素数さん
2005/08/16(火) 21:13:28感謝
0063GiantLeaves ◆6fN.Sojv5w
2005/08/16(火) 22:08:450064１３２人目の素数さん
2005/08/17(水) 02:02:080065１３２人目の素数さん
2005/08/17(水) 07:55:510066GiantLeaves ◆6fN.Sojv5w
2005/08/17(水) 08:25:250067１３２人目の素数さん
2005/08/18(木) 17:33:42の出力は{{1}}となりますが，1と出力させることはできないのでしょうか？
{{Pos}}=Position[{a, b, c, d, e}, a];
Pos
とすれば一応できますがなんか見苦しいもので。。。
0068１３２人目の素数さん
2005/08/18(木) 18:15:190069１３２人目の素数さん
2005/08/21(日) 21:49:19f[x_,y_]:=[expr1;expr2;]としてみたのですができませんでした
0070１３２人目の素数さん
2005/08/21(日) 22:49:18「複数の式を1つの関数にまとめる」の意味がわからないが、
複数の手続きを連続して実行したいなら、
f[x_,y_] := (expr1; expr2;)
0071１３２人目の素数さん
2005/08/22(月) 20:47:11のようなリストを
{1,2,3,...,n}
としたいのですがどうすればよいですか？
Joinを使おうとしたのですがnが大きいとすべて列挙するのが難しいので・・
よろしくお願いします
0072GiantLeaves ◆6fN.Sojv5w
2005/08/22(月) 21:41:330073GiantLeaves ◆6fN.Sojv5w
2005/08/22(月) 21:44:020074１３２人目の素数さん
2005/08/23(火) 10:13:350075１３２人目の素数さん
2005/08/25(木) 13:57:06x=n(n=const)
のグラフはどのように描けばよいのでしょうか？
Plot[x = 3, {x, 0, 5}]
としてみたのですがエラーが出てy=3が描画されてしまいます
0076１３２人目の素数さん
2005/08/26(金) 21:54:12こんな感じで、いかがでしょう?
0077１３２人目の素数さん
2005/08/30(火) 19:20:330078１３２人目の素数さん
2005/08/31(水) 00:29:310079１３２人目の素数さん
2005/09/08(木) 21:52:470080１３２人目の素数さん
2005/09/09(金) 00:25:590081１３２人目の素数さん
2005/09/09(金) 02:34:09■ このスレッドは過去ログ倉庫に格納されています