#附件1
Hra:=proc(r::integer,a::intiger,q::integer)
二项(r-1,a-1)*(q-3)+二项(r-1,a);
%*(q-3)^(r-a-1);
结束进程:
Jra:=proc(r::integer,a::intiger,q::integer)
二项式(r-2,a-2)*(q-3)^2+2*二项式;
%*(q-3)^(r-a-2);
结束进程:
#附件2
q:=9;
a:=2;
Jra(r,a,q)+二项式(2,r-a)+(1+(-1)^(r+a)+;
%/4 ;
结束进程: