Даны площади F1, F2, F3. Найти площадь S. Ч 5

Ну, вот теперь долгожданная победа! Составил прогу расчета площади S  по координатам и по выведенной формуле. Сходимость абсолютная! Текст проги:

x1=0:y1=0:x2=6:y2=9:x3=17:y3=0
k=y2/x2
x4=x2*ran()
y4=k*x4
x5=x2+(x3-x2)*ran()
y5=y2-(x5-x2)*y2/(x3-x2)
x6=x3*x5*y4/(x5*y4+(x3-x4)*y5)
y6=x6*y5/x5
print x1,y1
print x2,y2
print x3,y3
print x4,y4
print x5,y5
print x6,y6
xa=x1:ya=y1:xb=x4:yb=y4:xc=x6:yc=y6
F()
F1=F
print F
xa=x1:ya=y1:xb=x6:yb=y6:xc=x3:yc=y3
F()
F2=F
print F2
xa=x6:ya=y6:xb=x5:yb=y5:xc=x3:yc=y3
F()
F3=F
print F3
xa=x4:ya=y4:xb=x2:yb=y2:xc=x6:yc=y6
F()
F4=F
xa=x2:ya=y2:xb=x5:yb=y5:xc=x6:yc=y6
F()
F5=F
print F4+F5
S=(F1+2*F2+F3)/(F2^2/(F1*F3)-1)
print S
sub F()
F=abs(1/2*((xa-xc)*(yb-yc)-(xb-xc)*(ya-yc)))
end sub

В иллюстрации дал распечатку результатов. Этим расчетом доказал верность общей формулы. После же и геометрическими рассуждениями пришел к ней.


19 марта 2023 г.