[過去ﾛｸﾞ] 高校数学の質問スレ（医者・東大卒専用） Part438 (1002ﾚｽ)
上下前次1-新
このｽﾚｯﾄﾞは過去ﾛｸﾞ倉庫に格納されています｡
次ｽﾚ検索 歴削→次ｽﾚ 栞削→次ｽﾚ 過去ﾛｸﾞﾒﾆｭｰ
292: 2024/11/01(金)08:30 ID:gUGEa7u0(1) AAS
キングびんぼー
碌でもないな。
293(1): 2024/11/01(金)09:01 ID:xXgu6Jsk(1) AAS
>>290
その理屈で言うと、あなたの時は二次試験に英語がなかったってことにならない？
294: 2024/11/01(金)11:10 ID:7pdsUOnQ(1) AAS
>>293
スレタイすら読めないから、国語も無かったし、数学論理を全く理解してないから、数学も無かったんだろうね
合格したことないからコンプ拗らせてるんだろw
295(1): 2024/11/01(金)11:42 ID:u3kBwXIx(1) AAS
r1=4
n1=4798
n2=1e6
r2=r1*n2/n1
k=1e5
p4=rbeta(k,1+r1,1+n1-r1)
p834=rbeta(k,1+r2,1+n2-r2)
省9
296: 2024/11/01(金)11:57 ID:YYD9+mgY(1) AAS
ずっと同じ事書いてるし書いた事すら忘れてんだから備忘録の意味無いじゃん
認知症患者は辛いな
297: 2024/11/01(金)12:30 ID:6TbWLXwL(1) AAS
>>289
ありがとうございます
298: 2024/11/03(日)13:31 ID:M9AqfdYU(1) AAS
>>295
認知症患者息してないのか
299(1): 2024/11/03(日)20:44 ID:n3NWC9t5(1/2) AAS
画像ﾘﾝｸ[jpeg]:i.imgur.com
この（6）の3行目は正しく、（7）の3行目は間違いなのはなぜでしょうか？
同じような書き方に見えるのですが
300(1): 2024/11/03(日)20:46 ID:n3NWC9t5(2/2) AAS
すいません、画像わかりやすく切り取ったものがこちらです
画像ﾘﾝｸ[jpeg]:i.imgur.com
301: 2024/11/04(月)07:56 ID:pGz/mTDl(1) AAS
>>299
f(x)=0とa≦x≦<b
から存在する(∃;Exists)xは示せるが、
f(x)=0とa<x<b
から任意の(∀;for All)xは示せないから
302(1): 2024/11/08(金)22:01 ID:cKORtqw5(1) AAS
>>300
∃は存在さえ示せればいい（例外がいくらあっても１個でも該当すればいい）
f(x) = 0 (何受け取っても０を返す関数)
-2 < x < 4 , f(-1) = 0 -- OK
-2 < x < 4 , f(-3) = 0 -- NG
∀は全てのなので、どんな場合も成り立たないといけない（１個でも例外があればNG)
f(x) = -x （xの正負を逆転させる関数）
省2
303: 2024/11/09(土)05:08 ID:fDf6Btx5(1) AAS
1万(=n)人に一人起こる致死的副作用を検出したい。
見逃す確率の上限alphaが0.01とする
何人(=m)以上の治験参加者が必要か？
"
# (1-1/n)^m < alpha
# m > log(alpha)/log(1-1/n)
fn2m <- function(n,alpha) log(alpha)/log(1-1/n)
304: 2024/11/11(月)00:31 ID:99G6ywRH(1) AAS
>>302
そういうことでしたか！なるほど〜
ありがとうございました！！
305(1): 2024/11/11(月)05:58 ID:BpvS87Le(1) AAS
# 1-(1-1/n)^x >= cl
cl=0.95
n=10000
x=log(1-cl)/log(1-1/n) ; x # log(alclha)/log(cl[no adverse effect])
"log(1-cl)=x*log(1-1/n)
log((1-cl)^(1/x))=log(1-1/n)
1-1/n=(1-cl)^(1/x)
省13
306: 2024/11/11(月)10:23 ID:nC1dkxyC(1) AAS
>>305
また朝から発狂してんのかよ尿瓶ジジイ
307: 2024/11/13(水)12:44 ID:mLwXKDzl(1/4) AAS
(*
日本人の血液型はAB:B:O:A＝1：2：3：4であるという。
無作為に何人の血液型を調べて 調べた人にすべての血液型が含まれる確率を99%以上にしたい。
何人以上調べればよいか？
*)
calc[n_] :=(
xyzw=Solve[{x + y + z + w == n, x >= 0, y >= 0, z >= 0,w >=0}, {x, y, z, w}, Integers];
省10
308: 2024/11/13(水)12:48 ID:mLwXKDzl(2/4) AAS
乱数発生によるシミュレーションで理論値を検証
f[n_] :=(
b=Range[4];
Boole@ContainsAll[RandomChoice[b->b,n],b]
)
sim[n_,k_:10^5] :=(
N@Mean@Table[f[n],k]
省2
309: 2024/11/13(水)19:45 ID:mLwXKDzl(3/4) AAS
kuku=Union@Flatten@Table[a b,{a,1,9},{b,1,9}];
calc[n_] :=(
pm=Permutations[Range[n],{n}];
Select[pm,ContainsAll[kuku,10 #[[1;;(n-1)]]+ #[[2;;n]]]&]
)
(* 1〜9までの数字を1つずつ使って、
どの連続する2ｹﾀをとっても九九の答えになるような9ｹﾀの整数を答えよ。 *)
省4
310: 2024/11/13(水)20:25 ID:mLwXKDzl(4/4) AAS
1〜9までの数字を1つずつ使ってできる9桁の整数で
どの連続する2つの数字の差の絶対値がすべて素数である整数は何個あるか。
該当する整数の最小値と最大値を求めよ。
pm=Permutations[Range[9],{9}];
ans=Select[pm,AllTrue[Abs@Differences[#],PrimeQ]&];
Length@ans
Short[ans]
311: 2024/11/15(金)08:05 ID:4Dzk4TZQ(1) AAS
solve=\(p=3/100,cl=0.50){
# 1-(1-p)^x=cl
log(1-cl)/log(1-p)
}
solve(1/10000,0.95)
solve(3/100,0.50)
312: 2024/11/16(土)06:59 ID:Si+9FQ0m(1) AAS
#
alphabet=c(letters,LETTERS)
a2n=Vectorize(\(a) which(alphabet==a))
w2n=\(w){
y=unlist(strsplit(w,''))
a2n(y)
}
省14
313(1): 2024/11/17(日)19:57 ID:WmoqT3ZI(1/2) AAS
数直線上に動点Pがあり、
時刻0には原点に居て、速度が位置の関数としてv(x)= ax+b で与えられているときの
時刻tでのPの位置を求めよ。
画像ﾘﾝｸ[png]:i.imgur.com
314(1): 2024/11/17(日)20:28 ID:WtMlI/FM(1) AAS
>>313
何この図
TeX使えませんってアピール？
315: 2024/11/17(日)20:37 ID:WmoqT3ZI(2/2) AAS
数直線上に動点Pがあり、
時刻0には原点に居て、速度が位置の関数としてv(x)= ax^2+bx +c で与えられているときの
時刻tでのPの位置を求めよ。
316: 2024/11/18(月)04:58 ID:GrxPVQzd(1) AAS
数直線上に動点Pがあり、
時刻0には原点に居て、速度が位置の関数としてv(x)= (x-α)(x-β） で与えられているときの
時刻tでのPの位置を求めよ。
α=βのとき
x[t]= tα^2/(1+tα)
α≠βのとき
1/ (x-α)(x-β）= 1/(α-β)[1/(x-α) - 1/(x-β)]を使って
省1
317(1): 2024/11/18(月)07:21 ID:YOe2Q451(1) AAS
>>314
Wolfram使えませんってアピール？
318(1): 2024/11/18(月)08:34 ID:6QQp5ohs(1/2) AAS
>>317
なんだよ図星か
出題にしろスキルにしろ色々偏ってるな
大学で数学履修してないんだな
319(1): 2024/11/18(月)12:07 ID:sriHacXi(1) AAS
>>318
医学部だと必要なのは統計処理だな。
Rが使えれば事足りる。
320: 2024/11/18(月)12:27 ID:zvfCaBME(1) AAS
Rなんぞ使えなくても医者が論文書くのに大概困らんやろ
Rのコードが書けても統計の意味わからないならゴミ生産機にしかなれない
321: 2024/11/18(月)13:24 ID:EFXQWzbV(1/2) AAS
Let's approach this step-by-step:
Let's make a substitution: t=−1nt=−n1
As n→∞n→∞, t→0−t→0− (approaching 0 from the negative side)
With this substitution, our limit becomes: limt→0−(1+t)−1tlimt→0−(1+t)−t1
Now, we can rewrite this as: limt→0−((1+t)1t)−1limt→0−((1+t)t1)−1
We recognize that limt→0(1+t)1t=elimt→0(1+t)t1=e, which is the definition of Euler's number. This holds true whether t approaches 0 from the positive or negative side.
Therefore, our limit becomes: (e)−1=1e(e)−1=e1
322: 2024/11/18(月)13:29 ID:qEGNxEm5(1/2) AAS
>>319
いくら能書き垂れようがここで無能扱いされてることに違いはないw
323(2): 2024/11/18(月)13:33 ID:EFXQWzbV(2/2) AAS
底辺シリツ医でRが使える医師をみたことがないな。
R（PythonでもWolframでもいいけど）が使えると、こういう計算ができるので
必要なスピッツや試薬の数を準備できる。
日本人の血液型はAB:B:O:A＝1：2：3：4であるという。
無作為に何人の血液型を調べて 調べた人にすべての血液型が含まれる確率を99%以上にしたい。
何人以上調べればよいか？
99％を越えたときの確率を分数で算出せよ。
324: 2024/11/18(月)14:02 ID:6QQp5ohs(2/2) AAS
>>323
それを雇われ医師がやる必要はないけどな
325: 2024/11/18(月)20:41 ID:qEGNxEm5(2/2) AAS
>>323
数学スレでも脳内医者バレバレみたいだねw
326: 2024/11/18(月)23:30 ID:F0+pha6b(1) AAS
自分の設定と矛盾した事言ってても全く気づけないポンコツ
327: 2024/11/19(火)03:57 ID:V8CHGcRI(1/2) AAS
To evaluate the limit
limn→∞(1−1n)n,\lim_{n \to \infty} \left(1 - \frac{1}{n}\right)^n,limn→∞(1−n1)n,
we can recognize that this expression is related to the definition of the number eee. Specifically, we can rewrite the expression in a more convenient form.
First, we can use the fact that
(1−1n)n=((1−1n)−n)−1.\left(1 - \frac{1}{n}\right)^n = \left(\left(1 - \frac{1}{n}\right)^{-n}\right)^{-1}.(1−n1)n=((1−n1)−n)−1.
Now, we can take the natural logarithm of the expression to simplify the limit:
ln((1−1n)n)=nln(1−1n).\ln\left(\left(1 - \frac{1}{n}\right)^n\right) = n \ln\left(1 - \frac{1}{n}\right).ln((1−n1)n)=nln(1−n1).
省12
328: 2024/11/19(火)05:02 ID:V8CHGcRI(2/2) AAS
Texコードを投稿しても表示されないなぁ。
329: 2024/11/20(水)08:10 ID:KnDPFD/I(1/2) AAS
pick=\(x,one=1){
y=sample(x)
picked=y[1:one]
rest=y[-c(1:one)]
list(picked=picked,rest=rest)
}
f=\(){
省22
330(1): 2024/11/20(水)08:10 ID:KnDPFD/I(2/2) AAS
4つのドアがあり、それぞれのドアの向こうには車、ヤギ、太郎くん、次郎くんががいます。
三郎くんはどれか1つドアを選び、それを開けて車が出たら当たりで、車をもらうことができます。
ヤギが出たらその時点でゲーム終了です。
人物（Xとする）が出たら、Xが新たな挑戦者となり、三郎くんは選んだドアに入り、ドアを閉め、
ドアの向こうで車、ヤギ、人物２人の位置をランダムにシャッフルします。
ここまでを１ターンとします。
その後はXが挑戦者となり、ゲームを続行します。
省3
331: 2024/11/20(水)18:44 ID:KZHv+5ER(1) AAS
>>330
尿瓶ジジイまだ生き恥晒してたのかよ？
332: 2024/11/21(木)18:36 ID:Ci8ztJhi(1) AAS
尿瓶ジジイって論破されて発狂してそれもまた論破されてダンマリ決め込んでまた復活の繰り返しだな
333(2): 2024/11/22(金)16:33 ID:2M9XV7Pv(1) AAS
"
西暦２０２５年から西暦１００００年まで２月２９日が日曜日になることは何回あるか？
現行のグレゴリオ暦を用いて計算せよ。
"
library(lubridate)
wday(ymd("2016-2-29"),label=TRUE)
wday(ymd("2015-2-29"),label=TRUE)
省4
334: 2024/11/22(金)17:18 ID:KGSQyV3C(1) AAS
>>333
スレタイすら読めない医者でも東大卒でもないアホチンパンは消えてどうぞ
335: 2024/11/23(土)03:28 ID:qyJPztJt(1/4) AAS
WolframのDayName関数に
存在しない閏年の2月29日を引数として与えるとその年の3月1日の曜日を返す仕様のようである。俺にはバクに思えるのだが。
DayName[{2025,2,29}]
DayName[{2025,3,1}]
を実行してみるとよい。
問題
この仕様を利用して
省4
336: 2024/11/23(土)10:08 ID:qyJPztJt(2/4) AAS
(1) 九九に現れる数字は1から81までである。何種類あるか？
(2) 1から99までの数字を２つかけてできる数は何種類あるか?
(3) 1から999までの数字を２つかけてできる数は何種類あるか?
(4) 1から9999までの数字を２つかけてできる数は何種類あるか?
R
calc=\(n) outer(1:n,1:n)|>as.vector()|>unique()|>length()
sapply(c(9,99,999,9999),calc)
省3
337: 2024/11/23(土)14:11 ID:3sUy/oAC(1) AAS
>>333
意味のない問題を出題して無知と恥をアピールwww
338: 2024/11/23(土)16:01 ID:qyJPztJt(3/4) AAS
年賀状の３等は１００枚に３枚が当たる確率である。
(1) １００枚の年賀状を無作為に購入したときの当たりの枚数の期待値を求めよ。
(2) ３等が当たっている年賀状の枚数が奇数の確率をＰとする。Pは0.5より大きいか小さいか、直感で即答せよ。
(3) (2)の確率を分数で求めよ。
(4) (3)をシミュレーションで検証してみよ。
p=3/100;
Table[Binomial[100,2n-1] p^(2n-1) (1-p)^(100-(2n-1)),{n,1,50}] // Total
省2
339(1): 2024/11/23(土)16:02 ID:qyJPztJt(4/4) AAS
意味のある問題（シリツ卒には解けないようだ）
採決スピッツや試薬をどれだけ準備すべきかが算出できる。
日本人の血液型はAB:B:O:A＝1：2：3：4であるという。
無作為に何人かの血液型を調べて、 調べた人にすべての血液型が含まれる確率を99%以上にしたい。
(1) 何人以上調べればよいか？
(2) 99％を越えたときの確率を分数で算出せよ。
340: 2024/11/23(土)16:15 ID:IPIzs9Xw(1) AAS
>>339
ここでいくら発狂しても相手にされないみたいだねw
実に哀れ
自分でも解けないんだろ？というか問題として成立してないw
341: 2024/11/26(火)20:42 ID:HQUgcf8k(1) AAS
意味のある問題と思い込めるってwww
並外れた低脳アピールwww
342: 2024/11/29(金)06:08 ID:d3rJHsIX(1) AAS
# 10桁のカプレカー数を列挙するプログラムを作り実行せよ
n=10
library(RcppAlgos)
is.kaprekar=\(m){
IntegerDigits=\(n) as.integer(unlist(strsplit(as.character(n),'')))
le=length(m)
mu=10^((le-1):0)
省17
343: 2024/11/29(金)16:54 ID:a8qsJeEV(1) AAS
画像ﾘﾝｸ[png]:i.imgur.com
344: 2024/11/30(土)07:28 ID:L4mkprla(1/6) AAS
hex[x_]:=ResourceFunction["HexConvert"][x];
start="100";
end="fff";
d=hex /@ Range[hex[start],hex[end]];
s=StringSplit[#,""]& /@ d;
KaprekarHexQ[x_] := hex[hex@StringJoin@ReverseSort@x - hex@StringJoin@Sort@x] == StringJoin@x;
StringJoin /@ Select[s,KaprekarHexQ]
345: 2024/11/30(土)10:21 ID:L4mkprla(2/6) AAS
(* 16進法でｎ桁のカプレカ数を求める *)
n=6
hex[x_]:=ResourceFunction["HexConvert"][x];
s=ResourceFunction["OrderlessCombinations"][hex /@ Range[0,15],{n}];
KaprekarHexQ[x_] := (
d=hex@StringJoin@ReverseSort@x - hex@StringJoin@Sort@x;
lid=StringSplit[hex@d,""];
省4
346: 2024/11/30(土)14:45 ID:L4mkprla(3/6) AAS
ｂ進法、ｎ桁のカプレカ数を求めるように拡張
(* ｂ進法でｎ桁のカプレカ数を返す b <= 36 *)
solve[b_,n_]:=(
dec2n[x_] :=(
r=List@Mod[x,b];
q=Floor[x/b];
While[q > 0,PrependTo[r,Mod[q,b]];q=Floor[q/b]];
省22
347: 2024/11/30(土)16:16 ID:BMBeqwqc(1/2) AAS
(*
疑似ヴァンパイア数（Pseudovampire numbers）は、「数字を2等分」という縛りを無くした数である。
例えば126 = 6×21など。
外部ﾘﾝｸ:ja.wikipedia.orgヴァンパイア数
問題 ３桁の疑似ヴァンパイア数を列挙せよ。
*)
f[n_]:=(
省12
348: 2024/11/30(土)17:54 ID:L4mkprla(4/6) AAS
(*
問題 5桁の疑似ヴァンパイア数を列挙せよ。
*)
f14[n_]:=(
d=IntegerDigits[n];
p=Permutations[d,{5}];
prd=#[[1]]*(1000 #[[2]]+100 #[[3]]+10 #[[4]]+#[[5]])& /@p;
省11
349: 2024/11/30(土)17:55 ID:L4mkprla(5/6) AAS
{{5, 2051, 10255}, {5, 2105, 10525}, {9, 1251, 11259}, {8, 1481, 11848},
> {6, 2001, 12006}, {6, 2010, 12060}, {3, 4128, 12384}, {5, 2501, 12505},
> {5, 2510, 12550}, {5, 2519, 12595}, {6, 2100, 12600}, {6, 2127, 12762},
> {3, 4281, 12843}, {5, 2591, 12955}, {3, 4515, 13545}, {3, 5001, 15003},
> {3, 5010, 15030}, {6, 2541, 15246}, {3, 5100, 15300}, {3, 5145, 15435},
省5
350(1): 2024/11/30(土)17:55 ID:L4mkprla(6/6) AAS
f23[n_]:=(
d=IntegerDigits[n];
p=Permutations[d,{5}];
prd=(10 #[[1]]+#[[2]])(100 #[[3]]+10 #[[4]]+#[[5]])& /@p;
i=Position[prd,n];
ans={};
If[i!={},
省21
351(1): 2024/11/30(土)19:19 ID:xA0BaYQb(1/3) AAS
>>350これには完全ダンマリで草
954：卵の名無しさん：2024/11/30(土) 10:54:08.14 ID:Wtu16ESx
>>951
まあお前と違って俺は一回200万ぐらい病院に入る治療出来るからそういうのなら病院にとって呼ぶ価値あるけどな
車で行ってるから交通費も貰ってないけど
一回10万でやってあげてるよ
んで、お前は？GFで数件覗くだけ？
省4
352(4): 2024/11/30(土)20:02 ID:BMBeqwqc(2/2) AAS
>>351
1日15件くらいやってますが？
昔は20件を超えることもあったな。
353: 2024/11/30(土)20:20 ID:xA0BaYQb(2/3) AAS
>>352
一日15件やってもせいぜい十数万だからそんなコストかけて雇う価値ないだろうなww
354: 2024/11/30(土)20:53 ID:xA0BaYQb(3/3) AAS
>>352
なんで医者板で直接言えないのかな？
脳内医者ってまたボコボコにされるのが目に見えてるからかな？ww
355: 2024/11/30(土)22:09 ID:7d0ZfVfE(1) AAS
>>352
967：卵の名無しさん：[sage]：2024/11/30(土) 21:57:37.31 ID:7TzF2IEd
湘南鎌倉総合病院には元旭川医科大学勤務で国立大の弘前大学卒の元AV女優浅丘りなこと田中茉里子（旧姓古郡）がいるもんね
外部ﾘﾝｸ:www.skgh.jp
外部ﾘﾝｸ:www.suruga-ya.jp
外部ﾘﾝｸ[html]:www.oma-aozora.jp
はい、いつものコピペダンマリきたw
356: 2024/12/01(日)08:47 ID:h0Y8DNCF(1) AAS
>>352
この、偽医者なんか必死だな
何故か逆鱗に触れてしまったようだ
357(1): 2024/12/01(日)10:07 ID:URtmhVxU(1/7) AAS
f(x,y)= x^y+y^x
0 <= x <= 1 かつ 0 <= y <= 1
とする
(1) z=f(x,y)を図示せよ
例 画像ﾘﾝｸ[gif]:i.imgur.com
(2) z=f(x,y)とx-y平面で囲まれた図形の体積を求めよ
(3) z=f(x,y)の面積を求めよ（有効数字3桁の近似値でよい）
358: 2024/12/01(日)10:09 ID:URtmhVxU(2/7) AAS
f(x,y)= x^y+y^x
0 <= x <= 1 かつ 0 <= y <= 1
とする
(1) z=f(x,y)を図示せよ
例 画像ﾘﾝｸ[gif]:i.imgur.com
(2) z=f(x,y)とx-y平面で囲まれた図形の体積を求めよ
(3) z=f(x,y)の面積を求めよ（有効数字3桁の近似値でよい）
省18
359: 2024/12/01(日)10:23 ID:rRY5OR0u(1/2) AAS
>>357
2chｽﾚ:hosp
968：卵の名無しさん：2024/11/30(土) 22:02:25.06 ID:dp7m04yN
>>966
こっちだとフルボッコにされるからって情けないよな…
969：卵の名無しさん：2024/12/01(日) 01:00:00.23 ID:tCw/HuPn
1人で上部内視鏡1日15件はねーよ
省2
360: 2024/12/01(日)13:24 ID:URtmhVxU(3/7) AAS
ナルシシスト数（ナルシシストすう、英: narcissistic number）とは、n 桁の自然数であって、その各桁の数の n 乗の和が、元の自然数に等しくなるような数をいう。
例えば、1^3 + 5^3 + 3^3 = 153 であるから、153 はナルシシスト数である。
....
十進法に限らず、他の基数においても同様にナルシシスト数を定義できる
問題
16進法で4桁までのナルシスト数は何個あるか？
すべて列挙せよ。
省15
361(1): 2024/12/01(日)16:43 ID:URtmhVxU(4/7) AAS
(* decimal integer to b-based digits 10進法ｘをｂ進法表記の文字リストに返還*)
i2d[x_,b_:16] :=(
digits=Flatten@{"0","1","2","3","4","5","6","7","8","9",Alphabet[]};
r=List@Mod[x,b];
q=Floor[x/b];
While[q > 0,PrependTo[r,Mod[q,b]];q=Floor[q/b]];
digits[[r+1]]
省19
362: 2024/12/01(日)17:01 ID:rRY5OR0u(2/2) AAS
>>361
どうせ高校生にすらバカにされてるからもう出てこなくていいよ
363(1): 2024/12/01(日)19:45 ID:URtmhVxU(5/7) AAS
外部ﾘﾝｸ:ja.wikipedia.orgレイランド数
レイランド数（レイランドすう、英: Leyland number）は、数論において次の形で表される数
x^y + y^x
x と y は1より大きい整数
....
また加算の交換性のために x ≥ y の条件は通常レイランド数の重複をさけるために加えられる。(よって 1 < y ≤ x を用いる)
外部ﾘﾝｸ:oeis.orgに
省12
364: 2024/12/01(日)20:07 ID:URtmhVxU(6/7) AAS
>>363
レイランド素数はレイランド数でもあり素数でもある数。
外部ﾘﾝｸ:oeis.org
に例示してある最大の数は
5052785737795758503064406447721934417290878968063369478337
である。
問題
省2
365: 2024/12/01(日)20:08 ID:URtmhVxU(7/7) AAS
想定解
205688069665150755269371147819668813122841983204711281293004769,
3329896365316142756322307042065269797678257903507506764421250291562312417,
おまけ
814539297859635326656252304265822609649892589675472598580095801187688932052096060144958129
366: 2024/12/02(月)06:58 ID:5RqvHzG8(1/3) AAS
Leyland[n_]:=(
ymax=Floor@y /. NSolve[2 y^y == n && y>1y,Reals][[1]];
xmax=Floor@x /. NSolve[x^2+2^x==n && x>1x,Reals][[1]];
z=Flatten[Table[{x^y+y^x,x,y},{x,2,xmax},{y,2,ymax}],1];
Select[z,#[[1]]==n&]
)
Leyland[42832853457545958193355601]
367: 2024/12/02(月)07:11 ID:5RqvHzG8(2/3) AAS
レイランド数（レイランドすう、英: Leyland number）は、数論において次の形で表される数
x^y + y^x
x と y は1より大きい整数
....
また加算の交換性のために x ≥ y の条件は通常レイランド数の重複をさけるために加えられる。(よって 1 < y ≤ x を用いる)
ある数 nがレイランド数であるかを判定して、レイランド数であれば n = x^y + y^x (但し1 < y ≤ x）となる x,y を算出する
操作をレイランド分解と呼ぶことにする。
省5
368: 2024/12/02(月)07:28 ID:5RqvHzG8(3/3) AAS
LeylandQ[n_]:=(
ymax=Floor@y /. NSolve[2 y^y == n && y>1y,Reals][[1]];
xmax=Floor@x /. NSolve[x^2+2^x==n && x>1x,Reals][[1]];
z=Flatten@Table[x^y+y^x,{x,2,xmax},{y,2,ymax}];
ContainsAny[z,{n}]
)
LeylandQ[42832853457545958193355601]
369: 2024/12/02(月)19:24 ID:530Brai+(1) AAS
尿瓶ジジイ、医者板でダンマリ決め込むしかないw
370: 2024/12/03(火)14:26 ID:xACthNhN(1) AAS
Wolfram Language 14.0.0 Engine for Microsoft Windows (64-bit)
Copyright 1988-2023 Wolfram Research, Inc.
In[1]:= nn=1234;
In[2]:= n=5;
In[3]:= m=6;
In[4]:= ass2list[ass_] := Select[Table[{key,ass[key]},{key,0,m}],IntegerQ[#[[2]]]&] (* assosiation to list ,key:[0,m] *)
省16
371: 2024/12/04(水)00:16 ID:FPvs5P9c(1) AAS
高校数学スレじゃ誰も構ってもらえず息絶えたみたいだね
372: 2024/12/04(水)09:35 ID:M2J+bJMI(1/2) AAS
(* 1から100までの整数から異なる10個を選び、その合計が5の倍数になる確率を求めなさい。 *)
solve[nn_,n_,m_]:=(
ass=Counts[#]& /@ Flatten[Table[Sort /@ IntegerPartitions[x,{n},Range[0,m-1]],{x,m*Range[0,n-1]}],1];
li=KeyValueMap[List,#]& /@ ass;
{q,r}=QuotientRemainder[nn,m];
c=Flatten@{Table[q+1,r],Table[q,m-r]};
m2c[x_] :=(
省7
上下前次1-新書関写板覧索設栞歴
あと 630 ﾚｽあります
ｽﾚ情報 赤ﾚｽ抽出 画像ﾚｽ抽出 歴の未読ｽﾚ AAｻﾑﾈｲﾙ
ぬこの手 ぬこTOP 0.028s