- 注册时间
- 2021-11-19
- 最后登录
- 1970-1-1
- 威望
- 星
- 金币
- 枚
- 贡献
- 分
- 经验
- 点
- 鲜花
- 朵
- 魅力
- 点
- 上传
- 次
- 下载
- 次
- 积分
- 9170
- 在线时间
- 小时
|
发表于 2023-5-15 10:01:17
|
显示全部楼层
2、解椭圆曲线方程:Y^2=225X^3-1519, X、Y为正整数。
这个方程无整数解。
- Clear["Global`*"];(*清除所有变量*)
- (*Y^2=225X^3-1519,方程两边对225取模,得到余数Mod[-1519,225]=56*)
- aaa=Range[1,225](*生成所有的Y的可能的同余*)
- bbb=Select[aaa,Mod[#^2,225]==56&](*选出平方后模225余数为56的Y*)
- ccc=Mod[#^2,225]&/@aaa(*对每一个Y平方后模225取余数*)
- ddd=Tally@ccc(*统计每种类型剩余的个数*)
- eee=Sort[ddd,#1[[1]]>#2[[1]]&](*按照剩余从大到小排列*)
- Grid[eee,Alignment->Left](*列表显示*)
复制代码
下面是模225的平方的所有的剩余的可能的统计:
\[\begin{array}{ll}
216 & 6 \\
214 & 4 \\
211 & 4 \\
199 & 4 \\
196 & 4 \\
189 & 6 \\
184 & 4 \\
181 & 4 \\
175 & 10 \\
171 & 6 \\
169 & 4 \\
166 & 4 \\
154 & 4 \\
151 & 4 \\
144 & 6 \\
139 & 4 \\
136 & 4 \\
126 & 6 \\
124 & 4 \\
121 & 4 \\
109 & 4 \\
106 & 4 \\
100 & 10 \\
99 & 6 \\
94 & 4 \\
91 & 4 \\
81 & 6 \\
79 & 4 \\
76 & 4 \\
64 & 4 \\
61 & 4 \\
54 & 6 \\
49 & 4 \\
46 & 4 \\
36 & 6 \\
34 & 4 \\
31 & 4 \\
25 & 10 \\
19 & 4 \\
16 & 4 \\
9 & 6 \\
4 & 4 \\
1 & 4 \\
0 & 15 \\
\end{array}\]
216表示模225的剩余中,等于226的情况有6种
补充内容 (2023-5-16 08:49):
216表示模225的剩余中,等于226(此处应该是216)的情况有6种 |
|