以文本方式查看主题

-  金字塔客服中心 - 专业程序化交易软件提供商  (http://weistock.com/bbs/index.asp)
--  公式模型编写问题提交  (http://weistock.com/bbs/list.asp?boardid=4)
----  开仓信号  (http://weistock.com/bbs/dispbbs.asp?boardid=4&id=88585)
--  作者：么么
--  发布时间：2015/12/18 8:41:01
--  开仓信号


图片点击可在新窗口打开查看此主题相关图片如下：捕获.png
图片点击可在新窗口打开查看
老师，怎么限定1根K只开1次

if upper-MID<100*mindiff and  upper-MID<80*mindiff and c<ma30 then begin
buy(1,1,MARKETR);
end

if MID-LOWER<120*mindiff and upper-MID<100*mindiff and c<ma30 then begin
buy(1,2,MARKETR);
end

if   MID-LOWER<120*mindiff and c<ma30 then begin
buy(1,3,MARKETR);
end
--  作者：jinzhe
--  发布时间：2015/12/18 9:00:39
--  

if upper-MID<100*mindiff and  upper-MID<80*mindiff and c<ma30 and typebar(1,1)>0 then begin
buy(1,1,MARKETR);
end

if MID-LOWER<120*mindiff and upper-MID<100*mindiff and c<ma30 and typebar(1,1)>0 then begin
buy(1,2,MARKETR);
end

if   MID-LOWER<120*mindiff and c<ma30 and typebar(1,1)>0 then begin
buy(1,3,MARKETR);
end
--  作者：么么
--  发布时间：2015/12/18 9:14:21
--  
我放到后台， TTYPE(1,3 )，是开空信号，出现与预定参数不符
--  作者：么么
--  发布时间：2015/12/18 9:23:29
--  
老师，我只限定一下1根k成交1次，但是放到图表上也没有信号啊
--  作者：jinzhe
--  发布时间：2015/12/18 9:29:10
--  

if upper-MID<100*mindiff and  upper-MID<80*mindiff and c<ma30 and holding=ref(holding,1) then begin
buy(1,1,MARKETR);
end

if MID-LOWER<120*mindiff and upper-MID<100*mindiff and c<ma30 and holding=ref(holding,1) then begin
buy(1,2,MARKETR);
end

if   MID-LOWER<120*mindiff and c<ma30 and holding=ref(holding,1) then begin
buy(1,3,MARKETR);
end

 

如果还不对，请将全部代码贴出
--  作者：jinzhe
--  发布时间：2015/12/18 9:29:37
--  
我用的typebar不是type，type你那样写，自然是参数错误
--  作者：么么
--  发布时间：2015/12/18 9:39:58
--  

if upper-MID>100*mindiff and upper-MID>80*mindiff and c>ma30 and tholding2=ref(tholding2,1) then begin
tbuyshort(1,1,mkt);
end

if upper-MID>120*mindiff and  upper-MID>100*mindiff and c>ma30 and tholding2=ref(tholding2,1) then begin
tbuyshort(1,2,mkt);
end 

if   upper-MID>120*mindiff and c>ma30 and tholding2=ref(tholding2,1) then begin
tbuyshort(1,3,mkt);
end

if upper-MID<100*mindiff and  upper-MID<80*mindiff and c<ma30 and tholding2=ref(tholding2,1) then begin
tbuy(1,1,mkt);
end

if MID-LOWER<120*mindiff and upper-MID<100*mindiff and c<ma30 and tholding2=ref(tholding2,1) then begin
tbuy(1,2,mkt);
end

if   MID-LOWER<120*mindiff and c<ma30 and tholding2=ref(tholding2,1) then begin
tbuy(1,3,mkt);
end

老师，改成后台这样对吗??
--  作者：jinzhe
--  发布时间：2015/12/18 10:02:48
--  

后台不能这样用，要这样改：

GLOBALVARIABLE:tt=0;

if upper-MID>100*mindiff and upper-MID>80*mindiff and c>ma30 and tt<>time then begin
tbuyshort(1,1,mkt);

tt:=time;
end

 

if upper-MID>120*mindiff and  upper-MID>100*mindiff and c>ma30 and tt<>time then begin
tbuyshort(1,2,mkt);
tt:=time;

end 

 

if   upper-MID>120*mindiff and c>ma30 and tt<>time then begin
tbuyshort(1,3,mkt);

tt:=time;
end
--  作者：么么
--  发布时间：2015/12/18 10:35:57
--  

老师，后台还是没有限制住1根K成交1次的问题
--  作者：jinzhe
--  发布时间：2015/12/18 10:45:40
--  

if upper-MID>100*mindiff and upper-MID>80*mindiff and c>ma30 and extgbdata(\'tt\')<>time  then begin
tbuyshort(1,1,mkt);

extgbdata(\'tt\')<>time;

end

 

if upper-MID>120*mindiff and  upper-MID>100*mindiff and c>ma30 and extgbdata(\'tt\')<>time then begin
tbuyshort(1,2,mkt);
extgbdata(\'tt\')<>time;

end 

 

if   upper-MID>120*mindiff and c>ma30 and extgbdata(\'tt\')<>time  then begin
tbuyshort(1,3,mkt);

extgbdata(\'tt\')<>time;

end

 

请改成这样的格式