同花顺主力清洗组合，彩带有买卖信号附图未加密选股指标公式源码

//探测金矿GSW20 20191226@GZ;

SHORT:=9;

LONG:=17;

多方:((7)*(Sma(((CLOSE-LLV(LOW,27))/(HHV(HIGH,27)-LLV(LOW,27)))*(30),4,1))-(3)*(SMA(SMA(((CLOSE-LLV(LOW,27))/(HHV(HIGH,27)-LLV(LOW,27)))*(30),4,1),3,1))-SMA(SMA(SMA(((CLOSE-LLV(LOW,27))/(HHV(HIGH,27)-LLV(LOW,27)))*(30),4,1),3,1),2,1)),COLOR0000FF;

空方:(ema(MA(多方,5),7)),COLORF0F000;

LowArea_Thres:=16;

Diamond_Thres:=12;

PIT_THRES:= 21;

HIGH_THRES:=75;

PRICE:=C,nodraw;

MA5:=MA(C,5),nodraw;

dif1:=EMA(CLOSE,12) - EMA(C,26); DEA1:=EMA(DIF1,9);

CMacD:=(DIF1-DEA1)*2,nodraw;

Ccci:=CCI,nodraw;

Zeros:0,nodraw;

最新价:=C,nodraw, ;

季:=MA(C,60),nodraw,colorcyan;

通:=MA(C,17),nodraw, ;

子:=MA(C,26),nodraw, ;

午:=MA(C,100),nodraw, ;

辰:=MA(C,145),nodraw, ;

卯:=MA(C,455),nodraw, ;;

申:=MA(C,320),nodraw, ;;

亥:=MA(C,732),nodraw, ;;

突季:=crOSS(C,季) AND C>REF(C,1),nodraw;

突子:=CROSS(C,子) AND C>REF(C,1),nodraw;

突通:=CROSS(C,通) AND C>REF(C,1),nodraw;

突子:=CROSS(C,子) AND C>REF(C,1),nodraw;

突午:=CROSS(C,子) AND C>REF(C,1),nodraw;

突辰:=CROSS(C,辰) AND C>REF(C,1),nodraw;

突卯:=CROSS(C,卯) AND C>REF(C,1),nodraw;

突申:=CROSS(C,申) AND C>REF(C,1),nodraw;

突亥:=CROSS(C,亥) AND C>REF(C,1),nodraw;

均线最大值:=MAX(通,MAX(子,MAX(季,MAX(午,MAX(辰,MAX(卯,MAX(申,亥))))))),nodraw;

突通子:=突通+突子,nodraw;

突均线:=突通+突季+突子+突午+突辰+突卯+突申+突亥,nodraw;

通线上:=C>通,nodraw;

通增:通>REF(通,1),nodraw;

子线上:=C>子,nodraw;

疯牛:=C>均线最大值,nodraw;

通子金叉:CROSS(通,子),nodraw;

子午金叉:=CROSS(子,午);

小牛初现:CROSS(通,子) AND (通>REF(通,1)) AND macd>0 AND CCI>100 AND HIGH> MA(C,5) AND 子>REF(子,1) AND 季>REF(季,1) AND C>季 ,nodraw;

蛟龙出海:CROSS(子,午) AND (子>REF(子,1)) AND MACD>0 AND CCI>100 AND HIGH> MA(C,5) AND (通>REF(通,1)) AND 午>REF(午,1) AND 季>REF(季,1) AND C>季 ,nodraw;

HIGHRisk:=多方> HIGH_THRES OR 空方>HIGH_THRES;

多方势增:(REF(多方,1) < 多方) AND 多方>空方,nodraw;

STICKLINE((空方<=多方),空方,多方,3,0),COLOR0000FF;

STICKLINE((多方>76) AND (多方>=空方),空方,多方,5,1),COLORFF33FF;

STICKLINE((空方>多方),多方,空方,3,0),COLORF0F000;

低吸区:=(空方<18) AND (空方>多方) AND (REF(空方,1) > 空方) AND (REF(多方,1) < 多方);

STICKLINE(低吸区,多方,空方*1.15,3,0),COLOR00FFFF;

TJ:=FILTER(低吸区,5);

DRAWTEXT(TJ,空方*1.8,'吸'),COLORFFFF00;

探钻石矿:=(空方<12) AND (空方<=多方),COLOR00FFFF,nodraw;

钻石底:CROSS(多方,空方) AND (空方<PIT_THRES),COLOR0000FF,nodraw;

