wolfram-language/tools/test.wl at 6ad074c5c593b3280745f22bd495310606be7f8b · skidvision/wolfram-language · GitHub

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
(* ::Package:: *)

boo = <|"fish"->5,"cow"->11|>

n=Pi/2

bob[x_] := 42

Sin[bob[Pi/3]]

Module[{x = x0},
    expr
]

A gloal $ImagingDevice

(* this should be a (* comment *) *)

jobs[[44]]

"no string highlighting"

Pi - that should be a symbol

(* hello *)

Plot[Sin[x], {x, -5, 5}]

Plot3D[Sin[x] Sin[y], {x, -5, 5}, {y, -5, 5}]

Plot[Sin[x] E^(-x/4), {x, 0, 10}, Filling -> Axis]

Plot[{Sin[x] E^(-x/4), Sin[x], E^(-x/4)}, {x, 0, 10}, Filling -> Axis]

Table[Plot[Sin[x y] E^(-x/4), {x, 0, 10}, PlotRange -> {-1, 1}], {y, 0, 5, 0.1}]

BarChart[{1, 2, 3}]

MatrixForm[{{1, 2, 3}, {2, 3, 4}, {3, 4, 5}}]

Pi // N
Sqrt[4]
x = 3;

data = {};
AppendTo[data, "some data"];
data[[1, 0]]

Names["System`*"]

TreeForm[a + b^2 + c^3 + d]

a =
  N[
    4 +
      5] 4
b = 4; Pi
a