## 帐号 自动登录 找回密码 密码 欢迎注册
 搜索

## 日志

mathematica 2018-8-26 10:21

854 次阅读|0 个评论

mathematica 2018-3-7 21:43

794 次阅读|0 个评论

mathematica 2013-11-21 09:44

1071 次阅读|1 个评论 热度 1

mathematica 2019-3-24 09:37

628 次阅读|0 个评论

mathematica 2019-2-27 14:31
Clear ;(*Clear all variables*) Lucas :=Module ==0n2,Return ];(*排除偶数*) If ],Return ];(*如果是完全平方数,返回False*) (*写成n+1=2^s*m的形式*) m=n+1; (*s=0;While ==0,m=m/2;s=s+1];*) (*根据P=3 4 5 6 7 Q=1,以及雅克比 ...
653 次阅读|0 个评论

mathematica 2018-8-23 12:25
$8^{8^{8^{8^{8^{8^{8^{8^{8^{8^{8^{8^{8^{8^{8^{8^{8^{8^{8^{8^{8^{8^{8^{8^{8^{8^{8}}}}}}}}}}}}}}}}}}}}}}}}}}$ \ \$\frac{1}\frac{2}\frac{3}\frac{4}\frac{5}\frac{6}\frac{7}\frac{8}\frac{9}\frac{10}\frac{11}\frac{12}\frac{13}\frac{14}\frac{15}\frac{16}\frac{17}\frac{18}\frac{19}\frac{20}\frac{21}\f ...
791 次阅读|0 个评论

mathematica 2018-7-30 13:29

852 次阅读|0 个评论

mathematica 2017-5-5 10:13
(*Miller-Rabin素性判定的mathematica子函数*) Clear ;(*Clear all variables*) MRTest :=(*n0被判定的正奇整数,a0选用的底*) Module ==0,m=m/2;s=s+1]; (*继续判定*) (*先检查a^m Mod n是否等于1*) &nb ...
736 次阅读|0 个评论

mathematica 2013-11-25 14:53

1035 次阅读|0 个评论

mathematica 2013-11-25 13:07

1323 次阅读|2 个评论

mathematica 2013-11-25 12:25

899 次阅读|0 个评论
12下一页

GMT+8, 2020-10-23 19:57 , Processed in 0.070782 second(s), 14 queries .