DRAWTEXT(CROSS(多方,空方) AND (空方<PIT_THRES),空方-5,'钻'),COLOR00FFFF;

钻石底OR低吸:(低吸区 OR 钻石底) AND (MACD>REF(MACD,1)),nodraw;

;

通达信红箭头主图和未加密选股指标公式源码

源码正文：

A:=ma(CLOSE,17)+Abs(MA(CLOSE,17)-REF(MA(CLOSE,17),1)){XG51};
B:=MA(CLOSE,17)+MA(CLOSE,17)-REF(MA(CLOSE,17),1){XG51};
分水岭:IF(MA(CLOSE,17)<B,B,MA(CLOSE,17)),COLORFF00FF,LINETHICK2{XG51};
操作线:分水岭-(ema(C,3)-分水岭),COLOR00FFFF,LINETHICK2{XG51};
PM:MA(C,5),COLORRED,LINETHICK2{XG51};
IF(PM>REF(PM,1),PM,DRAWNULL),COLORWHITE,LINETHICK2{XG51};
IF(PM=REF(PM,1),PM,DRAWNULL),COLORWHITE{XG51};
IF(PM<REF(PM,1),PM,DRAWNULL),COLORFF9900,LINETHICK2{XG51};
S:=(PM>操作线){XG51};
DD:=分水岭<REF(分水岭,1){XG51};
IF(DD,分水岭,DRAWNULL),COLOR00FF00,LINETHICK2{XG51};
IF(S,分水岭,DRAWNULL),COLOR00FF00,POINTDOT,LINETHICK4{XG51};
DRAWICON(crOSS(分水岭,操作线),分水岭-0.1,1){XG51};
A1:=BArslAst(REF(CROSS("macd.dif","MacD.DEA"),1)){XG51};
B1:=REF(C,A1+1)>C AND REF("MACD.DIF",A1+1)<"MACD.DIF" AND CROSS("MACD.DIF","MACD.DEA"){XG51};
DRAWTEXT(B1>0,L-0.02,'★M'),COLOR00FFFF{XG51};
A2:=BARSLAST(REF(CROSS("kdj.K","kdJ.D"),1)){XG51};
B2:=REF(C,A2+1)>C AND REF("KDJ.K",A2+1)<"KDJ.K" AND CROSS("KDJ.K","KDJ.D"){XG51};
DRAWTEXT(B2,L-0.10,'◎K'),COLORFF00FF{XG51};
A3:=BARSLAST(REF(CROSS("rsi.RSI1","RSI.RSI2"),1)){XG51};
B3:=REF(C,A3+1)>C AND REF("RSI.RSI1",A3+1)<"RSI.RSI1" AND CROSS("RSI.RSI1","RSI.RSI2"){XG51};
DRAWTEXT(B3>0,L-0.18,'◆R'),COLOR0000FF{XG51};
C1:=BARSLAST(REF(CROSS("MACD.DEA","MACD.DIF"),1)){XG51};
D1:=REF(C,C1+1)<C AND REF("MACD.DIF",C1+1)>"MACD.DIF" AND CROSS("MACD.DEA","MACD.DIF"){XG51};
DRAWTEXT(D1>0,H+0.16,'★M'),COLOR00FF00{XG51};
C2:=BARSLAST(REF(CROSS("KDJ.D","KDJ.K"),1)){XG51};
D2:=REF(C,C2+1)<C AND REF("KDJ.K",C2+1)>"KDJ.K" AND CROSS("KDJ.D","KDJ.K"){XG51};
DRAWTEXT(D2>0,H+0.08,'◎K'),COLORFFFFCC{XG51};
C3:=BARSLAST(REF(CROSS("RSI.RSI2","RSI.RSI1"),1)){XG51};
D3:=REF(C,C3+1)<C AND REF("RSI.RSI1",C3+1)>"RSI.RSI1" AND CROSS("RSI.RSI2","RSI.RSI1"){XG51};
DRAWTEXT(D3>0,H+0.04,'◆R'),COLORFF9900;;

选股公式：
A:=MA(CLOSE,17)+ABS(MA(CLOSE,17)-REF(MA(CLOSE,17),1)){XG51};
B:=MA(CLOSE,17)+MA(CLOSE,17)-REF(MA(CLOSE,17),1){XG51};
分水岭:=IF(MA(CLOSE,17)<B,B,MA(CLOSE,17)){XG51};
操作线:=分水岭-(EMA(C,3)-分水岭){XG51};
xg:CROSS(分水岭,操作线){X+G.5?1+C+N+{};