使用lingo编程使用lingo求平面上两点,使平面上的12个点到这两点距离最近.例如这12个点位x=12 15 26 18 15 5 3 2 7 2 23 56；y=23 43 56 12 67 23 12 45 78 34 23 78 ；加权为r=500 1000 300 400 700 800 1000 600 100 200 400 600；求平面上的两点12个点到两点的距离为最短,用li
网友回答
sets:point/1..12/:x,y,r,c;
link(point,point):d;
endsets
calc:@for(link(i,j):d(i,j)[email protected]((x(i)-x(j))^2+(y(i)-y(j))^2));
endcalc
[email protected](link(i,j):d(i,j)*c(i)*r(i));
@sum(point:c)=2;
@for(point:@bin(c));