[JSOI2008]球形空间产生器sphere

Time Limit: 1 Sec  Memory Limit: 162 MB

Description

有一个球形空间产生器能够在n维空间中产生一个坚硬的球体。现在，你被困在了这个n维球体中，你只知道球面上n+1个点的坐标，你需要以最快的速度确定这个n维球体的球心坐标，以便于摧毁这个球形空间产生器。

Input

第一行是一个整数，n。接下来的n+1行，每行有n个实数，表示球面上一点的n维坐标。每一个实数精确到小数点后6位，且其绝对值都不超过20000。

Output

有且只有一行，依次给出球心的n维坐标（n个实数），两个实数之间用一个空格隔开。每个实数精确到小数点后3位。数据保证有解。你的答案必须和标准输出一模一样才能够得分。

Sample Input

2
0.0 0.0
-1.0 1.0
1.0 0.0

Sample Output

0.500 1.500

数据规模：
对于40%的数据，1<=n<=3
对于100%的数据，1<=n<=10
提示：给出两个定义：
1、 球心：到球面上任意一点距离都相等的点。
2、 距离：设两个n为空间上的点A, B的坐标为(a1, a2, …, an), (b1, b2, …, bn)，则AB的距离定义为：dist = sqrt( (a1-b1)^2 + (a2-b2)^2 + … + (an-bn)^2 )

 

 

正解高斯消元。。根本想不出来。。

设圆心坐标为（x1,x2,x3,x3,...,xn），则对于任意点对A,B有：

∑(xi-ai)²=∑(xi-bi)²

展开该式得：∑{xi(2*bi-2*ai)}=∑(bi²-ai²)  //这里可以先从二维的入手，展开，就能找到规律了。

有n+1个点，用其中的一个作为基准，列出n个n元一次线性方程。就是裸裸的高斯消元解方程了。

对于高斯消元。。有多种消元法，我的明显不够优，在众人0ms的情况下跑了10ms。。。

 

AC CODE

 

program hy_1013;
const eps=1e-7;
var a,p:array[0..10,0..10] of extended;
    n:longint;
//============================================================================
procedure init;
var i,j:longint;
    tmp,tmq:extended;
begin
  readln(n);
  for i:=0 to n do
    for j:=1 to n do
      read(p[i,j]);
  tmp:=0;
  for i:=1 to n do tmp:=tmp+sqr(p[0,i]);
  for i:=1 to n do
  begin tmq:=0;
    for j:=1 to n do
    begin
      tmq:=tmq+sqr(p[i,j]);
      a[i,j]:=2*(p[i,j]-p[0,j]);
    end; a[i,0]:=tmq-tmp;
  end;
end;
//============================================================================
procedure change(x:longint);
var i,j:longint;
    tt:extended;
begin
  for i:=x+1 to n do
    if abs(a[i,x])>eps then
      for j:=0 to n do
      begin
        tt:=a[x,j]; a[x,j]:=a[i,j]; a[i,j]:=tt;
        exit;
      end;
end;
//============================================================================
procedure xiao_yuan;
var i,j,k:longint;
    tt:extended;
begin
  for k:=1 to n do
  begin
    if abs(a[k,k])<eps then change(k);
    for i:=1 to n do
    begin
      if i=k then continue; tt:=a[k,k]/a[i,k];
      for j:=0 to n do a[i,j]:=a[i,j]*tt-a[k,j];
    end;
  end;
  for i:=1 to n do write(a[i,0]/a[i,i]:0:3,' ');
end;
//============================================================================
begin
  init;
  xiao_yuan;
end.