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

[浏览完整版]

标题：请老师帮个忙、、、、

1楼

么么发表于：2015/10/22 23:28:24

GLOBALVARIABLE:n=0,m=1;

GLOBALVARIABLE:tt=0;

c1:=VALUEWHEN(todaybar=1,c);

if c>c1 then tbuy(1,1,mkt);

if m=n+1 and c>=c1-10*(n+1) and c<c1-10*n and todaybar<>tt then begin

tbuy(1,10*n,mkt);

n:=n+1;

m:=m+1;

tt:=time;

end

PD:=(DYNAINFO(7)-TAVGENTERPRICEEX2('','',0))*TBUYHOLDING(1)*DYNAINFO(209)>500;

PK:=(TAVGENTERPRICEEX2('','',1)-DYNAINFO(7))*TSELLHOLDING(1)*DYNAINFO(209)>500;

debugfile('D:\test.txt','当前盈亏为%.2f',TOPENPROFIT);

盈亏:=(DYNAINFO(7)-TAVGENTERPRICEEX2('','',0))*TBUYHOLDING(1)*DYNAINFO(209);

debugfile('D:\test2.txt','当前盈亏为%.2f',盈亏);

if PD THEN tsell(1,TbuyHOLDING(1),mkt);

if PK THEN tsellshort(1,TSELLHOLDING(1),mkt);

请老师把我红色的部分改成低于第一根K线10个点买5手,30个点买20手，60个点买30手。这个策略和这整套策略配合一起，融合成一个策略，谢谢

2楼

么么发表于：2015/10/23 8:34:34

修改：“请老师把我红色的部分改成低于第一根K线10个点买5手,30个点买20手，60个点买30手。这个策略和这整套策略配合一起，融合成一个策略，谢谢”这句话改成低于当日开盘价。谢谢

3楼

jinzhe 发表于：2015/10/23 8:57:51

GLOBALVARIABLE:n1=0,n2=0,n3=0;

GLOBALVARIABLE:tt1=0,tt2=0,tt3=0;

oo:=VALUEWHEN(todaybar=1,o);

if c>oo+10 and n1=0 and tt1<>time then begin

tbuy(1,5,mkt);

n1:=1;

tt1:=TIME;

END

if c>oo+30 and n2=0 and tt2<>time then begin

tbuy(1,20,mkt);

n2:=1;

tt2:=TIME;

END

if c>oo+60 and n3=0 and tt3<>time then begin

tbuy(1,30,mkt);

n3:=1;

tt3:=time;

end

PD:=(DYNAINFO(7)-TAVGENTERPRICEEX2('','',0))*TBUYHOLDING(1)*DYNAINFO(209)>500;

PK:=(TAVGENTERPRICEEX2('','',1)-DYNAINFO(7))*TSELLHOLDING(1)*DYNAINFO(209)>500;

debugfile('D:\test.txt','当前盈亏为%.2f',TOPENPROFIT);

盈亏:=(DYNAINFO(7)-TAVGENTERPRICEEX2('','',0))*TBUYHOLDING(1)*DYNAINFO(209);

debugfile('D:\test2.txt','当前盈亏为%.2f',盈亏);

if PD and tbuyholding(1)>0 THEN begin

tsell(1,TbuyHOLDING(1),mkt);

n1:=0;n2:=0;n3:=0;

tt1:=0;tt2:=0;tt3:=0;

end

4楼

么么发表于：2015/10/23 9:08:33

那如果是相反，就是：

GLOBALVARIABLE:n=0,m=1;

GLOBALVARIABLE:tt=0;

c1:=VALUEWHEN(todaybar=1,c);

if c<c1 then tbuyshort(1,1,mkt);

GLOBALVARIABLE:n1=0,n2=0,n3=0;

GLOBALVARIABLE:tt1=0,tt2=0,tt3=0;

oo:=VALUEWHEN(todaybar=1,o);

if c<oo-30 and n1=0 and tt1<>time then begin

