[過去ﾛｸﾞ] 高校数学の質問スレ Part437 (1002ﾚｽ)
上下前次1-新

---

このｽﾚｯﾄﾞは過去ﾛｸﾞ倉庫に格納されています｡
次ｽﾚ検索 歴削→次ｽﾚ 栞削→次ｽﾚ 過去ﾛｸﾞﾒﾆｭｰ

---

155: 2024/07/21(日)11:51 ID:3skoHSGy(4/17) AAS
Wolframのデフォルトのソルバーは遅いなぁ。
自作ソルバーとの速度比較

Wolfram Language 14.0.0 Engine for Microsoft Windows (64-bit)
Copyright 1988-2023 Wolfram Research, Inc.

In[1]:= n=40;

In[2]:= x={x1,x2,x3,x4} /. Solve[x1+x2+x3+x4==n && x1>=1 && x2>=1 && x3>=1 && x4>=1,{x1,x2,x3,x4},Integers] // Timing // Short

Out[2]//Short= {0.1875, {{1, 1, 1, 37}, {1, 1, 2, 36}, {1, <<2 35}, <<9135 {37, 1, 1, 1}}}

In[3]:= x=Select[Partition[Flatten@Table[{x1,x2,x3,n-x1-x2-x3},{x1,Range[n]},{x2,Range[n]},{x3,Range[n]}],4],#[[4]]>0&] // Timing // Short

Out[3]//Short= {0.015625, {{1, 1, 1, 37}, {1, 1, 2, 36}, {1, <<3>>}, <<9135 {37, 1, 1, 1}}}

---

上下前次1-新書関写板覧索設栞歴

---

あと 847 ﾚｽあります
ｽﾚ情報 赤ﾚｽ抽出 画像ﾚｽ抽出 歴の未読ｽﾚ

---

ぬこの手 ぬこTOP 0.011s