〓 Mathematica 七 〓 [転載禁止]©2ch.net
レス数が1000を超えています。これ以上書き込みはできません。
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}]}
でござるな
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}
λ_k は自然数とする。
このとき解の個数を求めよ
Flatten[Permutations /@ IntegerPartitions[15, {10}], 1] // Length
-> 2002
かな。
素晴らしいですね。
わたしは頭を使うのが苦手で
n100 = 10; A = Array[a, {n100}];
Solve[({(A // Total) == 15, Table[a[ll] > 0, {ll, 1, n100}]}) //
Flatten, A, Integers] // Length
でやりました。
貴君のほうが早く答えが出ますね。
ありがとうございました。
これを止める方法誰かおしえてー
シフトキー周りをエアダスターで掃除
掃除したけどダメでしたぁッ
{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]
]
g1とg2を同じPlotRangeで描きたいと思い、↑のコードを書きましたが、
エラーが出てしまいます。
どうすればいいでしょうか？
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}]
sumListの右辺で最初にx+{y}が計算されて{x+y}となるみたいだ。
yはSequenceが入る。
例えば
x+Sequence[a,b,c]は
x+a+b+c
となるようだからlistの要素の総和になる。
を計算すると、
{4, 5}
になりました。
>sumListの右辺で最初にx+{y}が計算されて{x+y}となるみたいだ。
これはなぜなのでしょうか？
.....{x+y+{z,w}}---> x+y+z+w
https://reference.wolfram.com/language/ref/Rule.html
によればRule“->”の右辺は即事に評価すると書いてあるから、
x+{y}はx,yに代入される前に評価されて{x+y}になり
そのあと代入されて、計算が続くということだろう。
いつの間にか定理の自動証明ができるレベルになってたんですね
群の証明なんかが自動的にできてて驚いた
高校1年生の2次関数勉強中。サポートよろ！
ｈ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じゃないような気もするけど
自マシンのマルチコアプロセッサー利用なら何もいらない
正規ライセンスあればLightweight Gridも利用できる
https://github.com/WolframResearch/WolframLanguageForJupyter
でnotebook代替もできるぞ！
https://twitter.com/5chan_nel (5ch newer account)
TeXアウトプットもできる
入力はキャラクタベースのTexでやるってこと？
出尽くしってことだろうね
ふうL@Fu_L12345654321
学コン1傑いただきました！
とても嬉しいです！
https://pbs.twimg.com/media/D-IuUuqVUAALnAB.jpg
https://twitter.com/Fu_L12345654321/status/1144528199654633477
https://twitter.com/5chan_nel (5ch newer account)
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;];
>If[Potential[x] >= threshold[n],
>Force[x_, v_] := -k*x-G*v;];
よくわからないけど、If文の条件が実際に評価されるときに(x,nに）値が入ってるんですか？そうでないと関数Fは未定義のままですよね？
それとThresholdはMathematica自身の関数として定義済みでは？
それと、Potential_value =と_valueをつけると変数にセットできないんじゃありませんか？私の使ってるバージョンではできません。
初心者でトンチンカンな事を聞いてるみたいですみません。
>それと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 ,必要なら何か定義...]
と定義しておくのはダメなのですか？
Mathematicaの入門書を読むことをお勧めします。
皆さんどうされてるんでしょう
本読み直します
関数の引数に関数を与えることもできます。
ふうL@Fu_L12345654321
学コン1傑いただきました！
とても嬉しいです！
https://pbs.twimg.com/media/D-IuUuqVUAALnAB.jpg
https://twitter.com/Fu_L12345654321/status/1144528199654633477
https://twitter.com/5chan_nel (5ch newer account)
くだらんものをだすな 資源の浪費だ
↑のθ(～)は何の演算子ですか？
右下見れ
あ、スマホでは出ないんだな。PCで見てくれ
Sum[If[q == p, q, 0], {q, 1, 3}] /. p -> 2
の結果として 2 になること期待したんだけれど，
qが返ってきてしまった…
なして？
だから q だろうね。
Sum[If[q == p, q, 0] /. p -> 2, {q, 1, 3}]
だと２だよ。
Sum は Block を使って変数を置き換えていく。Block は変数を置き換えながら内側の式を評価するが、HoldRest のせいで第2引数の q は評価されずにそのまま残る。
第1引数は評価され置き換わるが、If は第1引数が True または False になるまで開かれないから、結果 >>798 の1行目のように展開され、答えは q となる。
ふうL@Fu_L12345654321
学コン1傑いただきました！
とても嬉しいです！
ｈｔｔｐｓ://pbs.twimg.com/media/D-IuUuqVUAALnAB.jpg
ｈｔｔｐｓ://twitter.com/Fu_L12345654321/status/1144528199654633477
https://twitter.com/5chan_nel (5ch newer account)
Sum[If[q == p, Evaluate@q, 0], {q, 1, 3}] /. p -> 2
でも2が返るよ。
昔lispやってたので馴染めないんだが、、、。
周囲の長さが一定 2*s である三角形の面積の最大値を求めよ。
ヘロンの公式より、
S = sqrt(s * (s - x) * (s - y) * (s - z))
φ(x, y, z) = x + y + z - 2*s
(grad φ)(x, y, z) = (1, 1, 1) ≠ (0, 0, 0)
0 < x < y + z = 2*s - x
0 < y < z + x = 2*s - y
0 < z < x + y = 2*s - z
だから、
0 < x < s
0 < y < s
0 < z < s
でなければならない。
φ(x, y, z) = 0
0 < x < s
0 < y < s
0 < z < s
という条件下で、
f(x, y, z) = (s - x) * (s - y) * (s - z)
を最大化する (x, y, z) を求めて、面積 S を計算すればよい。
↓は制約条件を満たす点の集合、いわゆる実行可能領域です。
https://imgur.com/XzhCaP7.jpg
s = 1 としました。
↑実行可能領域の正三角形の重心で面積が最大になることが分かりますね。
n m
Σ Σ x[i,j]
i=1 j=1
j≠i
みたいなやつ。意味わかります？
ただ、それはわかってますが、もうちょっとスマートに書きたいということです。
その方が早そうだし
発散するときは
x[i_, j_] := 0 /; i == j;
x[i_, j_] := X[i, j];
Sum[x[i, j], {i, 1, 3}, {j, 1, 3}]
Out=X[1, 2] + X[1, 3] + X[2, 1] + X[2, 3] + X[3, 1] + X[3, 2]
とか？
Mathematicaの本を見ても基本的なことしか書いていないですよね。
f[x_, y_] := x^2 + y^3
g[t_] := {t^2, 3*t+1}
とします。
f[g[t]] とはできないですよね？
f[ｖ_] := v[[1]]^2 + v[[2]]^3
g[t_] := {t^2, 3*t+1}
としないといけないんですか？
1個しか与えてないのだから未定義扱いになるのは当然では？
f@@g[t] で如何
正規行列はユニタリ行列によって対角化できるという定理が書いてあります。
Wolfram Language 12で、 A = U*D*U^* となる U, D を計算する関数を作りました。
orthogonalizationU[A_] := Module[
{eigenvs, U, DIA},
eigenvs = Eigenvalues[A];
DIA = DiagonalMatrix[eigenvs];
eigenvs = DeleteDuplicates[Eigenvalues[A]];
U = Transpose @ ((Flatten[#, 1])& @ (Orthogonalize /@ (NullSpace /@ ((A - #*IdentityMatrix[Length[A]])& /@ eigenvs))));
{U, DIA}
]
以下の定理が書いてありますが、 A = U*T （T が上三角行列）の場合しか証明されていません。
2.5.17 【定理】
任意の n 次正則行列 A はユニタリ行列 U と、対角成分が正の実数であるような上三角行列（下三角行列でもいい） T の積 U*T （T*U でもいい）として
一意的に表わされる。
(2)
A^T = U * T （T は上三角行列）
と分解し、両辺の転置を取ると、
A = T^T * U^T （T^T は下三角行列）
(3)
A の列たちをリバースした行列を A' とする。
A' = U * T （T は上三角行列）
と分解する。
T の列たちをリバースした行列を T' とする。
A = U * T' (T' は左上三角行列）
である。
U の列をリバースした行列を U' とする。
T' の行をリバースした行列を T'' とする。
A = U' * T'' （T'' は下三角行列）
である。
(4)
(3)の手順にしたがって、
A^T = U * T （T は下三角行列）
と分解する。
A = T^T * U^T （T^T は上三角行列）
(2)～(4)のケースの一意性についても
A = U*T （T が上三角行列）のタイプの分解の一意性から自明ですよね。
4つのタイプの分解を行う関数を作りました。
gs[U_, a_] := Append[U, Simplify[normalize[a - Sum[(a.u)*u, {u, U}]]]];
gramschmidt[A_] := Module[{U = {}}, Do[U = gs[U, A[[i]]], {i, 1, Length[A]}]; U];
qrdecom[A_] := Module[{U, T},
U = gramschmidt[A];
T = Table[If[j > k, 0, A[[k]].U[[j]]], {j, 1, Length[A]}, {k, 1, Length[A]}];
{Transpose[U], T}];
qrdecom2[A_] := Module[
{B, U, T},
B = Reverse[A];
U = gramschmidt[B];
T = Table[If[j > k, 0, B[[k]].U[[j]]], {j, 1, Length[B]}, {k, 1, Length[B]}];
{Transpose[Reverse[U]], Reverse[Transpose[Reverse[Transpose[T]]]]}];
qrdecom3[A_] := Module[{B, U, T},
B = Transpose[A];
U = gramschmidt[B];
T = Table[If[j > k, 0, B[[k]].U[[j]]], {j, 1, Length[B]}, {k, 1, Length[B]}];
{Transpose[T], U}];
qrdecom4[A_] := Module[
{B, C, U, T},
B = Transpose[A];
C = Reverse[B];
U = gramschmidt[C];
T = Table[If[j > k, 0, C[[k]].U[[j]]], {j, 1, Length[C]}, {k, 1, Length[C]}];
{Transpose[Reverse[Transpose[Reverse[Transpose[T]]]]], Reverse[U]}];
こいつは数学の本スレで連投を繰り返している荒らしです
レスしないでください
並列処理のリモートカーネルとして使えないものか
ここに入っていればRaspberry Piも要らないね
Mathematica 6のフロントエンドで動けば助かったけど、6.0 FE+12.1 Engineの組み合わせはちょっと無理っぽかった
Macで動いたって言うブログ見たけれど
並列計算用サブカーネルにのみ使って、正規の8カーネル＋Engine 8カーネルで16カーネル並列計算できないか
なんとなくやり方はわかったけど、これは後でやってみる
やりすぎたか
無償のラズパイMathematicaフロントエンドか別に使えるバージョン新しめのMathematicaフロントエンドを持っているなら
でもMathematicaのフロントエンドを使えば高額な有償Mathematicaと同じになっちゃう夢を見た
Wolfram EngineのMathKernelはMathematicaパッケージのMathKernelと全く同じで、特に機能制限されてない
スマホでMathematicaとか未来だ
許諾しているのなら、Jyupiter NotebookをMathematica Notebookに置き換えても構わないよな？
それを許諾しないとは書いてない
ネットワーク経由のリモート計算でならロハでもできるというだけ
それが無理ならおとなしくローカルでJyupiter Notebook
ただJyupiter NotebookとMathematica Notebookの使用感が全く異なっており、ファイル互換性もない
なんとかMathematica NotebookをフロントエンドにしてNotebookを統一したいというのが夢のきっかけだった
何か変わったか？
https://reference.wolfram.com/language/howto/ConnectToARemoteKernel.html.ja
3Dグラフィックが遅いのも入力支援機能がないのもフロントエンドの問題だから解決しない
同じマシンで8 x Workerカーネル動かして計算すること
マスターカーネルを一つにして、Ｎ個のマシンにWorkerカーネルを分散して、8N Workerカーネルで並列計算してパフォーマンス
を見てみたいのだが、うまくいってない
N x 8 Wokerカーネルの並列計算は出来ているが
1 x 8N workerカーネルの並列計算が出来てない
今のところSurface Pro7も使ってN=6
Xeon E5-2643v3 (実6コア/仮想12スレッド) x2
Core i7-8700T（実6コア/仮想12スレッド）x2
Core i7-4790K（実4コア/仮想8スレッド）x1
Core i5-1035G4（実4コア/仮想8スレッド）x1
それぞれのコアで8 Workerカーネル動かして並列計算してる
てことは初代iMacよりも性能上なのか
学生はStudent版買うよりこっちのほうがいいな
バグなのかな？
もっとコアが欲しい
１台のPCで8カーネルの制約を超えた並列計算が可能
並列カーネルの状態表示が壮観
難しい
引数がどうにもうまく渡せない
学術の巨大掲示板群 - アルファ・ラボ ttp://x0000.net
数学 物理学 化学 生物学 天文学 地理地学
IT 電子 工学 言語学 国語 方言 など
PS 連続と離散を統一した！
ttp://x0000.net/topic.aspx?id=3709-0
微分幾何学入門
ttp://x0000.net/topic.aspx?id=3694-0
これでlightweight gridに頼らなくても済みそうだ
・ローカルカーネル x8
・ローカルにあるWolfram engineのカーネル x8
・２つの別マシンのカーネル x8x2
を起動して32カーネル
Windows10オプションのOpenSSH（クラ・サバ）を使用
（フロントエンドや数学的な）サポートはしないけど
ってとこじゃない？。
完全タダは無理じゃない？
自分は正規ライセンスのMathematicaにWolfram Engineを組み合わせてできる範囲の並列分散処理をやってる
ラズパイ買えば、含まれる無償MathematicaとWolfram Engineの組み合わせでできることは拡大するが、ラズパイ
のコストはかかる
また、この方法はバックエンドの処理が重い場合には有効だけれども、複雑なグラフの描画とかフロントエンドの処理
が重い場合にはあまり意味がない
Wolfram EngineをPCで
ってパターンならラズパイ分の値段だけでいける？
いける
それにメリットを感じるかどうかは、やりたいことによる
で、（スレーブカーネルは並列処理のときのみ）
フロントエンド をラズパイ上のMathematicaで、 マスターカーネル ― スレーブカーネル をPC上のWolfram Engineで
分散処理することができる
また、フロントエンド ― マスターカーネル をラズパイ上のMathematicaで、スレーブカーネルをPC上のWolfram Engineで
分散処理させることもできる
並列処理計算なんてしない人が多いんだろうけど
その場合はマスターカーネルをPCに任せるという話になる。マスターカーネルでの処理が重ければ分散処理の意義が出てくる
だろう
どうやってやるの？
これ、ParallelTableとかでシームレスに32並列行けるの？
フロントエンド をラズパイ上のMathematicaで、 マスターカーネル―スレーブカーネル をPC上のWolfram Engineで分散処理は、
https://community.wolfram.com/groups/-/m/t/94917
https://support.wolfram.com/ja/12495?src=mathematica
http://www3.econ.fukuoka-u.ac.jp/usage/doku.php/windows
を基に設定した。これらを理解したうえで設定すればできた。
フロントエンド―マスターカーネル をラズパイ上のMathematicaで、スレーブカーネルをPC上のWolfram Engineで分散処理は、
Windows10のオプション機能であるOpenSSHを使えば実現できる
行ける
ありがとうございます。できるかどうか分かりませんが、とりあえず読んでみようと思います。
コネクトする方法が書かれているが、自分は前者で実現した。
PC側でカーネルをリスンモードで起動するバッチファイルを作成し、先にカーネルを起動する。フロントエンドのカーネル環境設定
でフロントエンドからPCに接続するようにMLOpenの引数を設定したうえで、マスターカーネルを起動する。
LinkNameは自分で適当にポートを２つ決め打ちして両方で合わせればいい。
やろうと思えば、PC上のカーネルをOpenSSHなどでリモート起動することもできるはず。
残念
解説お願いします
seedList =
With[{vertices = .1 N[PolyhedronData["Icosahedron"][[1, 1]]]},
Join[Map[{#, 2} &, vertices],
Map[{# + {1, 1, 1}, -2} &, vertices]]];
jupyter notebookを起動してNEWを押すとWolframがなぜか選択できるようになっています。
どうすればいいですか？
x^2 + y^2 <= a^2の範囲にある円筒面x^2 + z^2 =a^2を表示したい
Plot3Dで試してみたが(↓)違う図が表示される
なんて書けばいい？
a=1
Plot3D[x^2 + z^2 == a^2, {x, -a, a}, {z, -a, a},
RegionFunction -> Function[{x, y, z}, x^2 + y^2 <= a^2],
BoxRatios -> Automatic]
としか
a=1
RegionPlot3D[x^2 + y^2 < a^2, {x, -2, 2}, {y, -2, 2}, {z, -2, 2}]
例えば
FinancialData["MITSUBISHI"]
とやると，三菱商事の株価（現在値）が出ますが
企業名と，上のようなMathematica上のシンボルの紐付け一覧はどこを見ればわかるでしょうか？
↓こうするとプロットされるのに
Manipulate[ Plot[ Sin[x-a], {x,0, 2π} ], {a,0,2π} ]
↓こうすると何もプロットされない理由を教えてください。
foo[x_, a_] := Sin[x-a];
Manipulate[ Plot[ foo[x,a], {x,0, 2π} ], {a,0,2π} ]
Manipulate の内側に全てを書くのは厳しい時があるので、解決策もお願いします。
n = 10;
With[ {tbl = Table[ Plot[ foo[x, 2π(k-1)/n], {x,0, 2π} ], {k,n} ]},
Manipulate[ tbl[[k]], {k,1,n,1} ]]
回りくどいが Withで見かけ上の局所変数を導入するとプロットできるようになった。
これが ModuleやBlockだと上手くいかない。どういう理屈なのかは分からない。
12.0でやってみたが、どっちも上手く行くけどなあ。
こちらの環境は
Wolfram Language 12.1.1 Engine for Mac OS X x86 (64-bit)
もしかしたら「正しい挙動」にアップデート修正されてしまったのかも知れない。
これまでのコードが動かなくて困る人出てきそうだけどいいのかな。
フリーのやつか。製品版だと問題ないとか？
わざわざそんなコード解釈部分をいじって差をつけたりしないんじゃないかと。
JupyterだとしたらManipulateでのトラブルはいくつか見た
これは出力を ～.nb ファイルにExportして Wolfram Playerで閲覧しないとマウスでグリグリ動かせない (Plot3Dとかも同様)
それって面倒じゃん？そういう類の話ではないかな。 それについての不満は無いです。
そして wolframscript のREPLで試しても同じなので、Jupyterの問題ではなさそう。
複合要因の「おま環」(問題が起きてるのは、おまえの環境だけだ) の可能性もあるので、深入りしても時間の無駄かもしれません。
ふつうはRGBとかHueとかで指定する
ありがとうございます．
RGBでRを1，Gを0，Bを0と指定しても，ピンクのような色になってしまいます．
Jupyter Notebookがおかしいのではないかと思っております．
ただし、keygen必要。
Out[2]//InputForm=
{"MachineName" -> "ubuntu", "System" -> "Linux ARM (32-bit)",
"BenchmarkName" -> "WolframMark", "FullVersionNumber" -> "12.1.1",
"Date" -> "December 24, 2020", "BenchmarkResult" -> 0.206,
"TotalTime" -> 67.311, "Results" -> {{"Data Fitting", 2.757},
{"Digits of Pi", 1.616}, {"Discrete Fourier Transform", 10.401},
{"Eigenvalues of a Matrix", 3.524}, {"Elementary Functions", 5.119},
{"Gamma Function", 2.196}, {"Large Integer Multiplication", 2.28},
{"Matrix Arithmetic", 1.637}, {"Matrix Multiplication", 10.93},
{"Matrix Transpose", 4.91}, {"Numerical Integration", 2.502},
{"Polynomial Expansion", 0.339}, {"Random Number Sort", 1.19},
{"Singular Value Decomposition", 8.676}, {"Solving a Linear System", 9.234}}}
https://qiita.com/bellx2/items/c06e1c00ad9de77a4fb9
M1 MacでMathematica使えるじゃまいかw
無理だろ。>>918もラズパイ上でやってるし
https://community.wolfram.com/groups/-/m/t/2112731#
2.59だから上のラズパイ4より10倍速いw
https://qiita.com/kose3/items/af9edc9c40c9ae8fc5c3
速度どのくらい？
加わる力の定義をSin[]やExp[]などの入った式でして、
それを1000点ごとに
list0 = Table[0, {t, 0, last, sample*dt}];
というような形でリストにして
Export["***.dat", list0, "Table"]でデータとして書き出してるんだけど、
数式のまま吐き出されることがあります。
数値で吐き出させるためにはどうするんでしょうか？
いろいろ試すと、力の定義の中の数値の桁数が多いと、数式で吐き出される気がします。
ってやってもそうなるの？
とりあえずExportの直前でlist0を表示させて，
どうなってるのかチェックしたらええんじゃないだろうか．
有理数になってる場合なんかは分数のまま出力されたりする．
試してみます。
煩雑な分数のまま書き出される場合があります。
で、グラフ描画ソフトで読み込めなくて困っていました。
N[list0]で解決しました。ありがとうございました。
基礎すっ飛ばして（昔やったかもしれませんが忘れた）実際に使われてるプログラムを変形して使ってると困ったことになりますね。
For[n=2,n<=30240,n++,d=Divisors[n];l=Length[d];For[i=1,i<=l-12,i++,e=Extract[d,i]; s=Select[e<=# && #<=2e &][d]; If[Mod[n,2e]==0 && Length[s]>=13,Print[n,s],0]]]
期待する処理:2以上30240以下のnについて、nの約数eと2eの間に(eと2eを含めて)nの約数が13個以上あるものを見つけてプリントする
M1 Macに対応したか
VideoGeneratorやVideoTrimなどを使うと
制限付きのFFmpegを使用しています．より完全なコーデックサポートのためにはFFmpegをインストールしてください．
になるのですが、なぜだと思われますか？？？
PowerShellでffmpegで実行されるのでパスは通っています
OSはWin7です
iPhoneでノートブック編集する方法ってある？
https://www.raspberrypi.org/software/raspberry-pi-desktop/
MathematicaにできてMapleにできないあるいはその逆とか
Mathematicaは関数型
ですよね。
Mapleのほうが使いやすいと思います。
PlotRange -> 1.5, BoxRatios -> 1]
といていたら、講師【女性）ににらみつけられ、助教【男性）に教室から出されました。
理由がよくわかりません。
教えてください。
悩める童貞大学生
WolframScriptの有無はわかるんだけど、Jupyter-notebookとか自前のフロントエンドさえ用意すれば
同じに使えるのかな？
playerにはWolframScriptがないため定期的なライセンス認証アップデートも不要なのかな？
ご存じの方いれば教えてください
１台のPCでMathematica/Wolfram Ensine/Wolfram Playerの8x3=24カーネル起動もできたわ
はい、可能です。その方法を何故かWolframの公式ツイアカが紹介していたこともあったw
なんだかPlayerとＥngineの切り分けが難しいね
カーネルにMathematica Notebookを追加したもの＝Matthematica
カーネルにPlayer（ライセンス認証不要）とWoframScript（ライセンス認証必要）を追加したもの＝Wolfram Engine
カーネルにPlayer（ライセンス認証不要）を追加したもの＝Wolfram Player
という感じなんだろうか？
カーネルとPlayerは商用以外無償でライセンス認証不要
開発環境であるMathematica Notebook/Wolfram Scriptはライセンス認証必要で
Mathematica Notebookは有償Wolfram Scriptは無償でライセンス認証不要
って感じかな？
開発環境を自前で用意すれば、ライセンス認証も不要なPlayerがお勧めなんだろうか
ファイルサイズを比較すると、PlayerはフルスペックのNotebookに機能制限かけたものっぽいね
カーネルとPlayerは商用以外無償でライセンス認証不要
開発環境であるMathematica Notebook/Wolfram Scriptはライセンス認証必要で
Mathematica Notebookは有償でWolfram Scriptは商用以外無償
開発環境とか統一性とか、Jypterと比べるとよくできていると思う。
6PC+2EWS
それ何？。
カーネル部分は無償、インターフェースを有償にしている部分を同じと表現した
読んでるのですが、ほとんどの例が
notebookで1行ごと実行する形式になってます。
例えば
ある数値データのファイルを読み取って
計算した結果をファイルに出力する
例えば結果をレポート形式で出力するような
プログラムを作りたい場合、
どう言うに流れになるのでしょうか？
毎回ノートブックを開いて行ごと順番に
実行するしかないのでしょうか?
なんでよ
一つのセルにセミコロン;で区切ってコマンド書けば、そのセルを実行すれば順次実行になるでしょ
squareMatrixQ[a_?MatrixQ] := Equal @@ Dimensions[a]
この関数の引数をa_?MatrixQと制限しています。
squareMatrixQというのは引数が正方行列かどうかをチェックするための関数です。
ですから、数の1を入力すればFalseを返さないといけないと思います。
ところが、この関数は引数を制限しているため、数の1を入れて評価することが出来ません。
***Qという関数をこのように書くのは良くないと言えるでしょうか？
Falseを返したいなら、書き方が少し違いますが
squareMatrixQ[a_] := False /; !MatrixQ[a]
squareMatrixQ[a_] := Equal @@ Dimensions[a] /;MatrixQ[a]
やはり、 **Qという関数だから、どんな引数が来てもTrueかFalseか判定できないと駄目ですよね。
SquareMatrixQ[{{1}}] True
でなにかもんだいあり？
Plot3D[x^2 y^(9) + (x - 1/2)^2 y, {x, -2, 2}, {y, -2, 2},
PlotRange -> 1.5, BoxRatios -> 1]
をみせなさい。
上品にしかしちゃんとね
gives True if m is a square matrix, and False otherwise.
H1 と H2 は G の正規部分群で、互いに同型であるとする。
G/H1 と G/H2 は常に同型であるか？
H1 と H2 は G の正規部分群で、 G/H1 と G/H2 は互いに同型であるとする。
H1 と H2 は常に同型であるか？
/: : :l ヽ.: : : : : :l ヽ: : : : : : : : : ヽ
,/: : : ﾍ l: : : : : l ヽ: : : : : : : : : :ヽ
//: : : :./ヽ l: : : : : lヽ , l : : : : : : : : : : ヽ
/:/: : : : :' l: : : : : :l li: : : : : : :i: : : : :ﾍ
/:/: : : : :,' ､: : : : :.l ｌi: : : : : : :l : : : : :.l
i: i: : : : : ｌ ､: : : : :l ｌｉ: : : : : : :l: : : : : :l
l: l: : : : :.l ヽ - ､ ヽ: : : :ﾍ ＿＿',ﾍ: : : .l: : l : : : : :.l
l: l : : : : l二‐- ｀ ヽ: : : ﾍ´＿＿ﾍ l: : : l: : l : : : : :.l
∨: : : : :l┬┰┬ ヽ: : .ﾍ ┬┰┬l: : : l: : l : : : : :.l
∧ : : :.Cゝ__.ノ ヽ: : :ヽゝ__.ノl: : : l: : l : : : : :.l
/: : l: : : ﾍ ヽ: : ＼_ ｨ: : : l: : l: : : : : :l
./: : : l: : : : :､ ' ｀ ｰ―l: : : l: : l: : : : : :l
/: : : :ﾊ: : : : iヽ l: : : l: : l: : : : : :lKGB はあれすね
/: : : : /:ﾍ: : : : ﾍ ヽ ー - ／l: : : l: : lヽ: : : : l
,／: : : : /, ´ヽ: : : :.ﾍ |｀ ､ ィ彡'ｲl: : : l: : l iヽ: l
／: : : : ／/ ､: : : :∨i ､ ヽー≦三三ヲ: : : ﾊ: : l .li ｀＜
': : : : :／: : :l ､: : : i :l ヽ､ ｀ー‐''"´ /: :/l:ﾍ: : l li ｀ヽ
: : : /: : : : : :l ;: : : :ｉｌ ､ヽ､ /: :/ l ﾍ: :.l li ヽ
（OSを新しいのにしたせいもあるかもしれません）
πがΠって表示されるようになったんだけど、
数式を表現できて、かつ、πってちゃんと表示できるフォントってありますか？
白石修二
matlabでさえ個人用は8000円にご時世に。
しかも文法がめっちゃ独特、prologかよ。
グラフを思い通りに書くのにも一苦労
サンクス
結構、洋書のmathematica本何冊も買って勉強したけど、どう見ても同じ事するならMapleの方が使い易そうだわ。
Mapleの方が見た目がダサいけど、安いしいいね。存在を忘れてた。
マセマティカっていつからコピーできなくなってたのかな
シリアルだけじゃ動かない
もっと安いフリーウェアも無かったけ
駄目に決まってろ
Z2xZ4でZ2への全射2種類考えるだけていうか
すぐにでもそれを思わないのは何故？
そんなものによりかかって、仕事をしてしまうとベンダーロックインされるだけだぞ。
実際、目玉が飛び出る程高い値段だろ。
なるべくソースコードも公開されているフリーなソフトを公共財として使い、
開発者をなんらかの形でサポート（たとえば金銭の寄贈）をして開発を継続
してもらい、しだいにソフトを向上してもらう方が長期的には良いんだよ。
まあ、ラズパイも価格が暴騰して、ある程度Mathematicaが動く8gb版は2万以上するけど。
少なくとも5.2はオフラインでいけた希ガス
Mathematica13 ホームエディション 51,040 円
それって大学の任期付きの助手でもその値段で買える？
10月から価格改定
趣味用だと、仕事（たとえば給料を貰ってする研究や授業）には使えないはずだよ。
誰でもこの値段で買える。ただし使用場所が自宅のみ。
https://www.senko-corp.co.jp/software/wolfram/home_edition.htm
2年前は5万円しなかったんだが
新しいスレッドを立ててください。
life time: 2772日 19時間 56分 3秒
運営にご協力お願いいたします。
───────────────────
《プレミアム会員の主な特典》
★ 5ちゃんねる専用ブラウザからの広告除去
★ 5ちゃんねるの過去ログを取得
★ 書き込み規制の緩和
───────────────────
会員登録には個人情報は一切必要ありません。
月300円から匿名でご購入いただけます。
▼ プレミアム会員登録はこちら ▼
https://premium.5ch.net/
▼ 浪人ログインはこちら ▼
https://login.5ch.net/login.php
レス数が1000を超えています。これ以上書き込みはできません。
ニュース
- 【サッカー】U-23日本代表、UAE代表に完封勝ちで2連勝！日韓戦を前に決勝トーナメント進出を決める [久太郎★]
- 【滋賀】いなり寿司を万引きしたとして誤認逮捕され、82時間拘束された女性、涙ながらに苦しい胸の内を明かす… ★3 [Hitzeschleier★]
- ロシア出身YouTuber、経済的困窮で「国ガチャ失敗」？嘆く日本人を一喝「給料13万？自分のせいやん」日本を「大当たり」とする理由は [muffin★]
- 【理研】日本人の祖先は「縄文系」「関西系」「東北系」の３系統か、ゲノム分析で従来の説「縄文と弥生」に疑問 ★2 [樽悶★]
- 築地市場跡地に5万人規模スタジアム建設へ 事業者は三井不動産など ★２ [ぐれ★]
- 大谷翔平を〝見誤った〟北村弁護士が謝罪「大嘘つきにだまされた自分を恥じております」 [muffin★]
- 【悲報】だが、ビーガニズムに対する反発がアンチヴィーガンなんだよね
- 【実況】博衣こよりがえちえちplate up🧪★5
- 【実況】博衣こよりがえちえちplate up🧪★4
- 【実況】博衣こよりがえちえちplate up🧪★6
- お前ら俺のこと愛してるか？
- ここで違法薬物を作ってますね？( ･᷄ὢ･᷅) (*´ω｀*)……🏭