以文本方式查看主题

-  金字塔客服中心 - 专业程序化交易软件提供商  (http://222.73.7.161/bbs/index.asp)
--  公式模型编写问题提交  (http://222.73.7.161/bbs/list.asp?boardid=4)
----  请老师帮忙编一个交易例子  (http://222.73.7.161/bbs/dispbbs.asp?boardid=4&id=161687)
--  作者：PBTCA
--  发布时间：2018/2/25 10:50:35
--  请老师帮忙编一个交易例子

新手报到，请老师帮忙编一个交易例子：

 

开多：
上穿MA20,同时上穿MA60为开仓信号，这根对应k线定义为K1,下根K线开盘价开多;
止损一，开仓前一根K线(即K1的）的最低价作止损，
止损二，如果最新价减开仓价的值大于K1的实体长度1.5倍，把新的止损设置为开仓价。
止损三，如果最新价减开仓价的值大于K1的实体长度3倍，把新的止损设置为开仓价+K1的实体长度1.5倍的值。以后最新价每次达到K1的实体长度1.5倍时，按同样条件的值加到上次止损价上作为新止损。
止损四，收盘价小于MA60时，平仓

 

资金使用20%。

开空：
反之。

 

谢谢

 
--  作者：wenarm
--  发布时间：2018/2/25 19:58:16
--  
VARIABLE:aa=0,flag=0;
ma20:ma(c,20);
ma60:ma(c,60);
cond:CROSS(c,ma20) and CROSS(c,ma60);
ref_open:=VALUEWHEN(cond=1,open);
ref_close:=VALUEWHEN(cond=1,close);
if (CROSS(c,ma20) and CROSS(c,ma60))=1 and holding=0 then BEGIN
 buy(1,20%,LIMIT,open),IGNORECHECKPRICE;
 aa:=low;
 
end
if (holding>0 and  c< aa ) or c<ma60 then begin
 sell(1,0,MARKET);
 aa:=0;
end
if holding>0 and  c-ENTERPRICE>ABS    (ref_open-ref_close)*1.5  then  BEGIN
 aa:=ENTERPRICE;
end
if holding>0 and  c-ENTERPRICE>ABS(ref_open-ref_close)*3 then  BEGIN
 aa:=ENTERPRICE+c-ENTERPRICE>ABS(ref_open-ref_close)*1.5;
end

以后最新价每次达到K1的实体长度1.5倍时，按同样条件的值加到上次止损价上作为新止损。
这段话实现不了，没有任何意义，因为存在多根连续大于其实体的k线，这样貌似永远不会触发止损动作。
另外，由于您是新用户，建议您循序渐进先熟悉软件，逐步接触编程。
[此贴子已经被作者于2018/2/25 20:03:05编辑过]
--  作者：PBTCA
--  发布时间：2018/3/5 13:28:55
--  

谢谢老师！

 

下面是我以前用的三线反转图，转到金字塔中后出现问题，说是使用了循环语句，请帮我改正，另外，请加上开平仓语句。

 

 

VARIABLE:
fc:=close,fh:=h,fl:=l,fcolor:=0,ft1:=0,fb1:=0,fi:=0,t[4]=0,b[4]=0,pt=1,pb=1;
if datacount<2 then exit;
for i=1 to 4 do begin t[i]:=i;b[i]:=1; end; for i=2 to datacount do begin
    if fc[i]>fc[t[pt]] then begin        
        fh[i]:=fc[i];fl[i]:=fc[t[1]];fcolor[i]:=1;         b[4]:=b[3];b[3]:=b[2];b[2]:=b[1];b[1]:=t[1];         t[4]:=t[3];t[3]:=t[2];t[2]:=t[1];t[1]:=i;         pt:=1;

        pb:=if(pb=3,3,pb+1);     end;
    else if fc[i]<fc[b[pb]] then begin
        fh[i]:=fc[b[1]];fl[i]:=fc[i];fcolor[i]:=-1;         t[4]:=t[3];t[3]:=t[2];t[2]:=t[1];t[1]:=b[1];         b[4]:=b[3];b[3]:=b[2];b[2]:=b[1];b[1]:=i;         pb:=1;
        pt:=if(pt=3,3,pt+1);             end;
    else if fc[i]<=fc[t[pt]] and fc[i]>=fc[b[pb]] then begin
        fh[i]:=fh[i-1];fl[i]:=fl[i-1]; fcolor[i]:=fcolor[i-1];            end;
    ft1[i]:=t[1];fb1[i]:=b[1];fi[i]:=i; end;
STICKLINE(fcolor=1,fh,fl,10,0) colorred; STICKLINE(fcolor=-1,fh,fl,10,0) colorgreen;


谢谢！