高校数学の質問スレ Part437

>>626
あなたの言動も誰も信じてなさそうですよねｗ

>>627
重心の座標もリスク比も算出できない方が数学苦手なんじゃないの？

>625
洗濯は洗濯機で、計算は計算機で

６桁の場合

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

In[1]:= n=6;

In[2]:= y=Table[{x,Length@Divisors[x]},{x,10^(n-1),10^n-1}];

In[3]:= max=Max[#[[2]]&/@y];

In[4]:= Select[y,#[[2]]==max&]

Out[4]= {{720720, 240}, {831600, 240}, {942480, 240}, {982800, 240}, {997920, 240}}

もう少し可読性のよりコードが書ける方の推敲希望。
東大卒やエリート高校生ならWolfram言語くらい使えるんじゃないの？
医系ならR言語かもしれんが。

>>623
んで、与えられたデータからリスク比計算できたの？
俺はベイズの手法で算出（RでJAGS使った）したので、別の方法での値と称号したいのだが。

>>622
まず、数字が並んでいるのはサブグループでの話だろ。

マスク信奉者がマスクをした場合とマスクをしない場合の比較はあったが、
当該論文で比較されていない、マスク信奉者とマスク非信奉者がマスクを装着した場合の発症リスクを比較せよ
という簡単な問題なんだが。

>>631
マスク信奉者がマスクをした場合とマスクをしない場合の比較はあったが
↑
ハイダウトです
英語苦手なんですか？

pとp^4+14のいずれかは素数でないことを示せ。

x^3+1=pq
を満たす自然数xと素数p,qの組(x,p,q)は無数に存在するか。

>>331
ゴミは何を指摘されてるかすらわからない
うっかり間違いする事はいいとして、間違いを指摘されてなお、自分の過ちが理解できないのは桁違いのポンコツ

p⁴＋14 ≡ 0 ( mod 5 ) unless p =5

>>634
この問題は、整数解を求めるディオファントス方程式の一種です。
ディオファントス方程式は、一般に解が存在するか、存在するとしても有限個か無限個か、を判定することは非常に困難な問題です。
特定の条件下で解の存在や個数に関する定理が知られている場合もありますが、今回の問題に直接適用できるような一般的な定理は、現時点では見つかっていません。

>>633
証明:

ケース1: p = 2 のとき

p^4+14 = 2^4 + 14 = 30
30は明らかに合成数であるため、この場合、p^4+14が素数でない。

ケース2: p = 3 のとき

p^4+14 = 3^4 + 14 = 95
95は5と19の積で、合成数であるため、この場合もp^4+14が素数でない。

ケース3: p ≧ 5 のとき

pは5以上の素数なので、3の倍数ではない。

したがって、pを3で割った余りは1または2である。
pを3で割った余りが1のとき:
p = 3n + 1 (nは自然数)とおける。
p^4+14 = (3n+1)^4 + 14 = 81n^4 + 108n^3 + 54n^2 + 12n + 15
上の式は3で割り切れるため、p^4+14は合成数である。
pを3で割った余りが2のとき:
p = 3n + 2 (nは自然数)とおける。
p^4+14 = (3n+2)^4 + 14 = 81n^4 + 216n^3 + 216n^2 + 96n + 30
上の式も3で割り切れるため、p^4+14は合成数である。

>>626
尿瓶ジジイの脳内医療とチンパン数学は信じられてないというか相手にされてないww

ID:PWdeOkwv
>>626医者板では散々論破されて何も言えなくなってる模様

647：卵の名無しさん (ﾜｯﾁｮｲ bf8f-11V+ [240a:61:1196:5029:*])：2024/08/03(土) 15:21:02.48 ID:nWu3/pSU0
>>646
尿瓶ジジイさん最近大人しいねここではwww
みんなに馬鹿にされて自分がアホだということに気づいた？

https://egg.5ch.net/test/read.cgi/hosp/1718544450/

ID:PWdeOkwv
>>626医者板では散々論破されて何も言えなくなってる模様

↓尿瓶ジジイID:PWdeOkwvぐうの音も出ない都合の悪いレスは全てスルーしてまた何事もなかったかのような発狂w
認知症ひどすぎw

これはどういう発想で回答の最初に絶対値記号をつけているんですか？何か必要性があるんですか？
https://i.imgur.com/V0KhGNg.jpeg

解答を短くまとめるため

絶対値を使わないと
－x≦f(x)－f(0)≦x
と上下から0に近づけることになり
解答の最初が1行で書けなくなる

If[a b c ==0]と書くほうが
If[a==0 || b==0 || c==0]と書くより楽
みたいなものか。

>>632
表になってるじゃん。
https://i.imgur.com/PHaLPnO.png
本文でもリスク比が１を跨がない組み合わせと書いてあるんだが。

>>635
自演認定は何度も指摘されているぞ。
俺と違ってエレガント解を連投しているので別人だとすぐわかるがね。

公共の場でのマスク着用、呼吸器感染症の発症予防効果は BMJ
https://www.ncbi.nlm.nih.gov/pmc/articles/PMC11267995/


COVID感染の割合は介入群、コントロール群で各々、
検査自己申告で21/1834 : 21/1967
（医療機関で）登録で0/1834 : 2/1967
であったという。

問題
後者の0/1834 : 2/1967からリスク比と信頼区間を推定せよ。
計算に必要な条件（ベイズだと事前分布）は適宜設定してよい。

頻度主義統計だとエントリーに０があると行き詰まる。
上記論文でも算定できないとして算出されていなかった。

これは厳密値は高校数学で習う表記法（四則演算や,sin cos, logなどの組合せ）では表せない値になるのだろうか？

xy 平面上において x3+y3−3axy=0
で表される曲線をデカルトの葉線と言う。
https://manabitimes.jp/math/1306

a=1のときこの線の囲む領域の重心の座標を算出せよ。

参考画像
https://i.imgur.com/51eMWPw.png
東大卒やエリート高校生による算出を希望します。

>>643
なるほど
ありがとう

>>645
マスクを信奉してるかどうかとは1mmも書いていない気がするんですがどの文章ですか？

x = 3p/(1+p^3)
y = 3p^2/(1+p^3)
Integrate[-y D[x,p],{p,0,Infinity}]
Integrate[-x y D[x,p],{p,0,Infinity}]
Integrate[-(1/2)y^2 D[x,p],{p,0,Infinity}]

>>646
文脈読めないんですか？
僕のレスでは無いですがどう見ても自演がどうとかそういう話じゃないですよね
国語も苦手なんですか？

デカルトの葉線の重心を計算
https://i.imgur.com/51eMWPw.png

Wolframのソルバーで x^3+y^3-3*x*y=0の実数解を出して
ループ形成する範囲での差を重みとして原点周りのモーメントを積分すれば
重心の座標が出せるはず、

というアルゴリズムでコーディング
x2dy[x_] :=(
y0=y /. Solve[x^3+y^3==3*x*y, y,Reals];
re=Simplify@Differences@Select[y0,0<= # <=2^(2/3) &];
If[x==0 || re=={},0,re[[1]]]
)
NIntegrate[x*x2dy[x],{x,0,2^(2/3)}]/NIntegrate[x2dy[x],{x,0,2^(2/3)}]

エラーが返ってきてバグの原因がわからんので
同じアルゴリズムでRで書くことにした。
Rにはソルバーはないが二次項がないのでカルダーノの式を使う。

計算結果
> S=integrate(x2dy,0,x1,rel.tol = 1e-12)$value
> G=integrate(\(x) x*x2dy(x)/S,0,x1,rel.tol = 1e-12)$value
> c(G,G)
[1] 0.8061331 0.8061331
Rでの算出なので小数表示になる。

東大卒やエリート高校生による検証を希望します。

>>646
自演認定の話なんて誰がしてるんだよマヌケ
やっぱり日本語不自由なんだね
そんなに自演だって言いたいのか？w

まず重心の求め方ｇｇｒｋｓ

>>646
ある問題文に対して同じ誤解をする別人ｗ

別人のフリをしてもバカは隠しきれないみたいだねw
エレガント解ww

偽医者さんは妄想に囚われているんですね
多分病気だと思います
精神が分裂するやつです

ある高さからある角度で見下ろした時の距離を調べたくて何となく直角三角形の高さと角度から求めれば良さそうと思ったんですが実際にどう計算すれば良いかわからない。斜辺＝高さ/sinθらしいけどsinθが高さ/斜辺との事でわけわかめ

>>653
直交座標で陰関数表示できているのでMonteCarlo法での近似は容易。
Wolfram Language 14.0.0 Engine for Microsoft Windows (64-bit)
Copyright 1988-2023 Wolfram Research, Inc.

In[1]:= x1=y1=2^(2/3);

In[2]:= d=0.001;

In[3]:= pts=Partition[Flatten@Table[{x,y},{x,0,x1,d},{y,0,y1,d}],2];

In[4]:= xy=Select[pts,#[[1]]^3+#[[2]]^3 <= 3 #[[1]] #[[2]]&];

In[5]:= Mean[xy]

Out[5]= {0.806146, 0.806146}

Rでの数値積分での値と近似しているので正しい値なのだろう。

東大卒やエリート高校生による厳密解の算出を希望します。

>>660
尿瓶ジジイ>>652や>>658にはやっぱりダンマリ決め込むしかないみたいだね
自演とバレてもう自分で自分のレスしか付けられないなんて実に哀れ

厳密解が出せないので質問します。

パスカルのカタツムリ
r=2cos(θ)+1
https://i.imgur.com/V8U2rOl.png
において
図の黒の領域、黒の領域を含み赤線で囲まれた領域、黒の領域を含まず赤線で書かれた領域の重心の座標を求めよ。

>>662
これが高校数学の質問じゃないってことが分からんくらいアホなのか？

>>662
Wolframで作図の練習
厳密解が出せないので近似数値での作図。
https://i.imgur.com/JaJObzH.png

カルダーノの方法くらい
エリート高校生なら知っているはず。
覚えていなくても高校範囲で理解できる数式展開である。

極形式で表された図形の面積や周長の算出はよくみかけるけど
重心の座標を求めさせる問題がないのは、
きりのいい値になる場合が少ないからだろうなぁ。
カージオイドの重心のようなのが例外的なのだろう。

問題の意味が高校数学の範囲で理解できれば構わないと思うね。
小学生が四色問題の質問をしても現状を教えればいいだけの話。

>>667
質問と出題の違いが分からない小学生以下のアホは書き込む資格ないってことが分からんのか？

>>665
あ、Wolfram言語の人だ。
Wolfram言語とは方向性が違うだろうけど、ぜひともHaskell覚えてほしい。

Wolfram言語は数学関係なら何でも揃ってる言語だろうけど、Haskellは集合論から自然数作るみたいな、少ない材料で作る楽しみがある言語。
（だからHaskell好きには数学好きが多いと言われている）

圏論のモナドを使って副作用問題を解決しているとか、遅延評価だとかでPCで動く数学みたいな言語のためか、Haskellそのものが研究の対象にもなっている。

>>662
おまけ

r=2cos(θ)+1
のθを0°から360°まで変化させてどの順にパスカルのカタツムリが描かれるかをR言語で動画化。
https://i.imgur.com/cLjYmTP.gif

Wolframでのanimation化はスキル不足のため作れず。

>>670
で、質問と出題は辞書で調べたか？
それとも日本語不自由だから辞書引いても理解できないのか？

>>669＝>>665
別人だと思う人はレスしてください

parametricplot

別人ですよ？
Wolfram言語使えないですし。

あ、>669 です。

句読点の付け方がそっくりだねw
やっぱりスレタイ読めないと文の特徴も似てくるのかなぁ？

てか本人達がいくらほざいても無駄なこと分からんのか？
他人が決めることだろw

数式展開である。
みたいな、偉そうな文書いてないけど…そっくりなんだ＾＾；

まあ、>665 さんがHaskellに興味持ってくれさえすれば良いんで（もちろん、他の人も興味持ってもおｋ）、どうでもいいけど。

まあ自演だろうなと思うだけでこちらもどうでもいいです、どのみちスレタイ読めないみたいなので

664：卵の名無しさん (ﾜｯﾁｮｲ 2274-40h2 [2a02:6ea0:c132:0:* [上級国民]])：[sage]：2024/08/04(日) 21:40:12.47 ID:1HbuwA7g0
f[x_,y_] := (x^2+y^2-2*x)^2-1^2*(x^2+y^2);
d=0.001;
pxy=Partition[Flatten@Table[{x,y},{x,-1/8,3,d},{y,-1.8,1.8,d}],2];
xy=Select[pxy,(#[[1]]^2+#[[2]]^2-2*#[[1]])^2-1^2*(#[[1]]^2+#[[2]]^2)<=0&];
Mean[xy][[1]]

また例のスレでスレタイ読めないアホが発狂中

なんで高校でやらないかって難しいからに決まってるやろ
バカじゃないのか
あ、バカだったなw

>>669
すごいHaskellとかいう象の絵が表紙にある本は途中まで読んだ。
モナドの概念もよくわからなかった。
Haskellが手足のように使える人は凄い人だと思う。

不定長整数が扱えるので分数解が出せて便利だとは思ったが
結果をすぐにグラフ化できないのでR言語に戻った。

ちなみに、R言語は統計処理の道具は揃っているけど、
円を描くにも関数を自作する必要がある。
その意味では、
＞少ない材料で作る楽しみがある言語
といえる。
２つの円の交点を出す関数とか、垂直二等分線の方程式を返す関数とか
色々自作して道具箱にとってある。

>>678
Wolfram言語が読める人なら理解できるかもしれんが、
>662をモンテカルロ法で検証するためのWolfram言語のコード。
偏心ドーナツ型の領域のX座標を叩き出すはず。

実行すると
1.43721
になるので、積分もどきで出した近似解とほぼ合致しているのが確認できる。

>>681
で、いつになったらスレタイ読めるの？

>>680
スレ違いだから、ここまでにするけど…。
モナドは、突き詰めればアウトソーシングを数学的に表した概念ですね。

ListモナドやMaybeモナドはアウトソーシング先が同じ数学の世界なだけで。
IOモナドはハードウェアへのアウトソーシングです。
（厳密には、ハードウェアと遣り取りするバッファがIOモナドと言った方が良い）

動きとしては、箱（アウトソーシング先）のようなものから値を取り出して、関数で「何か加工して箱のようなものに戻す」。という動きをしています。

これは厳密解が簡単に求まるなぁ。

サイクロイド曲線 C:
x(θ)=a(θ−sin⁡θ)
y(θ)=a(1−cos⁡θ)
(0≤θ≤2π)
について，
C と x 軸で囲まれた領域 の重心の座標を求めよ。

参考画像
https://i.imgur.com/HXTVTnB.png

Wolfram言語のコードのサラダ
x[t_] := t - Sin[t];
y[t_] := 1-Cos[t];
S=Integrate[y[t]D[x[t],t],{t,0,2Pi}]
V=Integrate[Pi y[t]^2 D[x[t],t],{t,0,2Pi}]
V/(2Pi S)

pts=Partition[Flatten@Table[{t - Sin[t],1-Cos[t]},{t,0,2Pi,0.01}],2];
pol=Polygon[pts];
G=RegionCentroid[pol];
Graphics[{LightPurple,pol,Black,Text["G",G]},Axes->True]

偽医者さんまた精神分裂したんですか？

>>667
あなたの意見は聞いてません
1対大多数でスレ違いです早く消え失せない自演までして恥を知りなさい

>>684
パップス=ギュルダンの定理を使わずに算出するWolfram言語のコード

x[t_] := t - Sin[t];
y[t_] := 1-Cos[t];
S=Integrate[y[t]D[x[t],t],{t,0,2Pi}];
f[y_] :=(
If[y==0,Return[2Pi]];
tt=Solve[y==1-Cos[t] && 0<=t<=2Pi,t];
t1 = t /. tt[[1]];
t2 = t /. tt[[2]];
Abs[x[t1]-x[t2]]
)
Integrate[y f[y],{y,0,2}]/S

すべての値が合致（近似）したのでそろそろ寝るかな。
明日は内視鏡バイトの日だし。

>>687
結局何一つ反論できず今日はご臨終かよ

>>686
Haskellが使える有能な方と同一視されるのは名誉なことかもしれんが、
Haskellは一介の臨床医には難しすぎるんだよなぁ。

Rが使える臨床医はままいる（底辺シリツ医は除く）が、
Haskellが使える臨床医には会ったことがないなぁ。

Rは引数なしで入力するとソースコードが表示される（すべての関数ではないが）ので
それを改造して使えるのが( ・∀・)ｲｲ!!

>>688
何一つ、計算できないのが遠吠えしているなぁ。
サクッと重心の座標とかリスク比とか算出して投稿すればいいのに。
foreskin弄りで忙しすぎるのか？

>>689
Haskellが使えたら有能なんですか？＾＾；

全然そんな事ないのですが…。
おやすみなさいです。ノシ

>>690
スレタイ読めないアホが1日の最後の最後まで発狂中w
そしてなんで同時に湧いてくるのでしょうか？w

>>662
赤線内(全体)のとき
S = 2π + (3/2)√3 = 8.88126152
X = ((8/3)π + (9/4)√3) / S = 12.2756947 / 8.88126152 = 1.38220169
Y = 0,

黒抜きのとき
S = π + 3√3 = 8.33774508
X = (8π/3 + 9√3) / S = 11.9840188 / 8.33774508 = 1.437321325
Y = 0,
>>681 とほぼ一致

>>662
黒だけのとき
S = π - (3/2)√3 = 0.54351644
X = ((4/3)π - (9/4)√3) / S = 0.29167589 / 0.54351644 = 0.53664594
Y = 0,
0≦X≦1 だが X=0 は尖っていて X=1 は丸いから重心は右寄り (X > 0.5)

↑
黒抜き
X = ((4/3)π + (9/2)√3) / S = 11.9840188 / 8.33774508 = 1.437321325

>691 ですが、コテハンになろうかと。
固定ハンドルネームは「高卒のHaskeller」です。

ほら、有能じゃないでしょ？
高卒が使えるんだから、Wolfram言語の人は余裕でHaskell覚えられますよ。
数値計算がWolfram言語なら、Haskellは代数学とかそっち系。

拡張命令でデフォルトで読み込むライブラリも切って、足し算すら使えない状態で足し算から自作したりできる。

>>684
wwwwww能無しwwwwwwwww

偽医者さんマジで精神分裂しちゃいましたね

これも厳密解が簡単に求まる。
y=sin(x) 0<=x<=π
と x 軸で囲まれた領域 の重心の座標を求めよ。

>>691
ラテン語が使えるくらい有能だと思う。
俺はcogito ergo sum.くらいしか知らん。

>>693
算出ありがとうございます。これも厳密解が簡単に求まるなぁ。
>665の作図に使った近似値とほぼ合致です。

> あ、Wolfram言語の人だ。
> Wolfram言語とは方向性が違うだろうけど、ぜひともHaskell覚えてほしい。
からの
> 別人ですよ？
> Wolfram言語使えないですし

これ、完全にさぁ
身勝手に身勝手を重ねて更に
構ってちゃんに構ってちゃんが重なった
テメェ勝手の極致じゃん

はい、自己愛性人格障害

移動中に作図できた問題、面積算出は帰宅後にしよう。


猿の惑星Eがあって公転半径Re 、角速度ωeで公転している。
Eを中心に衛星Mが公転半径Rm、角速度ωmで公転している。

Re/Rm=5, ωe/ωm=10のときの衛星Mの軌道を作図せよ。
Rm=1のときのMの軌道に囲まれた領域の面積を算出せよ。

また尿瓶劇場かよw

問題の意味は小学生にでもわかる問題


小学生の孫娘（愛人の子供でもよいｗ）から
地球は太陽の周りを回っていて、月は地球の周りを回っていると習ったけど、
月はどんな動きをしているのか
と聞かれたときに、月の軌道を示すアニメーションを作れ。

定性的に示せればいいので公転半径や角速度は適当でよい。
（実際の値を使うとほぼ円になって面白くない。）

>>705
アンタ小学生にもわかる日本語すら分からないみたいだけど？
もう一度スレタイ声に出して読んでみ？

>>704
You are free to figure out if you were competent enough.

>>707
お前よりは有能

>>707＝尿瓶ジジイが以前ドヤ顔でほざいてたチンパン英語とくとご覧あれ

724 卵の名無しさん (ﾜｯﾁｮｲ 3358-8TD4 [14.13.16.0])[sage] 2022/10/05(水) 13:30:27.35 ID:rczEbvNg0
I told my colleage nureses that I have such allergy to beauties that I feel itchy everywhere when I work with them.
Ahahahahahah

>colleage
>nureses

920 卵の名無しさん (JP 0H52-BsRZ [217.138.212.122 [上級国民]])[sage] 2023/03/24(金) 15:55:12.52 ID:sCq5Ou+HH
先々週のseptick shockの患者、懇意なナースに聞いたらもう食事が始まっていますよと教えてくれた。
夜遅くまで麻酔をかけたのが報われた感じで気分が( ・∀・)ｲｲ!!
報酬も良かったし

>septick shock

お分かりいただけただろうか？nurseの複数形すら間違えるアホが英語だのドイツ語だの笑わせるねw
その前に日本語通じてないしなw

なんでスレタイも読めないのに当然英語もどきを話そうとするの？

>>705
>>1
・出題スレではありません。出題は該当スレにお願いします。
スレタイもテンプレも読めないのに何ができるの？

>>699
S = ∫[0,π] y dx
　= ∫[0,π] sin(x) dx
　= [ -cos(x) ](x=0→π)
　= 2,
2S・Y = ∫[0,π] yy dx
　= ∫[0,π] (sin x)^2 dx
　= (1/2)[ x − sin(x)･cos(x) ](x=0→π)
　= π/2,
Y = π/4S = π/8,
G (π/2, π/8)

>>712
想定解通りです。

公転する地球の周りを公転している月はどんな軌道を描いているのか？
これは小学生でも興味があると思う。
まあ、公転半径の差を小さくして作図する方がわかりやすい。

>>708
動画作成すらできないのに？
foreskin弄りで有能なんだろうｗ

>>715
スレタイすら読めずにバカにされて発狂かよ

正論でボコされたせいか勢いなくなってきたね
いずれ医者板みたいにコソコソ書き込むしかなくなるのかw

>>715
スレタイすら読めないんだからそりゃそうでしょ

>>714
惑星の公転半径５、角速度１
その周りを公転する衛星の公転半径１、角速度１０
として惑星と衛星の軌道を動画化。（R言語で作成）

https://i.imgur.com/w3ba9XP.gif

他言語で作成したもっとエレガントな動画の投稿を期待します。

有能を自負する方が投稿してくれるんでしょうなぁ。

>>719
で、スレタイすら読めないボンクラは一体何の役に立つんだよ？
ここでバカにされることくらいか？

https://sagecell.sagemath.org/?z=eJylkMFOAjEQhu8kvMMED7RQNixevPQl1NtmQ2brAE1226YtWn16W5GFBONB5zKTv5l-8_8JJDw9Vq_o2SzN-HTSYaBeG4L8wBx6HCh6rbaut5E1db1QNrDEl6U9LBIXWQraFKm0IrWiSWLltHC6FYDBkYpbj1FbWQt4H7SRq3pTJkyy3vBr6vJXKox1wY7SH7D5BwrZaHPhAwNntYmMfVPV2asavaqzV8W5AL_vlO2tl_OuP9JcnPaD_iB5vxawQ0WRXuSzP1Jhwk39xLwxeiX9h7mzHhRoAyF5NHtip8DEuqp5O51gDgONHjAS-wonL985X27DPGIVDvaN8U90fqLx&lang=sage&interacts=eJyLjgUAARUAuQ==

ボンクラチンパンが電卓を叩いてキーキー喜んでるw
今日も性懲りも無く発狂中w

>>719
Wolfram言語で動画作成ができるほど有能ではないが、
衛星の軌道の画像なら作成できた。
https://i.imgur.com/wd6GIYj.png

朝飯前の課題
衛星の軌道の長さを算出せよ。
小数表示でよい。

>>722
当方の環境では
Unfortunately, we can no longer allow user code in cells to freely access Internet. See this discussion for details.
というメッセージが返ってきました。

>>723
で、動画投稿まだなの？

>>723
さくっとエレガントな動画を投稿すればいいのに、
自称、有能なんだろ？