高校数学の質問スレ(医者・東大卒専用) Part438 (979レス)
高校数学の質問スレ(医者・東大卒専用) Part438 http://rio2016.5ch.net/test/read.cgi/math/1723152147/
上
下
前次
1-
新
通常表示
512バイト分割
レス栞
抽出解除
必死チェッカー(本家)
(べ)
自ID
レス栞
あぼーん
リロード規制
です。10分ほどで解除するので、
他のブラウザ
へ避難してください。
226: 132人目の素数さん [sage] 2024/09/26(木) 06:12:41.58 ID:DjIa9Rog a個入りのタコ焼き(S)、b個入りのタコ焼き(M)、c個入りのタコ焼き(L)を S,M,Lを各々s箱,m箱,l箱ずつ用意した。 タコ焼きの数で注文を受けるが、バラ売りはしない。 問題 (1) 受注できるのタコ焼きの数は何種類あるか。但し、0個は受注に数えない。 (2) 出荷できる方法が最も多いのは何個のタコ焼きを受注したときか? 複数あればすべて列挙せよ Wolfram言語 tako[a_,b_,c_,s_,m_,l_]:=( S=a Range[0,s]; M=b Range[0,m]; L=c Range[0,l]; t1=DeleteCases[Tuples[{S,M,L}],{0,0,0}]; t2=Total /@ t1; ans1=Length@Union@t2; t3=Counts[t2]; ans2=Select[t3,# == Max[t3]&]; {ans1,ans2} ) tako[5,9,12,100,50,20] R言語 tako=\(a,b,c,s,m,l){ S=a*(0:s) M=b*(0:m) L=c*(0:l) t1=expand.grid(S,M,L)[-1,] t2=rowSums(t1) ans1=length(unique(t2)) hist(t2,breaks=length(unique(t2)),border = 'pink',col=2,main='shipment') t3=table(t2) ans2=t3[t3==max(t3)] list(ans1,ans2) } tako(a=5,b=9,c=12,s=100,m=50,l=20) http://rio2016.5ch.net/test/read.cgi/math/1723152147/226
メモ帳
(0/65535文字)
上
下
前次
1-
新
書
関
写
板
覧
索
設
栞
歴
スレ情報
赤レス抽出
画像レス抽出
歴の未読スレ
AAサムネイル
Google検索
Wikipedia
ぬこの手
ぬこTOP
0.029s