[過去ﾛｸﾞ] 高校数学の質問スレ Part434 (1002ﾚｽ)
上下前次1-新
このｽﾚｯﾄﾞは過去ﾛｸﾞ倉庫に格納されています｡
次ｽﾚ検索 歴削→次ｽﾚ 栞削→次ｽﾚ 過去ﾛｸﾞﾒﾆｭｰ
282(1): 2024/04/18(木)15:16 ID:wAg8T1zy(2/4) AAS
BC = 1,
面積S = BC*(Aから辺BC(の延長線)に下した垂線の長さ)/2
= BC*(Aの高さ)/2,
題意より S=1 で Aの高さは2, A(a, ±2)
(1) 重心G ((1+a)/3, ±2/3)
軌跡： 2直線 y=-2/3, y=2/3,
(2) 外心O (1/2, ±(aa-a+4)/4),
軌跡： 半直線 x=1/2, |y|≧15/16 (R≧17/16)
(3) 内心I ({1+√[1 + 2(aa-a+4) −2√{4+(aa-a+4)^2}]}/2, r)
283: 2024/04/18(木)16:00 ID:J4j+GBSH(1/4) AAS
cot(2B) + cot(2C) = const.
284(1): 2024/04/18(木)16:03 ID:J4j+GBSH(2/4) AAS
cot(B) + cot(C) = const.
285(2): 2024/04/18(木)16:08 ID:wAg8T1zy(3/4) AAS
内心I ( [1 + √(4+aa) + √(4+(1-a)^2)]/2, r)
r = 1 − [√(4+aa)−a] [√(4+(1-a)^2)−(1-a)]/4,
かなぁ
286: 2024/04/18(木)16:44 ID:A0DnVcfS(1/2) AAS
小学校級の質問ですまん、小数第一位を四捨五入ってどこをすんのやっけ
例えば、29.28を小数第一位を四捨五入しなさい、って言われたら29になるん？それとも29.3？
287(2): 2024/04/18(木)16:45 ID:A0DnVcfS(2/2) AAS
小学校級の質問ですまん、小数第一位を四捨五入ってどこをすんのやっけ
例えば、29.28を小数第一位を四捨五入しなさい、って言われたら29になるん？それとも29.3？
288(1): 2024/04/18(木)16:51 ID:wAg8T1zy(4/4) AAS
(4) 垂心H (a, a(1-a)/2)
軌跡： 放物線 y = x(1-x)/2,
>>284
cot(B) + cot(C) = 1/2.
289: 2024/04/18(木)20:04 ID:bS3aQA9Q(1) AAS
>>287
小学生以下なのは問題文の日本語すら読めない誰かさんだよw
290: 2024/04/18(木)20:09 ID:64Io791z(4/12) AAS
レスありがとうございます。
R言語で作図
G（黒）が重心、O（赤）が外心、I（緑）が内心、H（青）が垂心の位置。
画像ﾘﾝｸ[png]:i.imgur.com
291(1): 2024/04/18(木)20:12 ID:64Io791z(5/12) AAS
>>287
小数第一位を四捨五入なら29
四捨五入して小数第一位まで表示なら29.3
292: 2024/04/18(木)20:17 ID:64Io791z(6/12) AAS
Wolfram言語に慣れるための練習問題
外部ﾘﾝｸ:www.jstor.org
の素数の一般項をWolframに1行で実装せよ。
想定解
prime[n_] := 1 + Total[Table[Floor[(n/( Total[Table[Floor[Cos[(Factorial[k-1]+1)Pi/k]^2],{k,1,m}]]))^(1/n)],{m,1,2^n}]]
Wolfram言語に詳しい方の検証を希望。
293: 2024/04/18(木)20:21 ID:J4j+GBSH(3/4) AAS
きったね
294: 2024/04/18(木)20:36 ID:64Io791z(7/12) AAS
>>285
乱数発生させて一つの辺長１で面積１の三角形の内心と内接円を描画。
画像ﾘﾝｸ[png]:i.imgur.com
295: 2024/04/18(木)20:42 ID:64Io791z(8/12) AAS
>>288
y=±x(1-x)/2を追加描画
画像ﾘﾝｸ[png]:i.imgur.com
296: 2024/04/18(木)20:47 ID:J4j+GBSH(4/4) AAS
きったねwwwwwwwww
297: 2024/04/18(木)21:21 ID:64Io791z(9/12) AAS
四捨五入のネタ
Wolframで四捨五入類似の関数Roundの仕様 （R言語も同様の出力をする）
Wolfram Language 14.0.0 Engine for Microsoft Windows (64-bit)
Copyright 1988-2023 Wolfram Research, Inc.
In[1]:= Round[2.5]
Out[1]= 2
省10
298(2): 2024/04/18(木)21:35 ID:sdwGNJDt(1) AAS
Table[1+Sum[Floor[n^(1/n) (Sum[Floor[(Cos[Pi(((x-1)!+1)/x)])^2],{x,1,m}])^(-1/n)],{m,1,2^n}],{n,1,10}]
Table[1+Sum[Floor[n^(1/n) (Sum[If[IntegerQ[((x-1)!+1)/x],1,0],{x,1,m}])^(-1/n)],{m,1,2^n}],{n,1,10}]
Table[1+Sum[Floor[n^(1/n) (1+Sum[If[PrimeQ[x],1,0],{x,2,m}])^(-1/n)],{m,1,2^n}],{n,1,10}]
実質これらは同じもの。下に行くほど速い。
ただし、第一の式は、素数を10個表示するだけで、10秒近くかかる
299(1): 2024/04/18(木)21:43 ID:fGxo4U0J(1) AAS
うちの学校の先生が
「ベクトルとベクトルの交わりとか交点とか、そういうものは定められない」
と言ってたんですが、参考書とかみると交点をベクトルで表せという問題が
普通にあります。
ウチの先生は信用できないんでしょうか。
300: 2024/04/18(木)21:43 ID:64Io791z(10/12) AAS
>>291 補足
Wolfram Language 14.0.0 Engine for Microsoft Windows (64-bit)
Copyright 1988-2023 Wolfram Research, Inc.
In[1]:= (* 小数表示された実数の小数第 n 位を四捨五入する *)
In[2]:= around[m_,n_:1] := (
a=m*10^(n-1);
x=a-Floor[a];
y=Floor[a] + Boole[x >= 0.5];
N[y/10^(n-1)]
)
省12
301: 2024/04/18(木)22:01 ID:64Io791z(11/12) AAS
>>298
レスありがとうございます。
Total[Table .... は Sumで簡略化できることがわかりました。
他の人のコードを読むのは勉強になります。
上下前次1-新書関写板覧索設栞歴
あと 701 ﾚｽあります
ｽﾚ情報 赤ﾚｽ抽出 画像ﾚｽ抽出 歴の未読ｽﾚ AAｻﾑﾈｲﾙ
ぬこの手 ぬこTOP 0.019s