3D排列3分析程序源码

3D排列3分析程序

.版本 2
.支持库 EChartBar
.支持库 eGrid

.子程序 更新曲线图1
.参数 列号, 整数型
.局部变量 计次, 整数型
.局部变量 列表格行号, 整数型
.局部变量 临时刻度, 整数型

.判断开始 (列号 ＞ 0 且 列号 ＜ 4)
    临时刻度 ＝ 曲1.X轴标注数量
    曲1.X轴标注数量 ＝ 0
    曲1.X轴标注数量 ＝ 临时刻度
.判断 (列号 ＝ 19 或 列号 ＝ 20 或 列号 ＝ 22 或 列号 ＝ 24)
    临时刻度 ＝ 曲1.X轴标注数量
    曲1.X轴标注数量 ＝ 0
    曲1.X轴标注数量 ＝ 临时刻度
.默认

.判断结束

.判断开始 (列号 ＜ 4 且 列号 ＞ 0)
    曲1.Y轴最大值 ＝ 9
    曲1.Y轴刻度数 ＝ 3

    .计次循环首 (曲1.X轴标注数量, 计次)
        .如果 (按钮5.标题 ＝ “降序显示”)
            列表格行号 ＝ 高级表格2.取光标行号 () － 计次 ＋ 1
        .否则
            列表格行号 ＝ 高级表格2.取光标行号 () ＋ 计次 － 1
        .如果结束
        .如果真 (列表格行号 ＜ 1)
            跳出循环 ()
        .如果真结束
        ' 输出调试文本 (列表格行号)
        曲1.当前X轴标注索引 ＝ 计次 － 1
        曲1.当前数据值 ＝ 到数值 (高级表格2.取数据 (列表格行号, 列号))
    .计次循环尾 ()

.判断 (列号 ＝ 4)  ' 和值
    曲1.Y轴最大值 ＝ 27
    曲1.Y轴刻度数 ＝ 3
    .计次循环首 (曲1.X轴标注数量, 计次)
        .如果 (按钮5.标题 ＝ “降序显示”)
            列表格行号 ＝ 高级表格2.取光标行号 () － 计次 ＋ 1
        .否则
            列表格行号 ＝ 高级表格2.取光标行号 () ＋ 计次 － 1
        .如果结束

        .如果真 (列表格行号 ＜ 1)
            跳出循环 ()
        .如果真结束

        ' 输出调试文本 (列表格行号)
        曲1.当前X轴标注索引 ＝ 计次 － 1
        曲1.当前数据值 ＝ 到数值 (高级表格2.取数据 (列表格行号, 列号))
    .计次循环尾 ()

.判断 (列号 ＝ 22 或 列号 ＝ 20)  ' 跨度 和 合值
    曲1.Y轴最大值 ＝ 9
    曲1.Y轴刻度数 ＝ 9
    .计次循环首 (曲1.X轴标注数量, 计次)
        .如果 (按钮5.标题 ＝ “降序显示”)
            列表格行号 ＝ 高级表格2.取光标行号 () － 计次 ＋ 1
        .否则
            列表格行号 ＝ 高级表格2.取光标行号 () ＋ 计次 － 1
        .如果结束

        .如果真 (列表格行号 ＜ 1)
            跳出循环 ()
        .如果真结束

        ' 输出调试文本 (列表格行号)
        曲1.当前X轴标注索引 ＝ 计次 － 1
        曲1.当前数据值 ＝ 到数值 (高级表格2.取数据 (列表格行号, 列号))
    .计次循环尾 ()
.判断 (列号 ＝ 24 或 列号 ＝ 19)  ' 散度 和 余3
    曲1.Y轴最大值 ＝ 2
    曲1.Y轴刻度数 ＝ 2
    .计次循环首 (曲1.X轴标注数量, 计次)
        .如果 (按钮5.标题 ＝ “降序显示”)
            列表格行号 ＝ 高级表格2.取光标行号 () － 计次 ＋ 1
        .否则
            列表格行号 ＝ 高级表格2.取光标行号 () ＋ 计次 － 1
        .如果结束

        .如果真 (列表格行号 ＜ 1)
            跳出循环 ()
        .如果真结束

        ' 输出调试文本 (列表格行号)
        曲1.当前X轴标注索引 ＝ 计次 － 1
        曲1.当前数据值 ＝ 到数值 (高级表格2.取数据 (列表格行号, 列号))
    .计次循环尾 ()
.默认

.判断结束

@易语言教程网