Description
一年一度的高一YL杯超级篮球赛开赛了。当然,所谓超级,意思是参赛人数可能多余5人。小三对这项篮球非常感兴趣,所以一场都没有落下。每个中午都准时守侯在篮球场看比赛。经过一个星期的研究,小三终于对篮球的技战术找到了一丝丝感觉了。他发现打YL杯的每个班都有一套相似的进攻战术:
1 :控球后卫带球到前场,找到一个最佳攻击点 ( x , y )
2 :所有除控卫以外的队员都从各自的当前位置迅速向 ( x , y ) 移动
3 :控球后卫根据场上情况组织进攻
这个战术对于一般情况是非常奏效的,但是每个队员毕竟不像小三一样每天精力过剩,每个队员都有一个疲劳指数W,显然对于每个队员的移动需要消耗一些能量。
假设一个队员从位置 ( x1 , y1 ) 移动到 ( x , y )的能量消耗为 w * (ABS ( x - x1 ) +ABS ( y - y1 ) ), 这里ABS为绝对值函数。那么我们希望整个队伍一次进攻的能量消耗当然是越少越好。显然能量消耗的多少直接取决于控球后卫对于攻击点 ( x , y )的选择。
因为参赛人数众多,所以小三希望你能编写一个程序,即帮他找出某个时刻的最佳攻击点。
Input
第一行:一个整数N,表示篮球队人数
第二行:一共N个整数,其中的第i个数Wi表示第i个队员的疲劳指数。
第3~N+2行:每一行两个整数X和Y,其中的第i+2行,表示第i个队员的当前位置的横坐标和纵坐标。
Output
一个实数。表示所有队员集合到最佳攻击位置的能量消耗总和,答案保留两位小数。
Sample Input
1
1
0 0
Sample Output
0.00
var
n,i,j:longint;
l,r,mid:int64;
sum1,sum2:qword;
ans:real;
x,y,w:array[0..50000] of int64;
function checkx(a:int64):boolean;
begin
sum1:=0;
for i:=1 to n do
sum1:=sum1+w[i]*abs(x[i]-a);
a:=a+1;
sum2:=0;
for i:=1 to n do
sum2:=sum2+w[i]*abs(x[i]-a);
if sum2>sum1 then exit(false)
else exit(true);
end;
function checky(a:int64):boolean;
begin
sum1:=0;
for i:=1 to n do
sum1:=sum1+w[i]*abs(y[i]-a);
a:=a+1;
sum2:=0;
for i:=1 to n do
sum2:=sum2+w[i]*abs(y[i]-a);
if sum2>sum1 then exit(false)
else exit(true);
end;
begin
read(n);
for i:=1 to n do read(w[i]);
for i:=1 to n do
begin
read(x[i],y[i]);
x[i]:=x[i];
y[i]:=y[i];
end;
l:=-maxlongint;
r:=maxlongint;
while l<r do
begin
mid:=(l+r) div 2;
if checkx(mid) then l:=mid+1
else r:=mid;
end;
for i:=1 to n do
ans:=ans+w[i]*abs(x[i]-l);
l:=-maxlongint;
r:=maxlongint;
while l<r do
begin
mid:=(l+r) div 2;
if checky(mid) then l:=mid+1
else r:=mid;
end;
for i:=1 to n do
ans:=ans+w[i]*abs(y[i]-l);
writeln(ans:0:2);
end.