BZOJ1002[FJOI2007]轮状病毒

Description

轮状病毒有很多变种，所有轮状病毒的变种都是从一个轮状基产生的。一个N轮状基由圆环上N个不同的基原子

和圆心处一个核原子构成的，2个原子之间的边表示这2个原子之间的信息通道。如下图所示

N轮状病毒的产生规律是在一个N轮状基中删去若干条边，使得各原子之间有唯一的信息通道，例如共有16个不
同的3轮状病毒，如下图所示

现给定n(N<=100)，编程计算有多少个不同的n轮状病毒

Input

第一行有1个正整数n

Output

计算出的不同的n轮状病毒数输出

Sample Input

3

Sample Output

16

题解：

手推DP转移方式，推了好久依旧特别长。

不明白为什么他们的公式这么短。

代码：

 var
   i,j,k,l,n,m,x:longint;
   a:array[..,..]of longint;
   b,c:array[..]of longint;
 begin
   readln(n);
   if n= then begin writeln(); halt; end;
   if n= then
   a[,]:=; a[,]:=; a[,]:=; a[,]:=;
   a[,]:=; a[,]:=; a[,]:=; a[,]:=; a[,]:=;
   for i:= to n- do
   begin
     x:=;
     for j:= to a[i-,] do
     begin
       a[i,j]:=a[i,j]+*a[i-,j]-*a[i-,j]+*a[i-,j]-a[i-,j]+x;
       while a[i,j]< do begin dec(a[i,j+]); a[i,j]:=a[i,j]+; end;
       x:=a[i,j] div ;
       a[i,j]:=a[i,j] mod ;
     end;
     while x> do begin inc(j); a[i,j]:=x mod ; x:=x div ; end;
     a[i,]:=j;
   end;
   x:=;
   for i:= to a[n-,] do
   begin
     a[n-,i]:=a[n-,i]*+x;
     x:=a[n-,i] div ;
     a[n-,i]:=a[n-,i] mod ;
   end;
   while x> do begin inc(i); a[n-,i]:=x mod ; x:=x div ; end;
   a[n-,]:=i;
   x:=;
   for i:= to a[n-,] do
   begin
     a[n-,i]:=a[n-,i]*+x;
     if i= then a[n-,i]:=a[n-,i]+;
     x:=a[n-,i] div ;
     a[n-,i]:=a[n-,i] mod ;
   end;
   while x> do begin inc(i); a[n-,i]:=x mod ; x:=x div ; end;
   a[n-,]:=i;
   for i:= to a[n-,] do
   begin
     a[n-,i]:=a[n-,i]-a[n-,i];
     while a[n-,i]< do
     begin
       dec(a[n-,i+]); a[n-,i]:=a[n-,i]+;
     end;
   end;
   while a[n-,a[n-,]]= do dec(a[n-,]);
   for i:=a[n-,] downto  do write(a[n-,i]);
   writeln;
 end.