高校数学の質問スレ（医者・東大卒専用） Part438 (979ﾚｽ)
高校数学の質問スレ（医者・東大卒専用） Part438 http://rio2016.5ch.net/test/read.cgi/math/1723152147/
上
下
前次
1-
新
通常表示
512ﾊﾞｲﾄ分割
ﾚｽ栞
抽出解除
必死ﾁｪｯｶｰ(本家)
(べ)
自ID
ﾚｽ栞
あぼーん
11: １３２人目の素数さん [sage] 2024/08/11(日) 08:40:06.64 ID:y6yg1Hhb (* 三角形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[] http://rio2016.5ch.net/test/read.cgi/math/1723152147/11
12: １３２人目の素数さん [sage] 2024/08/11(日) 13:29:14.25 ID:y6yg1Hhb (* 三角形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[] http://rio2016.5ch.net/test/read.cgi/math/1723152147/12
13: １３２人目の素数さん [sage] 2024/08/11(日) 16:40:58.98 ID:y6yg1Hhb ComplexExpand[(1 + I)^(1 - I)] Log[1+I] // ComplexExpand http://rio2016.5ch.net/test/read.cgi/math/1723152147/13
14: １３２人目の素数さん [sage] 2024/08/11(日) 16:45:35.56 ID:y6yg1Hhb コロナ患者含めて新入院3人、２栄一ゲット。 基礎疾患のある高齢患者なのでベクルリーを３日開始。 肺炎までこじらせてから５日間使うという悪徳医がいるらしい。 http://rio2016.5ch.net/test/read.cgi/math/1723152147/14
15: １３２人目の素数さん [sage] 2024/08/11(日) 18:05:24.20 ID:y6yg1Hhb (* 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 http://rio2016.5ch.net/test/read.cgi/math/1723152147/15
16: １３２人目の素数さん [sage] 2024/08/11(日) 18:14:03.79 ID:y6yg1Hhb (* 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 http://rio2016.5ch.net/test/read.cgi/math/1723152147/16
ﾒﾓ帳
(0/65535文字)
上
下
前次
1-
新
書
関
写
板
覧
索
設
栞
歴
ｽﾚ情報
赤ﾚｽ抽出
画像ﾚｽ抽出
歴の未読ｽﾚ
AAｻﾑﾈｲﾙ
Google検索
Wikipedia
ぬこの手
ぬこTOP
1.765s*