当前位置:文档之家› Mathematica常用指令

Mathematica常用指令

表达式:
Plot[4 x - 9, {x, 0, 9}]
f[x_] = x^3
Plot[f[x], {x, 0, 9}]
a = Plot[4 x - 9, {x, 0, 9}]
b = Plot[x^3, {x, 0, 3}] 两图画在一个坐标系
Show[a, b]
a = Plot[4 x - 9, {x, 0, 9}]
b = Plot[x^3, {x, 0, 3}] 两图画在一起(一排)
c = GraphicsArray[{a, b}]
Show[c]
a = Plot[4 x - 9, {x, 0, 9}]
b = Plot[x^3, {x, 0, 3}]
c = GraphicsArray[{a}, {b}] 两图画在一起(两排)
Show[c]
二维画图:
Automatic 默认值
DisplayFunction -> Identity 不出现图
DisplayFunction -> $DisplayFunction 出现图
PlotRange -> All 画出所有点,指定区域点
PlotStyle -> {RGBColor[1, 0, 0]} 图像颜色
PlotStyle -> {Dashing[{0.01}]} 图像成虚线
PlotStyle -> {Thickness[0.01]} 图像粗细
AxesLabel -> {"x/t", "y/cm"} 坐标标签
PlotLabel -> {"s-t"} 图像标签
Frame -> True 图像边框
Axes -> {True, True} 坐标轴的显示
AxesOrigin -> {0, -5} 设置坐标原点
GridLines -> {{-π, -π/2, 0, π/2, π}, {-1,-0.5,0, 0.5, 1}}
给坐标轴分网格
TextStyle -> {FontSize -> 30} 坐标字体大小AspectRatio -> Automatic 坐标比例一致
Ticks -> {{0, 1, 2, 3}, {0,10,20}} 在坐标轴上显示特定点ParametricPlot[x(t),y(t)},{t,0,6,}] 画参数方程
三维画图:
PlotPoints -> 100 像素
Boxed -> False 显示边框
BoxRatios -> {1,1,2} 三维比例
Mesh -> False 在曲面上不显示网格ViewPoint -> {0, 0, 1} 图的观察方向HiddenSurface -> False 图示无遮挡
解方程:
Solve[a x + b == c x + d, x]
Solve[{2 x + 3 y == 3, 3 x - 5 y == 9}, {x, y}]
NSolve[7 x + 3 == 2, 30]或N[Solve[7 x + 3 == 2], 30]
Roots[x^2 + 2 x + 1 == 0, x]或NRoots[x^3 + 3 == 0, x] 解一元方程
求解超越方程:
先画图确定跟的位置,在用FindRoot解:
Plot[{Sin[x], x^2 - 1}, {x, -π, π}]
FindRoot[Sin[x] == x^2 - 1, {x, 1}]
Factor[x^2 + 2 x + 1] 分解因式
Expand[(x^2 + 2 x + 1)( x^2 - 1)] 展开多项式
Collect[x^3y^2z^4 + x^4y^5z^2x^2y^3z^2, y] 按Y升次幂排列PowerExpand[Log[x\^y]] 展开或化简TrigExpand[Sin[3 x]] 按三角函数形式展开
微分:
Limit[(x^5 - 32)/(x^3 - 8), x -> 2] 求极限
Limit[32/x, x -> 0, Direction -> 1(-1)] 左(右)极限
f'[x] 求导
D[f[x], {x, 3}] 以X为变量求3阶导数D[f[x], {x, 3}] /. x -> 2 f''[2]
Series[Exp[x], {x, 3, 5}] 在3点展开至5次方D[x^3 y^4 z^2, x] 对x求偏导
D[x^3 y^4 z^2, {x, 2}] 对x求二次偏导D[x^3 Sin[y], x, y] /. {x -> 2, y -> π} 定点求导
常微分方程:
DSolve[y'[x] == x + y[x], y[x], x] 解微分方程,y是x的函数DSolve[{y'[x] == x + y[x], y[0] == 0}, y[x], x] 初始条件
NDSolve[{y'[x] == x + y[x], y[0] == 0}, y[x], x] 数值解
矩阵:
{{1, 2, 3}, {4, 5, 6}, {7, 8, 9}} // MatrixForm 生成矩阵
Table[x^2, {x, 1, 5}] 生成x取值1到5的x^2的值Table[x+y, {x, 1, 5},{y,1, 7}] 生成5*7的矩阵,矩阵元的值是x+y f[x_] = 2 x^2
Array[f, 1, 5] 生成x=1到5的2 x^2的值IdentityMatrix[3] 生成3阶单位矩阵
a[[3,4]] a矩阵的(3,4)矩阵元
a[4] a矩阵的第四行
a[[all,5]] a矩阵的第5列
a[[{2,3,5},all]] a矩阵的第2,3,5行{q,w,e}={2+3,1+2,2} q=5,w=3,e=2
Table[Random[Integer,{0,9}],{i,1,4},{j,1,4}] 随机产生矩阵元为0~9的4行4列的矩阵
z.q 矩阵点乘
Cross[z,q] 矩阵叉乘
Inverse[a] 逆矩阵
Transpose[a] 转置
Det[a] 求行列式
Tr[a] 求迹
MatrixPower[a,2] 矩阵的3次方
LinearSolve[a,aa]//MatrixForm 解线性方程组
Eigenvalues[s] s矩阵的本征值
Eigenvectors[s]s矩阵的本征向量
Eigensystem[s]s矩阵的{本征值},{本征向量} Eigenvalues[N[s]] s矩阵的本征值的数值表示
命令语句:
If[x ≤y, 1, 2] ifx ≤y,then 1,else 2
If[Abs[q - w] == 1, 1, If[q == w, 2, 0] ifabs[q - w] == 1,then 1,elseif q == w,then 2,else 0 While[1,2]
For[初始化,条件,更新,语句]。

相关主题