[過去ﾛｸﾞ] 高校数学の質問スレ Part437 (1002ﾚｽ)
上下前次1-新

---

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

---

410: 2024/07/29(月)05:46 ID:0BJKDY8z(4/7) AAS
>>392
Rでの作図ツールとして昔、作ったのがコレ

# 直線ABにCからおろした垂線の足Hの座標を複素数で返す
# 0<t<1なら線分AB上の点
ABC2H <- function(A,B,C){ # from C to H on A-B
if(is.complex(c(A,B,C))){
a1=Re(A) ; a2=Im(A)
b1=Re(B) ; b2=Im(B)
c1=Re(C) ; c2=Im(C)

}else{
a1=A[1] ; a2=A[2]
b1=B[1] ; b2=B[2]
c1=C[1] ; c2=C[2]
}
a=c(a1,a2) ; b=c(b1,b2) ; c=c(c1,c2)
t=(-a1*b1+a1*c1-a2*b2+a2*c2+b1^2-b1*c1+b2^2-b2*c2)/(a1^2-2*a1*b1+a2^2-2*a2*b2+b1^2+b2^2)
H=t*c(a1,a2)+(1-t)*c(b1,b2)
if(is.complex(c(A,B,C))){
return(list(t=t,H=H[1]+1i*H[2]))
}else{
return(list(t=t,H=H))
}
}

こういう道具を作っているから、他言語での作図には食指が動かない。

---

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

---

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

---

ぬこの手 ぬこTOP 0.015s