|
|
示例
|
a、 b、c、d、S、r、p、q
15、15、13、13、168、6、14、24
26、26、25、25、408、8、17、48
25, 25, 17, 17, 420, 10, 28, 30
26, 26, 22, 22, 528, 11, 40, 132/5
28, 28, 21, 21, 588, 12, 35, 168/5
25, 25, 25, 25, 600, 12, 40, 30
39, 30, 16, 25, 660, 12, 34, 39
102, 102, 10, 10, 1008, 9, 104, 252/13
|
|
|
数学
|
SMax=500；
做[
如果[a==c&&\[CapitalDelta]<0，继续[]]；
如果[GCD[a，b，s，r]>1，继续[]]；
如果[b c+\[CapitalDelta]<=0||c d-\[CapitalDelta]≤0，则继续[]]；
如果[！{p=Sqrt[（a-d）^2+（4S^2）/（a d+2\[资本增量]+b c）]，
q=平方[（a-b）^2+（4S^2）/（a-2 \[资本三角洲]+c d）]
}\【元素】基本原理，继续【】；
S（*{a，b，c，d，S，r，\[资本三角洲]，p，q}*）//母猪；
，{S，SMax}，{S，S//除数//选择[#，#^2>=4S&]&}，}r，{S/S}}
，{a，s/2//天花板，s}，{c，{s-a}}
，{b，s/2//天花板，a}，{d，{s-b}}
，{\[资本增量]，选择[{1，-1}平方[a b c d-S^2]，整数Q]//并集}
]//收割//最后//最后（*//表格*）
{p，q}=。；
|
