, , , ( Mathematica).

, :

, , . , :
- belisarius, , Min Max . , , , , . Mathematica Interval :

, :
containsRatioQ[area1_, area2_, areaBetween_, ratio_] :=
IntervalMemberQ[areaRatioInterval[area1, area2, areaBetween], ratio]
mu labda:
\[Mu] -> (-2*aL + givenAreaRatio*(2*
aR - (p1y - p3y)*(p2x - p4x) + (p1x - p3x)*(p2y - p4y)) + (1 +
givenAreaRatio)*((-p1x)*p2y + p1y*(p2x - p4x) + p2y*p4x +
p1x*p4y - p2x*p4y)*\[Lambda])/
((1 + givenAreaRatio)*((-p3y)*p4x + p3x*p4y +
p1y*(p3x - p4x)*(-1 + \[Lambda]) -
p1x*(p3y - p4y)*(-1 + \[Lambda]) + ((-p2y)*p3x + p2x*p3y +
p2y*p4x - p2x*p4y)*\[Lambda]))
p1, p2, p3, p4 , , aL - "" , aR - "" (. ).
. , mu, lambda 0 1, .
. Mathematica:
NMinimize[{Max[aspectRatio[area1tot], aspectRatio[area2tot]], \[Mu]range[[1]] <= \[Mu] <= \[Mu]range[[2]]}, \[Mu]]
are1tot area2tot , mu lambda, mu.


Mathematica, . .