PRINT
PRINT "＜ ∠ＡＢＣの２等分線の方程式 ＞"
PRINT
INPUT PROMPT " 点Ａ(χ,ｙ）?  ":Lx,Ly
INPUT PROMPT " 点Ｂ(χ,ｙ）?  ":Mx,My
INPUT PROMPT " 点Ｃ(χ,ｙ）?  ":Nx,Ny
PRINT
LET a = Ly-My
LET b = Mx-Lx
LET c = My*Lx-Mx*Ly
LET AA = ROUND(a*100000000)/100000000
LET BB = ROUND(b*100000000)/100000000
LET CC = ROUND(c*100000000)/100000000
LET d = My-Ny
LET e = Nx-Mx
LET f = Ny*Mx-Nx*My
LET DD = ROUND(d*100000000)/100000000
LET EE = ROUND(e*100000000)/100000000
LET FF = ROUND(f*100000000)/100000000
PRINT "   点Ｂと点Ａを結ぶ直線 ：　";AA;" x　+　";BB;" y　+　";CC;"　＝　０"
PRINT "   点Ｂと点Ｃを結ぶ直線 ：　";DD;" x　+　";EE;" y　+　";FF;"　＝　０"
PRINT
LET Q = BB*SQR(DD^2+EE^2)-EE*SQR(AA^2+BB^2)
LET W = DD*SQR(AA^2+BB^2)-AA*SQR(DD^2+EE^2)
LET R = FF*SQR(AA^2+BB^2)-CC*SQR(DD^2+EE^2)
LET H = ROUND(W/Q*100000000)/100000000
LET K = ROUND(R/Q*100000000)/100000000
PRINT "  ∠ＡＢＣの２等分線の方程式 ： y = ";H;"x";
IF K > 0 THEN
   PRINT " + ";K
ELSEIF K < 0 THEN
   PRINT " -";-1*K;
ELSE
   PRINT
END IF
PRINT
END