高校数学の質問スレ（医者・東大卒専用） Part438 (991ﾚｽ)
上下前次1-新
1(12): １３２人目の素数さん [sage] 2024/08/09(金)06:22 ID:9Q+t+cCw(1/6)
【質問者必読！！】
まず>>1-5をよく読んでね
このスレは医者・東大卒の人物専用スレです。
その他の人が書き込むことは許されません。
数学@5ch掲示板用 掲示板での数学記号の書き方例と一般的な記号の使用例
http://mathmathmath.dotera.net/
・まずは教科書、参考書、web検索などで調べるようにしましょう。（特に基本的な公式など）
・問題の写し間違いには気をつけましょう。
・長い分母分子を含む分数はきちんと括弧でくくりましょう。
（× x+1/x+2 ； ○((x+1)/(x+2)) ）
・丸文字、顔文字、その他は環境やブラウザによりうまく表示できない場合があります。
どうしても画像を貼る場合はPCから直接見られるところに見やすい画像を貼ってください。
ピクトはPCから見られないことがあるので避けてください。
・質問者は名前を騙られたくない場合、トリップを付けましょう。
（トリップの付け方は 名前(N)に 俺！#oretrip ←適当なトリ)
・質問者は回答者がわかるように問題を書くようにしましょう。
でないと放置されることがあります。
（変に省略するより全文書いた方がいい、また説明なく習慣的でない記号を使わないように）
・質問者は何が分からないのか、どこまで考えたのかを明記しましょう。
それがない場合、放置されることがあります。
（特に、自分でやってみたのに合わないので教えてほしい、みたいなときは必ず書くように）
・回答者も節度ある回答を心がけてください。
・出題スレではありません。出題は該当スレにお願いします。
・970くらいになったら次スレを立ててください。
※前スレ
高校数学の質問スレ Part437
2chｽﾚ:math
2(1): １３２人目の素数さん [sage] 2024/08/09(金)06:29 ID:9Q+t+cCw(2/6)
[2] 主な公式と記載例
(a±b)^2 = a^2 ±2ab +b^2
(a±b)^3 = a^3 ±3a^2b +3ab^2 ±b^3
a^3±b^3 = (a±b)(a^2干ab+b^2)
√a*√b = √(ab), √a/√b = √(a/b), √(a^2b) = a√b [a>0 b>0]
√((a+b)±2√(ab)) = √a±√b [a>b>0]
ax^2+bx+c = a(x-α)(x-β) = 0 [a≠0, α+β=-b/a, αβ=c/a]
(α,β) = (-b±√(b^2-4ac))/2a [2次方程式の解の公式]
a/sin(A) = b/sin(B) = c/sin(C) = 2R [正弦定理]
a = b cos(C) + c cos(B) [第一余弦定理]
a^2 = b^2 + c^2 -2bc cos(A) [第二余弦定理]
sin(a±b) = sin(a)cos(b) ± cos(a)sin(b) [加法公式]
cos(a±b) = cos(a)cos(b) 干 sin(a)sin(b)
log_{a}(xy) = log_{a}(x) + log_{a}(y)
log_{a}(x/y) = log_{a}(x) - log_{a}(y)
log_{a}(x^n) = n(log_{a}(x))
log_{a}(x) = (log_{b}(x))/(log_{b}(a)) [底の変換公式]
f '(x) = lim_[h→0] (f(x+h)-f(x))/h [微分の定義]
(f±g) ' = f ' ± g '、(fg) ' = f 'g + fg ',
(f/g) ' = (f 'g-fg ')/(g^2) [和差積商の微分]
3(3): １３２人目の素数さん [sage] 2024/08/09(金)06:29 ID:9Q+t+cCw(3/6)
[3] 基本的な記号の使い方は以下を参照してください。
その他については>>1のサイトで｡
■ 足し算/引き算/掛け算/割り算（加減乗除)
a+b → a 足す b (足し算) a-b → a 引く b (引き算)
a*b → a 掛ける b (掛け算) a/b → a 割る b (割り算)
■ 累乗 ^
a^b a の b乗
a^(b+1) a の b+1乗
a^b + 1 (a の b乗) 足す 1
■ 括弧の使用
a/(b + c) と a/b + c
a/(b*c) と a/b*c
はそれぞれ、違う意味です。
括弧を多用して、キチンと区別をつけてください｡
■ 数列
a[n] or a_(n) → 数列aの第n項目
a[n+1] = a[n] + 3 → 等差数列の一例
Σ[k=1,n] a_(k) → 数列の和
■ 積分
"∫"は「せきぶん」「いんてぐらる」「きごう」「すうがく」などで変換せよ。
(環境によって異なる。) ∮は高校では使わない。
∫[0,1] x^2 dx = (x^3)/3|_[x=0,1]
■ 三角関数
(sin(x))^2 + (cos(x))^2 = 1, cos(2x) = (cos(x))^2 - (sin(x))^2
■ ヴェクトル
AB↑ a↑
ヴェクトル：V = [V[1],V[2],...], |V V↑, vector(V)
(混同しない場合はスカラーと同じ記号でいい。通常は縦ヴェクトルとして扱う。)
■行列
（全成分表示）：M = [[M[1,1],M[2,1],...],[M[1,2],M[2,2],...],...], I = [[1,0,0,...],[0,1,0,...],...]
（行 (または列) ごとに表示する． 例）M = [[1,-1],[3,2]])
■順列・組合せ
P[n,k] = nＰk, C[n.k] = nＣk, H[n,k] = nＨk,
■共役複素数
z = x + iy (x,yは実数) に対し z~ = x - iy
4(1): １３２人目の素数さん [sage] 2024/08/09(金)06:30 ID:9Q+t+cCw(4/6)
[4] 単純計算は質問の前に http://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
http://hp.vector.co.jp/authors/VA017172/
・GRAPES for Windows
http://tomodak.com/grapes/
・GRAPES-light for i-Pad
http://www.tokyo-shoseki.co.jp/ict/textbook_app/h/003003
・GeoGebra for Windows / Mac OS X
http://sites.google.com/site/geogebrajp/
入試問題集
http://www.densu.jp/index.htm (入試数学 電子図書館)
http://www.watana.be/ku/ (京大入試問題数学解答集)
http://www.toshin.com/nyushi/ (東進 過去問DB)
※前スレ
高校数学の質問スレ Part434
2chｽﾚ:math
5(3): １３２人目の素数さん [sage] 2024/08/09(金)06:31 ID:9Q+t+cCw(5/6)
[5]
～このスレの皆さんへ～
2chｽﾚ:hosp
現在、無意味なプログラムを書き込む悪質な荒らしが常駐しています
通称｢プログラムキチガイ｣｢害悪プログラムおじさん｣は医療・医者板にいる通称ウリュウという荒らしです
数学Iの三角比の問題や中学数学の平面図形の問題でさえ手計算では解けずに
わざわざプログラムで解くような人物です
二項分布の期待値npすら知らないレベルです
すぐにマウントを取りに来ます
下ネタが大好きです
発達障害があると思われ説得しても無駄だと思われます
会話されることで喜びます
皆さん、一切関わらずに無視を貫きましょう
NGし、一切触れないようにしましょう
またプログラミング言語の一部をNGすることも数単語でほとんど消えるのでおすすめ
触れる人も荒らしです NGしましょう
6: １３２人目の素数さん [sage] 2024/08/09(金)06:31 ID:9Q+t+cCw(6/6)
以上テンプレ
7: １３２人目の素数さん [sage] 2024/08/09(金)14:27 ID:38HSwXdl(1)
兄弟スレ
１．医東専スレ（毛利隆元スレ） = このスレ
２．医東禁スレ（吉川元春スレ） = 弟スレ
2chｽﾚ:math
３．無指定スレ（小早川隆景スレ）= 弟スレ
2chｽﾚ:math
8(1): １３２人目の素数さん [] 2024/08/09(金)18:18 ID:wVA5P02N(1)
兄より優れた弟など存在しないってジャギさんが言ってた
9: １３２人目の素数さん [sage] 2024/08/10(土)18:09 ID:Ad+Fjtmh(1/2)
熱中症触れ込みの発熱患者で忙しかった。
発熱の救急搬送受けてインセンティブゲット。
10: １３２人目の素数さん [sage] 2024/08/10(土)18:11 ID:Ad+Fjtmh(2/2)
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): １３２人目の素数さん [sage] 2024/08/11(日)08:40 ID:y6yg1Hhb(1/6)
(*
三角形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): １３２人目の素数さん [sage] 2024/08/11(日)13:29 ID:y6yg1Hhb(2/6)
(* 三角形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): １３２人目の素数さん [sage] 2024/08/11(日)16:40 ID:y6yg1Hhb(3/6)
ComplexExpand[(1 + I)^(1 - I)]
Log[1+I] // ComplexExpand
14(2): １３２人目の素数さん [sage] 2024/08/11(日)16:45 ID:y6yg1Hhb(4/6)
コロナ患者含めて新入院3人、２栄一ゲット。
基礎疾患のある高齢患者なのでベクルリーを３日開始。
肺炎までこじらせてから５日間使うという悪徳医がいるらしい。
15: １３２人目の素数さん [sage] 2024/08/11(日)18:05 ID:y6yg1Hhb(5/6)
(*
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: １３２人目の素数さん [sage] 2024/08/11(日)18:14 ID:y6yg1Hhb(6/6)
(*
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: １３２人目の素数さん [sage] 2024/08/11(日)21:48 ID:NHfolhNj(1)
>>14
で、いつになったら無理数の証明ができるんだよチンパン
18: １３２人目の素数さん [sage] 2024/08/12(月)02:24 ID:F0Hc68tw(1/2)
医者でも東大卒でもない尿瓶ジジイがなぜ書き込んでいるのか、一体質問はいつするのかww
19(1): １３２人目の素数さん [sage] 2024/08/12(月)04:53 ID:7Qwbx0VG(1/3)
>>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): １３２人目の素数さん [sage] 2024/08/12(月)05:21 ID:7Qwbx0VG(2/3)
>>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
上下前次1-新書関写板覧索設栞歴
あと 971 ﾚｽあります
ｽﾚ情報 赤ﾚｽ抽出 画像ﾚｽ抽出 歴の未読ｽﾚ AAｻﾑﾈｲﾙ
ぬこの手 ぬこTOP 0.036s