共3 条记录, 每页显示 10 条, 页签: [1]

标题：请老师帮忙编一个交易例子

1楼

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%。

开空：
反之。

谢谢

2楼

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编辑过]

3楼

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;

谢谢！

共3 条记录, 每页显示 10 条, 页签: [1]