高校数学の質問スレ Part436

[過去ﾛｸﾞ] 高校数学の質問スレ Part436 (1002ﾚｽ)
上下前次1-新
通常表示 512ﾊﾞｲﾄ分割ﾚｽ栞
抽出解除必死ﾁｪｯｶｰ(本家) (べ) ﾚｽ栞あぼーん

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

236: １３２人目の素数さん [sage] 2024/06/26(水) 06:22:27.22 ID:nciRCHC2

>>234
誤答の指摘のコピペで喜んでいるPhimoseくんは答だせてんの？
Phimoseが草いうえにその性格じゃ嫁もいないだろう？

辺の長さが3,4,5,6,7,8となる四面体を列挙して体積を計算させて何種類あるかをRで計算させたら、
浮動小数点数の誤差でオーバーカウントした。

Wolfram言語だと厳密値で比較してくれるので誤差ゆえのオーバーカウントがない。
そのRでのコードをWolframへ移植

新たなる神のお告げ
体積の値が何種類あるか、表面積の値が何種類あるかを算出させるWolframのコード。

V[a_] :=(
{a1,a2,a3,a4,a5,a6}=a;
v2=a1^2*a5^2*(a2^2+a3^2+a4^2+a6^2-a1^2-a5^2)+
a2^2*a6^2*(a1^2+a3^2+a4^2+a5^2-a2^2-a6^2)+
a3^2*a4^2*(a1^2+a2^2+a5^2+a6^2-a3^2-a4^2)-
a1^2*a2^2*a4^2-a2^2*a3^2*a5^2-a1^2*a3^2*a6^2-a4^2*a5^2*a6^2;
If[v2>0,Sqrt[v2]/12,0]
)

S[a_] :=(
{a1,a2,a3,a4,a5,a6}=a;
s1=(a1+a2+a4)/2;
s2=(a2+a3+a5)/2;
s3=(a3+a6+a1)/2;
s4=(a4+a5+a6)/2;

S1=s1*(s1-a1)*(s1-a2)*(s1-a4);
S2=s2*(s2-a2)*(s2-a3)*(s2-a5);
S3=s3*(s3-a3)*(s3-a6)*(s3-a1);
S4=s4*(s4-a4)*(s4-a5)*(s4-a6);
SS={S1,S2,S3,S4};
If[AllTrue[SS,#>0&],Total[Sqrt[SS]],0]
)

pm=Permutations[{3,4,5,6,7,8}];
Select[V /@ pm,#>0&] //  Union // Length
Select[S /@ pm,#>0&] //  Union // Length

Wolfram言語が使える方の検証を希望します.

http://rio2016.5ch.net/test/read.cgi/math/1718662026/236

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

ｽﾚ情報赤ﾚｽ抽出画像ﾚｽ抽出歴の未読ｽﾚ AAｻﾑﾈｲﾙ

ぬこの手ぬこTOP 0.030s