[過去ログ]
高校数学の質問スレ Part434 (1002レス)
高校数学の質問スレ Part434 http://rio2016.5ch.net/test/read.cgi/math/1712376048/
上
下
前
次
1-
新
通常表示
512バイト分割
レス栞
このスレッドは過去ログ倉庫に格納されています。
次スレ検索
歴削→次スレ
栞削→次スレ
過去ログメニュー
リロード規制
です。10分ほどで解除するので、
他のブラウザ
へ避難してください。
1: 132人目の素数さん [sage] 2024/04/06(土) 13:00:48.28 ID:QDHCaaiE 【質問者必読!!】 まず>>1-4をよく読んでね 数学@5ch掲示板用 掲示板での数学記号の書き方例と一般的な記号の使用例 http://mathmathmath.dotera.net/ ・まずは教科書、参考書、web検索などで調べるようにしましょう。(特に基本的な公式など) ・問題の写し間違いには気をつけましょう。 ・長い分母分子を含む分数はきちんと括弧でくくりましょう。 (× x+1/x+2 ; ○((x+1)/(x+2)) ) ・丸文字、顔文字、その他は環境やブラウザによりうまく表示できない場合があります。 どうしても画像を貼る場合はPCから直接見られるところに見やすい画像を貼ってください。 ピクトはPCから見られないことがあるので避けてください。 ・質問者は名前を騙られたくない場合、トリップを付けましょう。 (トリップの付け方は 名前(N)に 俺!#oretrip ←適当なトリ) ・質問者は回答者がわかるように問題を書くようにしましょう。 でないと放置されることがあります。 (変に省略するより全文書いた方がいい、また説明なく習慣的でない記号を使わないように) ・質問者は何が分からないのか、どこまで考えたのかを明記しましょう。 それがない場合、放置されることがあります。 (特に、自分でやってみたのに合わないので教えてほしい、みたいなときは必ず書くように) ・回答者も節度ある回答を心がけてください。 ・970くらいになったら次スレを立ててください。 ※前スレ 高校数学の質問スレ Part431 https://rio2016.5ch.net/test/read.cgi/math/1691291450/ 高校数学の質問スレ Part430 https://rio2016.5ch.net/test/read.cgi/math/1689726231/ 高校数学の質問スレ Part432 https://rio2016.5ch.net/test/read.cgi/math/1695900004/ 高校数学の質問スレ Part433 https://rio2016.5ch.net/test/read.cgi/math/1709503076/ http://rio2016.5ch.net/test/read.cgi/math/1712376048/1
922: イナ ◆/7jUdUKiSM [sage] 2024/05/07(火) 02:22:18.62 ID:7yMMsxnQ 前>>852 >>883 maxQC=(√3/2)×(4/3)=2√3/3 maxQA=maxQB=(√3/2)×(2/3)=√3/3 max(QA+QB+QC)=√3/3+√3/3+2√3/3=4√3/3 min(QA+QB+QC)=0+1+1=2 ∴2≦QA+QB+QC≦4√3/3 http://rio2016.5ch.net/test/read.cgi/math/1712376048/922
923: 132人目の素数さん [sage] 2024/05/07(火) 05:31:13.42 ID:H7owo3Tu >>912 知らない関数がでてきたので仕様と解法のアルゴリズムを理解するために、 小さな数にして途中経過を表示させてみました。 For[a=1/6;buff={},FreeQ[buff,a],a=FractionalPart[2*a],Print[FreeQ[buff,a]];Print[a];Print[buff];AppendTo[buff,a];Print[buff];Print["\n"]] FreeQ[buff,a] a buff Position[buff,a] Length[buff]-Position[buff,a][[1]][[1]]+1 エレガントな解法に感服。 他の人のコードを読むのは勉強になります。 今後とも御助言をよろしくお願いします。 http://rio2016.5ch.net/test/read.cgi/math/1712376048/923
924: 132人目の素数さん [sage] 2024/05/07(火) 06:23:54.09 ID:H7owo3Tu >>923 正しく理解できているかを確認のために>912の神スクリプトをRに移植。 Rは分数のままでは扱えないので文字列と数字の変換操作を組み込んでコードした。 a="1/2024" buff=NULL while(!(a %in% buff)){ buff=c(buff,a) a |> str2lang() |> eval() -> b (2*b - floor(2*b)) |> MASS::fractions() |> as.character() -> a } length(buff) - which(buff==a) + 1 結果 > length(buff) - which(buff==a) + 1 [1] 110 http://rio2016.5ch.net/test/read.cgi/math/1712376048/924
925: 132人目の素数さん [sage] 2024/05/07(火) 07:40:30.08 ID:YxrXTNmg >>910 東大合格者が「高校数学」の質問スレに顕れるはずないだろ 何も書き込まず永遠に待ち続けてろ http://rio2016.5ch.net/test/read.cgi/math/1712376048/925
926: 132人目の素数さん [sage] 2024/05/07(火) 08:06:57.52 ID:H7owo3Tu >>925 東大合格通知を受け取ったことないの? ハガキ大で公印も押されてなくて有り難みのない書式だったぞ。 http://rio2016.5ch.net/test/read.cgi/math/1712376048/926
927: 132人目の素数さん [sage] 2024/05/07(火) 08:12:17.97 ID:hmx04nf+ >>926 だから何?wそれが何の証明になるんだよ アンタがそれに及ばないアホってことくらいみんな知ってるぞ? http://rio2016.5ch.net/test/read.cgi/math/1712376048/927
928: 132人目の素数さん [sage] 2024/05/07(火) 08:24:51.87 ID:OWQ6igFJ >>926 受け取ったことなんてあるはずないだろ 共通テストすらまだまだ先の高一なんだからさ 受け取ったことある人探してるなら他行った方が効率いいのに何でそうしないの? スレタイ読めないの? http://rio2016.5ch.net/test/read.cgi/math/1712376048/928
929: 132人目の素数さん [sage] 2024/05/07(火) 08:41:08.57 ID:H7owo3Tu >>927 やっぱり、受け取ったことないの? http://rio2016.5ch.net/test/read.cgi/math/1712376048/929
930: 132人目の素数さん [sage] 2024/05/07(火) 09:07:16.40 ID:WyT6FCmf >>924 分数が扱えないなら、リストへのアクセス時は、整数にしておけば良い For[a=1/2024;b=1/a;buff={},FreeQ[buff,a*b],a=FractionalPart[2*a],AppendTo[buff,a*b]]; Length[buff]-Position[buff,a*b][[1]][[1]]+1 最初から2024倍したものを扱うことにすれば For[a=1;b=2024;buff={},FreeQ[buff,a],a=Mod[2*a,b],AppendTo[buff,a]]; Length[buff]-Position[buff,a][[1]][[1]]+1 というわけで、極めて一般的な進法変換アルゴリズムに帰着。スタート地点はこれ。 エレガントな訳が無い。 http://rio2016.5ch.net/test/read.cgi/math/1712376048/930
931: 132人目の素数さん [sage] 2024/05/07(火) 09:15:31.56 ID:sUVPXx9P >>929 受け取ったことないね まだ高校生だから で、匿名掲示板でそれが東大合格の証明になるとでも? http://rio2016.5ch.net/test/read.cgi/math/1712376048/931
932: 132人目の素数さん [] 2024/05/07(火) 09:42:01.31 ID:mz0GVLy8 >>900 chatgpt4.0なら、間違えないんだろうか? http://rio2016.5ch.net/test/read.cgi/math/1712376048/932
933: 132人目の素数さん [sage] 2024/05/07(火) 11:28:34.10 ID:b9gnjkXf I[n] = ∫[1,e] (x^n)*(logx) dx とする。 (1)I[1]を求めよ。 (2)I[n+1]をI[n],...,I[1]のうち必要なもので表せ。 (3)I[5]を求めよ。 http://rio2016.5ch.net/test/read.cgi/math/1712376048/933
934: 132人目の素数さん [sage] 2024/05/07(火) 15:18:32.35 ID:kOLMFY+x >>930 Rは不定長整数に非対応。分母分子が大きくなると誤差がでてくる。 22桁までは表示してくれるが、あとは1.234567890.... e10とかいう表示法になる。 http://rio2016.5ch.net/test/read.cgi/math/1712376048/934
935: 132人目の素数さん [sage] 2024/05/07(火) 15:33:47.02 ID:F+MudCW0 >>723 怒涛のwolfram一行入力 5×6の場合 宝:1個 同等 宝:2~8個 短軸有利 宝:9~21個 長軸有利 宝:22~30個 同等 □■■■■■ □□■■■■ □□□■■■ □□□□■■ □□□□□■ 短軸有利☆ Table[sum[C(2n-1+C(0,n-2 mod7)+3C(0,n-4)+C(1,n-7),k-1),{n,1,14}],{k,1,30}] 長軸有利☆ Table[sum[C(2n-1+C(0,30mod n)-C(0,n-2)-2C(0,n-5)-C(1,n-8),k-1),{n,1,14}],{k,1,30}] 同等☆ Table[sum[C(2n-1-3C(1,n-9),k-2),{n,9,14}],{k,1,30}]+Table[C(29,k-1)+C(1,k),{k,1,30}] http://rio2016.5ch.net/test/read.cgi/math/1712376048/935
936: 132人目の素数さん [] 2024/05/07(火) 16:03:18.69 ID:OgbPgxVI 部分積分で ∫ (x^n) log(x) dx = (1/(n+1)) x^{n+1} log(x) − (1/(n+1))∫ x^n dx = x^{n+1}((n+1)log(x)−1)/(n+1)^2, x^{n+1} = u とおくと ∫ (x^n) log(x) dx = (1/(n+1)^2) ∫ log(u) du = u(log(u)−1)/(n+1)^2 = x^{n+1}((n+1)log(x)−1)/(n+1)^2, x=e^t とおくと ∫ (x^n) log(x) dx = ∫ e^{(n+1)t}・t dt = (1/(n+1))e^{(n+1)t}・t − (1/(n+1))∫ e^{(n+1)t} dt = e^{(n+1)t}((n+1)t−1)/(n+1)^2 = x^{n+1}((n+1)log(x)−1)/(n+1)^2, ∴ I[n] = (n・e^{n+1} +1)/(n+1)^2, (1) I[1] = (ee+1)/4 = 2.097264… (2) (3) I[5] = (5e^6 +1)/36 = 56.059555… http://rio2016.5ch.net/test/read.cgi/math/1712376048/936
937: 132人目の素数さん [sage] 2024/05/07(火) 16:06:36.52 ID:F+MudCW0 >>743 100円の商品を50円引きで買うと 50%の得 200円の商品を50円引きで買うと 25%の得 200円の商品を100円引きで買うと 50%の得 200円の商品購入時に 100円の商品の2倍の便益を得る とすると どちらも損得はないので③ http://rio2016.5ch.net/test/read.cgi/math/1712376048/937
938: 132人目の素数さん [] 2024/05/07(火) 18:00:43.13 ID:OgbPgxVI >>936 nを実数として (∂/∂n) x^n = (∂/∂n) e^{n・log(x)} = e^{n・log(x)}・log(x) = (x^n) log(x), I[n] = ∫[1,e] (∂/∂n) x^n dx = (d/dn)∫[1,e] x^n dx = (d/dn) [ x^{n+1} /(n+1) ](x:1→e) = (d/dn) (e^{n+1}−1)/(n+1) = (n・x^{n+1}−1)/(n+1)^2, http://rio2016.5ch.net/test/read.cgi/math/1712376048/938
939: 132人目の素数さん [sage] 2024/05/07(火) 18:08:35.51 ID:ztlCxBgs これだけ無駄口叩いて偉そうにしてるスレ違い続ける奴、 >>782の質問に誰も答えないのな 質問だけだと過疎スレになるとか言いつつ、 やってることは質問を埋もれさせて質疑応答を成り立たせない荒らしでしかない http://rio2016.5ch.net/test/read.cgi/math/1712376048/939
940: 132人目の素数さん [sage] 2024/05/07(火) 18:48:42.26 ID:Qu5ZrnNw リチャードファインマンの 『経路積分と量子力学』 http://rio2016.5ch.net/test/read.cgi/math/1712376048/940
941: 132人目の素数さん [sage] 2024/05/07(火) 20:02:47.44 ID:Qu5ZrnNw ◆予算は200円, 50円引きクーポン一枚 100円の商品二つをクーポン一枚で 購入すると、支払いは150円 200円の商品一つをクーポン一枚で 購入すると、支払いは150円 どちらも支払い総額が同じなので③ http://rio2016.5ch.net/test/read.cgi/math/1712376048/941
942: 132人目の素数さん [] 2024/05/07(火) 20:14:05.61 ID:OgbPgxVI >>938 最後の行 = (n・e^{n+1} +1)/(n+1)^2, でした。 http://rio2016.5ch.net/test/read.cgi/math/1712376048/942
943: 132人目の素数さん [] 2024/05/07(火) 20:30:48.09 ID:OgbPgxVI >>921 θ/2 方向の単位ヴェクトルをeとすると、 ↑OA・e = R cos(60°−θ/2) = R sin((60°+θ)/2) = BQ/2, ↑OB・e = R cos(60°+θ/2) = R sin((60°−θ)/2) = AQ/2, ↑OC・e = −R cos(θ/2) = −R sin(90°−θ/2) =−CQ/2, 辺々たすと ∴ 0 = AQ + BQ −CQ, ∴ AQ + BQ + CQ = 2CQ. http://rio2016.5ch.net/test/read.cgi/math/1712376048/943
944: 132人目の素数さん [] 2024/05/07(火) 20:49:25.33 ID:8fDbvOH9 初歩的なすみませんですみません この方程式の分母を払うとありますが具体的にどんな手順で進めればいいでしょうか? 最初の3(sθ-cθ)=sθ+cθへの式が形自体はわかるのですが、どことどこを掛けているのかわかりません またsin/cos=tanθの公式はわかりますがそこからなぜ2と求められるのか理解できません https://i.imgur.com/7yBBHLB.jpeg http://rio2016.5ch.net/test/read.cgi/math/1712376048/944
945: 132人目の素数さん [] 2024/05/07(火) 23:53:44.60 ID:OgbPgxVI =====●ここでチャレンジ!演習問題●===== No.1 (sinθ−cosθ)/(sinθ+cosθ) = 1/3 のとき、tanθの値として正しいものは 次のうちどれか。 正答: 2 解説:与式の分母を払う。 (sinθ−cosθ)/(sinθ+cosθ) = 1/3, 3(sinθ−cosθ) = sinθ + cosθ, 2sinθ = 4cosθ, 両辺を 2cosθ でわると、 sinθ/cosθ = 2, よって tanθ = 2, ------------------------------------------------------------- ・「分母を払う」とは、一辺の分母を両辺に掛け、 それによって反対の辺に移すことです。 al gabr ともいいます。 解説では、左辺の分母 sinθ+cosθ と 右辺の分母 3 を 同時に払っています。 http://rio2016.5ch.net/test/read.cgi/math/1712376048/945
946: 132人目の素数さん [sage] 2024/05/08(水) 00:09:23.03 ID:r6jtoBaY (sinθ-cosθ)/(sinθ+cosθ) = 1/3, 3(sinθ-cosθ)/(sinθ+cosθ) = 1, 3(sinθ-cosθ) = (sinθ+cosθ), 3sinθ-3cosθ = sinθ+cosθ, 3sinθ-sinθ = 3cosθ+cosθ, 2sinθ = 4cosθ, sinθ = 2cosθ, sinθ/cosθ = 2, tanθ = 2, http://rio2016.5ch.net/test/read.cgi/math/1712376048/946
947: 132人目の素数さん [sage] 2024/05/08(水) 09:20:33.93 ID:b5SPzEJZ 1より小さい分数 a を三進法で有効数字1000個で表示させたところ以下のようになった。 a の値となりうる分数をひとつ答えよ 0.00002111122020221212221022220111100202001010001200002111122020221212221022220111100202001010001200002111122020221212221022220111100202001010001200002111122020221212221022220111100202001010001200002111122020221212221022220111100202001010001200002111122020221212221022220111100202001010001200002111122020221212221022220111100202001010001200002111122020221212221022220111100202001010001200002111122020221212221022220111100202001010001200002111122020221212221022220111100202001010001200002111122020221212221022220111100202001010001200002111122020221212221022220111100202001010001200002111122020221212221022220111100202001010001200002111122020221212221022220111100202001010001200002111122020221212221022220111100202001010001200002111122020221212221022220111100202001010001200002111122020221212221022220111100202001010001200002111122020221212221022220111100202001010001200002111122020221212221022220111100202001010001200002111122020221212221022220111100202001010001200002111122020221212221022220111100202001010 あらゆるフリーリソースを用いてよい。 http://rio2016.5ch.net/test/read.cgi/math/1712376048/947
948: 132人目の素数さん [sage] 2024/05/08(水) 09:35:25.61 ID:Tk4OcJvs >>947 で、何が質問なんだ? 自分の頭の悪さを評価してほしいの? http://rio2016.5ch.net/test/read.cgi/math/1712376048/948
949: 132人目の素数さん [sage] 2024/05/08(水) 09:36:29.38 ID:zjoCghB1 xy平面上の曲線C:y=sinxを考える。 Cのa≦x≦a+πの部分の長さをL(a)とする。 aを0≦a<2πを動く実数とするとき、L(a)の取りうる値の範囲を求めよ。 http://rio2016.5ch.net/test/read.cgi/math/1712376048/949
950: 132人目の素数さん [sage] 2024/05/08(水) 10:29:51.24 ID:v2KqfhTl 最大値と最小値の差を求めよ とかならよかったのにな http://rio2016.5ch.net/test/read.cgi/math/1712376048/950
951: 132人目の素数さん [sage] 2024/05/08(水) 12:43:43.95 ID:b5SPzEJZ >>948 で、答は? http://rio2016.5ch.net/test/read.cgi/math/1712376048/951
952: 132人目の素数さん [] 2024/05/08(水) 13:35:30.87 ID:PF2QWNHC ありがとうございます 何となく理解できたような気がします 両辺に3を掛けて右辺の分母を払い、その後左辺のsin+cosを両辺にかけると言う手順でよろしいのでしょうか? √の有利化とごちゃまぜになって両辺にsin -cosを掛けていて全く式変形できなかったので止まっていました http://rio2016.5ch.net/test/read.cgi/math/1712376048/952
953: 132人目の素数さん [sage] 2024/05/08(水) 13:54:56.05 ID:Xak6Ai2d >>951 日本語通じてないチンパン発見w http://rio2016.5ch.net/test/read.cgi/math/1712376048/953
954: 132人目の素数さん [sage] 2024/05/08(水) 14:06:05.46 ID:s+WGObly >>951 答えが欲しいなら別のスレでやったほうがいいよ http://rio2016.5ch.net/test/read.cgi/math/1712376048/954
955: 132人目の素数さん [sage] 2024/05/08(水) 14:09:03.24 ID:Xak6Ai2d 尿瓶ジジイID:b5SPzEJZが建てたスレだからもう何言っても粘着するだろうから隔離スレ作るしかないかもね http://rio2016.5ch.net/test/read.cgi/math/1712376048/955
956: 132人目の素数さん [sage] 2024/05/08(水) 14:17:16.64 ID:pK/wXDEp >>951 答えが知りたいならそう書けば? 日本語使えないクレクレ乞食なの? http://rio2016.5ch.net/test/read.cgi/math/1712376048/956
957: 132人目の素数さん [sage] 2024/05/08(水) 15:20:54.80 ID:Q+Icxp4f >>944 グラフ化してTan[θ]=2を体感。 Jupyter経由でWolfram言語の練習 https://i.imgur.com/60vJN1K.png http://rio2016.5ch.net/test/read.cgi/math/1712376048/957
958: 132人目の素数さん [] 2024/05/08(水) 15:24:49.45 ID:YaCX0nxt >>951 ほらこのスレ行けよ 2度と出てくるなよ 東大合格者に問題を検証してもらうスレ https://rio2016.5ch.net/test/read.cgi/math/1714965157/ http://rio2016.5ch.net/test/read.cgi/math/1712376048/958
959: 132人目の素数さん [sage] 2024/05/08(水) 15:55:51.92 ID:uTbc2nqO √(√121 - √120)を簡単にせよ。 http://rio2016.5ch.net/test/read.cgi/math/1712376048/959
960: 132人目の素数さん [] 2024/05/08(水) 16:32:16.07 ID:9b91wrP+ 1/97 = 1/(10121_3) = 822334464710025874880/(3^48 -1) = 0.[0000211112 2020221212 2210222201 1110020200 10100012_3] 循環節の長さ: 48 = 1210_3 _3 は ternal 1/97 = N/(10^97 -1) = 0.[0103092783 5051546391 7525773195 8762886597 9381443298 9690721649 4845360824 7422680412 3711340206 185567] 循環節の長さ: 96 N = 10309278350515463917525773195876288659793814432989690721649484536082474226804123711340206185567, http://rio2016.5ch.net/test/read.cgi/math/1712376048/960
961: 132人目の素数さん [] 2024/05/08(水) 16:35:04.90 ID:9b91wrP+ ↑ 1/97 = N/(10^96 -1) でした。 http://rio2016.5ch.net/test/read.cgi/math/1712376048/961
962: 132人目の素数さん [] 2024/05/08(水) 16:47:18.61 ID:9b91wrP+ >>959 √121 − √120 = 11 −2√30 = 6 + 5 − 2(√6)(√5) = (√6 − √5)^2, (与式) = √6 − √5, http://rio2016.5ch.net/test/read.cgi/math/1712376048/962
963: 132人目の素数さん [sage] 2024/05/08(水) 16:52:21.30 ID:Q+Icxp4f >>947 眼力(良好な視力と記憶力)があれば、どこが循環節か見つけ出せるだろうけど。 プログラムの練習問題として使える。 不定長整数に非対応のRだと文字列として処理して算出。 Wolframだとそのあたりは効率がいい。 >952 θに惑わされるけど cosθ=x sinθ=y tanθ=t と置くと y=tx (sinθ-cosθ)/(sinθ+cosθ)=1/3 (y-x)/(y+x)=1/3 (tx-x)/(tx+x)=1/3 http://rio2016.5ch.net/test/read.cgi/math/1712376048/963
964: 132人目の素数さん [sage] 2024/05/08(水) 16:56:36.49 ID:Q+Icxp4f >>960 レスありがとうございます。 想定解通りです。 Wolfram言語の練習に自作して自答した問題です。 おまけ コードのサラダ txt="0.00002111122020221212221022220111100202001010001200002111122020221212221022220111100202001010001200002111122020221212221022220111100202001010001200002111122020221212221022220111100202001010001200002111122020221212221022220111100202001010001200002111122020221212221022220111100202001010001200002111122020221212221022220111100202001010001200002111122020221212221022220111100202001010001200002111122020221212221022220111100202001010001200002111122020221212221022220111100202001010001200002111122020221212221022220111100202001010001200002111122020221212221022220111100202001010001200002111122020221212221022220111100202001010001200002111122020221212221022220111100202001010001200002111122020221212221022220111100202001010001200002111122020221212221022220111100202001010001200002111122020221212221022220111100202001010001200002111122020221212221022220111100202001010001200002111122020221212221022220111100202001010001200002111122020221212221022220111100202001010001200002111122020221212221022220111100202001010 "; str=StringSplit[txt,"."][[2]]; str=StringSplit[str,""]; ls=Length[str]; d=str[[5;;ls]]; digits=1000; f[x_] := ( u=d[[1;;x]]; n=Floor[Length[d]/x]; Flatten[Table[u,n]]==d[[1;;(x*n)]] ) l=Select[Range[digits/2],f][[1]];(* l=48 *) StringJoin[d[[1;;l]]] nu=3^^211112202022121222102222011110020200101000120000; IntegerString[(3^48-1)*3^4,3] de=3^^2222222222222222222222222222222222222222222222220000; nu/de http://rio2016.5ch.net/test/read.cgi/math/1712376048/964
965: 132人目の素数さん [] 2024/05/08(水) 17:01:39.20 ID:9b91wrP+ >>949 dy/dx = cos(x), L(a) = L(0) = ∫[0, π] √{1 + (dy/dx)^2} dx = ∫[0, π] √{1 + cos(x)^2} dx = (2√2)E(1/2) = 3.820197789… 第2種完全楕円積分と云うらしい。。。 http://rio2016.5ch.net/test/read.cgi/math/1712376048/965
966: 132人目の素数さん [sage] 2024/05/08(水) 17:43:03.02 ID:Q+Icxp4f >>949 Rで作図 https://i.imgur.com/52jVoES.png http://rio2016.5ch.net/test/read.cgi/math/1712376048/966
967: 132人目の素数さん [sage] 2024/05/08(水) 17:49:56.49 ID:Q+Icxp4f >>944 cosθ ≠ 0 なら (sinθ−cosθ)/(sinθ+cosθ) = 1/3 は (tan(θ)-1)/(tan(θ)+1) = 1/3 の方がわかりやすいかもしれん。 http://rio2016.5ch.net/test/read.cgi/math/1712376048/967
968: 132人目の素数さん [sage] 2024/05/08(水) 19:41:00.14 ID:Xak6Ai2d ぶつぶつうるせーなチンパンジーが http://rio2016.5ch.net/test/read.cgi/math/1712376048/968
969: 132人目の素数さん [sage] 2024/05/08(水) 19:51:05.91 ID:s+WGObly >>968 触れないのが正解 粛々とNG http://rio2016.5ch.net/test/read.cgi/math/1712376048/969
970: 132人目の素数さん [sage] 2024/05/08(水) 19:52:24.90 ID:s+WGObly 次スレ 高校数学の質問スレ Part435 https://rio2016.5ch.net/test/read.cgi/math/1715164435/ http://rio2016.5ch.net/test/read.cgi/math/1712376048/970
971: 132人目の素数さん [sage] 2024/05/08(水) 20:21:47.83 ID:Q+Icxp4f >>935 Wolfram Scriptによるシミュレーションプログラム Wolfram言語の自習問題 * 宝は1マスに1個しか存在しないとする 5×6の場合 宝:1個 同等 宝:2〜8個 短軸有利 宝:9〜21個 長軸有利 宝:22〜30個 同等 □■■■■■ □□■■■■ □□□■■■ □□□□■■ □□□□□■ *) li=Range[30]; (* マスの番号 *) (mat=Table[li[[6i-5;;6 i]],{i,1,5}]) // MatrixForm (* Matrix(1:30,nrow=5,ncol=6, byrow=TRUE)*) short=Flatten[Table[mat[[All,i]],{i,6}]]; (* 短軸ルート 1,7,13,19,25,2,8,....,18,24,30 *) long=li; (* 長軸ルート *) sim[] := ( tre=RandomSample[li,RandomInteger[{1,30}]]; (* 30マス以下のマスに30個以下の宝をランダムに配置する *) Max[Position[short,#]& /@ tre] - Max[tre] (* すべての宝を得るまでに探索したマスの数の差:短軸探索数-長軸探索数 *) ) re=Table[sim[],1*^6]; Mean[Boole[# < 0 & /@ re]]//N (* 短軸有利割合 *) Mean[Boole[# == 0 & /@ re]]//N (* 同等割合*) Mean[Boole[# > 0 & /@ re]]//n (* 長軸有利割合*) Mean[re] (* 総合判断 *) Wolfram言語の使える方による推敲・最適化を期待します。 登録すれば無料で使えるので意欲的な高校生の参加も期待します。 医系ならR言語、理工系ならWolfram言語(Mathemaatica)は将来も役に立ちます。 http://rio2016.5ch.net/test/read.cgi/math/1712376048/971
972: 132人目の素数さん [sage] 2024/05/08(水) 20:24:55.33 ID:Q+Icxp4f Mean[Boole[# > 0 & /@ re]]//n (* 長軸有利割合*) ↓ Mean[Boole[# > 0 & /@ re]]//N (* 長軸有利割合*) Mean[re] (* 総合判断 *) ↓ Mean[re] //N(* 総合判断 *) http://rio2016.5ch.net/test/read.cgi/math/1712376048/972
973: 132人目の素数さん [sage] 2024/05/08(水) 20:41:53.56 ID:9bl+/S29 医者板では全く相手にされずにここで高校生相手にマウントを取ろうとするも逆にけちょんけちょんにされるも何事もなかったかのようにチンパン数学を垂れ流しております http://rio2016.5ch.net/test/read.cgi/math/1712376048/973
974: 132人目の素数さん [sage] 2024/05/08(水) 20:52:57.19 ID:o+7mX6D2 >>971 5 * 6 [2] : 203 , 197 , 35 5 * 6 [3] : 1801 , 1727 , 532 5 * 6 [4] : 11418 , 11008 , 4979 5 * 6 [5] : 55469 , 54036 , 33001 5 * 6 [6] : 215265 , 211894 , 166616 5 * 6 [7] : 685784 , 680768 , 669248 5 * 6 [8] : 1827737 , 1825076 , 2200112 5 * 6 [9] : 4130886 , 4139080 , 6037184 5 * 6 [10] : 7995426 , 8023257 , 14026332 5 * 6 [11] : 13346984 , 13395944 , 27884372 5 * 6 [12] : 19312228 , 19372871 , 47808126 5 * 6 [13] : 24301031 , 24358063 , 71100756 5 * 6 [14] : 26642430 , 26684251 , 92095994 5 * 6 [15] : 25463979 , 25488051 , 104165490 http://rio2016.5ch.net/test/read.cgi/math/1712376048/974
975: 132人目の素数さん [sage] 2024/05/08(水) 21:14:16.32 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/1712376048/975
976: 132人目の素数さん [sage] 2024/05/08(水) 21:20:47.36 ID:80mTSPJI >>975 min(p)-min(q) は max(p)-max(q)ではないでしょうか? http://rio2016.5ch.net/test/read.cgi/math/1712376048/976
977: 132人目の素数さん [sage] 2024/05/08(水) 21:26:58.86 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 -- 宝の、配列pでの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 -- 短軸方向探索pが先に宝をみつける 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/1712376048/977
978: 132人目の素数さん [sage] 2024/05/08(水) 21:32:32.19 ID:80mTSPJI 宝の数と配置をランダムに決めるとして 15×2のマスでもこの程度の差(単軸有利)に終わった。 > summary(re) Min. 1st Qu. Median Mean 3rd Qu. Max. -14.000 0.000 0.000 -0.212 0.000 13.000 Rのスクリプトが投稿されている。 他の人のプログラムを読むのは勉強になっていいなぁ。 http://rio2016.5ch.net/test/read.cgi/math/1712376048/978
979: 132人目の素数さん [sage] 2024/05/08(水) 23:13:57.87 ID:80mTSPJI 短軸 sマス 長軸 l マス 宝 t 個 のときの総当たり計算 f=\( s=5, # skort axis l=6, # long axis t=7){# tresure sl=s*l long=1:sl mat=matrix(long,ncol=l,nrow=s,byrow=TRUE) short=as.vector(mat) os=order(short) dif=combn(sl,t,\(x) max(os[x])-max(x)) list( 探索数差=mean(dif), 短軸有利=mean(dif<0), 同等=mean(dif==0), 長軸有利=mean(dif>0)) } f() http://rio2016.5ch.net/test/read.cgi/math/1712376048/979
980: 132人目の素数さん [sage] 2024/05/08(水) 23:16:00.17 ID:80mTSPJI 最初の宝をみつけるかmin、お宝全部みつけるかmaxのどちらで計算するかだな。 http://rio2016.5ch.net/test/read.cgi/math/1712376048/980
981: 132人目の素数さん [sage] 2024/05/08(水) 23:51:55.52 ID:o+7mX6D2 P君が縦にnマス, Q君が横にn+1マス移動時、 残ったマス数とk-1のコンビネーション 繰り返すだけ http://rio2016.5ch.net/test/read.cgi/math/1712376048/981
982: 132人目の素数さん [] 2024/05/09(木) 00:06:38.71 ID:vS28WcMc >>944 迂回(まわり道)解法 P: (x, y) = (r・cosθ, r・sinθ) とおけば y/x = tanθ, 軸を45°回して y=x をu軸、y=-x をv軸とすると (sinθ−cosθ)/(sinθ+cosθ) = v/u = tan(θ−45°), u軸上に Q: (x, y) = (3, 3) (u, v) = (3√2, 0) をとる。 ∠POQ = θ−45° となる点Pをとろう。 tan(∠POQ) = tan(θ−45°) = v/u = 1/3, (←題意) P: (u, v) = (3√2, √2) (x, y) = (2, 4) ∴ tanθ = y/x = 2, http://rio2016.5ch.net/test/read.cgi/math/1712376048/982
983: 132人目の素数さん [sage] 2024/05/09(木) 05:49:40.01 ID:RdQdgp2K ID:o+7mX6D2=ID:80mTSPJI http://rio2016.5ch.net/test/read.cgi/math/1712376048/983
984: 132人目の素数さん [sage] 2024/05/09(木) 07:41:10.03 ID:SqUSooPh >>981 それを多言語で自分の手足のように使って実装できるのがすばらしい。 http://rio2016.5ch.net/test/read.cgi/math/1712376048/984
985: 132人目の素数さん [sage] 2024/05/09(木) 07:49:21.97 ID:SqUSooPh 最初の宝をみつけるまでの探索数が少ない方が有利と判定することにして >979をWolframに移植 長短の差を大きめにして実行してみる。 (* s:短軸枡数 l:長軸枡数 t:宝の数 *) s=2; l=15; t=3; long=Range[s*l]; (mat=Partition[long,l])//MatrixForm; short=Flatten[Transpose[mat]]; tre=Subsets[long,{t}]; long; short; os=Ordering[short]; subsets=Subsets[long,{t}]; (* combn(long,t) *) nshort=Min[os[[#]]]& /@ subsets; nlong=Min[#]& /@ subsets; {"short search"->Mean[nshort],"long search"->Mean[nlong]} % //N dif=nshort-nlong; (* 探索枡差*) Histogram[dif,AxesLabel->{探索枡差(短軸-長軸),""}] sif=Sign[dif]; mshort=Mean@Boole[#==-1& /@ sif]; (* 短軸有利割合*) meven=Mean@Boole[#== 0& /@ sif]; (* 互角割合*) mlong=Mean@Boole[#== 1& /@ sif]; (* 長軸有利割合*) {"short beats"-> mshort,"even" ->meven,"long beats" ->mlong} % // N 実行結果 https://i.imgur.com/tc3ovoG.png http://rio2016.5ch.net/test/read.cgi/math/1712376048/985
986: 132人目の素数さん [sage] 2024/05/09(木) 08:13:38.84 ID:l48JEfyA > 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/1712376048/986
987: 132人目の素数さん [sage] 2024/05/09(木) 08:41:06.04 ID:RdQdgp2K 尿瓶朝っぱらからもうID変えたのかよめんどくせぇ http://rio2016.5ch.net/test/read.cgi/math/1712376048/987
988: 132人目の素数さん [sage] 2024/05/09(木) 09:15:41.06 ID:yYb3W7tm p,qを相異なる素数、nを自然数とする。 (p+qi)^nは実数でないことを示せ。 http://rio2016.5ch.net/test/read.cgi/math/1712376048/988
989: 132人目の素数さん [sage] 2024/05/09(木) 12:33:07.87 ID:SqUSooPh >>986 Wolfram言語の練習にその結果を検算 https://i.imgur.com/XHl6EHD.png 最終行 0:互角 −1:短軸有利 1:長軸有利 結果は合致したので Wolframで正しくコードできたと実感できた。 http://rio2016.5ch.net/test/read.cgi/math/1712376048/989
990: 132人目の素数さん [sage] 2024/05/09(木) 19:45:32.67 ID:sBNvJAPA >>989 いつになったら日本語理解できんだよ? http://rio2016.5ch.net/test/read.cgi/math/1712376048/990
991: 132人目の素数さん [sage] 2024/05/09(木) 22:30:04.32 ID:VA/8d2rk >>964 コードのサラダって何だよアホか 言葉のサラダ(統合失調症に特徴的な症状)だろアンタは http://rio2016.5ch.net/test/read.cgi/math/1712376048/991
992: 132人目の素数さん [sage] 2024/05/10(金) 05:02:28.89 ID:esg1TcXl 凸四角形ABCDの頂点の座標から A,Bを通り、CーDを結ぶ直線と接する円を描画するプログラムを作成せよ。 http://rio2016.5ch.net/test/read.cgi/math/1712376048/992
993: 132人目の素数さん [sage] 2024/05/10(金) 05:03:33.15 ID:esg1TcXl R言語やWolfram言語が使える人はちゃんとしたレスをしているなぁ。 助言より罵倒を喜びとするPhioseくんらの集団が東大合格者だと思う人はその旨をレスしてください。 http://rio2016.5ch.net/test/read.cgi/math/1712376048/993
994: 132人目の素数さん [sage] 2024/05/10(金) 06:11:20.21 ID:tIlXy57I >>993 どうせアンタの自演だろ 他はもうスレチに飽き飽きしてるから http://rio2016.5ch.net/test/read.cgi/math/1712376048/994
995: 132人目の素数さん [sage] 2024/05/10(金) 06:28:02.54 ID:tIlXy57I >>993 大体アンタのどこが助言なん?w 誰にも求められてないしただスレチなことをブツブツほざいてるだけの日本語通じない統失チンパン ご丁寧にスレ誘導までしてくれてるのにその助言を一切無視してここのスレに粘着して発狂してるのがアンタ この日本語も理解できないのか?アンタの知能レベルだと http://rio2016.5ch.net/test/read.cgi/math/1712376048/995
996: 132人目の素数さん [sage] 2024/05/10(金) 07:51:10.17 ID:LuJ/YByN プログラムを本気で学ぶつもりならム板が正解だろ 全方向に中途半端なんだよな 高校生にしかイキれない大人 クソダサい http://rio2016.5ch.net/test/read.cgi/math/1712376048/996
997: 132人目の素数さん [sage] 2024/05/10(金) 08:45:11.95 ID:M//P1S5U >>993 悪口すら綴りまともに書けないのかよ ゴミすぎだろ http://rio2016.5ch.net/test/read.cgi/math/1712376048/997
998: 132人目の素数さん [sage] 2024/05/10(金) 10:00:28.77 ID:CQVVHvgk >>993 Phioseって何だよ尿瓶ジジイw 日本語も不自由なら他の言語もお察しってことねww あー恥ずかしw http://rio2016.5ch.net/test/read.cgi/math/1712376048/998
999: 132人目の素数さん [sage] 2024/05/10(金) 14:59:38.72 ID:LuJ/YByN 質問いいですか http://rio2016.5ch.net/test/read.cgi/math/1712376048/999
1000: 132人目の素数さん [sage] 2024/05/10(金) 15:17:52.27 ID:mOhhnf0r 1000なら今後尿瓶ジジイ>>993は書き込み禁止 http://rio2016.5ch.net/test/read.cgi/math/1712376048/1000
1001: 1001 [] ID:Thread このスレッドは1000を超えました。 新しいスレッドを立ててください。 life time: 34日 2時間 17分 5秒 http://rio2016.5ch.net/test/read.cgi/math/1712376048/1001
1002: 1002 [] ID:Thread 5ちゃんねるの運営はUPLIFT会員の皆さまに支えられています。 運営にご協力お願いいたします。 ─────────────────── 《UPLIFT会員の主な特典》 ★ 5ちゃんねる専用ブラウザからの広告除去 ★ 5ちゃんねるの過去ログを取得 ★ 書き込み規制の緩和 ─────────────────── 会員登録には個人情報は一切必要ありません。 4 USD/mon. から匿名でご購入いただけます。 ▼ UPLIFT会員登録はこちら ▼ https://uplift.5ch.net/ ▼ UPLIFTログインはこちら ▼ https://uplift.5ch.net/login http://rio2016.5ch.net/test/read.cgi/math/1712376048/1002
メモ帳
(0/65535文字)
上
下
前
次
1-
新
書
関
写
板
覧
索
設
栞
歴
スレ情報
赤レス抽出
画像レス抽出
歴の未読スレ
AAサムネイル
Google検索
Wikipedia
ぬこの手
ぬこTOP
0.016s