mathematica 将循环结果保存到数组中 print

首先要载入附加程序包：

你问的是矩阵的分解吧,Mathematica中矩阵分解的命令为：JordanDecomposition[A],表示将矩阵A分解为A=PBP^(-1)的形式,例如：A={{1,2,3},{2,1,3},

可以的,比如定义一个函数（欧几里德Euclid算法）：gcd[m0_, n0_] := Module[{m = m0, n =&n

楼上的,人家问的是Mathematica~代码：SetDirectory[NotebookDirectory[]];a=Table[i+j,{i,1,10},{j,1,10}];Export["a.t

用table,不要用for,举个例子,我想解x^2+k*x+1==0,k=1,2,3,.,10这10个方程的解,那么就这么写Table[x/.Solve[x^2+k*x+1==0,x],{k,1,10

f[x_,y_]:=x*Sin[x*y]-y*Exp[x+y]+x*y;(*方程f[x,y]*)h=0.05;(*步长*)x0=-1;x1=1;(*x定义域*)y0=-1;y1=1;(*y定义域*)m

0.12323……=1/10+23/990=122/990=61/495

在循环中加一个赋值语句,比如a=Array[10,10]For[...在合适的地方a[[k]]=那个值...]最后把a输出就是那许多值了.也可以用Reap和Sow命令.

按您的意思我猜测您是要提高结果的精度.Mathematica很有意思,它输进去的数分三种,一种是机器精度数,就和一般编程中的浮点型一样.另一种是高精度数,其精度远远超越一般浮点型数.（依你CPU决定到

2x1/.Solve[x-1==0,x]第2问再说详细些?再问：谢谢第一问的答案。第二问的意思是，对于以下方程组f0=0f1=(1/2)f0+(1/2)f1+1f2=(1/2)f1+(1/2)f2+1

可以出的,再问：如果我想依次画出y[1,0,mu]y[0.99,0,mu]y[0.9,0,mu]y[1,1,mu]y[1,2,mu]怎么弄？另外，要是把您画的这个的直线部分的下部分抹掉怎么弄？如果分开

可以实现的,你把你的想法再写具体点,我可以帮你实现.你要写成像课本上的题目的形式一样明白我才能做,而你只是简要的说了你的想法,我不想花时间去理解你的想法.补充:a[]的值开始是0,只有两个a[]有值（

这样：SystemOpen@ Export["a.xls",   First@Cases[    N

我这个肯定可行：1、你把你要的公式输进mathematica；2、在右边有一个框形的东西选中,点击右键Convertto下的TraditionalForm选完后,就变成了传统模式,这样就可以粘贴在wo

1.2323……=1+23×0.0101……=1+23/99=122/990.01616……=16/990=8/4952.14545……=2.1+45/990=118/55速度回答抄袭死全家再问：bu

如果只是要转换表达式的话,试试CForm函数.再问：例如2x+2，但是我想把它变成C++语言中可以输入的内容，也就是2*x+2，CForm函数就可以做到吗？这个函数是在Mathematica里面定义的

用Nest很快的Module[{x=1},NestList[x+(x=#)&,0,79]][[75;;80]]For循环版本的For[i=1;f0=0;f1=1,i

7.0要使用Manipulate[]来实现Manipulate[Plot[Sin[x],{x,0,n*Pi}],{n,1,5}]

用Showa=Plot3D[Sin[x+y],{x,-2,2},{y,-2,2}];b=ContourPlot3D[x^2+y^2-z^2==0,{x,-2,2},{y,-2,2},{z,-2,2}]

TeXForm[HoldForm[a^0]]或者把整个nbsaveastex文件.