非常牛的短线操作指标,不过有点咔,请高手修正,以下是源码
INPUT:DA(6,1,100),FY(5,5,40),CT(1,1,60),P(0,0,60),N(3,0,60);
【上市时间】:REF(YEAR,BARSCOUNT(CLOSE)-1),LINETHICK0,color0000FF;
月:REF(MONTH,BARSCOUNT(CLOSE)-1),LINETHICK0,colorFF00FF;
日:REF(DAY,BARSCOUNT(CLOSE)-1),LINETHICK0,color00FFFF;
{STICKLINE(CLOSE>OPEN OR CLOSE=OPEN AND CLOSE>REF(CLOSE,1),LOW,HIGH,0.5,0),LINETHICK5,color10000;
STICKLINE(CLOSE<OPEN OR CLOSE=OPEN AND CLOSE<=REF(CLOSE,1),LOW,HIGH,0.5,0),LINETHICK5,color10000;}
X:=(BARSLAST((DISPSTATUS=1)=BARPOS)+1);
NS:=IF((HHV(ABS(((HHV(CLOSE,DA)/LLV(CLOSE,DA))-1)),DA)>(10/100)),3,DA);
N1:=IF((DATATYPE=2),(NS*48),IF((DATATYPE=3),(NS*16),IF((DATATYPE=4),(NS*8),IF((DATATYPE=5),(NS*4),NS))));
MM:=IF((((CATEGORY=0) OR (P=0)) OR (VOL=0)),MA(CLOSE,N1),((SUM(AMOUNT,N1)/SUM(VOL,N1))/100));
M1:=REF(MM,1);
买入:=IF(CROSS(CLOSE,M1),M1,0);
卖出:=IF(CROSS(M1,CLOSE),M1,0);
YE:=BARPOS;
fei用:=(FY/1000);
DW:=BARSLAST((卖出>0));
EX10:=HHV((买入>0),(DW+1));
BJ:=IF((EX10>REF(EX10,1)),买入,0);
SJ:=IF((EX10<REF(EX10,1)),卖出,0);
BNN:=BARSLAST((BJ>0));
CC:=REF(BJ,BNN);
盈利:=((SJ*(1-fei用))-(CC*(1+fei用)));
YL:=SUM(IF(SJ>0,盈利,0),0);
每股盈利:=YL;
CN:=SUM(IF(((SJ>0) AND (REF(CC,1)>0)),1,0),0);
CG:=SUM(IF(((SJ>0) AND (盈利>0)),1,0),0);
成功率:=((100*CG)/CN);
{H1:=HHV(IF((CT=2),成功率,YL),X);
L1:=LLV(IF((CT=2),成功率,YL),X);
AH:=H1[DATACOUNT];
AL:=L1[DATACOUNT];
AHL:=(AH-AL);}
POLYLINE((CT=2),成功率),color0088FF;
买入均价:=(SUM(BJ,0)/CN);
年收益:=((100*((240*YL)/YE))/买入);
持股时间:=(SUM(IF(((SJ>0) AND (CC>0)),(REF(BNN,1)+1),0),0)/YE);
交易:=CN;
(次)成功:=CG;
年交均次:=((240*CN)/YE);
MON:=SUM(IF((MONTH<>REF(MONTH,1)),1,0),0);
上市年:=(MON/12);
DRAWTEXT((BJ>0),(LOW*0.95),''+NUMTOSTRN(BJ,2)),ALIGN0,color0000FF;
DRAWICON(((BJ>0) AND (CT=1)),(LOW*0.97),7);
DRAWTEXT((((SJ>0) AND (CT=1)) AND (((盈利/(CC*(1+fei用)))*100)>=0)),(HIGH*1.1),''+NUMTOSTRN((盈利/(CC*(1+fei用)))*100,1)),ALIGN0,color0000FF;
DRAWTEXT((((SJ>0) AND (CT=1)) AND (((盈利/(CC*(1+fei用)))*100)<0)),(HIGH*1.1),''+NUMTOSTRN((盈利/(CC*(1+fei用)))*100,1)),ALIGN0,color00FFFF;
DRAWICON(((SJ>0) AND (CT=1)),(HIGH*1.04),8);
DRAWTEXT(((SJ>0) AND (CT=1)),(HIGH*1.07),''+NUMTOSTRN(SJ,2)),ALIGN0,color00FF00;
N波动:=(SUM(IF((((SJ>0) AND (CC>0)) AND ((REF(BNN,1)+1)<=N)),(REF(BNN,1)+1),0),0)/YE);
买价:=IF((BJ>0),BJ,0);
卖价:=IF((SJ>0),SJ,0);
DRAWTEXTREL(0,0,'年盈利:'+NUMTOSTRN(YL,2)+'元 成功率:'+NUMTOSTRN(成功率,1)+'% 年收益:'+NUMTOSTRN(年收益,1)+'%'+' 持股时间比:'+NUMTOSTRN(持股时间,1)+'\n'+'交易:'+NUMTOSTRN(交易,0)+'次 成功:'+NUMTOSTRN(CG,0)+'次 年均:'+NUMTOSTRN(年交均次,1)+'次 总共:'+NUMTOSTRN(YE,0)+'K线'),color00FFFF;
临界:=(((CLOSE/M1)-1)*100);
增减:=(临界-(100*((REF(CLOSE,1)/REF(M1,1))-1)));
DRAWTEXTREL(500,0,'当前 信号持续:'+NUMTOSTRN(BNN,0)+'(K线)'+' 最高盈利:'+NUMTOSTRN(HHV((((HIGH/CC)-1)*100),(BNN+1)),1)+'% 买卖临界点:'+NUMTOSTRN(临界,1)+'% 增减:'+NUMTOSTRN(IF(((BNN>0) AND (DATATYPE=6)),增减,IF((BNN=0),0,-100)),1)),color00FFFF;
DRAWTEXT(((DISPSTATUS=2)=BARPOS) AND (CT<3),HIGH,'.'),color000001;
DRAWTEXT(((DISPSTATUS=2)=BARPOS) AND (CT<3),LOW,'.'),color000001;
参考介入价:MM,LINETHICK0,PRECIS2,colorFFFFFF;
FUA:=HHV(HIGH,15);
FUB:=LLV(LOW,15);
STICKLINE(CLOSE>=mm,HIGH,LOW,1,0),color0000ff;
STICKLINE(CLOSE<mm,LOW,HIGH,1,0),color00ff00;
{STICKLINE((CLOSE>OPEN OR CLOSE=OPEN AND CLOSE>REF(CLOSE,1)),OPEN,CLOSE,9,0),color10000;
STICKLINE(CLOSE<OPEN OR CLOSE=OPEN AND CLOSE<=REF(CLOSE,1),OPEN,CLOSE,9,0),color10000;}
STICKLINE(CLOSE>=mm,CLOSE,OPEN,8,0),color000000;
STICKLINE(CLOSE>=mm,CLOSE,OPEN,7,0),color000000;
STICKLINE(CLOSE>=mm,CLOSE,OPEN,5.8,0),color000000;
STICKLINE(CLOSE>=mm,CLOSE,OPEN,4.4,0),color0000bb;
STICKLINE(CLOSE>=mm,CLOSE,OPEN,2.8,0),color0000dd;
STICKLINE(CLOSE>=mm,CLOSE,OPEN,1,0),color0000ff;
STICKLINE(CLOSE<mm,CLOSE,OPEN,8,0),color005500;
STICKLINE(CLOSE<mm,CLOSE,OPEN,7,0),color007700;
STICKLINE(CLOSE<mm,CLOSE,OPEN,5.8,0),color009900;
STICKLINE(CLOSE<mm,CLOSE,OPEN,4.4,0),color00bb00;
STICKLINE(CLOSE<mm,CLOSE,OPEN,2.8,0),color00dd00;
STICKLINE(CLOSE<mm,CLOSE,OPEN,1,0),color00ff00;
STICKLINE(((BJ > 0) AND (CT = 1)),OPEN,(OPEN+CLOSE)/2,8,0),color0033ff;
STICKLINE(((BJ > 0) AND (CT = 1)),OPEN,(OPEN+CLOSE)/2,7,0),color0066ff;
STICKLINE(((BJ > 0) AND (CT = 1)),OPEN,(OPEN+CLOSE)/2,5.8,0),color0099ff;
STICKLINE(((BJ > 0) AND (CT = 1)),OPEN,(OPEN+CLOSE)/2,4.4,0),color00bbff;
STICKLINE(((BJ > 0) AND (CT = 1)),OPEN,(OPEN+CLOSE)/2,2.8,0),color00ddff;
STICKLINE(((BJ > 0) AND (CT = 1)),OPEN,(OPEN+CLOSE)/2,1,0),color00ffff;
STICKLINE(((SJ>0) AND (CT=1)),CLOSE,(CLOSE+OPEN)/2,8,0),colorff4400;
STICKLINE(((SJ>0) AND (CT=1)),CLOSE,(CLOSE+OPEN)/2,7,0),colorff7700;
STICKLINE(((SJ>0) AND (CT=1)),CLOSE,(CLOSE+OPEN)/2,5.8,0),colorff9911;
STICKLINE(((SJ>0) AND (CT=1)),CLOSE,(CLOSE+OPEN)/2,4.4,0),colorffbb22;
STICKLINE(((SJ>0) AND (CT=1)),CLOSE,(CLOSE+OPEN)/2,2.8,0),colorffdd33;
STICKLINE(((SJ>0) AND (CT=1)),CLOSE,(CLOSE+OPEN)/2,1,0),colorffff33;
STICKLINE(((SJ>0) AND (CT=1)),OPEN,(CLOSE+OPEN)/2,8,0),color550000;
STICKLINE(((SJ>0) AND (CT=1)),OPEN,(CLOSE+OPEN)/2,7,0),color770000;
STICKLINE(((SJ>0) AND (CT=1)),OPEN,(CLOSE+OPEN)/2,5.8,0),color990000;
STICKLINE(((SJ>0) AND (CT=1)),OPEN,(CLOSE+OPEN)/2,4.4,0),colorbb0000;
STICKLINE(((SJ>0) AND (CT=1)),OPEN,(CLOSE+OPEN)/2,2.8,0),colordd0000;
STICKLINE(((SJ>0) AND (CT=1)),OPEN,(CLOSE+OPEN)/2,1,0),colorff0000;
LOCK:=IF((CURRENTDATE<1341231),1,0);
空:=EMA(CLOSE,5);
均衡:EMA(空,0),colorFFFFFF;
双线持币:HHV(MA(HIGH,(3*LOCK)),2),LINETHICK2,color00FF00;
单线持股:LLV(MA(HIGH,(3*LOCK)),1),LINETHICK2,color0000FF;
A0:=(LOW+HIGH+CLOSE*2)/4;
AA:=EMA(A0,14);
BB:=EMA(A0,25);
A1X:=(AA-REF(AA,1))/REF(AA,1)*100;
A2X:=(BB-REF(BB,1))/REF(BB,1)*100;
G:=BARSLAST(CROSS(A1X,0));
必卖止损:REF(A0,G),COLORFFFF66;
DRAWTEXT(BARPOS=(DISPSTATUS=1),HHVALL(H),STKNAME+' '+STKLABEL+'\n所属板块:'+BKNAME),LINETHICK3 ,COLORFFFFFF;
压力线: MA(HIGH,30)*1.15,CROSSDOT,LINETHICK1,COLORGREEN;
支撑线: MA(LOW,30)*0.85,CIRCLEDOT,LINETHICK1,COLORMAGENTA;
A2:=(CLOSE-REF(CLOSE,1))/REF(CLOSE,1)*100<1.02;
A3:=HIGH>MA(CLOSE,5)*1.12;
AAA:= A2 AND A3;
DRAWTEXT(AAA,HIGH*1.05,'←-减[清]仓'),COLORFF0000;
STICKLINE(AAA,HIGH,LOW,4.2,0),COLORFF0000;
LC:=REF(CLOSE,1);
RSI:=SMA(MAX(CLOSE-LC,0),6,1)/SMA(ABS(CLOSE-LC),6,1)*100;
DRAWTEXT(CROSS(84,RSI) , HIGH,'←-----逃'),COLORMAGENTA;
VAR3AA:=IF((CLOSE>REF(CLOSE,1)),88,0);
VAR4AA:=IF(((CLOSE)/(REF(CLOSE,1))>1.05) AND ((HIGH)/(CLOSE)<1.01) AND (VAR3AA>0),91,0);
DRAWTEXT(FILTER((VAR4AA>90),45),(LOW)*(0.93),'←---大胆搏 '),COLORYELLOW;
|