|
（PARI）
按最大度数绘制的图形（n）={
局部（M=贴图（Mat（[x^0，1]））；
my（acc（p，v）=我的（z）；mapput（M，p，if（映射已定义（M，p，&z），z+v，v））；
my（merge（r，p，v）=acc（p+sum（i=1，极度（p）-r-1，极系数（p，i）*（1-x^i）），v））；
my（递归（r，p，i，q，v，e）=如果（i<0，合并（r，x^e+q，v），my（t=polceof（p，i））；对于（k=0，t，self（）（r，p，i-1，（t-k+x*k）*x^i+q，二项式（t，k）*v，e+k））；
对于（k=2，n，my（src=Mat（M））；M=地图（）；对于（i=1，matsize（src）[1]，my（p=src[i，1]）；递归（n-k，p，极性（p），0，src[i，2]，0））；
垫（M）；
}
行（n）={如果（n==0，[1]），my（M=GraphsByMaxDegree（n），u=向量（n+1））
| 
