〓 Mathematica 七 〓 [転載禁止]©2ch.net
■ このスレッドは過去ログ倉庫に格納されています
_....._{{ 〃
, - ' ,..､､.ヾ{{フ'⌒`ヽ､
／ ,:', -‐‐` ´ '´⌒ヽ ヾ:､
. ,' ,'´ ,ィ ,ｨ ,' , ｀ヽ', ',-<
,' .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/
〓 Mathematica 3 〓
http://science6.2ch.net/test/read.cgi/math/1121413040/
〓 Mathematica 四 〓
http://kamome.2ch.net/test/read.cgi/math/1197270001/ (鯖飛びでログ消滅)
http://mimizun.com/log/2ch/math/1197270001/
〓 Mathematica 5 〓
http://kamome.2ch.net/test/read.cgi/math/1285859504/
〓 Mathematica 伍 〓 (実質6)
http://wc2014.2ch.net/test/read.cgi/math/1320969748/ >>640
そこでComplexExpandですよ。 例えば、第 i 要素が、関数 x → x^i であるようなリストはどう作ればいいのでしょうか？ FF[x_] :=Array[ff[x],{5}]
ff[x_][i_]:= x^i
FF[y] --->{y,y^2.y^3.y^4,y^5} 購入ページで，住所の入力が必要でしたが，何か郵便物が届く事があるんですか？
あれはDVDかなんかの物理媒体を注文した人の為のものですか？ >>686
たとえば他人に譲渡に関して不正をしたら、
訴えることもできるよね。
購入者を知ることはなんにせよ基本だと思うけど。 mathematicaも過疎ったソフトになってしまったのですか？ >>687
何か届くとかいうことじゃない、ということでオッケーですか？
今日購入したんですが、マンション名と部屋番号を書き忘れてしまって… マンション名と部屋番号を追加するには
メールで連絡するしかないでしょうか？
そんなもんは別に放っておいてもいいんですか？
どなたかレスください 多変数のテイラー多項式を計算するプログラムの例を以下に書いてください↓ 微分演算子の計算って直接サポートされていないんですか？ (x + y + z)^3 の CoefficientList の情報を利用するとかいう方法がすぐに思いつきますが。。。 (x*∂/∂x + y*∂/∂y + z*∂/∂z)^3 の場合。 たとえば、
l = {{1, 2}, {3, 4}}
というリストと
i = {1, 2}
というリストがあったときに、
l[[1, 2]]
の値を取り出すのに、 i を使って取り出す方法はありますか？ 関数を入力すると入力した関数がとる引数の個数を返すような関数はどうやって作ればいいのでしょうか？ Position[{{1,2},{3,4}},{1,2}] f[x_, y_] := x * y;
g[x_, y_, z_] = x * y * z;
である場合、
argumentCount[f] == 2
argumentCount[g] == 3
となるような関数 argumentCount を作りたいです。 g[x_, y_, z_]
を
Derivative[1, 2, 3][g]
と偏微分するのと同じ結果を
l == {1, 2, 3}
が与えられたときに l を使って計算したいのですが、どうすればいいですか？ ID:ZWYA7jci
ID: mmuQWU7a
基地外臭いｗ >>691
一応できたんですが、
多変数の多項式を次数の昇順に並び替えるにはどうすればいいのでしょうか？ x^0 * y^0 < x^1 * y^0 < x^0 * y^1 < x^2 * y^0 < x^1 * y^1 < x^0 * y^2
という順序で並べ替えたいです。 単項式のリストの形ではソートできたのですが、
多項式の形でそれを構成する単項式の表示順序を変更する方法はありますか？ Mathematica で松坂和夫著『解析入門3』の p.162 問題14.2.10 を解かせてみました。
多変数の Taylor 多項式の計算です。
https://i.imgur.com/ceMoL4L.jpg 綺麗でなくスマートでもないが,いそいでいるので
sss = Table[{RandomInteger[{0, 2}], RandomInteger[{0, 2}]}, {10}] （＊例＊）
sr = Flatten[Table[{i, # - 1} & /@ Range[(i + j - 1)], {i, 0, 3}], 1]；
Table[Position[sss, sr[[j]]], {j, 1, sr // Length}]//Union
Flatten[%,2]
sr[[%]] b^2/a^4 を (b/a^2)^2 に変形するみたいなのってどういうコマンド使えば良いんだろ？ 数値最小化で
NMinimize[目的関数、制約条件]、変数]
というとき、たとえば制約条件がλ_1＞0、λ_2＞0、・・・、λ_100＞0のとき、
λ_k＞0,{k,1,100}と表したいのですが、うまくいきません。
制約条件の数が少なければλ_1＞0、λ_2＞0、・・・でよいですが、
1個ずつ入れるには多すぎるのです。
ご教示の程よろしくお願いいたします。 自己解決したでござるよ
Tableを使って
Table[λ_k, k] >= 0, {k, 1, 100}]}
でござるな {(a : Blank[1]) > 0, (a : Blank[2]) > 0, (a : Blank[3]) >
0, (a : Blank[4]) > 0, (a : Blank[5]) > 0, (a : Blank[6]) >
0, (a : Blank[7]) > 0, (a : Blank[8]) > 0, (a : Blank[9]) >
0, (a : Blank[10]) > 0} Sum[λ_k,{k,1,10}]=15
λ_k は自然数とする。
このとき解の個数を求めよ >>727
Flatten[Permutations /@ IntegerPartitions[15, {10}], 1] // Length
-> 2002
かな。 >>728
素晴らしいですね。
わたしは頭を使うのが苦手で
n100 = 10; A = Array[a, {n100}];
Solve[({(A // Total) == 15, Table[a[ll] > 0, {ll, 1, n100}]}) //
Flatten, A, Integers] // Length
でやりました。
貴君のほうが早く答えが出ますね。
ありがとうございました。 Enterキーのみで評価開始しちゃうときがあるんだけど、
これを止める方法誰かおしえてー ■ このスレッドは過去ログ倉庫に格納されています
