通达信回扣卖出法指标(源码)

止损设定:=5;
递进回扣:=1.2;
VAR1:=100*EMA(EMA((C-REF(C,1)),6),6)/EMA(EMA(ABS((C-REF(C,1))),6),6);
买点:=FILTER(LLV(VAR1,2)=LLV(VAR1,7) AND COUNT(VAR1<0,2) AND CROSS(VAR1,MA(VAR1,2)),5),COLORYELLOW;
买距:=BARSLAST(买点),COLORWHITE,NODRAW;
MM:=买距>0;
买价:=IF(买距=0,C,REF(C,买距)*MM),COLORWHITE,NODRAW;
价:=(买价*(100-止损设定)/100)+(买距*递进回扣/100*买价),NODRAW;
卖出:=C<REF(价,1)AND 买点=0 ;
明天卖出价:IF(BARSLAST(买点)<BARSLAST(卖出),价,DRAWNULL)COLORWHITE,NODRAW;
今日卖出价:REF(明天卖出价,1),COLORWHITE,NODRAW;
DRAWICON(买点=1,1,25);
DRAWICON(卖出 AND REF(BARSLAST(买点)<BARSLAST(卖出),1),10,15);
DRAWTEXT(CURRBARSCOUNT=110,7.5,'请 根 据 心 理 承 受 力 , 调 控 止 损 设 定 ！'),COLORYELLOW;
DRAWTEXT(CURRBARSCOUNT=110,5.5,'由 欲 念 期 盼 值 , 把 关 递 进 回 扣 。'),COLORYELLOW;
DRAWTEXT(CURRBARSCOUNT=110,3.5,'调 整 缺 省 值 , 数 目 几 代 表 百 分 之 几 ？'),COLORYELLOW;