5ちゃんねる ★スマホ版★ ■掲示板に戻る■ 全部 1- 最新50  

■ このスレッドは過去ログ倉庫に格納されています

〓 Mathematica 3 〓

1 :132人目の素数さん: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/

2 :132人目の素数さん:2005/07/15(金) 16:40:03
阻止

3 :132人目の素数さん:2005/07/15(金) 22:30:46
>>1
算数が苦手なはずのさくらたんがMathematicaとは、これいかに?

4 :132人目の素数さん:2005/07/15(金) 23:43:08
そもそも数学板でCCさくらが通じるのか?

5 :132人目の素数さん:2005/07/16(土) 00:13:36
>>4
数ヲタにはロリコンしかいないの? Part10
http://science3.2ch.net/test/read.cgi/math/1114124400/

6 :132人目の素数さん:2005/07/16(土) 02:02:42
>>4
「◆ わからない〜」スレを立てたのはさくらたんだって

7 :132人目の素数さん:2005/07/16(土) 02:07:01
>>1


8 :132人目の素数さん:2005/07/16(土) 08:28:44
>>1
新スレおめでとうございます

   ,   _ ノ)
 γ∞γ~  \
  |  / 从从) )
 ヽ | | l  l |〃/VVVVVVVVVVVVVVVVVVVVVVVVN\
  `从ハ~ ワノ∩ ハニャウェ━━━━━━━━━━━━ブ >εε=ヽ( `Д´)ノ ウワァァァァン
       ⊃ .VVVVVVVVVVVVVVVVVVVVVVVVVN/

   ,   _ ノ)
 γ∞γ~  \
  |  / 从从) )                               人人人人人
 ヽ | | l  l |〃 ニコニコ                          ≪ヽ( `Д´)ノ ≫ ビリビリ
  `从ハ~ ワノ)                                ^Y^Y^Y^Y^Y 

   ,   _ ノ)
 γ∞γ~  \
  |  / 从从) )
 ヽ | | l  l |〃 ハニャーン!                         ヽ(・∀・ )ノ ハニャーン!
  `从ハ~ ワノ∩

9 :132人目の素数さん: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      ー-‐      ノ.,' , ,:'ノ
     ',.',{{ ヽ、         _ ノ,:' ,:'´
     ゙、',',|ヽ、ヽ、      , ィ/"〃リ
       ヾ ヽヾ゙゙'`!' ー ´ |"´ノ'
        `ヽ`,`「´´ ̄``_, イ
     _...、--‐‐''´    ____.....〉`'‐‐--- 、


みんな、さくらの応援ありがとう!

10 :132人目の素数さん:2005/07/16(土) 20:29:51
陰関数のplotはImplicitPlot、ちぃ覚えた!