TBUYSHORT((1,10,mkt);

n1:=1;

tt1:=TIME;

END

if c<oo-60 and n2=0 and tt2<>time then begin

TBUYSHORT(1,20,mkt);

n2:=1;

tt2:=TIME;

END

if c<oo-80 and n3=0 and tt3<>time then begin

TBUYSHORT(1,30,mkt);

n3:=1;

tt3:=time;

end

PK:=(TAVGENTERPRICEEX2('','',1)-DYNAINFO(7))*TSELLHOLDING(1)>500;

debugfile('D:\test.txt','当前盈亏为%.2f',TOPENPROFIT);

盈亏:=(DYNAINFO(7)-TAVGENTERPRICEEX2('','',0))*TBUYHOLDING(1)*DYNAINFO(209);

debugfile('D:\test2.txt','当前盈亏为%.2f',盈亏);

if PK THEN tsellshort(1,TSELLHOLDING(1),mkt);

是吗？老师？？？

5楼

么么发表于：2015/10/23 9:13:41

补充：大于开盘价30个点就卖10手？？？

6楼

jinzhe 发表于：2015/10/23 9:24:14

以下是引用jinzhe在2015/10/23 8:57:51的发言：

GLOBALVARIABLE:n1=0,n2=0,n3=0;

GLOBALVARIABLE:tt1=0,tt2=0,tt3=0;

oo:=VALUEWHEN(todaybar=1,o);

if c>oo+10 and n1=0 and tt1<>time then begin

tbuy(1,5,mkt);

n1:=1;

tt1:=TIME;

END

if c>oo+30 and n2=0 and tt2<>time then begin

tbuy(1,20,mkt);

n2:=1;

tt2:=TIME;

END

if c>oo+60 and n3=0 and tt3<>time then begin

tbuy(1,30,mkt);

n3:=1;

tt3:=time;

end

PD:=(DYNAINFO(7)-TAVGENTERPRICEEX2('','',0))*TBUYHOLDING(1)*DYNAINFO(209)>500;

PK:=(TAVGENTERPRICEEX2('','',1)-DYNAINFO(7))*TSELLHOLDING(1)*DYNAINFO(209)>500;

debugfile('D:\test.txt','当前盈亏为%.2f',TOPENPROFIT);

盈亏:=(DYNAINFO(7)-TAVGENTERPRICEEX2('','',0))*TBUYHOLDING(1)*DYNAINFO(209);

debugfile('D:\test2.txt','当前盈亏为%.2f',盈亏);

if PD and tbuyholding(1)>0 THEN begin

tsell(1,TbuyHOLDING(1),mkt);

n1:=0;n2:=0;n3:=0;

tt1:=0;tt2:=0;tt3:=0;

end

这里大小判断写错了，把c>oo+10 ,c>oo+30 ，c>oo+60都改成小于

7楼

jinzhe 发表于：2015/10/23 9:24:41

不是，你抄错了，多谢了一段开仓

8楼

么么发表于：2015/10/23 10:32:43

GLOBALVARIABLE:n=0,m=1;

GLOBALVARIABLE:tt=0;

c1:=VALUEWHEN(todaybar=1,c);

if c>c1 then tbuy(1,1,mkt);

GLOBALVARIABLE:n1=0,n2=0,n3=0;

GLOBALVARIABLE:tt1=0,tt2=0,tt3=0;

oo:=VALUEWHEN(todaybar=1,o);

if c<oo-20 and n1=0 and tt1<>time then begin

tbuy(1,10,mkt);

n1:=1;

tt1:=TIME;

END

if c<oo-30 and n2=0 and tt2<>time then begin

tbuy(1,20,mkt);

n2:=1;

tt2:=TIME;

END

if c<oo-60 and n3=0 and tt3<>time then begin

tbuy(1,30,mkt);

n3:=1;

tt3:=time;

end

PD:=(DYNAINFO(7)-TAVGENTERPRICEEX2('','',0))*TBUYHOLDING(1)*DYNAINFO(209)>500;

debugfile('D:\test.txt','当前盈亏为%.2f',TOPENPROFIT);

盈亏:=(DYNAINFO(7)-TAVGENTERPRICEEX2('','',0))*TBUYHOLDING(1)*DYNAINFO(209);

debugfile('D:\test2.txt','当前盈亏为%.2f',盈亏);

if PD THEN tsell(1,TbuyHOLDING(1),mkt);

老师，我这样改了行不行，后面改成逆势加仓的？？？

9楼

jinzhe 发表于：2015/10/23 10:34:12

GLOBALVARIABLE:n1=0,n2=0,n3=0;

GLOBALVARIABLE:tt1=0,tt2=0,tt3=0;

oo:=VALUEWHEN(todaybar=1,o);

if c>oo+20 and c<=oo+30 and n1=0 and tt1<>time then begin

tbuy(1,10,mkt);

n1:=1;

tt1:=TIME;

END

if c>oo+30 and c<=oo+60 and n2=0 and tt2<>time then begin

tbuy(1,20,mkt);

n2:=1;

tt2:=TIME;

END

if c>oo+60 and n3=0 and tt3<>time then begin

tbuy(1,30,mkt);

n3:=1;

tt3:=time;

end

PD:=(DYNAINFO(7)-TAVGENTERPRICEEX2('','',0))*TBUYHOLDING(1)*DYNAINFO(209)>500;

debugfile('D:\test.txt','当前盈亏为%.2f',TOPENPROFIT);

盈亏:=(DYNAINFO(7)-TAVGENTERPRICEEX2('','',0))*TBUYHOLDING(1)*DYNAINFO(209);

debugfile('D:\test2.txt','当前盈亏为%.2f',盈亏);

if PD THEN tsell(1,TbuyHOLDING(1),mkt);

[此贴子已经被作者于2015/10/23 10:34:56编辑过]

10楼

jinzhe 发表于：2015/10/23 10:35:32

GLOBALVARIABLE:n1=0,n2=0,n3=0;

GLOBALVARIABLE:tt1=0,tt2=0,tt3=0;

oo:=VALUEWHEN(todaybar=1,o);

if c<oo-10 and c>=oo-30 and n1=0 and tt1<>time then begin

tbuy(1,5,mkt);

n1:=1;

tt1:=TIME;

END

if c<oo-30 and c<=oo-60 and n2=0 and tt2<>time then begin

tbuy(1,20,mkt);

n2:=1;

tt2:=TIME;

END

if c<oo-60 and n3=0 and tt3<>time then begin

tbuy(1,30,mkt);

n3:=1;

tt3:=time;

end

PD:=(DYNAINFO(7)-TAVGENTERPRICEEX2('','',0))*TBUYHOLDING(1)*DYNAINFO(209)>500;

PK:=(TAVGENTERPRICEEX2('','',1)-DYNAINFO(7))*TSELLHOLDING(1)*DYNAINFO(209)>500;

debugfile('D:\test.txt','当前盈亏为%.2f',TOPENPROFIT);

盈亏:=(DYNAINFO(7)-TAVGENTERPRICEEX2('','',0))*TBUYHOLDING(1)*DYNAINFO(209);

debugfile('D:\test2.txt','当前盈亏为%.2f',盈亏);

if PD and tbuyholding(1)>0 THEN begin

tsell(1,TbuyHOLDING(1),mkt);

n1:=0;n2:=0;n3:=0;

tt1:=0;tt2:=0;tt3:=0;

end

[此贴子已经被作者于2015/10/23 10:36:00编辑过]

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