高校数学の質問スレ（医者・東大卒専用） Part438 (991ﾚｽ)
上下前次1-新
2(1): 2024/08/09(金)06:29 ID:9Q+t+cCw(2/6) AA×
>>0>>0>>0
3(3): 2024/08/09(金)06:29 ID:9Q+t+cCw(3/6) AA×
>>1
4(1): 2024/08/09(金)06:30 ID:9Q+t+cCw(4/6) AAS
[4] 単純計算は質問の前に 外部ﾘﾝｸ:www.wolframalpha.com などで確認
入力例
・因数分解
factor x^2+3x+2
・定積分
integral[2/(3-sin(2x)), {x,0,2pi}]
・極限
limit(t*ln(1+(1/t^2))+2*arctan(t))) as t->infinity
・無限級数
sum (n^2)/(n!), n=1 to infinity
・極方程式
PolarPlot[2/sqrt(3-sin(2t)), {t, 0, 2Pi}]
グラフ描画ソフトなど
・FunctionView for Windows
外部ﾘﾝｸ:hp.vector.co.jp
・GRAPES for Windows
外部ﾘﾝｸ:tomodak.com
・GRAPES-light for i-Pad
外部ﾘﾝｸ:www.tokyo-shoseki.co.jp
・GeoGebra for Windows / Mac OS X
外部ﾘﾝｸ:sites.google.com
入試問題集
外部ﾘﾝｸ[htm]:www.densu.jp (入試数学 電子図書館)
外部ﾘﾝｸ:www.watana.be (京大入試問題数学解答集)
外部ﾘﾝｸ:www.toshin.com (東進 過去問DB)
※前スレ
高校数学の質問スレ Part434
2chｽﾚ:math
5(3): 2024/08/09(金)06:31 ID:9Q+t+cCw(5/6) AAS
[5]
～このスレの皆さんへ～
2chｽﾚ:hosp
現在、無意味なプログラムを書き込む悪質な荒らしが常駐しています
通称｢プログラムキチガイ｣｢害悪プログラムおじさん｣は医療・医者板にいる通称ウリュウという荒らしです
数学Iの三角比の問題や中学数学の平面図形の問題でさえ手計算では解けずに
わざわざプログラムで解くような人物です
二項分布の期待値npすら知らないレベルです
すぐにマウントを取りに来ます
下ネタが大好きです
発達障害があると思われ説得しても無駄だと思われます
会話されることで喜びます
皆さん、一切関わらずに無視を貫きましょう
NGし、一切触れないようにしましょう
またプログラミング言語の一部をNGすることも数単語でほとんど消えるのでおすすめ
触れる人も荒らしです NGしましょう
6: 2024/08/09(金)06:31 ID:9Q+t+cCw(6/6) AAS
以上テンプレ
7: 2024/08/09(金)14:27 ID:38HSwXdl(1) AAS
兄弟スレ
１．医東専スレ（毛利隆元スレ） = このスレ
２．医東禁スレ（吉川元春スレ） = 弟スレ
2chｽﾚ:math
３．無指定スレ（小早川隆景スレ）= 弟スレ
2chｽﾚ:math
8(1): 2024/08/09(金)18:18 ID:wVA5P02N(1) AAS
兄より優れた弟など存在しないってジャギさんが言ってた
9: 2024/08/10(土)18:09 ID:Ad+Fjtmh(1/2) AAS
熱中症触れ込みの発熱患者で忙しかった。
発熱の救急搬送受けてインセンティブゲット。
10: 2024/08/10(土)18:11 ID:Ad+Fjtmh(2/2) AAS
Highest Densit Intervalで
[0.7,0.8]が95%CIになるベータ分布のパラメータを算出。
rm(list=ls())
par(bty='l')
f2=\(p){
f1=\(x) punif(30,0,x)-p
uniroot(f1, c(30,100))$root
}
f2=Vectorize(f2)
curve(f2,0.6,0.9)
f0=\(a,b) (pbeta(0.7,a,b)-0.025)^2+(pbeta(0.8,a,b)-0.975)^2
opt=optim(runif(2),\(ab) f0(ab[1],ab[2]))
opt=optim(opt$par,\(ab) f0(ab[1],ab[2]))
ab=opt$par
curve(dbeta(x,ab[1],ab[2]))
library(HDInterval)
ci=hdi(qbeta,shape1=ab[1],shape2=ab[2])
f3=\(a,b){
ci95=hdi(qbeta,shape1=a,shape2=b)
(ci95[1]-0.7)^2 + (ci95[2]-0.8)^2
}
opt=optim(ab,\(x)f3(x[1],x[2]))
opt=optim(opt$par,\(x)f3(x[1],x[2]))
alpha=opt$par[1]
beta=opt$par[2]
hdi(qbeta,shape1=alpha,shape2=beta)
curve(dbeta(x,alpha,beta))
c(alpha,beta)
11(1): 2024/08/11(日)08:40 ID:y6yg1Hhb(1/6) AAS
(*
三角形ABCがある 底辺BCがBC,∠AがaA,∠CがaCの時,この三角形の面積はいくつ？
*)
AreaABC[BC_:4,aA_:Pi/4,aC_:Pi/8] :=(
f[x_]:=(
pB={0,0};
pC={BC,0};
pA={x,-Tan[aC](x-BC)};
ABC=Triangle[{pA,pB,pC}];
TriangleMeasurement[ABC,{"InteriorAngle",pA}]
);
x0 = ( x /. Solve[f[x]==aA,{x}][[1]][[1]]);
pA={x0,-Tan[aC](x0-BC)};
Area[Triangle[{pA,pB,pC}]] // Simplify
)
AreaABC[]
12(1): 2024/08/11(日)13:29 ID:y6yg1Hhb(2/6) AAS
(* 三角形ABCで底辺BC=BC,∠A=aA,∠C=aCの時、この三角形の面積は？*)
calc[BC_:4,aA_:Pi/4,aC_:Pi/8] :=(
fn[x_]:=(
If[x==BC,Return[0]];
pB={0,0};
pC={BC,0};
pA={x,-Tan[aC](x-BC)};
ABC=Triangle[{pA,pB,pC}];
(aA-TriangleMeasurement[ABC,{"InteriorAngle",pA}])^2
);
x0 = x /. NMinimize[fn[x],x][[2]];
pB={0,0};
pC={BC,0};
pA={x0,-Tan[aC](x0-BC)};
Area[Triangle[{pA,pB,pC}]]
)
calc[]
13(1): 2024/08/11(日)16:40 ID:y6yg1Hhb(3/6) AAS
ComplexExpand[(1 + I)^(1 - I)]
Log[1+I] // ComplexExpand
14(2): 2024/08/11(日)16:45 ID:y6yg1Hhb(4/6) AAS
コロナ患者含めて新入院3人、２栄一ゲット。
基礎疾患のある高齢患者なのでベクルリーを３日開始。
肺炎までこじらせてから５日間使うという悪徳医がいるらしい。
15: 2024/08/11(日)18:05 ID:y6yg1Hhb(5/6) AAS
(*
e^iπ+1 = 0は美しい等式といわれるのにちなんだ計算問題
a,b,cは異なる数字でe(ネイピア数),i(虚数単位),π(円周率)のいずれかである。
（１）指数法則(a^b)^c = a^(b*c)が成立する組み合わせを列挙せよ。
（２）成立しない組み合わせで左辺と右辺の値を算出せよ。
*)
pm=Permutations[Range[3]];
x={I,E,Pi};
y={x[[#[[1]]]],x[[#[[2]]]],x[[#[[3]]]]}& /@ pm;
(#[[1]]^#[[2]])^#[[3]] == #[[1]]^(#[[2]]*#[[3]])& /@ y;
ts=Select[y,(#[[1]]^#[[2]])^#[[3]] == #[[1]]^(#[[2]]*#[[3]])&]
fs=Select[y,(#[[1]]^#[[2]])^#[[3]] != #[[1]]^(#[[2]]*#[[3]])&]
{(#[[1]]^#[[2]])^#[[3]], #[[1]]^(#[[2]]*#[[3]])}& /@ ts
% // ComplexExpand
% // N
{(#[[1]]^#[[2]])^#[[3]], #[[1]]^(#[[2]]*#[[3]])}& /@ fs
% // ComplexExpand
% // N
16: 2024/08/11(日)18:14 ID:y6yg1Hhb(6/6) AAS
(*
a,b,cは異なる数字でe(ネイピア数),i(虚数単位),π(円周率)のいずれかである。
（１）指数法則(a^b)^c = a^(b*c)が成立する組み合わせを列挙せよ。
（２）成立しない組み合わせで左辺と右辺の値を算出せよ。
*)
pm=Permutations[Range[3]];
x={I,E,Pi};
y={x[[#[[1]]]],x[[#[[2]]]],x[[#[[3]]]]}& /@ pm;
(#[[1]]^#[[2]])^#[[3]] == #[[1]]^(#[[2]]*#[[3]])& /@ y;
ts=Select[y,(#[[1]]^#[[2]])^#[[3]] == #[[1]]^(#[[2]]*#[[3]])&]
fs=Select[y,(#[[1]]^#[[2]])^#[[3]] != #[[1]]^(#[[2]]*#[[3]])&]
{(#[[1]]^#[[2]])^#[[3]], #[[1]]^(#[[2]]*#[[3]])}& /@ ts // ComplexExpand
{(#[[1]]^#[[2]])^#[[3]], #[[1]]^(#[[2]]*#[[3]])}& /@ fs // ComplexExpand // Simplify
% // N
17: 2024/08/11(日)21:48 ID:NHfolhNj(1) AAS
>>14
で、いつになったら無理数の証明ができるんだよチンパン
18: 2024/08/12(月)02:24 ID:F0Hc68tw(1/2) AAS
医者でも東大卒でもない尿瓶ジジイがなぜ書き込んでいるのか、一体質問はいつするのかww
19(1): 2024/08/12(月)04:53 ID:7Qwbx0VG(1/3) AAS
>>11-12
aB = π − aA − aC,
∴ cot(aB) = − cot(aA+aC),
底辺BCは既知だから、高さが分かればよい。
頂点Aから対辺BCに垂線AHを下ろす。
AH {cot(aB)+cot(aC)} = BH + HC = BC, (有向距離)
AH = BC / {cot(aB) + cot(aC)},
?ABC = (1/2)AH・BC
= (BC^2) / {2[cot(aB) + cot(aC)]}
= (BC^2) / {2[cot(aC)−cot(aA+aC)]},
20(1): 2024/08/12(月)05:21 ID:7Qwbx0VG(2/3) AAS
>>13
Log[1+i] = log(2)/2 + i(π/4) = -θ + i(π/4),
[1+i]^[1-i] = (1+i)*(1+i)^{-i}
= (1+i)*e^{π/4 +iθ},
e^{π/4} = 2.19328
θ =−log(2)/2 = −0.3465736
21(1): 2024/08/12(月)08:06 ID:N57DabL7(1/2) AAS
>>19
レスありがとうございます。
人間Wolframに感銘。
22(2): 2024/08/12(月)08:09 ID:N57DabL7(2/2) AAS
さて、そろそろ帰り支度をするかな。
今日は祝日なので内視鏡バイトなし。
まあ、新入院や救急搬送でインセンティブ２栄一ゲットしたので
m3から購入した。
i,e,π計算のメモ
(I^E)^Pi // ComplexExpand // Simplify
% // N
I^(E Pi) // ComplexExpand // Simplify
% // N
(I^Pi)^E // ComplexExpand // Simplify
% // N
I^(Pi E) // ComplexExpand // Simplify
% // N
23(1): 2024/08/12(月)08:10 ID:Obx9rvEn(1) AAS
>>21
人間Wolframってバカにしてるのでは
24: 2024/08/12(月)10:39 ID:F0Hc68tw(2/2) AAS
>>22
おい尿瓶ジジイいつになったら無理数の証明できるようになるんだよ
25(1): 2024/08/12(月)13:09 ID:OufDPFxO(1) AAS
>>22
おいもう息してないのか
26: 2024/08/12(月)21:05 ID:7Qwbx0VG(3/3) AAS
>>8
「（某大物棋士の）兄貴たちは頭が悪いから東大へ行った」
という話の出所は芹沢（博文）九段という人もいるが、怪しい…
27: 2024/08/14(水)14:46 ID:8WM1s01c(1) AAS
Reverse@Sort@Counts@IntegerDigits[2024!,7]
28(1): 2024/08/14(水)17:20 ID:jFZUZf8i(1/10) AAS
a + b + c = 1,
aa + bb + cc = 3,
a^6 + b^6 + c^6 = 3,
を解け
29: 2024/08/14(水)17:23 ID:jFZUZf8i(2/10) AAS
実解は
(a,b,c) = (-1,1,1) (1,-1,1) (1,1,-1)
30: 2024/08/14(水)17:32 ID:jFZUZf8i(3/10) AAS
虚数解
t^3 −t^2 −t +5 = 0,
t = {−[2(31+3√105)]^{1/3} −[2(31-3√105)]^{1/3} + 1}/3,
=−1.594313016355
[1-t ±ｉ√(t-2-15/t)]/2 = 1.2971565081774 ± 1.205625150603ｉ
31(1): 2024/08/14(水)18:19 ID:tCfOv5Df(1) AAS
1+2+…+2024は何桁の整数か
上下前次1-新書関写板覧索設栞歴
あと 960 ﾚｽあります
ｽﾚ情報 赤ﾚｽ抽出 画像ﾚｽ抽出 歴の未読ｽﾚ
ぬこの手 ぬこTOP 0.061s