MAH:=(H*18+REF(H,1)*17+REF(H,2)*16+REF(H,3)*15+REF(H,4)*14+REF(H,5)*13+REF(H,6)*12+REF(H,7)*11+REF(H,8)*10+REF(H,9)*9+REF(H,10)*8+REF(H,11)*7+REF(H,12)*6+REF(H,13)*5+REF(H,14)*4+REF(H,15)*3+REF(H,16)*2+REF(H,17)*1)/171;

MAL:=(L*18+REF(L,1)*17+REF(L,2)*16+REF(L,3)*15+REF(L,4)*14+REF(L,5)*13+REF(L,6)*12+REF(L,7)*11+REF(L,8)*10+REF(L,9)*9+REF(L,10)*8+REF(L,11)*7+REF(L,12)*6+REF(L,13)*5+REF(L,14)*4+REF(L,15)*3+REF(L,16)*2+REF(L,17)*1)/171;

MA5:=MA(CLOSE,5);

MA10:=MA(CLOSE,10);

MA20:=MA(CLOSE,20);

MA60:=MA(CLOSE,60);

DK:= CLOSE>=MAH OR (C>MA5 AND C>MA10 AND C>MA20 AND C>MA60);

KK:= MAL>CLOSE OR (C
DK1:=BARSLAST(DK);

KK1:=BARSLAST(KK);

DK2:=BARSLAST(CROSS(KK1,DK1));

KK2:=BARSLAST(CROSS(DK1,KK1));

HS:=DK2
LS:=KK2
STICKLINE(HS,-0.5,0.5,6,0),COLOR001050;

STICKLINE(LS,-0.5,0.5,6,0),COLORBLACK;

{红柱兰柱分阴阳}
VARE1:=MA((VOL-REF(VOL,1))/REF(VOL,1),5);
VARE2:=(CLOSE-MA(CLOSE,24))/MA(CLOSE,24)*100;
MY:= VARE2*(1+VARE1);
阴阳:MA(MY,18),COLORSTICK;
趋:MA(阴阳,5);

{成交买卖强弱}

A44:=VOL*CLOSE;

B44:=SUM(A44,1)/SUM(VOL,1);

B144:=EMA(B44,17);

买卖强弱:MA((B44-B144)*100/B44,18),COLORRED,LINETHICK2;
IF(买卖强弱
{操盘区}

VAR0:=(MA(CLOSE,5)+MA(CLOSE,10)+MA(CLOSE,15)+MA(CLOSE,20))/4;

积极操盘区:IF(VAR0>REF(VAR0,2),VAR0,DRAWNULL), COLORRED, NODRAW;

持币观望区:IF(VAR0
{安全区间}

安全区间:=EMA((EMA(CLOSE,10)-EMA(CLOSE,60)),10),NODRAW;

DRAWTEXT(安全区间>REF(安全区间,1),6.5,'多'),COLORRED;

{量能异动}

VAR2Q:=REF(LOW,1);

VAR3Q:=SMA(ABS(LOW-VAR2Q),3,1)/SMA(MAX(LOW-VAR2Q,0),3,1)*100;

VAR4Q:=EMA(IF(CLOSE*1.3,VAR3Q*10,VAR3Q/10),3);

VAR5Q:=LLV(LOW,30);

VAR6Q:=HHV(VAR4Q,30);

VAR7Q:=IF(MA(CLOSE,58),1,0);

VAR8Q:=EMA(IF(LOW<=VAR5Q,(VAR4Q+VAR6Q*2)/2,0),3)/999*VAR7Q;

火焰山:=IF(VAR8Q>100,5,VAR8Q/15);

STICKLINE(火焰山>0,0 ,火焰山*1.02,1,0 ),COLOR4444FF;

{绿色资金进入区}

VAR1:=INDEXA/100000000;

VAR2:=INDEXADV;

VAR3:=INDEXDEC;

VAR4:=VAR2/(VAR2+VAR3);

VAR5:=VAR3/(VAR2+VAR3);

VAR6:=EMA(VAR4,3);

VAR7:=EMA(VAR5,3);

VAR8:=EMA(VAR6,5);

VAR9:=EMA(VAR7,5);

资金:=EMA(VAR9,10)/150;

底:=BARSLAST(LLV(L,4)=LLV(L,120))<5 ;

安全区:STICKLINE(底,资金-0.3,资金,3,0),COLORGREEN;

{看空看多区间变化}

VAR1456:=(HHV(HIGH,36)-CLOSE)/(HHV(HIGH,36)-LLV(LOW,36))*100;

机构做空能量线:= SMA(VAR1456,3,1)-50,LINETHICK2,COLORGREEN;

VAR2456:=(CLOSE-LLV(LOW,9))/(HHV(HIGH,9)-LLV(LOW,9))*100;

机构做多能量线:= SMA(VAR2456,5,1)-8-50,LINETHICK2,COLORRED;

DRAWTEXT(CROSS(机构做多能量线,0),5,'<-看多'),COLORRED;

DRAWTEXT(CROSS(0,机构做多能量线),-5,'<-看空'),COLORGREEN;

DRAWTEXT(CROSS(机构做空能量线,0),-4,'<-确认看空'),COLORGREEN;

DRAWTEXT(CROSS(0,机构做空能量线),4,'<-确认看多'),COLORRED;

{生命量能}

生命量能:=EMA(100*(CLOSE-LLV(LOW,31))/(HHV(HIGH,31)-LLV(LOW,31)),3)/4;
 

DRAWTEXT(生命量能<1,-2.5,'<--3级买'),COLORFF1493;

{量能}

VAR21:=REF((LOW+OPEN+CLOSE+HIGH)/4,1);

VAR22:=SMA(ABS(LOW-VAR21),13,1)/SMA(MAX(LOW-VAR21,0),10,1);

VAR23:=EMA(VAR22,10);

VAR24:=LLV(LOW,33);

VAR25:=EMA(IF(LOW<=VAR24,VAR23,0),3);

DRAWTEXT(VAR25>REF(VAR25,1),-3,'买量'),COLORRED;

VAR177:=(CLOSE-LLV(LOW,36))/(HHV(HIGH,36)-LLV(LOW,36))*100;

VAR277:=SMA(VAR177,3,1);

VAR377:=SMA(VAR277,3,1);

趋势线:=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);

VAR777:=CROSS(VAR377,趋势线) AND VAR377>60;

{DRAWTEXT(FILTER(VAR777,5)=1,+3,'<-3级卖'),COLOR32CD32; }

{动能运行轨迹}

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

Y0:=SMA(RSV,7,1);

Y1:=SMA(SMA(RSV,7,1),3,1);

Y2:=(((CLOSE/COST(13))<=0.8)*10),COLORMAGENTA;

Y3:=SMA(SMA(SMA(RSV,6,1),5,1),3,1),COLORGREEN;

DRAWTEXT(CROSS(18,Y0) AND Y1<21,-2.5,'进底部'),COLORGREEN;

DRAWTEXT(CROSS(Y0,20),-3.3,'出底部'),COLORRED;

{解盘}

ARE4:=MA(C,20);

ARE5:=(C>MA(C,5));

ARE6:=(MA(C,5)>MA(C,10));

ARE7:=(C>MA(C,10));

ARE8:=(MA(C,5)>MA(C,20));

ARE9:=(C>MA(C,20));

ARE10:=REF(ARE4,1);

ARE11:=(ARE4>ARE10);

AVX:=(((((IF(ARE5,10,(0-10))+IF(ARE6,10,(0-10)))+IF(ARE7,10,(0-10)))+IF(ARE8,10,(0-10)))+IF(ARE9,10,(0-10)))+IF(ARE11,10,(0-10)));

DSLX:=(C/INDEXC);

DSLX1:=MA(DSLX,5);

DSLX2:=MA(DSLX,10);

VRE1:=MA(V,5);

VRE2:=MA(V,10);

阻力位:=IF((C>200),(C*1.01),(C*1.07));

阻力位１:=IF((C<10),(C*1.05),阻力位);

止损位:=IF((C>200),(C*0.99),(C*0.93));

止损位１:=IF((C<10),(C*0.95),止损位);

TJTS1:=ISLASTBAR AND C<500;

TJTS2:=ISLASTBAR AND C>500;

KDAT:=REFDATE(HHV(H,45)/1.01,DATE);

解盘1:=CONST(IF(TJTS1 AND ((CROSS(AVX,1) AND (VRE1 >= VRE2)) AND (DSLX >= DSLX1)) ,1,0));

解盘2:=CONST(IF(TJTS1 AND ((CROSS(AVX,1) AND (VRE1 < VRE2)) AND (DSLX >= DSLX1)) ,1,0));

解盘3:=CONST(IF(TJTS1 AND ((CROSS(AVX,1) AND (VRE1 > VRE2)) AND (DSLX < DSLX1)) ,1,0));

解盘4:=CONST(IF(TJTS1 AND ((CROSS(AVX,1) AND (VRE1 <= VRE2)) AND (DSLX < DSLX1)) ,1,0));

解盘5:=CONST(IF(TJTS1 AND ((CROSS(1,AVX) AND (VRE1 >= VRE2)) AND (DSLX >= DSLX1)) ,1,0));

解盘6:=CONST(IF(TJTS1 AND ((CROSS(1,AVX) AND (VRE1 < VRE2)) AND (DSLX >= DSLX1)) ,1,0));

解盘7:=CONST(IF(TJTS1 AND ((CROSS(1,AVX) AND (VRE1 >= VRE2)) AND (DSLX < DSLX1)) ,1,0));

解盘8:=CONST(IF(TJTS1 AND ((CROSS(1,AVX) AND (VRE1 < VRE2)) AND (DSLX < DSLX1)) ,1,0));

解盘9:=CONST(IF(TJTS1 AND ((((AVX >= 1) AND (REF(AVX,1) > 0)) AND (VRE1 >= VRE2)) AND (DSLX >= DSLX1)) ,1,0));

解盘10:=CONST(IF(TJTS1 AND ((((AVX >= 1) AND (REF(AVX,1) > 0)) AND (VRE1 < VRE2)) AND (DSLX >= DSLX1)) ,1,0));

解盘11:=CONST(IF(TJTS1 AND ((((AVX >= 1) AND (REF(AVX,1) > 0)) AND (VRE1 >= VRE2)) AND (DSLX < DSLX1)) ,1,0));

解盘12:=CONST(IF(TJTS1 AND ((((AVX >= 1) AND (REF(AVX,1) > 0)) AND (VRE1 < VRE2)) AND (DSLX < DSLX1)) ,1,0));

解盘13:=CONST(IF(TJTS1 AND ((((AVX < 1) AND (REF(AVX,1) < 0)) AND (VRE1 >= VRE2)) AND (DSLX >= DSLX1)) ,1,0));

解盘14:=CONST(IF(TJTS1 AND ((((AVX < 1) AND (REF(AVX,1) < 0)) AND (VRE1 < VRE2)) AND (DSLX >= DSLX1)) ,1,0));

解盘15:=CONST(IF(TJTS1 AND ((((AVX < 1) AND (REF(AVX,1) < 0)) AND (VRE1 >= VRE2)) AND (DSLX < DSLX1)) ,1,0));

解盘16:=CONST(IF(TJTS1 AND ((((AVX < 1) AND (REF(AVX,1) < 0)) AND (VRE1 < VRE2)) AND (DSLX < DSLX1)) ,1,0));

解盘17:=CONST(IF(TJTS2 AND (CROSS(AVX,1) AND (VRE1 >= VRE2)) ,1,0));

解盘18:=CONST(IF(TJTS2 AND (CROSS(AVX,1) AND (VRE1 >= VRE2)) ,1,0));

解盘19:=CONST(IF(TJTS2 AND (CROSS(AVX,1) AND (VRE1 < VRE2)) ,1,0));

解盘20:=CONST(IF(TJTS2 AND (CROSS(AVX,1) AND (VRE1 < VRE2)) ,1,0));

解盘21:=CONST(IF(TJTS2 AND (CROSS(1,AVX) AND (VRE1 >= VRE2)) ,1,0));

解盘22:=CONST(IF(TJTS2 AND (CROSS(1,AVX) AND (VRE1 < VRE2)) ,1,0));

解盘23:=CONST(IF(TJTS2 AND (((AVX >= 1) AND (REF(AVX,1) > 0)) AND (VRE1 >= VRE2)) ,1,0));

解盘24:=CONST(IF(TJTS2 AND (((AVX >= 1) AND (REF(AVX,1) > 0)) AND (VRE1 < VRE2)) ,1,0));

解盘25:=CONST(IF(TJTS2 AND (((AVX < 1) AND (REF(AVX,1) < 0)) AND (VRE1 >= VRE2)) ,1,0));

解盘26:=CONST(IF(TJTS2 AND (((AVX < 1) AND (REF(AVX,1) < 0)) AND (VRE1 < VRE2)) ,1,0));

解盘文字1:=IF(解盘1=1,'该股的量能理想，有明显走强迹象，可以考虑中线进场参与，仓位在2/3左右', IF(解盘2=1,'该股虽然走势趋强，但量能还显不足，可以考虑短线进场，仓位在1/2左右', IF(解盘3=1,'该股量价配合良好，但相对其它股票并没有明显走强，可以考虑短线进场，仓位1/2左右', IF(解盘4=1,'该股形态尚可，但量能不足，股票也未完全走强，可以短线参与，仓位1/3左右', IF(解盘5=1,'该股形态变坏，但走势相对其它股票尚可，重仓者减持大半，清仓者可以观望', IF(解盘6=1,'该股随大盘一起下跌，程明显缩量走势，考虑到大盘风险，减持或清仓', IF(解盘7=1,'该股放量下跌，走势明显偏弱，离场观望', IF(解盘8=1,'该股缩量下跌，走势偏弱，离场观望', IF(解盘9=1,'该股形态良好，强势明显，量能充足，可以继续持有', IF(解盘10=1,'该股上行趋势不变，强势依然，但量能开始转弱，注意风险', IF(解盘11=1,'该股仍然具备上涨潜力，但股性偏弱，可考虑减仓', IF(解盘12=1,'该股走势趋弱，量能不足，减持大部分筹码', IF(解盘13=1,'该股形态不佳，注意成交量的变化，但目前不适合参与', IF(解盘14=1,'该股趋势不明，股价偏弱，注意量能变化，目前不宜参与', IF(解盘15=1,'该股有走强迹象，但量能不足，趋势不明，不适合操作', IF(解盘17=1,'大盘量能理想，有明显走强迹象，可以考虑中线进场参与，仓位在2/3左右', IF(解盘19=1,'大盘虽然走势趋强，但量能还显不足，如果前期经过一轮下跌 ', IF(解盘21=1,'大盘形态走坏，重仓者可以减去大部分仓位 ', IF(解盘22=1,'大盘缩量调整，注意风险，短线清仓观望', IF(解盘23=1,'大盘走势良好，量能理想，可以继续持有强势股', IF(解盘24=1,'大盘形态良好，但量能稍显不足，随时准备减仓', IF(解盘25=1,'大盘趋势不明，注意成交量变化，目前不适宜进场', IF(解盘26=1,'大盘趋势向下，量能萎缩，不适合进场',DRAWNULL)))))))))))))))))))))));

解盘文字2:=IF(解盘16=1,'该股走势太弱，没有参与价值',IF(解盘18=1,' 如前期经过一轮下跌，此时为最佳买点，但如果前期有过一段涨幅则介入需谨慎', IF(解盘20=1,' 可以考虑短线进场，仓位在1/2左右，一旦量能放大可以加仓买入',DRAWNULL)));

DRAWTEXT(CURRBARSCOUNT=75{下面提示位置} AND (解盘1=1 OR 解盘2=1 OR 解盘3=1 OR 解盘4=1 OR 解盘5=1 OR 解盘6=1 OR 解盘7=1 OR 解盘8=1 OR 解盘9=1 OR 解盘10=1 OR 解盘11=1 OR 解盘12=1 OR 解盘13=1 OR 解盘14=1 OR 解盘15=1 OR 解盘17=1 OR 解盘19=1 OR 解盘21=1 OR 解盘22=1 OR 解盘23=1 OR 解盘24=1 OR 解盘25=1 OR 解盘26=1),(4.7),解盘文字1),COLORFEFE00;

DRAWTEXT(CURRBARSCOUNT=75{下面提示位置} AND (解盘16=1 OR 解盘18=1 OR 解盘20=1),IF(解盘18=1 OR 解盘20=1,4.2,1),解盘文字2),COLOR0000FF;

{ISLASTBAR,0.00,0.12,0}

{资金流}

ZLCM:=EMA(WINNER(CLOSE)*70,3);{//主力筹码估算}

SHCM:=EMA((WINNER(CLOSE*1.1)-WINNER(CLOSE*0.9))*80,3);{//小筹码估算}

ZSHTL:=SHCM/(ZLCM+SHCM)*100;{//小股民套牢筹码比率}

ZZLKP:=ZLCM/(ZLCM+SHCM)*100;{//主力控盘筹码比率}

ZCMZL:=MA(ZLCM+SHCM,13);{//市场筹码总量}

ZZNTS:=BARSLAST(ZSHTL<90 AND REF(ZSHTL,1)>90);{//走牛天数}

ZSHJJ:=EMA(ZSHTL,89);{//小股民警戒}

ZZLJJ:=EMA(ZZLKP,89);{//主力警戒}

ZJLRQD:=INTPART(ZZLKP-ZZLJJ);{//资金流入强度}

SH8:=EMA(ZSHTL,8);

DKB:=IF(ZZLKP-REF(ZZLKP,1)>ZSHTL-REF(ZSHTL,1),1,0);

RSVV:=(CLOSE-LLV(LOW,15))/(HHV(HIGH,15)-LLV(LOW,15))*100;

K1:=SMA(RSVV,10,1);