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

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

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

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

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

习题如下：

代码如下：

1.
2^200

N[Exp[7 - 9 I]]

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

N[Log[5, 135]]

N[Log[Exp[-2] + 1]]

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

N[Cos[2 ArcCos[1/3]] - ArcCos[1/6]]

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

N[10 (Cos[2 Pi/3] + I Sin[2 Pi/3])/(5 (Cos[Pi/3] + I Sin[Pi/3]))]

N[12 (Cos[3 Pi/2] + I Sin[3 Pi/2])/(6 (Cos[Pi/6] + I Sin[Pi/6]))]

2.
GCD[861, 1638, 2415]

3.
LCM[48, 105, 120]

4.
SetPrecision[Exp[-0.12^2]*Sin[0.12], 50]

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

5.
Apply[Plus, Range[1, 99]]

Apply[Times, Range[1, 99]]

Apply[Plus, 1/Range[2, 100]]

Apply[Times, 1/Range[2, 100]]

Apply[Times, (2*Range[1, 20] - 1)*3]

Apply[Plus, (2*Range[1, 20] - 1)*3]

Prime[Range[20]]

6.
MatrixForm[{Range[4] + 10, Range[4] + 20, Range[4] + 30, 
  Range[4] + 40}]

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

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

8.
Sort[Table[Random[Integer, {100, 200}], {60}]]

Sort[Table[Random[Integer, {100, 200}], {60}], Greater]

9.
Binomial[10, 3]

Binomial[12, 5]

Binomial[15, 7]

10.
3!!/7!!

6!!/15!!

7!!/20!!