Mathematica瀑布图程序包

Get["～/mywaterfall", "123"]
data0 = {{0, 1, 2, 3, 4, 5, 6}, {5, 4, 4, 1, 1, 2, 1}};
data1 = {{0, 1, 2, 3, 4, 5, 6}, {5, 2, 2, 1, 1, 2, 1}};
data2 = {{0, 1, 2, 3, 4, 5, 6}, {5, 4, 4, 1, 1, 2, 1}};
data3 = {{0, 1, 2, 3, 4, 5, 6}, {5, 4, 4, 1, 1, 2, 1}};
data4 = {{0, 1, 2, 3, 4, 5, 6}, {5, 4, 4, 1, 1, 2, 1}};
data5 = {{0, 1, 2, 3, 4, 5, 6}, {5, 4, 4, 1, 1, 2, 1}};
datalist = {data0, data1, data2, data3, data4, data5};

err0 = {{0.25, 0.67}, {0.57, 0.80}, {0.50, 0.89}, {0.2, 0.53}, {0.20, 
    0.5}, {0.06, 0.03}, {0.92, 0.71}};
err1 = {{0.14, 0.26}, {0.005, 0.54}, {0.06, 0.11}, {0.15, 
    0.26}, {0.36, 0.98}, {0.82, 0.3}, {0.15, 0.21}};
err2 = {{0.019, 0.47}, {0.87, 0.09}, {0.77, 0.48}, {0.28, 
    0.99}, {0.29, 0.83}, {0.04, 0.07}, {0.007, 0.59}};
err3 = {{0.25, 0.67}, {0.57, 0.80}, {0.50, 0.89}, {0.2, 0.53}, {0.20, 
    0.5}, {0.06, 0.03}, {0.92, 0.71}};
err4 = {{0.14, 0.26}, {0.005, 0.54}, {0.06, 0.11}, {0.15, 
    0.26}, {0.36, 0.98}, {0.82, 0.3}, {0.15, 0.21}};
err5 = {{0.019, 0.47}, {0.87, 0.09}, {0.77, 0.48}, {0.28, 
    0.99}, {0.29, 0.83}, {0.04, 0.07}, {0.007, 0.59}};
errlist = {err0, err1, err2, err3, err4, err5};


colorlist = {Red, Orange, Yellow, Green, Blue, Purple};
opacitylist = Opacity /@ {0.4, 0.4, 0.4, 0.3, 0.3, 0.3};
interval = 2;
spheresize = 0.1;
spherecolor = Black;
sphereopacity = Opacity[0.5];
linethick = Thin;
errwidth = 0.1;
errcolor = Black;
erropacity = Opacity[1];
viewpoint = {5, -5, 2.4};
otherGraphicsParameterList = {};
result = myWaterFallPlot[datalist, colorlist, errlist, opacitylist, 
  interval, spheresize, spherecolor, sphereopacity, linethick, 
  errwidth, errcolor, erropacity, viewpoint, 
  otherGraphicsParameterList]

可以调节不透明度，颜色，误差棒宽度，视角。。。。。。
想要程序包的可以联系我