等级: 免费版
- 注册:
- 2022-9-6
- 曾用名:
|

楼主 |
发表于 2022-9-22 13:12
|
显示全部楼层
INPUT:T_time(93850,93000,93900,6),Jzf_N(0.04,0.01,0.08,0.01);
variable:flag=0;
win:=(ENTERPRICE()-close)/close;
J0:=CALLSTOCK('',vtopen,6,0);//今天开盘价
D0:=CALLSTOCK('',vtCLOSE,6,-2);//前天日收盘价
D1:=CALLSTOCK('',vtCLOSE,6,-1);//昨日收盘价
H1:=CALLSTOCK('',vthigh,6,-1);//昨日最高价
ZT:=rounds(D1*1.098,2);
ZT2:=rounds(D0*1.08,2);//昨天涨幅8%
JKZF:=(J0-D1)/D1;//开盘涨幅
qtZT:D0<CALLSTOCK('',vthigh,6,-2);//
red:((D1-CALLSTOCK('',vtopen,6,-1))/CALLSTOCK('',vtopen,6,-1))>-0.03;
MA250:=MA(D1,250)*0.96;
captial:=IF(D1>MA250,100000,5000);
lots:=100*INTPART((captial)/(close*100));
con:close>=ZT and TIME()<T_time and time>93001 and HOLDING=0 and flag<1 and JKZF<0.04 and qtZT and red and D1<H1 and close>MA250;
if con then begin
buy(con, lots, market);
D_date:date;
end;
con2:HOLDING>0 and TIME()>145600 and D_date<>date and close<rounds(D1*1.098,2);
con3: HOLDING>0 and D_date<>date and close>=rounds(D1*1.098,2);
con4:D1<ZT2 and HOLDING>0 and D_date<>date and TIME()>=93001 ;
if con2 then begin
sell(con2 ,100%,MARKET);
flag:=2;
end;
if con3 then begin
sell(con3 ,100%,MARKET);
flag:=2;
end;
if con4 then begin
sell(con4 ,100%,MARKET);
flag:=2;
end;
|
|