请大家看看我这mathematica程序哪里出错了Mersenne[n_Integer]:=Module[{M,i,u=4},If[!Prime Q[n],False,M=2^n-1;For[i=1,i

来源:学生作业帮助网 编辑:作业帮 时间:2024/05/12 13:34:00
请大家看看我这mathematica程序哪里出错了Mersenne[n_Integer]:=Module[{M,i,u=4},If[!Prime Q[n],False,M=2^n-1;For[i=1,i

请大家看看我这mathematica程序哪里出错了Mersenne[n_Integer]:=Module[{M,i,u=4},If[!Prime Q[n],False,M=2^n-1;For[i=1,i
请大家看看我这mathematica程序哪里出错了
Mersenne[n_Integer]:=
Module[
{M,i,u=4},
If[!Prime Q[n],False,
M=2^n-1;
For[i=1,i

请大家看看我这mathematica程序哪里出错了Mersenne[n_Integer]:=Module[{M,i,u=4},If[!Prime Q[n],False,M=2^n-1;For[i=1,i
Mersenne[n_Integer] :=
Module[{M, i, u = 4}, If[! PrimeQ[n], False, M = 2^n - 1;
For[i = 1, i < n - 1, i++, u = Mod[u^2 - 2, M]];
If[u == 0, Print[True], Print[False]]]]
Do[Mersenne[n], {n, 2, 300}]

请大家看看我这mathematica程序哪里出错了Mersenne[n_Integer]:=Module[{M,i,u=4},If[!Prime Q[n],False,M=2^n-1;For[i=1,i 求解一道偏微分方程!会用Mathematica,Matlab,Maple的请进目前碰到一道难题,需要解一道偏微分方程的解析解,希望用软件实现.这张截图是我编的Mathematica程序,请大家看看是哪个地方编错了,还是这 请大家帮我看看这个mathematica的积分问题我想用mathematica计算一个积分,这个积分其实是从特征函数求得分布函数,但是用mathematica积分总是计算不出来,苦恼中……,程序如下,诚恳地请各位高手 求解一道偏微分方程!目前碰到一道难题,需要解一道偏微分方程的解析解,希望用软件实现.这张截图是我编的Mathematica程序,请大家看看是哪个地方编错了,还是这个方程压根用软件解不出来? mathematica 求程序怎么写程序啊,关键是我不知道怎么限定范围请高手指导哈 请大家帮我看看这是什么虫子 如何灭杀 请大家帮我看看这是化石吗?谢谢 请大家看看这题我做得对不对 请大家帮我看看这是不是陨石 请大家帮我看看这是什么昆虫 请大家帮我看看这是什么动物? 请大家帮我看看,这写的是什么? 请大家帮我看看 这个是什么字体(英文的)请大家看看这是什么字体 请大家帮我看看11.13. 请大家帮我看看是什么玉 请大家帮我看看这个程序怎么不能得出正确答案sort(int *a[10]){ int i,j,k; for(i=0;i mathematica 画图帮我看看这是哪儿出了问题 请大家看看这枚硬币是什么