公式模型编写问题提交-请老师改一下公式金字塔客服中心 - 专业程序化交易软件提供商

以文本方式查看主题

-  金字塔客服中心 - 专业程序化交易软件提供商  (http://weistock.com/bbs/index.asp)
--  公式模型编写问题提交  (http://weistock.com/bbs/list.asp?boardid=4)
----  请老师改一下公式  (http://weistock.com/bbs/dispbbs.asp?boardid=4&id=48092)

--  作者：lufuding
--  发布时间：2013/1/26 14:04:10
--  请老师改一下公式
//要用到最新版，今天为止外面的版本还不正常
//
#Run_By_Bar
#MAINCHART
variable:
高点(0),低点(0),BarPosK(0);
ma5:=ma(close, 5);
ma10:=ma(close, 10);
金叉=Cross(ma5,ma10);
k1:DrawText(金叉, close, \'金叉\');
if 金叉 then begin
for i=BarPosk to barpos-1 do begin
    高点1[BarPos-i] = 高点;
        低点1[BarPos-i] = 低点;
end
barposk = BarPos;
高点 = high;
低点 = low;
end else begin
if high > 高点 then 高点 = high;
if low< 低点 then 低点 = low;
end
高点1:高点;
低点1:低点;

--  作者：jinzhe
--  发布时间：2013/1/28 9:04:47
--

variable:
高点(0),低点(0),BarPosK(0);
ma5:=ma(close, 5);
ma10:=ma(close, 10);
金叉=Cross(ma5,ma10);
k1:DrawText(金叉, close, \'金叉\');
if 金叉 then begin
for i=BarPosk to barpos-1 do begin
    高点1[BarPos-i] = 高点;
        低点1[BarPos-i] = 低点;
end
barposk = BarPos;
高点 = high;
低点 = low;
end else begin
if high > 高点 then 高点 = high;
if low< 低点 then 低点 = low;
end
高点1:高点;
低点1:低点;

书写上有点小问题，修改下就行