Рассекреченная биссектриса. 2

Как и обещал в первой части, привожу примеры расчета по программе. Меняю только длину биссектрису, оставляя стороны "b" и  "c" постоянными. Программу сделал более гибкой в части изменения масштаба и положения в выделенном окне. Ее текст:

print "INPUT la = ";:input la
b=7:c=6
a1=c*sqrt(1-la^2/(b*c))
a2=b*sqrt(1-la^2/(b*c))
a=a1+a2
print "la = ";:print la;
print "    a1 = ";:print a1
print "    a2 = ";:print a2
print "    a = ";:print a
xC=b
xB=(b^2+c^2-a^2)/(2*b)
yB=sqrt(c^2-xB^2)
print "xB = ";:print xB
print "yB = ";:print yB
xD=xB+a1/a*(xC-xB)
yD=a2/a*yB
print "xD = ";:print xD
print "   yD = ";:print yD
open window 600,500
d=250
rem k1 - понижающий (повышающий) коэффициент
k1=0.8
k=400/b*k1
for i=-1 to 1
color 0,0,0
line d,450+i to d+k*b,450+i
next i
for i=-2 to 2
line d+i,450 to i+d+k*xB,450-k*yB
line d+i+k*b,450 to i+d+k*xB,450-k*yB
next i
for i=-1 to 1
color 255,0,0
line d,450+i to d+k*xD,450-k*yD+i
next i

6 октября 2021 г.