美しい整数の世界 (780ﾚｽ)

美しい整数の世界 http://rio2016.5ch.net/test/read.cgi/math/1686749616/

上下前次1-新
通常表示 512ﾊﾞｲﾄ分割 ﾚｽ栞
抽出解除 必死ﾁｪｯｶｰ(本家) (べ) 自ID ﾚｽ栞 あぼーん

---

576: １３２人目の素数さん [sage] 2024/05/08(水) 21:09:20.02 ID:o+7mX6D2 素数を知ったのは確か4歳くらいの時 聡明で美しい数字を想った 2 3 5 7 11 13 17 19 23 29 31 37 41 43 47 53 59… 何か法則性は無いのか すぐ近くに次の素数が現れると思えば すぐ近くには無かったり これが3桁4桁5桁となっていくと 複雑な羅列が顕著になる この素数に子供ながらにして興味津々 になった記憶がある 小学低学年の時だったか 数列ａnで階差数列をしていけば 容易ではないかと思ったりした 浅はかな学童 その内にリーマン予想を知る 複素数の関数が必要であること 学童の“大学への数学”“Z会”クラスの 学力では無理だったのだ そしてリーマンζ(s)を解き明かす目標の 日々となる そう2008年の「リーマンショック」には ビックリした 「リーマンやっちゃったよ」なんて 街の声に誰かがリーマン解いたのか そう思ったのである しばらくしてリーマンとは 米国投資銀行であり その倒産を意味するを知る またサラリーマンをリーマンとここ 日本では呼ぶようだが 「おまえリーマンとしてはゼロ点だな」 なんて地下鉄で説教しているのを聴くと ドキッとくる http://rio2016.5ch.net/test/read.cgi/math/1686749616/576

577: １３２人目の素数さん [sage] 2024/05/08(水) 21:09:58.68 ID:o+7mX6D2 ■R # 宝の数を変化させる treasure0 <- function(m=3,n=4,k=2){ y=1:(m*n) (z=matrix(y,ncol=n,byrow=T)) (P=as.vector(z)) (Q=as.vector(t(z))) PQ <- function(x){ p=q=numeric(k) for(i in 1:k){ p[i]=which(P==x[i]) q[i]=which(Q==x[i]) } min(p)-min(q) } tre=combn(m*n,k) re=apply(tre,2,PQ) return(c(短軸有利=sum(re<0),長軸有利=sum(re>0),同等=sum(re==0))) } sapply(1:12,function(k) treasure0(3,4,k)) > sapply(1:12,function(k) treasure0(3,4,k)) [,1] [,2] [,3] [,4] [,5] [,6] [,7] [,8] [,9] [,10] [,11] [,12] 短軸有利 5 26 73 133 167 148 91 37 9 1 0 0 長軸有利 5 27 76 140 176 153 92 37 9 1 0 0 同等 2 13 71 222 449 623 609 421 202 64 12 1 http://rio2016.5ch.net/test/read.cgi/math/1686749616/577

578: １３２人目の素数さん [sage] 2024/05/08(水) 21:56:13.41 ID:o+7mX6D2 重合度nのPVA(ポリビニルアルコール) があるとする ここに、 大過剰のホルムアルデヒド(HCHO) を用いて架橋を行う 即ち、各HCHO分子はPVAの隣り合う 2つのOH基を架橋する PVAのOH基をHCHOで架橋したものは ビニロンと呼ばれる繊維になり、 残存するOH基の量に応じて吸水性などの パラメータが変わる ここで、各HCHO分子は全くランダムな 位置を架橋していくとし、 PVAとは架橋以外の相互作用をしないとする もし、 片端から3,4つ目のOHが架橋され、 その後 6,7つ目のOHも架橋されたとすると、 HCHOは5つ目のOHを 架橋できないことになる (隣り合うOHの架橋以外の相互作用を 認めないという仮定を用いた) HCHOは大過剰存在するので、 隣り合うOHがなくなるまで 架橋は進むとする このとき、全てのOHの内、 いくつが架橋されずに残ると 期待されるかnで表せ Table[Sum[(-2)^k(n-k)/k!,{k,0,n-1}],{n,1,20}] http://rio2016.5ch.net/test/read.cgi/math/1686749616/578

579: １３２人目の素数さん [sage] 2024/05/08(水) 22:14:16.18 ID:o+7mX6D2 最近では、 虚部が小さい方から10兆個までの 複素零点は すべてリーマン予想を満たすことが 計算されており、 現在までにまだ反例は知られていない 現在では 多くの数学者がリーマン予想は正しいと 考えているようである しかし 無限にある零点からみれば 有限に過ぎない10兆個程度の零点の 例などは零点分布の真の姿を反映する には至らないとして、 この計算結果に対して慎重な数学者もいる 歴史上有名な数学者の中でも リーマン予想を疑っていた数学者はいる http://rio2016.5ch.net/test/read.cgi/math/1686749616/579

