能力值:
( LV4,RANK:50 )
|
-
-
2 楼
数错了10个数成11个了。。。。
看了半天书,可能是只有10个点解,10不是素数,这种曲线不是循环群。。。。
|
能力值:
( LV4,RANK:50 )
|
-
-
3 楼
原来下的Mathematics v9.0是个假的。。。。
用5.0可以了,不过图还是不对,实数域的都不对,有理数域的连点都不出来。。。。。哪位懂Mathematics 看看哪红字含义 :
|
能力值:
( LV4,RANK:50 )
|
-
-
4 楼
\!\(\*GridBox[{
{\(f[
x_, a_, b_] :=
Sqrt[x^3 + a*x + b]; Table[Plot[{f[x,
a, b], \(-f[x,
a, b]\)}, {x . \(-3\), 5}, AspectRatio -> Automatic,
TextStyle -> {FontFamily -> "\<cmr7\>", FontSize -> 7}], {a, 4,
0}, {b, \(-1\), 4}]; Show[GraphicsArray[\ %]]\)},
{"\[Placeholder]"}
}]\) ===================== Plot[Sqrt[x^3 + x + 3], {x, 0, 100}] ======================
Clear[a, b, p, rc];
a = 1; b = 3; p = 11;
If[PrimeQ , , Print[p, "not a prime"]]
If[Mod[4a^3 + 27b^2, p] == 0, Print["no ecc curve"]]
rc = Table[{i, {AbsoluteThickness[.5],
RGBColor[0, 0, 0]}}, {i, 0, p - 1}]; Table[If[Mod[y^2, p] == Mod[
x^3 + ax + b, p], Point[{x, y}]],
{x, 0, p - 1}, {y, 0, p - 1}]
Show[Graphics[{AbsolutePointSize[3], %}], PlotRange -> All, GridLines -> {
rc, rc}, AspectRatio -> Automatic]
|