20/10/02 03:14:59.96 /iB13sh9.net
>>864
座標使って解いたらほぼ無思考で解ける。
関数（ミニプログラム）化すると
f <- function(DAB,DAC,DBA,DBC){
# return the intersection point of two lines
# y=tan(A)(x-a1)+a2 & y=tan(B)(x-b1)+b2
koten <- function(a1,a2,a,b1,b2,b){
A=a*pi/180
B=b*pi/180
if(tan(A)==tan(B)) return(NA)
else
x = (a1* tan(A) - a