24/04/12 13:08:53.80 AAEWs28S.net
>>122
R言語で検証
URLﾘﾝｸ(i.imgur.com)
対角線ACの長さを１としてAを原点とする。
直線DAの傾きをpとする。
Dのx座標をxdとすると
DCを結んで∠ADCの二等分線と直線y = -pxの交点をBとする。
∠ABD-∠CBD=0となるようにxdを決定する。
するとpの値によらずxd=0.5となる。
これをプログラムで確認。
calc=\(deg,verbose=FALSE){
theta=deg*pi/180
A=0i
C=1+0i
p=tan(theta)
f=\(xd){
D=xd+1i*p*xd
IC=incircle(A,C,D)
I=IC[1]
B=intsect(D,I,A,1-p*1i)
angle(D,B,A)-angle(D,B,C)
}
f=Vectorize(f)
xd=uniroot