[過去ﾛｸﾞ] 高校数学の質問スレ Part434 (1002ﾚｽ)

高校数学の質問スレ Part434 http://rio2016.5ch.io/test/read.cgi/math/1712376048/

上下前次1-新
通常表示 512ﾊﾞｲﾄ分割 ﾚｽ栞

---

このｽﾚｯﾄﾞは過去ﾛｸﾞ倉庫に格納されています｡
次ｽﾚ検索 歴削→次ｽﾚ 栞削→次ｽﾚ 過去ﾛｸﾞﾒﾆｭｰ

---

593: １３２人目の素数さん [sage] 2024/04/27(土) 14:39:04.67 ID:TD4Hw7I6 >>588 Rだと浮動小数点数の誤差調整が必要。 試作品 is.oncircle <- function(a,b,c,d,tol=1e-16){ tric <- function(a,b,c){ a1=Re(a) ; a2=Im(a) b1=Re(b) ; b2=Im(b) c1=Re(c) ; c2=Im(c) p = (a1^2*(-b2) + a1^2*c2 - a2^2*b2 + a2^2*c2 + a2*b1^2 + a2*b2^2 - a2*c1^2 - a2*c2^2 - b1^2*c2 - b2^2*c2 + b2*c1^2 + b2*c2^2)/(2*(-a1*b2 + a1*c2 + a2*b1 - a2*c1 - b1*c2 + b2*c1)) q = -(a1^2*(-b1) + a1^2*c1 + a1*b1^2 + a1*b2^2 - a1*c1^2 - a1*c2^2 -

a2^2*b1 + a2^2*c1 - b1^2*c1 + b1*c1^2 + b1*c2^2 - b2^2*c1)/(2*(-a1*b2 + a1*c2 + a2*b1 - a2*c1 - b1*c2 + b2*c1)) Ce=p+1i*q r=abs(Ce-a) c(Center=Ce,Radius=r) } abs(sum((tric(a,b,c)-tric(b,c,d))^2)) < tol # all(tric(a,b,c)==tric(b,c,d)) } > is.oncircle(1+0i,1i,cos(1)+1i*sin(1),cos(2)+1i*sin(2)) [1] TRUE http://rio2016.5ch.io/test/read.cgi/math/1712376048/593

---

ﾒﾓ帳

(0/65535文字)

---

上下前次1-新書関写板覧索設栞歴

---

あと 409 ﾚｽあります
ｽﾚ情報 赤ﾚｽ抽出 画像ﾚｽ抽出 歴の未読ｽﾚ AAｻﾑﾈｲﾙ

---

Google検索

Wikipedia

---

ぬこの手 ぬこTOP 0.014s