n*m的矩形,用1*2的砖块铺,求方案数.这个公式:Prod[j=1..m/2,Prod[k=1..n/2,4cos(j*Pi/(m+1))^2 + 4cos(k*Pi/(n+1))^2 ]].Pascal程序:ans:=1;for i:=1 to n shr 1 dofor j:=1 to m shr 1 dobegintemp:=sqr(cos(pi*i/(n+1)))+sqr(cos(pi*j/(m+1)));ans:
来源：学生作业帮助网 编辑：六六作业网 时间：2024/11/22 07:22:00
n*m的矩形,用1*2的砖块铺,求方案数.这个公式:Prod[j=1..m/2,Prod[k=1..n/2,4cos(j*Pi/(m+1))^2 + 4cos(k*Pi/(n+1))^2 ]].Pascal程序:ans:=1;for i:=1 to n shr 1 dofor j:=1 to m shr 1 dobegintemp:=sqr(cos(pi*i/(n+1)))+sqr(cos(pi*j/(m+1)));ans:
n*m的矩形,用1*2的砖块铺,求方案数.
这个公式:
Prod[j=1..m/2,Prod[k=1..n/2,4cos(j*Pi/(m+1))^2 + 4cos(k*Pi/(n+1))^2 ]].
Pascal程序:
ans:=1;
for i:=1 to n shr 1 do
for j:=1 to m shr 1 do
begin
temp:=sqr(cos(pi*i/(n+1)))+sqr(cos(pi*j/(m+1)));
ans:=ans*temp*4;
end;
writeln(ans:0:0);
c++程序:
ans=1
for (i=1;i
n*m的矩形,用1*2的砖块铺,求方案数.这个公式:Prod[j=1..m/2,Prod[k=1..n/2,4cos(j*Pi/(m+1))^2 + 4cos(k*Pi/(n+1))^2 ]].Pascal程序:ans:=1;for i:=1 to n shr 1 dofor j:=1 to m shr 1 dobegintemp:=sqr(cos(pi*i/(n+1)))+sqr(cos(pi*j/(m+1)));ans:
killnow5788 拌得很厉害...lz不要理他.
参考M.E.Fischer的一篇论文吧
Statistcal Mechanics of Dimers on a Plane Lattice
你写的那两个程序就是把公式给表达出来而已。
你是不是公式没理解啊？
而且这两个程序用了最冗余的办法，算法都没优化。
哦，那你觉得好就好吧~