>>130
モンテカルロ法でのHI/BCを算出するRのコード

source('toolmini.R')
ABC=Random.triangle()
A=ABC[1]
B=ABC[2]
C=ABC[3]
H=Orthocenter(A,B,C)
I=incircle(A,B,C)[1]
BC=sort(c(abs(A-B),abs(B-C),abs(C-A)))[2]
HI=abs(H-I)
HI/BC