计算机数学基础电子教案教学课件作者王信峰7-4课件.PPTVIP

§7.4 有关Mathematica命令及 算法实现 7.4.1 相关命令 7.4.2 部分算法的实现 7.4.1 相关命令 7.4.2 部分算法的实现 * * 例11 给定两个数7891和2756，试直接用Mathematica命令求解： (1) 对它们进行因子分解； (2) 实施素数判断； (3) 大数被小数模的余数； (4) 二者的最大公约数； (5) 二者的最小公倍数。 解: 顺序对应的Mathematica求解命令如下: FactorInteger[7891] PrimeQ[7891] Mod[7891，2756] GCD[7891,2756] LCM[7891,2756] 结果略 N-S流程图1相关 Mathematica?程序： a = Input[Please input a integer:]; b = Floor[Sqrt[a]]; For[i = 1, i = b, i++, If[Mod[b, i] == 0, i = b + 2]]; If[i b + 2, Print[m is a sushu], Print[m is not sushu]] N-S流程图7相关 Mathematica?程序： a=7891;b=2756;c=1;c=Mod[a,b]; While[c10,a=b;b=c;c=Mod[a,b]]; Print[b] N-S流程图9相关 Mathematica?程序： n=8;m=2^n+1; su={3,5,7,11,13,17,19,23,31}; ll=Length[su]; For[i=1,i￡ll,i++, If[Mod[su[[i]]^(2^n)-1,m]==0, If[Mod[su[[i]]^(2^(n-1))-1,m]10,i=ll+1]]]; If[i1ll+2,Print[m is maybe not prime],Print[m is prime]];