|
9楼

楼主 |
发表于 2010-5-8 21:34:47
|
只看该作者
江苏省南京市
.版本 2
.支持库 eGrid
.程序集 基础分析程序集
.程序集变量 颜色索引值
.程序集变量 进度条句柄1, 整数型
.程序集变量 颜色值
.子程序 _基础分析_创建完毕
按钮_导出.禁止 = 真
.子程序 _按钮_数据分析_被单击, , 公开
.局部变量 x, 日期时间型, , , 下一条记录的日期
.局部变量 y, 日期时间型, , , 上一条记录的日期
.局部变量 成交时, 日期时间型
.局部变量 结束时, 日期时间型
.局部变量 最高价, 双精度小数型, , , 当前记录中的最高价字段
.局部变量 最低价, 双精度小数型, , , 当前记录中的最低价字段
.局部变量 max, 双精度小数型, , , 缓冲最大值
.局部变量 min, 双精度小数型, , , 缓冲最小值
.局部变量 开盘价, 双精度小数型, , , 当前记录中的开盘价字段
.局部变量 收盘价, 双精度小数型, , , 当前记录中的收盘价字段
.局部变量 a, 整数型, , , 子程序开始执行的时间
.局部变量 b, 整数型, , , 子程序执行结束后的时间
.局部变量 索引, 整数型, , , 类似"t"和"小猫"一样的
.局部变量 尾线, 双精度小数型, , , 涨时下面的一根,跌时上面的一根
.局部变量 成交价1, 双精度小数型, , , 开盘价+执行值
.局部变量 成交价2, 双精度小数型, , , 开盘价-执行值
.局部变量 成交价, 双精度小数型, , , 成交时的价格
.局部变量 方向, 文本型, , , 趋势判断的方向
.局部变量 执行值, 双精度小数型, , , 是一判断趋势的值
.局部变量 首次成交1, 逻辑型, , , "涨"时第一次接触的点
.局部变量 首次成交2, 逻辑型, , , "跌"时第一次接触的点
.局部变量 止损值, 双精度小数型, , , 止损的设定值
.局部变量 获利值, 双精度小数型, , , 获利的设定值
.局部变量 点差值, 双精度小数型
.局部变量 盈亏点位, 双精度小数型
.局部变量 实际盈亏点, 双精度小数型
.局部变量 结果, 双精度小数型
.局部变量 涨止损, 双精度小数型
.局部变量 涨获利, 双精度小数型
.局部变量 跌止损, 双精度小数型
.局部变量 跌获利, 双精度小数型
.局部变量 投入值, 双精度小数型
.局部变量 起始资金, 双精度小数型
.局部变量 首次涨止损, 逻辑型
.局部变量 首次涨获利, 逻辑型
.局部变量 首次跌止损, 逻辑型
.局部变量 首次跌获利, 逻辑型
.局部变量 最大反弹点, 双精度小数型
.局部变量 最大赢利点, 双精度小数型
.局部变量 尾, 逻辑型
.局部变量 未结束, 逻辑型
.局部变量 最大1, 双精度小数型
.局部变量 最小1, 双精度小数型
.局部变量 查询日期, 日期时间型
.局部变量 倍数, 双精度小数型
.局部变量 投入比例, 双精度小数型
.局部变量 日盈亏, 双精度小数型
.局部变量 累计资金, 双精度小数型
.局部变量 附加值, 双精度小数型
.局部变量 列号, 整数型
.局部变量 行号, 整数型
.局部变量 结果总计, 双精度小数型
.局部变量 盈亏点位总计, 双精度小数型
.局部变量 实际盈亏总计, 双精度小数型
.如果真 (组合框_数据分析_商品.现行选中项 = 0)
打开 (取运行目录 () + “\GBPUSD5(2000-2009).edb”, , , , , , )
.如果真结束
高级表格1.置字体尺寸 (0, 0, , , 9)
高级表格1.置字体名 (0, 0, , , “宋体”)
高级表格1.置对齐方式 (0, 0, , , #表格常量.居中对齐)
高级表格1.置边距 (0, 0, , , 0)
高级表格1.显示斑马线 (#表格常量.行斑马线, #透明, #银白)
高级表格1.清空数据 ()
.计次循环首 (高级表格1.列数, )
高级表格1.删除列 (0)
.计次循环尾 ()
.计次循环首 (高级表格1.行数, )
高级表格1.删除行 (1)
.计次循环尾 ()
高级表格1.插入列 (“日期”, 0)
高级表格1.插入列 (“开盘价”, 1)
高级表格1.插入列 (“最高价”, 2)
高级表格1.插入列 (“最低价”, 3)
高级表格1.插入列 (“收盘价”, 4)
高级表格1.插入列 (“振幅”, 5)
高级表格1.插入列 (“起始线”, 6)
高级表格1.插入列 (“成交价”, 7)
高级表格1.插入列 (“成交时间”, 8)
高级表格1.插入列 (“操作方向”, 9)
高级表格1.插入列 (“结束时间”, 10)
高级表格1.插入列 (“最大反弹点”, 11)
高级表格1.插入列 (“最大赢利点”, 12)
高级表格1.插入列 (“分析结果”, 13)
高级表格1.插入列 (“盈亏点位”, 14)
高级表格1.插入列 (“实际盈亏点”, 15)
高级表格1.插入列 (“投入比例”, 16)
高级表格1.插入列 (“日盈亏”, 17)
高级表格1.插入列 (“起始资金”, 18)
高级表格1.插入列 (“累计资金”, 19)
高级表格1.置列宽 (0, 80)
高级表格1.置列宽 (1, 60)
高级表格1.置列宽 (2, 60)
高级表格1.置列宽 (3, 60)
高级表格1.置列宽 (4, 60)
高级表格1.置列宽 (5, 60)
高级表格1.置列宽 (6, 60)
高级表格1.置列宽 (7, 60)
高级表格1.置列宽 (8, 60)
高级表格1.置列宽 (9, 60)
高级表格1.置列宽 (10, 60)
高级表格1.置列宽 (11, 70)
高级表格1.置列宽 (12, 70)
高级表格1.置列宽 (13, 60)
高级表格1.置列宽 (14, 60)
高级表格1.置列宽 (15, 70)
高级表格1.置列宽 (16, 70)
高级表格1.置列宽 (17, 78)
高级表格1.置列宽 (18, 88)
高级表格1.置列宽 (19, 88)
执行值 = 到数值 (编辑框_执行值.内容)
止损值 = 到数值 (编辑框_止损值.内容)
获利值 = 到数值 (编辑框_获利值.内容)
点差值 = 到数值 (编辑框_点差值.内容)
投入值 = 到数值 (编辑框_投入值.内容)
起始资金 = 到数值 (编辑框_起始资金.内容)
附加值 = 到数值 (编辑框_附加值.内容)
累计资金 = 起始资金
按钮_数据分析.禁止 = 真
a = 取启动时间 ()
索引 = 1
倍数 = 1
到首记录 ()
成交价 = 0
方向 = “”
结果 = 0
最大反弹点 = 0
最大赢利点 = 0
成交时 = 到时间 (0)
结束时 = 到时间 (0)
首次成交1 = 真
首次成交2 = 真
首次涨止损 = 真
首次涨获利 = 真
首次跌止损 = 真
首次跌获利 = 真
尾 = 真
未结束 = 真
日盈亏 = 1
查询日期 = 取日期 (读 (#日期))
.计次循环首 (取记录数 (), )
.如果 (查询日期 ≥ 日期框1.今天)
查询日期 = 取日期 (读 (#日期))
y = 取日期 (读 (#日期))
max = 读 (#最高价) × 10000
min = 读 (#最低价) × 10000
开盘价 = 读 (#开盘价) × 10000
成交价1 = 开盘价 + 执行值
成交价2 = 开盘价 - 执行值
涨止损 = 成交价1 - 止损值
涨获利 = 成交价1 + 获利值
跌止损 = 成交价2 + 止损值
跌获利 = 成交价2 - 获利值
跳出循环 ()
.否则
跳过 ()
查询日期 = 取日期 (读 (#日期))
.如果结束
.计次循环尾 ()
.计次循环首 (取记录数 (), )
.如果真 (查询日期 > 日期框2.今天)
跳出循环 ()
.如果真结束
跳过 ()
x = 取日期 (读 (#日期))
最高价 = 读 (#最高价) × 10000
最低价 = 读 (#最低价) × 10000
.如果 (y = x)
.如果真 (成交时 ≠ 到时间 (0) 且 未结束)
.如果真 (最小1 > 最低价)
最小1 = 最低价
.如果真结束
.如果真 (最大1 < 最高价)
最大1 = 最高价
.如果真结束
.如果真结束
.如果真 (单选框_获利保护.选中 = 真)
.如果真 (方向 = “涨” 且 最高价 ≥ 成交价1 + 附加值)
涨止损 = 成交价1 - 止损值
涨止损 = 涨止损 + 附加值
.如果真结束
.如果真 (方向 = “跌” 且 最低价 ≤ 成交价2 - 附加值)
跌止损 = 成交价2 + 止损值
跌止损 = 跌止损 - 附加值
.如果真结束
.如果真结束
.如果真 (单选框_获利退损.选中 = 真)
.如果真 (方向 = “涨” 且 最高价 ≥ 成交价1 + 附加值)
涨止损 = 成交价1 - 止损值
涨止损 = 涨止损 - 附加值
.如果真结束
.如果真 (方向 = “跌” 且 最低价 ≤ 成交价2 - 附加值)
跌止损 = 成交价2 + 止损值
跌止损 = 跌止损 + 附加值
.如果真结束
.如果真结束
.如果真 (方向 = “涨” 且 最高价 ≥ 涨获利 且 首次涨获利 且 首次涨止损) ' 涨获利 = 成交价1 + 获利值
结果 = 涨获利 - 成交价1
首次涨获利 = 假
尾 = 假
未结束 = 假
结束时 = 读 (#时间)
.如果真结束
.如果真 (方向 = “涨” 且 最低价 ≤ 涨止损 且 首次涨止损 且 首次涨获利) ' 涨止损 = 成交价1 - 止损值
结果 = 涨止损 - 成交价1
首次涨止损 = 假
尾 = 假
未结束 = 假
结束时 = 读 (#时间)
.如果真结束
.如果真 (方向 = “跌” 且 最低价 ≤ 跌获利 且 首次跌获利 且 首次跌止损) ' 跌获利 = 成交价2 - 获利值
结果 = 成交价2 - 跌获利
首次跌获利 = 假
尾 = 假
未结束 = 假
结束时 = 读 (#时间)
.如果真结束
.如果真 (方向 = “跌” 且 最高价 ≥ 跌止损 且 首次跌止损 且 首次跌获利) ' 跌止损 = 成交价2 + 止损值
结果 = 成交价2 - 跌止损
首次跌止损 = 假
尾 = 假
未结束 = 假
结束时 = 读 (#时间)
.如果真结束
.如果真 (max < 最高价)
max = 最高价
.如果真 (max ≥ 成交价1 且 首次成交1 且 首次成交2)
成交价 = 成交价1
方向 = “涨”
首次成交1 = 假
成交时 = 读 (#时间)
跳过 ()
最大1 = 读 (#最高价) × 10000
最小1 = 读 (#最低价) × 10000
跳过 (-1)
.如果真结束
.如果真结束
.如果真 (min > 最低价)
min = 最低价
.如果真 (min ≤ 成交价2 且 首次成交1 且 首次成交2)
成交价 = 成交价2
方向 = “跌”
首次成交2 = 假
成交时 = 读 (#时间)
跳过 ()
最大1 = 读 (#最高价) × 10000
最小1 = 读 (#最低价) × 10000
跳过 (-1)
.如果真结束
.如果真结束
.否则
跳过 (-1) ' 到达1天中的最后一条记录
收盘价 = 读 (#收盘价) × 10000
.如果 (开盘价 - 收盘价 ≥ 0)
尾线 = 四舍五入 (max - 开盘价, )
.否则
尾线 = 四舍五入 (开盘价 - min, )
.如果结束
.如果真 (方向 = “涨”)
最大反弹点 = 四舍五入 (成交价1 - 最小1, )
最大赢利点 = 四舍五入 (最大1 - 成交价1, )
.如果真结束
.如果真 (方向 = “跌”)
最大反弹点 = 四舍五入 (最大1 - 成交价2, )
最大赢利点 = 四舍五入 (成交价2 - 最小1, )
.如果真结束
.如果真 (最大反弹点 < 0)
最大反弹点 = 0
.如果真结束
.如果真 (最大赢利点 < 0)
最大赢利点 = 0
.如果真结束
.如果真 (方向 = “涨” 且 尾)
结果 = 收盘价 - 成交价
尾 = 假
结束时 = 读 (#时间)
.如果真结束
.如果真 (方向 = “跌” 且 尾)
结果 = 成交价 - 收盘价
尾 = 假
结束时 = 读 (#时间)
.如果真结束
.如果真 (方向 ≠ “”)
盈亏点位 = 结果 - 点差值
.如果真结束
实际盈亏点 = 盈亏点位 × 倍数
.如果真 (方向 ≠ “”)
.如果 (盈亏点位 ≤ 0)
倍数 = 倍数 + 1
.否则
倍数 = 1
.如果结束
.如果真结束
.如果真 (方向 ≠ “”)
起始资金 = 累计资金
.如果真 (日盈亏 > 0)
投入比例 = 投入值 ÷ 100000 × 起始资金
.如果真结束
日盈亏 = 实际盈亏点 × 投入比例 × 10
累计资金 = 日盈亏 + 起始资金 |
|