〓 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のデータ),…}とはできる。
■ このスレッドは過去ログ倉庫に格納されています