580: １３２人目の素数さん [sage] 2024/05/08(水) 22:16:05.88 ID:o+7mX6D2 37×3=111 37×6=222 37×9=333 37×12=444 37×15=555 37×18=666 37×21=777 37×24=888 37×27=999 271×41=11111 271×82=22222 271×123=33333 271×164=44444 271×205=55555 271×246=66666 271×287=77777 271×328=88888 271×369=99999 8547×13=111111 8547×26=222222 8547×39=333333 8547×52=444444 8547×65=555555 8547×78=666666 8547×91=777777 8547×104=888888 8547×117=999999 1111111=239×4649 11111111111=21649×513239 不可説不可説転 https://www.youtube..../watch?v=ruSJZ32MLwg http://rio2016.5ch.net/test/read.cgi/math/1686749616/580

581: １３２人目の素数さん [sage] 2024/05/08(水) 22:24:13.53 ID:o+7mX6D2 ■haskellに移植 import Data.List import Data.List.Split m = 5 -- 縦マス(短軸） n = 6 -- 横マス(長軸) k = 5 -- 宝の数 q = [0..m*n-1] matQ = chunksOf n q matP = transpose matQ --行列を転置して p = concat matP -- 配列に変換 combinations :: Int -> [a] -> [[a]] combinations 0 _ = [ [] ] combinations n xs = [ y:ys | y:xs' <- tails xs, ys <- combinations (n-1) xs'] treasure = combinations k q -- 宝の組み合わせ ip y = minimum $ map(\x -> elemIndices x p!!0) y　--　宝の、配列ｐでのindex列を求めて最小値を返す iq y = minimum $ map(\x -> elemIndices x q!!0) y idxp = map ip treasure -- 宝の組み合せで実行して idxq = map iq treasure p_q = zipWith (-) idxp idxq -- 差をとって大小判別 p1st = length $ filter (<0) p_q　-- 短軸方向探索ｐが先に宝をみつける q1st = length $ filter (>0) p_q draw = length $ filter (==0) p_q main = do putStrLn $ "p1st = " ++ show p1st ++ ", q1st = " ++ show q1st ++ ", draw = " ++ show draw >matrix.exe p1st = 55469, q1st = 54036, draw = 33001 http://rio2016.5ch.net/test/read.cgi/math/1686749616/581

582: １３２人目の素数さん [sage] 2024/05/08(水) 22:25:23.71 ID:o+7mX6D2 ▲ ▼ http://rio2016.5ch.net/test/read.cgi/math/1686749616/582

583: １３２人目の素数さん [sage] 2024/05/08(水) 22:36:14.16 ID:o+7mX6D2 > sapply(1:20,function(k) treasure0(4,5,k)) [,1] [,2] [,3] [,4] [,5] [,6] [,7] [,8] [,9] [,10] [,11] 短軸有利 9 84 463 1776 5076 11249 19797 28057 32243 30095 22749 長軸有利 9 83 453 1753 5075 11353 20057 28400 32528 30250 22803 同等 2 23 224 1316 5353 16158 37666 69513 103189 124411 122408 [,12] [,13] [,14] [,15] [,16] [,17] [,18] [,19] [,20] 短軸有利 13820 6656 2486 695 137 17 1 0 0 長軸有利 13831 6657 2486 695 137 17 1 0 0 同等 98319 64207 33788 14114 4571 1106 188 20 1 4×5の場合 宝：1個　同等 宝：2～5個　短軸有利 宝：6～13個　長軸有利 宝：14～20個　同等 □■■■■ □□■■■ □□□■■ □□□□■ 短軸有利☆ Table[sum[C(2n-1+C(0,(21mod n)-1),k-1),{n,1,9}],{k,1,20}] 長軸有利☆ Table[sum[C(2n-1+C(0,6mod n)-C(0,C(3,n-2)-1),k-1),{n,1,9}],{k,1,20}] 同等☆ Table[C(19,k-1)+C(17,k-2)+C(15,k-2)+C(13,k-2)+C(8,k-2)+C(1,k),{k,1,20}] http://rio2016.5ch.net/test/read.cgi/math/1686749616/583

---

ﾒﾓ帳

(0/65535文字)

---

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

---

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

---

Google検索

Wikipedia

---

ぬこの手 ぬこTOP 1.377s*