[過去ログ]
高校数学の質問スレ Part436 (1002レス)
高校数学の質問スレ Part436 http://rio2016.5ch.net/test/read.cgi/math/1718662026/
上
下
前次
1-
新
通常表示
512バイト分割
レス栞
抽出解除
レス栞
このスレッドは過去ログ倉庫に格納されています。
次スレ検索
歴削→次スレ
栞削→次スレ
過去ログメニュー
754: 132人目の素数さん [sage] 2024/07/10(水) 16:09:51.93 ID:5XfnLzOu >>743 (1) IC (2) 一定しない > f(a=3,b=4,c=5) L a/2 1.414214 1.500000 > f(a=4,b=5,c=6) L a/2 2 2 > f(a=5,b=6,c=7) L a/2 2.581989 2.500000 http://rio2016.5ch.net/test/read.cgi/math/1718662026/754
760: 132人目の素数さん [sage] 2024/07/10(水) 17:08:47.98 ID:5XfnLzOu >>754 Wolframで厳密値表示 Rだと2円の交点や内心の座標は関数を自作する必要があるが、 Wolframだとリソースとして備わっているので楽。 練習と動作確認に a,b,cを入れて内心と頂点の距離を算出させる関数を作成 Wolfram Language 14.0.0 Engine for Microsoft Windows (64-bit) Copyright 1988-2023 Wolfram Research, Inc. In[1]:= fi[a_,b_,c_] :=( pB={0,0}; pC={a,0}; pA=ResourceFunction["CircleIntersection"][Circle[pB,c],Circle[pC,b]][[1]][[1]]; pI=TriangleCenter[{pA,pB,pC},"Incenter"]; {IA,IB,IC}=EuclideanDistance[pI,#]&/@ {pA,pB,pC}; {"IA"->IA,"IB-">IB,"IC"->IC}) In[2]:= fi[3,4,5] Out[2]= {IA -> Sqrt[10], IB- > Sqrt[5], IC -> Sqrt[2]} In[3]:= fi[4,5,6] Out[3]= {IA -> Sqrt[14], IB- > 2 Sqrt[2], IC -> 2} In[4]:= fi[5,6,7] 16 2 12 Sqrt[6] 2 35 5 Out[4]= {IA -> Sqrt[-- + (-2 Sqrt[-] + ----------) ], IB- > Sqrt[--], IC -> 2 Sqrt[-]} http://rio2016.5ch.net/test/read.cgi/math/1718662026/760
メモ帳
(0/65535文字)
上
下
前次
1-
新
書
関
写
板
覧
索
設
栞
歴
スレ情報
赤レス抽出
画像レス抽出
歴の未読スレ
AAサムネイル
Google検索
Wikipedia
ぬこの手
ぬこTOP
0.042s