以文本方式查看主题

-  金字塔客服中心 - 专业程序化交易软件提供商  (http://weistock.com/bbs/index.asp)
--  公式模型编写问题提交  (http://weistock.com/bbs/list.asp?boardid=4)
----  布林交易系统请加个开多平空声音提示 是不是这样写，不会响啊请高手修改  (http://weistock.com/bbs/dispbbs.asp?boardid=4&id=67270)
--  作者：lth0887
--  发布时间：2014/7/11 7:09:46
--  布林交易系统请加个开多平空声音提示 是不是这样写，不会响啊请高手修改
布林交易系统请加个开多平空声音提示  发帖心情 Post By：2014/7/10 16:06:06 [只看该作者] 

MID:  MA(CLOSE,M);//布林中轨
UPPER: MID + K*STD(CLOSE,M);//布林上轨
LOWER: MID - K*STD(CLOSE,M);//布林下轨
手数:=ss;

//交易条件
开多平空条件:=CROSS(C,LOWER);//开多平空条件
开空平多条件:=CROSS(UPPER,C);//开多平空条件

//交易系统
平空:SELLSHORT(开多平空条件,手数,MARKET);
平多:SELL(开空平多条件,手数,MARKET);
开多:BUY(开多平空条件,手数,MARKET);
开空:BUYSHORT(开空平多条件,手数,MARKET);

布林交易系统请加个开多平空声音提示
if holding<>0 then begin
if holding>0 and 平多 then begin
sell(1,SS,thisclose);
PLAYSOUND(1,\'D:\\pingcang.wav\');
end;
if holding<0 and 平空 then begin
sellshort(1,SS ,thisclose);
PLAYSOUND(1,\'D:\\pingcang.wav\');
end;
end;


if holding=0  then begin
if 开多 then begin
buy(1,SS,thisclose);
PLAYSOUND(1,\'D:\\kaicang.wav\');
end;
if 开空 then begin
buyshort(1,SS,thisclose);
PLAYSOUND(1,\'D:\\kaicang.wav\');
end;
end;
是不是这样写，不会响啊请高手修改？？
--  作者：jinzhe
--  发布时间：2014/7/11 8:50:27
--  
声音文件改成MP3格式