在Lu脚本中绘制分裂视图

在Lu脚本中绘制分裂视图

1 基础知识	绘制分裂视图的基础知识。
2 分裂模式	例举多种分裂模式。
3 设置属性	给分裂视图设置属性。虽然可以通过右键菜单设置属性，但这里是通过脚本函数设置属性。
4 让某一个子图动起来	在分裂视图的某一个子图中动态显示图形。

1 基础知识

绘制分裂视图的程序结构如下：

!!!using("win","math");   //使用命名空间win和math。win是必须的，而math是多数情况下要用到的。
init(... ...) =           //定义初始化函数init，函数参数根据需要设置。
{
cwAttach(typeSplit),    //函数cwAttach用于设置图像类型，typeSplit表示分裂视图。
cwResizePlots(... ...), //设置视图分裂模式，见下面的说明。
... ...                 //添加初始化数据或属性。
};
ChartWnd[@init];          //显示窗口并调用函数init进行初始化。

    函数 cwResizePlots(...)：设置子图数量或图层数量。

    用法1：cwResizePlots(nLayers) //设置图层数量，用于分层视图、共享X轴视图，nLayers为大于0的整数。
    用法2：cwResizePlots(mode, nRows, nCols) //设置子图数量，用于分裂视图，其中mode（0～5）表示分裂模式；nRows（大于0）表示行数，nCols（大于0）表示列数，这两个参数只有mode为1时起作用。

    分裂视图的分裂模式：0表示不分裂；1表示行列分裂；2表示左一右二的三分裂；3表示左二右一的三分裂；4表示上一下二的三分裂；5表示上二下一的三分裂。

    返回值：逻辑值，true表示成功。

2 分裂模式

例子1：分裂为多行

!!!using("win","math");
init(a,b,c)=
{
cwAttach[typeSplit], cwResizePlots(1,3,1), //分裂为3行
a=linspace[-8.0, 8.0, 100], b=linspace[-2.0, 5.0, 100], c=linspace[-10.0, -2.0, 100],
cwAddCurve{a, sin[a], 100, 0}, //给0子图添加曲线
cwAddCurve{b, b-sin[b], 100, 1}, //给1子图添加曲线
cwAddCurve{c, c.*sin[c], 100, 2} //给2子图添加曲线
};
ChartWnd[@init];

例子2：分裂为多列

!!!using("win","math");
init(a,b,c)=
{
cwAttach[typeSplit], cwResizePlots(1,1,3), //分裂为3列
a=linspace[-8.0, 8.0, 100], b=linspace[-2.0, 5.0, 100], c=linspace[-10.0, -2.0, 100],
cwAddCurve{a, sin[a], 100, 0}, //给0子图添加曲线
cwAddCurve{b, b-sin[b], 100, 1}, //给1子图添加曲线
cwAddCurve{b, b+sin[b], 100, 1}, //给1子图添加曲线
cwAddCurve{c, c.*sin[c], 100, 2} //给2子图添加曲线
};
ChartWnd[@init];

例子3：分裂为多行多列

!!!using("win","math");
init(a,b,c)=
{
cwAttach[typeSplit], cwResizePlots(1,2,3),   //分裂为2行3列
a=linspace[-8.0, 8.0, 100], b=linspace[-2.0, 5.0, 100], c=linspace[-10.0, -2.0, 100],
cwAddCurve{a, sin[a], 100, 0},     //给0子图添加曲线
cwAddCurve{b, b-sin[b], 100, 1}, //给1子图添加曲线
cwAddCurve{c, c+sin[c], 100, 2}, //给2子图添加曲线
cwAddCurve{a, a+tan[a], 100, 3}, //给3子图添加曲线
cwAddCurve{b, b+cos[b], 100, 4}, //给4子图添加曲线
cwAddCurve{c, c.*sin[c], 100,5}    //给5子图添加曲线
};
ChartWnd[@init];

