天地买卖主图－精品通达信指标公式源码分享

天:80,COLORBLUE,LINETHICK4,POINTDOT;   

海:20,COLORFF00FF,LINETHICK4,POINTDOT;   

ZKK:"KD.K#WEEK"(9,3,3),COLORRED;   

ZKD:"KD.D#WEEK"(9,3,3),COLORYELLOW;   

KCD:=FILTER(CROSS(ZKK,ZKD) AND REF(ZKD,1)<30,13);   

KCD1:=FILTER(CROSS(ZKK,ZKD) AND REF(ZKD,1)>30,13);   

DRAWICON(KCD1,ZKD,23);   

XG1:=KCD;   

STICKLINE(XG1,20,10,4,0),COLOR000099;   

STICKLINE(XG1,20,10,2,0),COLOR0000BB;   

STICKLINE(XG1,20,10,1,0),COLOR0000DD;   

STICKLINE(XG1,0,20,0.3,0),COLOR0000FF;   

DRAWTEXT(XG1,20,'K买'),COLOR0000FF;   

SCD:=FILTER(CROSS(ZKD,ZKK) AND REF(ZKK,1)>78,13);   

STICKLINE(SCD,90,80,4,0),COLOR009900;   

STICKLINE(SCD,90,80,2,0),COLOR00BB00;   

STICKLINE(SCD,90,80,1,0),COLOR00DD00;   

STICKLINE(SCD,100,80,0.3,0),COLOR00FF00;   

DRAWTEXT(SCD,95,'K卖'),COLOR00FF00;   

DIFW:="MACD.DIF#WEEK"(12,26,9);   

DEAW:="MACD.DEA#WEEK"(12,26,9);   

FCA:=FILTER(CROSS(DIFW,DEAW) AND REF(DEAW,1)<0,13);   

XG2:=FCA;   

STICKLINE(XG2,10,20,4,0),COLOR990099;   

STICKLINE(XG2,10,20,2,0),COLORBB00BB;   

STICKLINE(XG2,10,20,1,0),COLORDD00DD;   

STICKLINE(XG2,10,20,0.3,0),COLORFF00FF;   

DRAWTEXT(XG2,10,'M买'),COLORFF00FF;   

SCA:=FILTER(CROSS(DEAW,DIFW) AND REF(DIFW,1)>0,13);   

STICKLINE(SCA,90,80,4,0),COLOR999900;   

STICKLINE(SCA,90,80,2,0),COLORBBBB00;   

STICKLINE(SCA,90,80,1,0),COLORDDDD00;   

STICKLINE(SCA,90,80,0.3,0),COLORFFFF00;   

DRAWTEXT(SCA,83,'M卖'),COLORFFFF00;   

STICKLINE(XG1 AND XG2,20,80,0.1,0 ),COLORFF00FF;   

DRAWTEXT(XG1 AND XG2,50,'K.M买'),COLORRED;   

DRAWTEXT(XG1 AND XG2,43,'全仓'),COLORRED;   

STICKLINE(SCD AND SCA,20,80,0.1,0 ),COLOR00FF00;   

DRAWTEXT(SCD AND SCA,50,'K.M卖'),COLORFF0000;   

DIFF:=EMA(CLOSE,12)-EMA(CLOSE,26);   

DEA:=EMA(DIFF,9);   

TJ1:=DIFF>DEA;   

SA1:=DIFF<DEA;   

RSV:=(CLOSE-LLV(LOW,12))/(HHV(HIGH,12)-LLV(LOW,12))*100;   

K:=SMA(RSV,3,1);   

D:=SMA(K,3,1);   

TJ2:=K>D;   

SA2:=K<D;   

LC:=REF(CLOSE,1);   

RSI1:=(SMA(MAX(CLOSE-LC,0),9,1))/(SMA(ABS(CLOSE-LC),9,1))*100;   

RSI2:=(SMA(MAX(CLOSE-LC,0),26,1))/(SMA(ABS(CLOSE-LC),26,1))*100;   

TJ3:=RSI1>RSI2;   

SA3:=RSI1<RSI2;   

LWR1:=SMA(RSV,3,1);   

LWR2:=SMA(LWR1,3,1);   

TJ4:=LWR1>LWR2;   

SA4:=LWR1<LWR2;   

BBI:=(MA(CLOSE,3)+MA(CLOSE,9)+MA(CLOSE,12)+MA(CLOSE,26))/4;   

TJ5:=CLOSE>BBI;   

SA5:=C<BBI;   

MTM:=CLOSE-REF(CLOSE,1);   

MMS:=100*EMA(EMA(MTM,9),9)/EMA(EMA(ABS(MTM),9),3);   

MMM:=100*EMA(EMA(MTM,26),12)/EMA(EMA(ABS(MTM),26),12);   

TJ6:=MMS>MMM;   

SA6:=MMS<MMM;   

TTJ:=TJ1 AND TJ2 AND TJ3 AND TJ4 AND TJ5 AND TJ6;   

TTJ0:=FILTER(TTJ,13);   

GOLD:=TTJ0;   

STICKLINE(GOLD,20,30,4,0),COLOR009999;   

STICKLINE(GOLD,20,30,2,0),COLOR00BBBB;   

STICKLINE(GOLD,20,30,1,0),COLOR00DDDD;   

STICKLINE(GOLD,10,30,0.3,0),COLOR00FFFF;   

DRAWTEXT(GOLD,33,'金指'),COLOR00FFFF;   

SAA:=SA1  AND SA2 AND SA3 AND SA4 AND SA5 AND SA6;   

SAA0:=FILTER(SAA,13);   

SAIL:=SAA0;   

STICKLINE(SAIL,80,70,4,0),COLOR990000;   

STICKLINE(SAIL,80,70,2,0),COLORBB0000;   

STICKLINE(SAIL,80,70,1,0),COLORDD0000;   

STICKLINE(SAIL,90,70,0.3,0),COLORFF0000;   

DRAWTEXT(SAIL,75,'指卖'),COLORFF0000;