用mathematica作二维散点图，数据为0.00 115.078 1.00 116.497 2.00 117.844 3.00 119.1835 4.00 120.4855 5.00 121.755 6.00 123.0075 7.00 124.1935 8.00 125.2735 9.00 126.2645 10.00 127.185 11.00 128.04 12.00 128.84 13.00 129.6075 14.00 131.7885 15.00 132.4655 16.00 133.126 17.00 133.7705 18.00 134.5035 19.00 135.419 20.00 136.324 21.00 137.186 22.00 137.986 23.00 138.779 24.00 139.6215 25.00 140.276 26.00 140.7745 27.00 141.11 28.00 140.7745 29.00 141.11

可以使用 Mathematica 中的 ListPlot 函数来制作二维散点图。首先将数据存储在一个列表中，然后使用 ListPlot 函数进行绘图。下面是代码：

data = {{0.00, 115.078}, {1.00, 116.497}, {2.00, 117.844}, {3.00, 119.1835},
        {4.00, 120.4855}, {5.00, 121.755}, {6.00, 123.0075}, {7.00, 124.1935},
        {8.00, 125.2735}, {9.00, 126.2645}, {10.00, 127.185}, {11.00, 128.04},
        {12.00, 128.84}, {13.00, 129.6075}, {14.00, 131.7885}, {15.00, 132.4655},
        {16.00, 133.126}, {17.00, 133.7705}, {18.00, 134.5035}, {19.00, 135.419},
        {20.00, 136.324}, {21.00, 137.186}, {22.00, 137.986}, {23.00, 138.779},
        {24.00, 139.6215}, {25.00, 140.276}, {26.00, 140.7745}, {27.00, 141.11},
        {28.00, 140.7745}, {29.00, 141.11}};

ListPlot[data, PlotStyle -> PointSize[Large], Frame -> True, PlotRange -> All, 
         FrameLabel -> {"x", "y"}, LabelStyle -> {Black, Bold, 14}]

运行代码后，将会得到一个二维散点图，如下图所示：