〓 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/ 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キーのみで評価開始しちゃうときがあるんだけど、
これを止める方法誰かおしえてー plotArealElement[r_, phi_, dr_, dphi_] := Module[
{g1, g2, x, y, u, v, plr},
g1 = ParametricPlot[s {Cos[phi], Sin[phi]}, {s, r, r + dr}, {psi, phi, phi + dphi}];
u = r {Cos[phi], Sin[phi]};
v = r {Cos[phi + dphi], Sin[phi + dphi]};
x = v - u;
v = (r + dr) {Cos[phi], Sin[phi]};
y = v - u;
plr = Options[g1, PlotRange];
g2 = ParametricPlot[s x + t y, {s, 0, 1}, {t, 0, 1}, plr];
Show[g1, g2]
] >>744
g1とg2を同じPlotRangeで描きたいと思い、↑のコードを書きましたが、
エラーが出てしまいます。
どうすればいいでしょうか？ >>745
g2 = ParametricPlot[s x + t y, {s, 0, 1}, {t, 0, 1}, plr];
↓
g2 = ParametricPlot[s x + t y, {s, 0, 1}, {t, 0, 1}];
で動作確認したら 例えば、
Subscript[x, 1]
を変数として使いたいのですが、
別のところで、
x = 3
などとやるとエラーが出ます。
どうすればいいでしょうか？ 私の環境では問題なく使えますが、、。
例えば
Subscript[x, 1]=123
とすれば
Subscript[x, 1]
は123を返してきます。
しかし、ただのxで参照したら別の変数でしょう？ あ、
f[a]=321
とすれば
f[a]
は321を返すんだから説明になってなかったですね。
でも
x_1(ここでは表現が難しい、、）は123を返してきます。 なぜ以下の関数は引数のリストの要素の和を計算するのでしょうか？
sumList[lis_]:=First[lis//.{x_, y___} -> x + {y}] >>750
sumListの右辺で最初にx+{y}が計算されて{x+y}となるみたいだ。
yはSequenceが入る。
例えば
x+Sequence[a,b,c]は
x+a+b+c
となるようだからlistの要素の総和になる。 3 + {Sequence[1, 2]}
を計算すると、
{4, 5}
になりました。 >>751
>sumListの右辺で最初にx+{y}が計算されて{x+y}となるみたいだ。
これはなぜなのでしょうか？ {x,y,z,w}//.{x_, y___} -> x + {y}]
.....{x+y+{z,w}}---> x+y+z+w >>753
https://reference.wolfram.com/language/ref/Rule.html
によればRule“->”の右辺は即事に評価すると書いてあるから、
x+{y}はx,yに代入される前に評価されて{x+y}になり
そのあと代入されて、計算が続くということだろう。 Poor man's Mathematica used on Raspberry Pi FindEquationalProof
いつの間にか定理の自動証明ができるレベルになってたんですね
群の証明なんかが自動的にできてて驚いた 金持ちの数学者＞＞＞＞＞＞＞＞＞。。。。。＞＞＞貧乏人の数学者＞＞＞＞＞２ｃｈの数学者 なんか久しぶりに数学勉強したくなってきた。
高校1年生の2次関数勉強中。サポートよろ！ ｈttp://tvcap.info/2019/2/5/n2i9190205-2243560390.jpg
ｈttp://tvcap.info/2019/2/5/n2i9190205-2244010380.jpg
ｈttp://tvcap.info/2019/2/5/n2i9190205-2244040827.jpg
ｈttp://tvcap.info/2019/2/5/n2i9190205-2244240232.jpg
ｈttp://tvcap.info/2019/2/5/n2i9190205-2244110703.jpg
ｈttp://tvcap.info/2019/2/5/n2i9190205-2244390628.jpg
ｈttp://tvcap.info/2019/2/5/n2i9190205-2244540005.jpg
ｈttp://tvcap.info/2019/2/5/n2i9190205-2245000222.jpg
ｈttp://tvcap.info/2019/2/5/n2i9190205-2245040254.jpg
ｈttp://tvcap.info/2019/2/5/n2i9190205-2245180265.jpg
ｈttp://tvcap.info/2019/2/5/n2i9190205-2245250755.jpg
ｈttp://tvcap.info/2019/2/5/n2i9190205-2245300342.jpg 【超悪質！盗聴盗撮・つきまとい嫌がらせ犯罪者の実名と住所を公開】
①井口・千明（東京都葛飾区青戸６－２３－１６）
※盗聴盗撮・嫌がらせつきまとい犯罪者のリーダー的存在／犯罪組織の一員で様々な犯罪行為に手を染めている
低学歴で醜いほどの学歴コンプレックスの塊／超変態で食糞愛好家である／醜悪で不気味な顔つきが特徴的である
②宇野壽倫（東京都葛飾区青戸６－２３－２１ハイツニュー青戸２０２）
※色黒で醜く太っている醜悪黒豚宇野壽倫／低学歴で人間性が醜いだけでなく今後の人生でもう二度と女とセックスをすることができないほど容姿が醜悪である
③色川高志（東京都葛飾区青戸６－２３－２１ハイツニュー青戸１０３）
※色川高志はyoutubeの視聴回数を勝手に短時間に何百何千時には何万回と増やしたり高評価・低評価の数字を一人でいくつも増やしたり減らしたりなどの
youtubeの正常な運営を脅かし信頼性を損なわせるような犯罪的業務妨害行為を行っています
※色川高志は現在、生活保護を不正に受給している犯罪者です／どんどん警察や役所に通報・密告してやってください
【通報先】
◎葛飾区福祉事務所（西生活課）
〒１２４－８５５５
東京都葛飾区立石５－１３－１
℡０３－３６９５－１１１１
④清水（東京都葛飾区青戸６－２３－１９）
※低学歴脱糞老女：清水婆婆 ☆☆低学歴脱糞老女・清水婆婆は高学歴家系を一方的に憎悪している☆☆
清水婆婆はコンプレックスの塊でとにかく底意地が悪い／醜悪な形相で嫌がらせを楽しんでいるまさに悪魔のような老婆である
⑤高添・沼田（東京都葛飾区青戸６－２６－６）
※犯罪首謀者井口・千明の子分／いつも逆らえずに言いなりになっている金魚のフン／親子孫一族そろって低能
⑥高橋（東京都葛飾区青戸６－２３－２３）
※高橋母は夫婦の夜の営み亀甲縛り食い込み緊縛プレイの最中に高橋親父にどさくさに紛れて首を絞められて殺されそうになったことがある
⑦長木義明（東京都葛飾区青戸６－２３－２０） ※日曜日になると風俗店に行っている Mathematicaは手続き型ではなく関数型でコードを書いたほうが高速化するらしいけど、並列計算させたいとき
関数型で書けばうまくいきますかね？ そうだよ。関数型で書いて最後に //Parallelize を付けるだけで分散処理してくれる。 最後に //Parallelize を付けるだけ
ってのはMathematicaじゃないような気もするけど gridのこと？
自マシンのマルチコアプロセッサー利用なら何もいらない
正規ライセンスあればLightweight Gridも利用できる これはマセマティカがタダになったという理解でいいの？ >>777
入力はキャラクタベースのTexでやるってこと？ Potential[x_] = 0.5*k*x^2;
Threshold[n_] = 10*n;
If[Potential[x] >= threshold[n],
Force[x_, v_] := -k*x-G*v;];
のように、条件にあった時だけIf文内を実行したいのですが、If文の条件判定がうまく機能していないようです。
条件分に変数のある関数が入っていたらまずいのでしょうか。
下のように、条件文の前で関数の値を置き直せば問題ないのでしょうか。
こうすると動くようになったと思いますが、実際のものは煩雑でして正しく動作しているのか分かりません…。
よろしくお願い致します。
Potential[x_] = 0.5*k*x^2;
Threshold[n_] = 10*n;
Potential_value = Potential[x_];
Threshold_value = Threshold[n_];
If[Potential_value >= Threshold_value,
Force[x_, v_] := -k*x-G*v;]; >>782
>If[Potential[x] >= threshold[n],
>Force[x_, v_] := -k*x-G*v;];
よくわからないけど、If文の条件が実際に評価されるときに(x,nに）値が入ってるんですか？そうでないと関数Fは未定義のままですよね？
それとThresholdはMathematica自身の関数として定義済みでは？
それと、Potential_value =と_valueをつけると変数にセットできないんじゃありませんか？私の使ってるバージョンではできません。 x、nに値は入っています。
初心者でトンチンカンな事を聞いてるみたいですみません。
>それとThresholdはMathematica自身の関数として定義済みでは？
これ、そもそも○○[x_]などと定義するのが間違ってるって事でしょうか？
xに値が入るなら○○[x_]と定義する必要がない、と。
>それと、Potential_value =と_valueをつけると変数にセットできないんじゃありませんか？私の使ってるバージョンではできません
たしかにできないみたいです。
すみません。
x,nをループで回して、
Potential = 0.5*k*x^2;
Threshold = 10*n;
If[Potential >= threshold,
Force[v_] := -k*x-G*v;];
というようにすればいいのですかね。 ループの中で
Force[v_] := -k*x-G*v;
と何度も定義し直すのは何か意図があるのですか？
素直にループの外で
Force[v_]:=If[ 0.5 k x^2>=10 n, -k x-G v ,必要なら何か定義...]
と定義しておくのはダメなのですか？ >>784
Mathematicaの入門書を読むことをお勧めします。 条件変えるループの中で定義したいんです
皆さんどうされてるんでしょう
本読み直します ヒントになるかわかりませんが、
関数の引数に関数を与えることもできます。 どこのがっこんだよ
くだらんものをだすな 資源の浪費だ >>792
あ、スマホでは出ないんだな。PCで見てくれ Clear[p,q];
Sum[If[q == p, q, 0], {q, 1, 3}] /. p -> 2
の結果として 2 になること期待したんだけれど，
qが返ってきてしまった…
なして？ If[1 == p, q, 0] + If[2 == p, q, 0] + If[3 == p, q, 0] /. p -> 2
だから q だろうね。
Sum[If[q == p, q, 0] /. p -> 2, {q, 1, 3}]
だと２だよ。 ■ このスレッドは過去ログ倉庫に格納されています