11 :132人目の素数さん:2005/07/19(火) 06:43:44
  ,:'´//7,'  ,' .,' ,:'   !  } i  !', ':,  ':,    ゙:,.
  ,' / ,' {l.  ! {/   ,イ / }|  !|', !.  ',  ', ゙,
 ハ〃 ! !|  | |  ∠/ ,:'-ノ} /リ l ,ム.  !  } |!
  ハヽ、ゝ!|  l | ,:',;='ィ'、'´ ,'.ノ ノ.,;lノ=、l .,' ,' ,' ノ
    {   l l ', |'ヲi(_ノ.}  ´    i(ノ.}゙!ノ,:',:''´
     ',  h. ', ',゙、 ':゙゙_.ノ.     ':゙_ノ〃ン
     ':, { ',', ':,':,         丶   ,' l .}
      ヾ ':,':, ':ヾ、._    「´/    ,' | .,'   5.2リリースおめでとうございます!
        `ヾ-、`ヽ_    `´ _,.ィリ.ノ ,'
         リ';',ヾ|  ` ‐┬ ´ _ノノ,'/
          ヾ,、-- 、 _ |     ´ノ'
          f ヾ、..___ ヽ、 ー‐''

12 :132人目の素数さん:2005/07/23(土) 05:26:36
age

13 :132人目の素数さん:2005/07/25(月) 17:29:42
Mathematicaを自宅のPCにインストールしたいんですが、どうすればいいのですか?
無料ですか?

14 :132人目の素数さん:2005/07/25(月) 17:35:39
>>13
買う。めちゃくちゃ高い。

15 :132人目の素数さん:2005/07/25(月) 17:43:35
>>14
いくらですか?

16 :132人目の素数さん:2005/07/25(月) 19:04:15
3万円程度です。(ただし、学生版)
http://www.varsitywave.co.jp/products/mathematica/html/student.html

17 :132人目の素数さん:2005/07/25(月) 19:12:05
>>16
高いなぁ・・・
バージョン更新したらもう1度払いなおさないといけないとかはないですよね?
あと、学生版じゃない奴はもっと高いんですか?
機能はそっちのほうがいいんでしょ?

18 :132人目の素数さん:2005/07/25(月) 19:34:47
>>17
学生や学校関係者でなければ、\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で調べてください。

19 :132人目の素数さん:2005/07/25(月) 19:47:46
>>18
16のリンクには機能はプロフェッショナル用と変わらないと書いてありますが、
本当に何も変わらないんですか?10倍も値段が違うのに?
学生には特別安く提供するってだけですか?


20 :132人目の素数さん:2005/07/25(月) 20:16:57
人に聞くより自分で調べてください。
http://www.wolfram.com/index.ja.html

21 :132人目の素数さん:2005/07/25(月) 20:23:37
>>19
http://www.wolfram.com/products/student/mathforstudents/qa.html#difference

22 :ニコちゃん ◆9COufv/UGU :2005/07/25(月) 20:46:49
>>21
処理スピード、機能は同等。

ハードコピーのMathematica Bookがついてこない。
プリントアウトすると、下に"Printed by Mathematica for Students"がつく。
学生の証明書が必要。

か。 しかし、ワレマティカって言われるくらいの代物だし(以下自粛。。

23 :132人目の素数さん:2005/07/25(月) 21:13:34
>>22

> しかし、ワレマティカって言われるくらいの代物だし(以下自粛。。

詳しく。
何がいけないんですか?

24 :132人目の素数さん:2005/07/25(月) 23:41:49
>>22
一番の違いはインストール時にMathIDが要求されること。そのため異なるPCにインストールするには新たにMathIDをWolfram Researchに請求する必要がある。

Pro版はMathIDは必要なく原理的には何台でもインストールできる。(もちろんライセンス上問題はあるが…)

複数台にインストールできるからといってMathematicaをMath linkを使って並列計算させようしてもPro版だと確か4台までしかLinkできなかったはず。それ以上を望むならさらに上位バージョンが必要。

25 :132人目の素数さん:2005/07/26(火) 03:00:45
検索もできないバカに優しいスレでつね(w

26 :132人目の素数さん:2005/07/26(火) 11:54:21
そう思う。

なんにも自分で調べないのに5万や10万を払ってソフトを買うわけがない。

27 :132人目の素数さん:2005/07/27(水) 07:04:49
すみません。質問スレから飛んできました。

「3x+1問題
まず,(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)の定義のしかたがわかりません。
どなたかご教授をお願いします。


28 :132人目の素数さん:2005/07/27(水) 08:55:59
質問ならageなきゃ。

29 :132人目の素数さん:2005/07/27(水) 09:32:58
fmの定義くらい書いてほしいが。

f[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}]];

30 :132人目の素数さん:2005/07/27(水) 10:40:51
>>28
ageなくても見てる奴は見てる。2ちゃんねるブラウザがある奴なら

31 :132人目の素数さん:2005/07/28(木) 16:28:20
> 2ちゃんねるブラウザ

それ何?

32 :132人目の素数さん:2005/07/28(木) 17:33:58
>>31
2ちゃんねるブラウザ の検索結果 約 35,200 件

33 :132人目の素数さん:2005/07/29(金) 00:04:49
mathematicaの使い方覚えるのに良い本ってどんなのがあるのでしょうか?

34 :132人目の素数さん:2005/07/29(金) 02:17:50
>>33
付属のMathematicaブックを順に読んでいくのが一番良いと思う。ただし、
プログラミングの素養がある程度あるという前提で。

35 :132人目の素数さん:2005/07/29(金) 11:58:26
{{0,0,0,0},{0,0,0,1},{0,0,1,0},{0,0,1,1},...,{1,1,1,1}}
のような配列を作りたいのですが、どうすればできますでしょうか?
よろしければヒントお願いします

36 :132人目の素数さん:2005/07/29(金) 15:15:36
BinDigits[b_]:=
Module[{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}]

37 :さくらタン:2005/07/29(金) 15:47:23
ちと改造

BinDigits[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}]

38 :さくらタン:2005/07/29(金) 15:54:48
スマソ訂正
BinDigits[0]={};
BinDigits[x_]:=Join[BinDigits[Quotient[x,2]],{Mod[x,2]}]
でおkだた

39 :132人目の素数さん:2005/07/29(金) 21:46:19
>>34
ありがとうございます。
mathematicaブックって洋書しか売っていないのでしょうか?
夏休みなので、学校のサーバに自宅からログインして使おうと
思っているので、ヘルプのマセマ本では使いにくいので
実際の本を手元に置いて使いたいのですが。

40 :132人目の素数さん:2005/07/30(土) 01:09:35
>>39
第4版は訳書がありますが、第5版は原書しかありません。

41 :132人目の素数さん:2005/07/30(土) 01:12:28
>>35
digits[n_] := Table[IntegerDigits[i, 2, n], {i, 0, 2^n - 1}];で
digits[4]とすれば求めるものが得られる。

42 :132人目の素数さん:2005/07/30(土) 22:23:53
>>40
ありがとうございました。
やっぱり、ないのですね。
第四版が古本屋で安く手に入らないか、さがしてみます。

43 :132人目の素数さん:2005/07/31(日) 01:42:52
http://documents.wolfram.com/v5/で読めるけどそれじゃ駄目なん?

44 :132人目の素数さん:2005/07/31(日) 02:08:55
>>43
>>39

45 :132人目の素数さん:2005/08/02(火) 19:48:52
グラフのアニメーションについて質問です。
1000x1000くらいの行列を記したファイルを連続で読み込んで、
そのグラフをアニメーションさせるにはどうしたらいいでしょうか。
配列にしてやってDoとShowで回せばいいと思うんですが、
ファイル"f1.dat", "f2.dat", "f3.dat"... とあった場合に
連続でImportさせるにはどうしたらよいのか分からないです・・・。

46 :132人目の素数さん:2005/08/02(火) 19:51:10
ファイルにチェインをつければいい

47 :132人目の素数さん:2005/08/03(水) 15:53:48
>>46
すみません、ファイルにチェインっていうのが
わからないんですがどういうことでしょうか??

48 :さくらタン:2005/08/03(水) 16:32:04
>ファイルにチェインをつければいい
俺も分からん、教えてんか。

とりあえず、
SetDirectory["データのあるディレクトリ"];
data = Map[Import, FileNames["*.dat"]];
で、できへん?
あ、でもファイル名の数字の部分をを"f01.dat"とかにせんと、順番が変なるわ。

49 :さくらタン:2005/08/03(水) 16:34:51
数字の部分の桁数を揃えるって意味な。

50 :132人目の素数さん:2005/08/03(水) 17:35:33
>>48-49
> data = Map[Import, FileNames["*.dat"]];
Mapを使ってImportするとき、データは行列なんで"Table"で読み込みたいんですが
どうやって記述したらいいでしょうか。
諦めて手動でやろうと:
f01=Import["f01.dat","Table"];
f02=Import["f02.dat","Table"];
f03.....
として、ListDensityPlot[f01]、ListDensityPlot[f02]...で描いたグラフをアニメーションさせる、ってのは無理でしょうか。
何度もすみません。お願いします。

51 :132人目の素数さん:2005/08/03(水) 19:36:25
>>50
とりあえずTable[Import["f"<>ToString[i]<>".dat"],{i,3}]とすればとりあえず
{(f1.datのデータ),(f2.datのデータ),(f3.datのデータ),…}とはできる。

52 :さくらタン:2005/08/03(水) 21:01:31
>>50
ファイルの拡張子がdatやったら、自動的にTable形式で読み込むとヘルプに書いとるから
特に指定する必要は無いと思うが、あえてやるんやったら
data = Map[Import[#, "Table"]&, FileNames["f*.dat"]];
て感じか。

>>51
そのやり方(・∀・)エエナァ!!

53 :132人目の素数さん:2005/08/07(日) 22:52:20
"Possible spelling error" って出力を抑える方法ってなかったでしょうか?
FAQ のような気がするんだけど、 みつからなかった。

54 :35:2005/08/08(月) 14:08:45
>>36-38,41

遅くなりましたがありがとうございました。
大変勉強になりましたm(_ _)m

55 :132人目の素数さん:2005/08/09(火) 08:41:43
>>53
Off[General::spell];

56 :132人目の素数さん:2005/08/10(水) 23:08:50
age

57 :132人目の素数さん:2005/08/11(木) 00:34:02
この番組ピーターフランクル出てたっけ?
ときどき見てた

58 :132人目の素数さん:2005/08/11(木) 01:28:50
それはNHK教育の「マテマティカ」

これはPC用ソフトMathematica(マセマティカ)

59 :132人目の素数さん:2005/08/11(木) 17:48:08
>>57-58
ワラタw

60 :132人目の素数さん:2005/08/16(火) 17:42:49
複数のリストを対数軸で同じグラフにプロットしたいのですが・・・
MultipleListPlotでは対数軸は扱えないのでしょうか??何か良い方法ないですかね。

61 :132人目の素数さん:2005/08/16(火) 17:45:18
 /⌒ヽ,  ,/⌒丶、       ,-
       `,ヾ   /    ,;;iiiiiiiiiii;、   \   _ノソ´
        iカ /    ,;;´  ;lllllllllllllii、    \ iカ
        iサ'     ,;´  ,;;llllllllllllllllllllii、    fサ
         !カ、._  ,=ゞiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiii!! __fカヘ.
       /  `ヾサ;三ミミミミミご彡彡彡ミヾサ`´ 'i、
       i'   ,._Ξミミミミミミき彡/////ii_   |
       |  ;カ≡|ヾヾヾミミミミミぶ、//巛iリ≡カi  |
        |  iサ  |l lヾヾシヾミミミミり|ii//三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
         ,;サ,   |彡彡ノリリリリミミミシ    ,サi
        ;メ'´    i彡ノリリリリリゞミミシ     `ヘ、
       ;メ      ヾリリリリノ巛ゞシ       `ヘ、
      ;メ        ``十≡=十´         `ヘ、


62 :132人目の素数さん:2005/08/16(火) 21:13:28
nyでみつけた
感謝

63 :GiantLeaves ◆6fN.Sojv5w :2005/08/16(火) 22:08:45
talk:>>62 とりあえずPlot関数とIntegrate関数とFactor関数を自作せよの刑。

64 :132人目の素数さん:2005/08/17(水) 02:02:08
Mathematica高すぎだよね

65 :132人目の素数さん:2005/08/17(水) 07:55:51
買う人が限られるからな。

66 :GiantLeaves ◆6fN.Sojv5w :2005/08/17(水) 08:25:25
入学さえすれば無料でMathematicaを使えるケースもある。

67 :132人目の素数さん:2005/08/18(木) 17:33:42
Position[{a, b, c, d, e}, a]

の出力は{{1}}となりますが,1と出力させることはできないのでしょうか?

{{Pos}}=Position[{a, b, c, d, e}, a];
Pos

とすれば一応できますがなんか見苦しいもので。。。

68 :132人目の素数さん:2005/08/18(木) 18:15:19
Position[{a, b, c, d, e}, a][[1, 1]]

69 :132人目の素数さん:2005/08/21(日) 21:49:19
複数の式を1つの関数にまとめたいのですがどうすればよいでしょうか?
f[x_,y_]:=[expr1;expr2;]としてみたのですができませんでした

70 :132人目の素数さん:2005/08/21(日) 22:49:18
>>69
「複数の式を1つの関数にまとめる」の意味がわからないが、
複数の手続きを連続して実行したいなら、

f[x_,y_] := (expr1; expr2;)

71 :132人目の素数さん:2005/08/22(月) 20:47:11
{{1},{2},{3},...,{n}}
のようなリストを
{1,2,3,...,n}
としたいのですがどうすればよいですか?
Joinを使おうとしたのですがnが大きいとすべて列挙するのが難しいので・・

よろしくお願いします

72 :GiantLeaves ◆6fN.Sojv5w :2005/08/22(月) 21:41:33
talk:>>71 Flatとかいう関数が無かった?あるいはPart関数とリストに要素を追加する関数を組み合わせるか。

73 :GiantLeaves ◆6fN.Sojv5w :2005/08/22(月) 21:44:02
talk:>>71 http://documents.wolfram.co.jp/v5/Tour/MathematicaAsAProgrammingLanguage.ja.html

74 :132人目の素数さん:2005/08/23(火) 10:13:35
ありがとうございました

75 :132人目の素数さん:2005/08/25(木) 13:57:06
基本的なことかもしれませんが・・・
x=n(n=const)
のグラフはどのように描けばよいのでしょうか?
Plot[x = 3, {x, 0, 5}]
としてみたのですがエラーが出てy=3が描画されてしまいます

76 :132人目の素数さん:2005/08/26(金) 21:54:12
ParametricPlot[{x=3,y=t},{t,0,5}]
こんな感じで、いかがでしょう?

77 :132人目の素数さん:2005/08/30(火) 19:20:33
うまいね

78 :132人目の素数さん:2005/08/31(水) 00:29:31
age

21 KB
■ このスレッドは過去ログ倉庫に格納されています

★スマホ版★ 掲示板に戻る 全部 前100 次100 最新50

read.cgi ver 05.04.00 2017/10/04 Walang Kapalit ★
FOX ★ DSO(Dynamic Shared Object)