mathematica练习程序（第一章 Mathematica的基本量）

虽然过去有用Mathematica解过一些问题，不过对这个语言并没有系统学习过。

所以最近想重新把Mathematica系统的学一遍。

偶然在B站上找到了这样一组教程：https://www.bilibili.com/video/av70241728?p=1，就跟着重新学习一下。

下面是随堂教程的课后练习，都是比较基础的习题。教程应该是这本书：https://item.jd.com/47040228358.html。

习题如下：

代码如下：

.
^

N[Exp[ -  I]]

N[Sin[*Pi/] + Cos[*Pi/]]

N[Log[, ]]

N[Log[Exp[-] + ]]

N[Sqrt[Abs[Log[Sin[*Pi/]]]]]

N[Cos[ ArcCos[/]] - ArcCos[/]]

N[Tan[ArcTan[Sqrt[]/] + ArcTan[Sqrt[]/]]]

N[ (Cos[ Pi/] + I Sin[ Pi/])/( (Cos[Pi/] + I Sin[Pi/]))]

N[ (Cos[ Pi/] + I Sin[ Pi/])/( (Cos[Pi/] + I Sin[Pi/]))]

.
GCD[, , ]

.
LCM[, , ]

.
SetPrecision[Exp[-0.12^]*Sin[0.12], ]

SetPrecision[Exp[-0.67^]*Sin[0.67], ]

.
Apply[Plus, Range[, ]]

Apply[Times, Range[, ]]

Apply[Plus, /Range[, ]]

Apply[Times, /Range[, ]]

Apply[Times, (*Range[, ] - )*]

Apply[Plus, (*Range[, ] - )*]

Prime[Range[]]

.
MatrixForm[{Range[] + , Range[] + , Range[] + ,
  Range[] + }]

.
Max[Table[Random[Real, {5.2, 9.7}], {}, {}]]

Min[Table[Random[Real, {5.2, 9.7}], {}, {}]]

.
Sort[Table[Random[Integer, {, }], {}]]

Sort[Table[Random[Integer, {, }], {}], Greater]

.
Binomial[, ]

Binomial[, ]

Binomial[, ]

.
!!/!!

!!/!!

!!/!!