例子4：左一右二分裂

!!!using("win","math");
init(a,b,c)=
{
cwAttach[typeSplit], cwResizePlots(2,2,2), //左一右二分裂
a=linspace[-8.0, 8.0, 100], b=linspace[-2.0, 5.0, 100], c=linspace[-10.0, -2.0, 100],
cwAddCurve{a, sin[a], 100, 0}, //给0子图添加曲线
cwAddCurve{b, b-sin[b], 100, 1}, //给1子图添加曲线
cwAddCurve{c, c.*sin[c], 100, 2} //给2子图添加曲线
};
ChartWnd[@init];

例子5：上二下一分裂

!!!using("win","math");
init(a,b,c)=
{
cwAttach[typeSplit], cwResizePlots(5,5,5), //上二下一分裂
a=linspace[-8.0, 8.0, 100], b=linspace[-2.0, 5.0, 100], c=linspace[-10.0, -2.0, 100],
cwAddCurve{a, sin[a], 100, 0}, //给0子图添加曲线
cwAddCurve{b, b-sin[b], 100, 1}, //给1子图添加曲线
cwAddCurve{c, c.*sin[c], 100, 2} //给2子图添加曲线
};
ChartWnd[@init];

3 设置属性

!!!using("win","math");
init(a,b,c,k1,k2)=
{
cwAttach[typeSplit], cwResizePlots(2,2,2),   //左一右二分裂
a=linspace[-8.0, 8.0, 100], b=linspace[-2.0, 5.0, 100], c=linspace[-10.0, -2.0, 100],
k1=cwAddCurve{a, sin[a], 100,   0}, //给0子图添加曲线k1
k2=cwAddCurve{a, a-sin[a], 100, 0},   //给0子图添加曲线k2
cwSetTitle["两条曲线", 0],             //设置0子图的主标题。
cwSetUseLegend(true, 0),              //设置0子图使用图例
cwSetDataTitle["曲线1",cwGetIndex(k1), 0], //设置0子图k1曲线的图例
cwSetDataTitle["曲线2",cwGetIndex(k2), 0], //设置0子图k2曲线的图例
cwAddCurve{b, b-sin[b], 100, 1},      //给1子图添加曲线
cwSetAxisTitle("X轴", 1, 1), cwSetAxisTitle("Y轴", 0, 1), //给1子图设置坐标轴标题
cwAddCurve{c, c.*sin[c], 100, 2},     //给2子图添加曲线
cwSetGridLine[true,true,true,true,2] //显示2子图的网格
};
ChartWnd[@init];

4 让某一个子图动起来

!!!using("win","math");
f(x : max, static, k : nDataID, nPlot)= //关键字static指出后面的k是一个静态变量，静态变量总是初始化为0。模块变量nDataID, nPlot记住所操作的曲线。
{
max=500,
x=linspace[-9.0, 9.0, max],
cwUpdateCurveByID[nDataID, x.*sin(x), x.*cos(x).^2.0, ++k%(max+1), nPlot] //++k%(max+1)中的运算符%表示求模
};
init(b,c :: nDataID, nPlot)=         //模块变量nDataID, nPlot记住所操作的曲线。
{
cwAttach[typeSplit], cwResizePlots(2,2,2),   //左一右二分裂
b=linspace[-2.0, 5.0, 100], c=linspace[-10.0, -2.0, 100],
nPlot=0,                           //模块变量nPlot赋值为0
nDataID=cwAddCurve(nPlot),         //模块变量nDataID赋值为给0子图添加的空曲线
cwAddCurve{b, b-sin[b], 100, 1}, //给1子图添加曲线
cwAddCurve{c, c.*sin[c], 100, 2}, //给2子图添加曲线
cwSetTimer[@f, 100, true]          //设置通过计时器触发调用的函数f；每隔100毫秒调用一次；true表示立即启动定时器。
};
ChartWnd[@init];