通达信指标王之看色操作主图选股指标公式源码

通达信指标王之看色操作主图选股指标公式源码

源码正文：

N:=80;M:=3{XG51};
VAR11:=ma(C,9),COLORWHITE{XG51};
上升通道:IF(VAR11>REF(VAR11,1),VAR11,DRAWNULL),LINETHICK4,COLORWHITE{XG51};
下降通道:IF(VAR11<REF(VAR11,1),VAR11,DRAWNULL),LINETHICK4,COLORCYAN{XG51};
A0:=(L+H+C*2)/4{XG51};
AA:=ema(A0,14)COLORBLUE,LINETHICK1{XG51};
BB:=EMA(A0,25)COLORBLUE,LINETHICK2{XG51};
A1X:=(AA-REF(AA,1))/REF(AA,1)*100{XG51};
A2X:=(BB-REF(BB,1))/REF(BB,1)*100{XG51};
G:=BArslAst(crOSS(A1X,0)){XG51};
必卖止损:REF(A0,G),COLORGREEN,LINETHICK1{XG51};
A5:=EMA(CLOSE,12)-EMA(CLOSE,26){XG51};
A6:=EMA(A5,9){XG51};
A7:=(A5<-0.1 AND A5>A6){XG51};
见底:IF(A7,LLV(L,21),DRAWNULL)COLORWHITE,CIRCLEDOT{XG51};
见顶:IF(H>=REF(A0,BARSLAST(CROSS(A1X,0)))*1.3,REF(A0,BARSLAST(CROSS(A1X,0)))*1.3,DRAWNULL),COLORCYAN,CIRCLEDOT{XG51};
MA5:=MA(C,5){XG51};
MA13:=MA(C,13){XG51};
高:=REF(HHV(H,N),M);
低:=REF(LLV(L,N),M){XG51};
H19:=高-(高-低)*0.191;
H38:=高-(高-低)*0.382;
H中:=高-(高-低)*0.5;
H61:=高-(高-低)*0.618;
H80:=高-(高-低)*0.809{XG51};
顶点:REFDATE(高,DATE),COLORWHITE{XG51};
%19.8:REFDATE(H19,DATE),COLORBLUE{XG51};
%38.2:REFDATE(H38,DATE),COLORLIMAGENTA{XG51};
%50:REFDATE(H中,DATE),COLORYELLOW{XG51};
%61.8:REFDATE(H61,DATE),COLORLIMAGENTA{XG51};
%80.9:REFDATE(H80,DATE),COLORBLUE{XG51};
低点:REFDATE(低,DATE),COLORRED{XG51};
DRAWTEXT(ISLASTBAR,顶点,'顶点'),COLORWHITE{XG51};
DRAWTEXT(ISLASTBAR,%19.8,'％19.8'),COLORBLUE{XG51};
DRAWTEXT(ISLASTBAR,%38.2,'％38.2'),COLORLIMAGENTA{XG51};
DRAWTEXT(ISLASTBAR,%50,'％50'),COLORYELLOW{XG51};
DRAWTEXT(ISLASTBAR,%61.8,'％61.8'),COLORLIMAGENTA{XG51};
DRAWTEXT(ISLASTBAR,%80.9,'％80.9'),COLORBLUE{XG51};
DRAWTEXT(ISLASTBAR,低点,'低点'),COLORRED{XG51};
difF:=( EMA(CLOSE,7) - EMA(CLOSE,19));
DEA:=EMA(DIFF,9);
macd:=0.90*(DIFF-DEA);
TJ:=(DIFF>=DEA);
TJ1:=(DIFF>=0);
STICKLINE(TJ,H,L,0.4,0),COLORBLUE;
STICKLINE(TJ,O,C,4,1),COLOR0088FF;
STICKLINE(TJ,O,C,3.4,1),COLOR00AAFF;
STICKLINE(TJ,O,C,2.8,1),COLOR00CCFF;
STICKLINE(TJ,O,C,2,1),COLOR00ddfF;
STICKLINE(TJ,O,C,1.2,1),COLOR55FFFF;
STICKLINE(TJ,O,C,0.4,1),COLOR99FFFF;
STICKLINE(TJ1 AND TJ,H,L,0.4,0),COLORF00FF0;
STICKLINE(TJ1 AND TJ,O,C,4,1),COLORFF33FF;
STICKLINE(TJ1 AND TJ,O,C,3.4,1),COLORFF55FF;
STICKLINE(TJ1 AND TJ,O,C,2.8,1),COLORFF77FF;
STICKLINE(TJ1 AND TJ,O,C,2,1),COLORFF99FF;
STICKLINE(TJ1 AND TJ,O,C,1.2,1),COLORFFBBFF;
STICKLINE(TJ1 AND TJ,O,C,0.4,1),COLORFFDDFF;
STICKLINE(DIFF<DEA,H,L,0.4,0),COLORF0F000;
STICKLINE(DIFF<DEA,O,C,4,1),COLORFF3300;
STICKLINE(DIFF<DEA,O,C,3.4,1),COLORFF6600;
STICKLINE(DIFF<DEA,O,C,2.8,1),COLORFF9900;
STICKLINE(DIFF<DEA,O,C,2,1),COLORFFBB00;
STICKLINE(DIFF<DEA,O,C,1.2,1),COLORFFDD00;
STICKLINE(DIFF<DEA,O,C,0.4,1),COLORFFFF00;
VAR1:=(CLOSE*2+HIGH+LOW)/4;
SK:= EMA(VAR1,13)-EMA(VAR1,73);
SD:= EMA(SK,2);
SJ:=(CROSS(SK,SD) AND SK<-0.04 AND (C-REF(C,1))/REF(C,1)>=0.03)OR(CROSS(SK,SD)
AND SK<=-0.14 )OR(CROSS(SK,SD) AND SK<=0.05 AND (V/MA(V,5)>2 OR C/REF(C,1)>0.035));
STICKLINE(SJ,H,L,0.5,0),COLORWHITE;
STICKLINE(SJ,O,C,5.5,0),LINETHICK3,COLOR000055;
STICKLINE(SJ,O,C,4.5,0),LINETHICK3,COLOR000077;
STICKLINE(SJ,O,C,3.5,0),LINETHICK3,COLOR000099;
STICKLINE(SJ,O,C,2.5,0),LINETHICK3,COLOR0000BB;
STICKLINE(SJ,O,C,1.5,0),LINETHICK3,COLOR0000DD;
STICKLINE(SJ,O,C,0.5,0),LINETHICK3,COLOR0000FF;
EMA13:=EMA(C,13),COLORRED;
EMA21:=EMA(C,21),COLORBLUE;
EMA34:=EMA(C,34),COLORFF00FF;
EMA60:=MA(C,60),COLORFFCC66;
VAR2:=(2*CLOSE+HIGH+LOW)/4;
VAR3:=IF(YEAR>=2099 AND MONTH>2,0,1);
VAR4:=LLV(LOW,5); VAR5:=HHV(HIGH,4);
散户:=EMA((VAR2-VAR4)/(VAR5-VAR4)*100,4)*VAR3;
庄家:=EMA(0.667*REF(散户,1)+0.333*散户,2)*VAR3;
LC:=REF(CLOSE,1){XG51};
rsi:=SMA(MAX(CLOSE-LC,0),6,1)/SMA(Abs(CLOSE-LC),6,1)*100{XG51};
DRAWTEXT(CROSS(84,RSI) , HIGH,'&larr;-----逃'),COLORCYAN{XG51};
VAR3AA:=IF((CLOSE>REF(CLOSE,1)),88,0){XG51};
VAR4AA:=IF(((CLOSE)/(REF(CLOSE,1))>1.05) AND ((HIGH)/(CLOSE)<1.01) AND (VAR3AA>0),91,0){XG51};
DRAWTEXT(FILTER((VAR4AA>90),45),(LOW)*(0.93),'&larr;---大胆搏 '),COLORBLUE{XG51};
VAR51:=3{XG51};
VAR52:=(3)*(SMA(((CLOSE - LLV(LOW,27))/(HHV(HIGH,27) - LLV(LOW,27)))*(100),5,1)) - (2)*(SMA(SMA(((CLOSE - LLV(LOW,27))/(HHV(HIGH,27) - LLV(LOW,27)))*(100),5,1),3,1)){XG51};
DRAWTEXT(CROSS(VAR52,VAR51), LOW,'&larr;启动')COLORLIMAGENTA{X~G~5!1~C~N~{};