Mathematica编程语句与例题汇.pptVIP

例8 找出300至500之间同时能被3和11整除的自然数。 解: Mathematica 命令为: In[23]:= Do[If[Mod[i,13]== 0 Mod[i,3]== 0,Print[i]],{i,300,500}] Out[23]= 312 351 390 429 468 例9 找出方程在[0,100]内的整数解。 解: In[24]:= Do[z =100 – x - y; If[5x+3y+z/3==100,Print[x= ,x, y=,y, z=,z]]， {x,0,100},{y,0,100}] 得解 x= 0 y= 25 z= 75 x= 4 y= 18 z= 78 x= 8 y= 11 z= 81 x= 12 y= 4 z= 84 Evaluation only. Created with Aspose.Slides for .NET 3.5 Client Profile 5.2.0.0. Copyright 2004-2011 Aspose Pty Ltd. 例10 对自然数k从1开始到10,取s=1做赋值s =s*k,并显示对应的值,直到s的值5终止。 解: In[25]:= s=1;Do[s*=k;Print[s];If[s5,Break[]], {k,1,10} ] 1 2 6 Evaluation only. Created with Aspose.Slides for .NET 3.5 Client Profile 5.2.0.0. Copyright 2004-2011 Aspose Pty Ltd.  Mathematica编程 Evaluation only. Created with Aspose.Slides for .NET 3.5 Client Profile 5.2.0.0. Copyright 2004-2011 Aspose Pty Ltd. 8.1全局变量、局部变量、过程 8.1.1全局变量 在Mathematica中键入的各种命令或在Mathematica的程序语句中, 变量被赋值后, 必须用Mathematica清除变量的命令才能使其还原为符号的变量, 称为全局变量。察看某变量是否为全局变量，可以键入命令: ?变量名 Global`变量名… 说明该变量是全局变量,否则,就不是全局变量。 例如:要知道变量w是否为全局变量,可以键入: ? w 键入执行命令后,显示结果 Global`w w = 2 说明w是全局变量,且有数值2。 Evaluation only. Created with Aspose.Slides for .NET 3.5 Client Profile 5.2.0.0. Copyright 2004-2011 Aspose Pty Ltd. 8.1.2 局部变量 在Mathematica的命令或程序中出现的任何合法的变量名符号，如果该变量名所代表的变量没有被赋值，则它就作为数学算式中的符号参与数学的公式推导和运算；如果该变量被赋值了，则用该变量所赋的值参与对应的数学公式推导和运算。因此，当用户在做符号运算时使用的符号含有被赋了值的变量名，则就会出现察觉不到的错误。为克服这种错误，可以在使用Mathematica的命令之前, 先用Clear[ 变量1,变量2,…]将要使用的所有变量名做清除处理, 就可以避免上述错误。 不同于全局变量, 称变量的赋值效果只在某一模块内有效的变量为局部变量。 Evaluation only. Created with Aspose.Slides for .NET 3.5 Client Profile 5.2.0.0. Copyright 2004-2011 Aspose Pty Ltd. Mathematica 中Module模块的命令为: Module[{变量表}, 表达式 ] 例如: 在Mathematica键入 In[4]:= u=5; In[5]: = s=Module[{u, v=1}, u=1; v=u+v+3] Out[5]= 5 In[6]:= Print[u, , v, ,s] Out[6]= 5 v 5 Evaluation only. Created with Aspose.Slid