〓 Mathematica 5 〓
■ このスレッドは過去ログ倉庫に格納されています
0001１３２人目の素数さん
2010/10/01(金) 00:11:44, - ' ,..､､.ヾ{{フ'⌒`ヽ､
／ ,:', -‐‐` ´ '´⌒ヽ ヾ:､
. ,' ,'´ ,ィ ,ｨ ,' , ｀ヽ', ',-<
,' .i /|. /.| { i, i, }. }_,,）)
! | ! .,'-.{ ! !|; |`､.}ﾞ!.! |. ! ヽ.
', ', |Vｧ=､ﾞ､ ｀ﾞ､!-_:ﾄ,ﾘ', l ! | ﾞ',
ヽ､', l:!Kノ}. f:_.)iﾞi: ﾘ ! l ル
| l!iヽﾞ- ' , .!__:ﾉ ﾞ ,ﾘ l ﾘ'´
. ',|!!､ r‐┐ ｀ ノ'. /,ｲ ／￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣
'i!ﾞ､ヽ､ ﾞｰ' _, ィ,:',:''´ ＜ Mathematica に関する話題はここに書いてね！
ﾞ:､ｨ､jヾｰ::: 'iﾍ .ノ',ﾘ. ＼＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿
,､- '´ ヽ､ﾞ､ { ｀＞"､
/＼＼ ', } //｀ヽ
Mathematica 8が間もなくリリース
＊統計：市場で最も広範囲の統計分布とデータ可視化機能
＊ソフトウェア開発：組込みのGPUプログラミングサポート，高性能
Cコード生成，SymbolicCサポートおよび拡張された並列処理
＊工学および研究開発：統合された制御系とウェーブレット関数
＊金融：組込みのオプション価格付けソルバ，財務指標とグラフ
＊画像処理：特徴検出を含む拡張された画像解析機能
0097１３２人目の素数さん
2010/11/08(月) 18:22:03(1-√3)x>3 解け。
0098１３２人目の素数さん
2010/11/09(火) 13:12:09a=x/.%[[1]]
a=(3+y)/(1 - 3^(1/2))
D[a,y]<0
x< a/.y->0
x< 3/(1-3^(1/2))
0099１３２人目の素数さん
2010/11/09(火) 21:43:22そうなんです．
そこを無理やり計算してもらうために，自分で関数を作るしかないのかと思いまして．
>>90
なんとか解決いたしました．
「積分区間が同じものをまとめて」，Simplify[%]すればいけました．
「積分区間が同じものをまとめて」という操作をどうすればいいのか，検索してみたところ，
このような記述がありました．
ttp://oshiete.goo.ne.jp/qa/6303337.html
0100１３２人目の素数さん
2010/11/10(水) 02:22:42組み込みが強力であるのが望ましいだけのこと
0101１３２人目の素数さん
2010/11/10(水) 04:04:010102１３２人目の素数さん
2010/11/10(水) 08:15:260103１３２人目の素数さん
2010/11/10(水) 08:33:04→シリアルだけメモしてVMバックアップに戻す→ウマー
0104不等式 難問
2010/11/11(木) 23:36:19α(β-1)(β-α)≧2
β(α-1)(α-β)≦4
この二つをともに満たす α、βをもとめよ。
0105１３２人目の素数さん
2010/11/12(金) 18:18:47あほう
0106猫は幻獣¬(･ω･¬) ◆MuKUnGPXAY
2010/11/12(金) 18:23:40猫
0107１３２人目の素数さん
2010/11/14(日) 18:11:52英語版が11月上旬で日本語版が12月上旬って言ってたぞ
0108１３２人目の素数さん
2010/11/14(日) 20:50:240109１３２人目の素数さん
2010/11/14(日) 22:42:12それとも予算消化を心配してる？
0110１３２人目の素数さん
2010/11/15(月) 09:04:16"CDImage M-MULT-L 8.0.0 1805734. Approved for final." There's a new
Mathematica on the way, and it's big...
0111１３２人目の素数さん
2010/11/16(火) 01:15:05見られなくなってるんだけどわたしだけ？
昨日までは見れたんだけど・・・
0112猫は馬鹿釣り ◆MuKUnGPXAY
2010/11/16(火) 01:19:300113熊はバカ猫が大嫌い ◆fNAeHj7ZSs
2010/11/16(火) 02:52:47はよ死ね
熊
0114猫はチョンチョン ◆MuKUnGPXAY
2010/11/16(火) 03:08:47猫
0115１３２人目の素数さん
2010/11/16(火) 05:21:52http://blog.wolfram.com/2010/11/15/mathematica-8/
Mathematica 8 is released today! It’s a huge and important release. With dramatic
breakthroughs?and major broadening of the whole scope of Mathematica.
0116１３２人目の素数さん
2010/11/16(火) 19:10:050117１３２人目の素数さん
2010/11/19(金) 21:46:35上旬か下旬かといえばギリギリ上旬だな。
許してやるか。適切には中旬だが。
日本語版の12月上旬という情報も、
英語版＋1ヶ月と考えて、15日あたりの中旬だろう。
011859
2010/11/19(金) 23:50:590119１３２人目の素数さん
2010/11/20(土) 18:09:05パラメタを取り出そうと思ってます。
mathematicaを使うのは初めてで色々調べながら進めていたのですが、
Needs["Statistics`NonlinearFit`"];
g = a*Exp[-((x - b)/c)^2] + d;
result=NonlinearFit[data, g, x, {a, b, c, d}];
Plot[result, {x, -10, 10}];
このような例に対して、データの所にｃｓｖファイルを入れたところ
恐らくですがベクトル表記になっていないためのミス と警告されました。
ｃｓｖファイルを（１、ｃｓｖの最初の値）、（２、ｃｓｖの二番目の値）・・・
のように表示するような方法はありますか？
また、今扱ってるｃｓｖファイルはデータが数千から二万程のデータ数を持っていて、
データを表示するだけでかなり時間がかかっていたのですが
パラメタを取り出すにあたってmathematicaは適当なものなのでしょうか？
これまでエクセルのマクロとVBAをある程度触っただけなので戸惑っています。
くだらない質問かもしれず申し訳ありませんが、ぜひよろしくお願いします。
0120１３２人目の素数さん
2010/11/20(土) 18:52:00話はそれからだ
0121１３２人目の素数さん
2010/11/20(土) 19:50:19例えば
list={a,b,c,d,e,f,g,h,i,j}
に対して
{{a,b},{a,c},{a,d},…,{i,j}}
を返す（要素数はC(10,2)=45）
0122１３２人目の素数さん
2010/11/20(土) 20:57:00返信ありがとうございます。
ただ単にdataのところにかわりに
c:\\example\\01.csv
みたいにいれただけだったのですが…
場所の書き方が間違ってるのかと思い、その後
!!''c:\\example\\01.csv''
とすると、全てのデータがコンマで区切られた形で連続に出てきたので書き方は間違ってないと考えたのですが…
0123１３２人目の素数さん
2010/11/20(土) 21:28:13Permutations[{a, b, c, d, e, f, g, h, i, j}, {2}]
して、
Select[%, OrderedQ]
で取り出す、とかどう？
0124１３２人目の素数さん
2010/11/21(日) 06:28:25>>121じゃないけど、勉強になった。ありがとう。
0125１３２人目の素数さん
2010/11/21(日) 17:46:44いきなりcsvたべさせたら腹こわすじゃろ...
data=Import["file","csv"]
で呼び込んだとき、
{{data1,data2,data3,...}}
の場合は、
MapIndexed[{#2[[1]], #1} &, Flatten[data]]
で、
{{1,data1},{2,data2},{3,data3},...}
となります。
0126１３２人目の素数さん
2010/11/21(日) 18:48:31>>リストの中から2個とる組合せを返す組込み関数ってある？
単純には、
Subsets[{a, b, c, d, e, f, g, h, i, j}, {2}]
かな...
% // Length ->45
0127１３２人目の素数さん
2010/11/21(日) 20:17:47おれも１２１じゃないけど、勉強になった。ありがとう。
0128１３２人目の素数さん
2010/11/21(日) 21:35:08>Assuming[{a, l} ∈ Reals && 0 < a < l,
>Integrate[f[x]*DiracDelta[x - a] + g[x], {x, 0, l}]]
>実行結果が
>f[a]+Integrate[g[x], {x, 0, l}]]
>のようになってほしいのですが…
単純にThreadで、分配側を実行すればよろしある
Assuming[{a, l} ∈ Reals && 0 < a < l,
Thread[Integrate[f[x]*DiracDelta[x - a] + g[x], {x, 0, l}], Plus]]
0129１３２人目の素数さん
2010/11/22(月) 14:43:55>>123の方法だが、一般に
「欲しいデータを含むデータを用意して、そこからフィルタリング」
というのは計算速度を落とすので好ましくない（少なくとも俺は好きではない）
あと、OrderedQでのフィルタリングも一般性が無さそう
俺がSubsetsの存在を知るまでに書いてたコード
list = {a, b, c, d, e, f, g, h, i, j}
n = Length[list]
index = Join @@ Table[{i, j}, {i, 1, n - 1}, {j, i + 1, n}]
list[[#]] & /@ index
この方法を拡張すれば一般に
「n個の要素を含むリストからr個とった組合せを返す関数」
は容易に作れるけど、これだけ基本的な機能なんだから
組込み関数にあるはずだと思ってたんだよね。でも見つからなかった。
>>126ナイス！
がんばって自作コードを書いても、
既に組込み関数として存在してるってことがよくあるから
みんなも気をつけような
0130１３２人目の素数さん
2010/11/22(月) 15:19:530131１３２人目の素数さん
2010/11/22(月) 16:02:15`*｡ *･
☆*:｡.*:｡.：.｡*ﾟ
┃ `*｡セックル
∧∧ ∩ ｡:*ﾟ バカは猫に因数分解されてね.｡*ﾟ
* '``・*..．。.(*ﾟーﾟ) /｡*・
ﾟ*:｡:**｡⊂:｡.*:｡)．。．:｡. *
と ) ノ ｡..｡.+ﾟ
｡:*ﾟ*｡し'+｡*・ ﾟ
0132猫は口先だけ ◆MuKUnGPXAY
2010/11/22(月) 17:08:28猫
0133１３２人目の素数さん
2010/11/22(月) 21:02:530134１３２人目の素数さん
2010/11/22(月) 21:43:37引数の扱いを説明してください
0135１３２人目の素数さん
2010/11/23(火) 21:19:170136１３２人目の素数さん
2010/11/23(火) 21:43:11は万能
なんでもできる
0137Fランク受験生
2010/11/23(火) 23:52:38Subsets か?
むかし 組み合わせでみたけど
Subsets[l_list]:=GrayCode[l]
Subsets[n_Integer]:=GrayCode[Range[n]]
かな
いまは新しいのあるの？
0138１３２人目の素数さん
2010/11/24(水) 02:55:050139１３２人目の素数さん
2010/11/24(水) 15:47:330140１３２人目の素数さん
2010/11/24(水) 15:48:31(x,y)->0
的な意味で
0141１３２人目の素数さん
2010/11/24(水) 15:56:14(x,y)->(0,0)ね（０じゃなくてもいいけど）
0142１３２人目の素数さん
2010/11/24(水) 16:36:04x->0 y->0
lim lim f(x,y)
y->0 z->0
0143１３２人目の素数さん
2010/11/25(木) 18:50:07Limit[f[a t,b t],t->0]
でa,bをいろいろ変えるしかないんじゃないか？
0144１３２人目の素数さん
2010/11/25(木) 20:19:16違うからね。
0145１３２人目の素数さん
2010/11/26(金) 16:45:360146１３２人目の素数さん
2010/11/26(金) 19:27:22Limit[f[a t,b t],t->0]
したらどう？
0147１３２人目の素数さん
2010/11/26(金) 20:20:17>>144のいってるのは、初等関数でもある。
0148１３２人目の素数さん
2010/11/27(土) 10:13:06limx→0, y→0 (x y^n)/(x^2 + y^2n) は, y^n = a x (a: const) に沿って
x→0 とする時 (x y^n)/(x^2 + y^2n) = a/(1 + a^2) となるので, 不定で
ある。
0149１３２人目の素数さん
2010/11/27(土) 19:37:58どうしてわざわざ複雑にするわけ？
教科書にのってたやつをそのまま書いたのか？
0150１３２人目の素数さん
2010/11/27(土) 22:57:040151１３２人目の素数さん
2010/11/30(火) 19:12:57ttp://rikunabi-next.yahoo.co.jp/tech/docs/ct_s04100.jsp?p=google_q2
まずは正解を見ずに自分でトライしてもらいたい。
1時間考えても分からないという人は正解を見てみよう。
正解を見ても意味が分からないという人は↓の書き込みを見て見よう（考え中の人は↓を見ないように！）。
0152１３２人目の素数さん
2010/11/30(火) 19:37:33問題文をコピーして「Google暗号.txt」として適当なフォルダに保存する。
同じフォルダにノートブックを作成する（Google暗号.nb）。
警告がウザイのでスペルチェックをオフにする
Off[General::spell]
Off[General::spell1]
SetDirectory[NotebookDirectory[]]
text=Import["Google暗号.txt",CharacterEncoding->"ShiftJIS"]
これでtextに暗号文が入る
0153１３２人目の素数さん
2010/11/30(火) 19:47:14文字列は何かと扱いづらいので文字のリストにする
characters=Characters[text]
Length[characters]
全部で637文字あることがわかる
tally=Tally[characters]
Length[tally]
全部で45種類の文字から構成されてることがわかる
このことから実態はアルファベットの換字暗号であろうと推測する
BarChart[tally[[All,2]],CharLabels->tally[[All,1]]]
ヒストグラム
sortedTally=Sort[tally,OrderedQ[{#1[[2]],#2[[2]]}]&]
度数でソート
最頻度の「し」はスペースであろうと推測する
0154１３２人目の素数さん
2010/11/30(火) 20:14:12・改行は2、つまり暗号文は3行からなっている
・3行目は異様に長い
→最初の2行にこの暗号を解く鍵があるに違いない
最初の2行に注目してみると
・行頭がともに「選」である
・「選」はこれ以外に出てこない（トータル2）
→「選」は「#」でこの2行はプリプロセッサを表してるんじゃないか！？と推測する
こう考えると3行目が長い理由も説明がつく（プログラム本体）
プリプロセッサ：改行必要
プログラム本体：改行不要
この一番の難所を越えればあとは簡単！
1行目のプリプロセッサといったらこれしかない！！→「#include <stdio.h>」
まずはこの変換からスタートする
StringReplace[text,{"選"->"#","す"->"i","。"->"n","良"->"c","さ"->"l","票"->"u","出"->"d","れ"->"e",
"し"->" ","上"->"<","込"->"s","ま"->"t","索"->"o","引"->".","き"->"h","か"->">"}]
ここから先は出力文の前後関係から新たに変換規則を追加するという作業を繰り返していく。
以上。
0155１３２人目の素数さん
2010/11/30(火) 20:18:48面白いね。
C言語やそういう使い方を知らないので、時間のある時に勉強してみるよ。
0156１３２人目の素数さん
2010/11/30(火) 20:27:52C言語を経由せずにMathematica使ってんだ〜
数学科かな！？
まぁC言語は勉強しといて絶対に損はないよ！！
俺が一番最初に勉強した言語はC言語だった。
C言語がわかれば大体の言語がわかるようになる。
0157１３２人目の素数さん
2010/11/30(火) 20:52:560158155
2010/11/30(火) 20:57:34大昔にBASICやPascalを勉強したよ。
Mathematicaはいくつかデモンストレーションを載せてもらってる。
プログラムしたいことができたら、
デモを見回って近い内容のソースを見て真似して作ってる。
0159１３２人目の素数さん
2010/12/01(水) 05:07:00a/Sequence[a,b,c,d,e]
は
a^(1+b^c^d^(1/e))
になるん？
0160１３２人目の素数さん
2010/12/01(水) 14:23:02a/Sequence[a,b,c,d,e] -> Times[a,Power[Sequence[a, b, c, d, e],-1]]
->Times[a,Power[a, b, c, d, e,-1]] -> a^(1+b^c^d^(1/e))
0161１３２人目の素数さん
2010/12/01(水) 19:12:49ttp://www.aoky.net/articles/stephen_wolfram/computing_a_theory_of_everything.htm
0162１３２人目の素数さん
2010/12/04(土) 12:14:570163１３２人目の素数さん
2010/12/08(水) 17:56:38dat = {{0, 1}, {2, 3}};
Show[ListPlot[dat], Graphics[BezierCurve[dat]]]
だとちゃんと表示されますが
Needs["PlotLegends`"]
Show[ListPlot[dat, PlotLegend->{"hoge"}], Graphics[BezierCurve[dat]]]
と，凡例を入れるとちゃんと表示されません
どうしましょう？
0164１３２人目の素数さん
2010/12/09(木) 17:58:090165１３２人目の素数さん
2010/12/09(木) 20:51:56大学院生ならそのまま使えると思いますよ
0166１３２人目の素数さん
2010/12/10(金) 00:43:49ライセンスをsutudent版からプロフェッショナルにアップグレードするとしたとして
そのライセンスを別のパソコンで使えますか？
0167１３２人目の素数さん
2010/12/10(金) 03:02:18別PCにかえる場合は、所定のフォーマットにて、申請
すれば可能です(詳細は、代理店にご確認ください)。
なお、Warez関係の書き込みは禁止な！
0168１３２人目の素数さん
2010/12/10(金) 03:39:46>プロフェッショナルにアップグレード
20万円くらいするのかなあ?
0169１３２人目の素数さん
2010/12/10(金) 03:51:041年以内のsutudent版からのアップグレードはもっと安いんじゃなかったけ？
思ったんだが、sutudent版入れたまま卒業すると自動的に使えなくなるのかな？
0170猫は基地外 ◆ghclfYsc82
2010/12/10(金) 05:21:160171１３２人目の素数さん
2010/12/10(金) 10:51:450172１３２人目の素数さん
2010/12/10(金) 11:52:33先進国の大学教授なら２９５ドルのhome editionが買えるじゃろ？
0173１３２人目の素数さん
2010/12/10(金) 22:28:55常時ネットに接続してるわけじゃないから大丈夫じゃない？
0174１３２人目の素数さん
2010/12/11(土) 17:25:10func[p_ : 0.75]="関数の定義"
があるのですが、0.75は何を意味するのですか？
引数は可変なのでこの0.75は書かなくても良いのですか？
0175１３２人目の素数さん
2010/12/11(土) 17:53:180.75はpのデフォルト値です。
func[p_:0.75] := f[p]
func[pp] -> f[pp]
func[] -> f[0.75]
0176１３２人目の素数さん
2010/12/12(日) 01:26:390177１３２人目の素数さん
2010/12/12(日) 03:21:48機能制限というか、日本ではHome Edition単体の販売はなく、
プレミア版のおまけのうえ、日本版はプレミア期間タイマー
が作動します。
またVer.8宣伝の機能の中には、Wolfram|Alphaとの接続が
必要のようですね。
0178１３２人目の素数さん
2010/12/12(日) 09:02:15ありがとうございます
でも、ごめんなさいよく分からないです・・・・
とにかく日本で販売はしてないのですね
0179１３２人目の素数さん
2010/12/13(月) 13:13:13機能制限はないはず。個人的使用制限があって、３２ビット版らしいが。
しかし日本での販売は無いってさ、今時ダウンロード販売なんて簡単な事なのにね。
0180１３２人目の素数さん
2010/12/14(火) 02:25:16それぢゃ〜
日本国代理店様があま〜い汁を掠めとれないじゃ
ないですかｗ
しかし、以前は西欧にはMathematicaのバンドル
PCがごろごろしてた様ですが、いまこの国では
Home Editionも本来の形では販売されません。
つか、ほんまダウンロード販売か直販しろ(泣
0181１３２人目の素数さん
2010/12/14(火) 09:20:54ユーザーが少ないのをいいことに、代理店は舐めてんのか？
腹が立つから公正取引委員会あたりにちくったろかな。
0182１３２人目の素数さん
2010/12/14(火) 11:16:510183１３２人目の素数さん
2010/12/14(火) 16:17:27ダウンロードだった
ので販売は可能なはず
0184１３２人目の素数さん
2010/12/14(火) 17:58:50大体、使用期間限定版はフルスペック（セーブできないが）でダウンロードだし。
あきらかに意図的に邪魔をしている奴がいる。
ちくれば、独占禁止法違反でたたけるに違いない。
0185１３２人目の素数さん
2010/12/14(火) 19:22:440186１３２人目の素数さん
2010/12/14(火) 19:28:13プレミアサービスに加入していると無料
0187１３２人目の素数さん
2010/12/14(火) 19:41:57まじか・・・
もし、studentの時ver7でproにアップグレードする際に8が出てたらver8にアップグレードできたの？
0188１３２人目の素数さん
2010/12/14(火) 22:31:33無料だったっけ
0189１３２人目の素数さん
2010/12/15(水) 05:50:52http://www.rsi.co.jp/kagaku/ip/Mathematica/index.html
0190１３２人目の素数さん
2010/12/15(水) 12:23:560191１３２人目の素数さん
2010/12/15(水) 16:04:210192１３２人目の素数さん
2010/12/15(水) 16:38:500193１３２人目の素数さん
2010/12/15(水) 16:58:440194１３２人目の素数さん
2010/12/15(水) 18:17:330195１３２人目の素数さん
2010/12/15(水) 18:18:14>student使ってる人はproにするのに2万かかって
２万円でProにできるんか
えらい安いな
0196１３２人目の素数さん
2010/12/15(水) 22:36:30無理、それができたら、もはや乱数でない。
４つ発生させて、２番目に指定値をいれる。
■ このスレッドは過去ログ倉庫に格納されています