level 1
这个错误怎么搞
2014年04月21日 04点04分
level 1
CSUMathZ
楼主
> good2s:=proc(1) local k,i,A,B,p,x;
p := 7; k := 10; x := 5; B := matrix(1 .. 2, 1 .. 2, []); C := matrix(1 .. 2, 1 .. 2, []); A[1] := matrix([[2*x, p-1], [1, 0]]); for i to k do B := evalm(A[i]^100); C[1, 1] := `mod`(B[1, 1], p); C[1, 2] := `mod`(B[1, 2], p); C[2, 1] := `mod`(B[2, 1], p); C[2, 2] := `mod`(B[2, 2], p); A[i+1] := matrix([[C[1, 1], C[1, 2]], [C[2, 1], C[2, 2]]]) end do;
end proc:
2014年04月21日 05点04分
6
p := 7; k := 10; x := 5; B := matrix(1 .. 2, 1 .. 2, []); C := matrix(1 .. 2, 1 .. 2, []); A[1] := matrix([[2*x, p-1], [1, 0]]); for i to k do B := evalm(A[i]^100); C[1, 1] := `mod`(B[1, 1], p); C[1, 2] := `mod`(B[1, 2], p); C[2, 1] := `mod`(B[2, 1], p); C[2, 2] := `mod`(B[2, 2], p); A[i+1] := matrix([[C[1, 1], C[1, 2]], [C[2, 1], C[2, 2]]]) end do;
end proc: