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

## 日志

mathematica 2018-8-26 10:21

569 次阅读|0 个评论

mathematica 2018-3-7 21:43

581 次阅读|0 个评论

mathematica 2013-11-21 09:44

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

mathematica 2019-3-24 09:37

379 次阅读|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,以及雅克比 ...
413 次阅读|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 ...
542 次阅读|0 个评论

mathematica 2018-7-30 13:29

603 次阅读|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 ...
544 次阅读|0 个评论

mathematica 2013-11-25 14:53

851 次阅读|0 个评论

mathematica 2013-11-25 13:07

1149 次阅读|2 个评论

mathematica 2013-11-25 12:25

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

GMT+8, 2019-12-15 19:14 , Processed in 0.034725 second(s), 14 queries .