{变色K线}
N1:=14;
 M:=6;
 TR1:=EXPMEMA(MAX(MAX(HIGH-LOW,ABS(HIGH-REF(CLOSE,1))),ABS(REF(CLOSE,1)-LOW)),N1);
 HD :=HIGH-REF(HIGH,1);
 LD :=REF(LOW,1)-LOW;
 DMP:=EXPMEMA(IF(HD>0&&HD>LD,HD,0),N1);
 DMM:=EXPMEMA(IF(LD>0&&LD>HD,LD,0),N1);
 PDI:=DMP*100/TR1,LINETHICK2;
 MDI:=DMM*100/TR1;
 ADX:=EXPMEMA(ABS(MDI-PDI)/(MDI+PDI)*100,M);
 ADXR:=EXPMEMA(ADX,M);
 VAR1:=CLOSE>REF(CLOSE,1) AND CLOSE>REF(CLOSE,2);
 VAR2:=REF(VAR1,1) AND CLOSE<=REF(CLOSE,1) AND CLOSE>=REF(CLOSE,2);
 VAR3:=REF(VAR2,1) AND CLOSE>=REF(CLOSE,1) AND CLOSE<=REF(CLOSE,2);
 VAR4:=REF(VAR3,1) AND CLOSE<=REF(CLOSE,1) AND CLOSE>=REF(CLOSE,2);
 VAR5:=REF(VAR4,1) AND CLOSE>=REF(CLOSE,1) AND CLOSE<=REF(CLOSE,2);
 VAR6:=REF(VAR5,1) AND CLOSE<=REF(CLOSE,1) AND CLOSE>=REF(CLOSE,2);
 VAR7:=REF(VAR6,1) AND CLOSE>=REF(CLOSE,1) AND CLOSE<=REF(CLOSE,2);
 VAR8:=REF(VAR7,1) AND CLOSE<=REF(CLOSE,1) AND CLOSE>=REF(CLOSE,2);
 VAR9:=REF(VAR8,1) AND CLOSE>=REF(CLOSE,1) AND CLOSE<=REF(CLOSE,2);
 VARA:=REF(VAR9,1) AND CLOSE<=REF(CLOSE,1) AND CLOSE>=REF(CLOSE,2);
 VARB:=REF(VARA,1) AND CLOSE>=REF(CLOSE,1) AND CLOSE<=REF(CLOSE,2);
 VARC:=REF(VARB,1) AND CLOSE<=REF(CLOSE,1) AND CLOSE>=REF(CLOSE,2);
 STICKLINE(VAR1 OR VAR2 OR VAR3 OR VAR4 OR VAR5 OR VAR6 OR VAR7 OR VAR8 OR VAR9 OR VARA OR VARB OR VARC,CLOSE,REF(CLOSE,1),3,1),COLOR0000FF;
 VARD:=CLOSE<REF(CLOSE,1) AND CLOSE<REF(CLOSE,2);
 VARE:=REF(VARD,1) AND CLOSE>=REF(CLOSE,1) AND CLOSE<=REF(CLOSE,2);
 VARF:=REF(VARE,1) AND CLOSE<=REF(CLOSE,1) AND CLOSE>=REF(CLOSE,2);
 VAR10:=REF(VARF,1) AND CLOSE>=REF(CLOSE,1) AND CLOSE<=REF(CLOSE,2);
 VAR11:=REF(VAR10,1) AND CLOSE<=REF(CLOSE,1) AND CLOSE>=REF(CLOSE,2);
 VAR12:=REF(VAR11,1) AND CLOSE>=REF(CLOSE,1) AND CLOSE<=REF(CLOSE,2);
 VAR13:=REF(VAR12,1) AND CLOSE<=REF(CLOSE,1) AND CLOSE>=REF(CLOSE,2);
 VAR14:=REF(VAR13,1) AND CLOSE>=REF(CLOSE,1) AND CLOSE<=REF(CLOSE,2);
 VAR15:=REF(VAR14,1) AND CLOSE<=REF(CLOSE,1) AND CLOSE>=REF(CLOSE,2);
 VAR16:=REF(VAR15,1) AND CLOSE>=REF(CLOSE,1) AND CLOSE<=REF(CLOSE,2);
 VAR17:=REF(VAR16,1) AND CLOSE<=REF(CLOSE,1) AND CLOSE>=REF(CLOSE,2);
 VAR18:=REF(VAR17,1) AND CLOSE>=REF(CLOSE,1) AND CLOSE<=REF(CLOSE,2);
 STICKLINE(VARD OR VARE OR VARF OR VAR10 OR VAR11 OR VAR12 OR VAR13 OR VAR14 OR VAR15 OR VAR16 OR VAR17 OR VAR18,CLOSE,REF(CLOSE,1),3,0),COLORC08000;
 VAR19:=REF(VARD OR VARE OR VARF OR VAR10 OR VAR11 OR VAR12 OR VAR13 OR VAR14 OR VAR15 OR VAR16 OR VAR17 OR VAR18,1) AND VAR1;
 STICKLINE(VAR19,REF(CLOSE,1),REF(CLOSE,2),3,0),COLORMAGENTA ;
 VAR1A:=REF(VAR1 OR VAR2 OR VAR3 OR VAR4 OR VAR5 OR VAR6 OR VAR7 OR VAR8 OR VAR9 OR VARA OR VARB OR VARC,1) AND VARD;
 STICKLINE(VAR1A,REF(CLOSE,1),REF(CLOSE,2),3,0) ,COLOR00FF00; }
 {箱体线}
N:=7;
 T1:=CONST(LLVBARS(LOW,N));
 T1HIGH:=CONST(REF(HIGH,T1));
 CC:=CONST(CURRBARSCOUNT);
 T2:=CONST(BARSLAST((CURRBARSCOUNT >(CC+T1)) AND (HIGH>T1HIGH)));
 T2HIGH:=CONST(REF(HIGH,T2));
 T3:=CONST(BARSLAST((CURRBARSCOUNT >(CC+T2)) AND (HIGH>T2HIGH)));
 T3HIGH:=CONST(REF(HIGH,T3));
突破杀入线:DRAWLINE(CURRBARSCOUNT=T3+1, T3HIGH, ISLASTBAR, T3HIGH, 1),LINETHICK1,COLORYELLOW;
 DRAWTEXT(ISLASTBAR, T3HIGH, '杀入线!'),LINETHICK1,COLORYELLOW;
 AB:=EMA(((2*C+H+L)/4-LLV(LOW,30))/(HHV(HIGH,30)-LLV(LOW,30))*100,8);
 BA:=EMA(AB,5);
 A1{高}:=REFDATE(REF(HHV(H,96),5),DATE);
 B1{低}:=REFDATE(REF(LLV(L,96),5),DATE);
 DY{中}:=((A1)+(B1))/2;
箱顶:IF(AB>0 AND AB-BA<=0,A1,A1),COLORGREEN,DOTLINE;
箱腰:IF(AB>0 AND AB-BA<=0,DY,DY),COLORYELLOW,DOTLINE;
箱低:IF(AB>0 AND AB-BA<=0,B1,B1),COLORRED,DOTLINE;
 DRAWTEXT(ISLASTBAR,箱顶,'箱顶'),COLORYELLOW;
 DRAWTEXT(ISLASTBAR,箱腰,'箱腰'),COLORYELLOW;
 DRAWTEXT(ISLASTBAR,箱低,'箱低'),COLORYELLOW;
 VARAA:=IF(CLOSE>150,91.3,0.913);
 {突破:INTPART(CLOSE/VARAA )*VARAA,POINTDOT,LINETHICK4,COLORRED;
再突破:突破+VARAA,POINTDOT,LINETHICK4,COLOR00FF00 ;
回踩:(突破+再突破)/2,POINTDOT,COLORWHITE,LINETHICK4;}
 STICKLINE(CROSS(ZIG(3,5),REF(ZIG(3,5),1)),箱低,箱腰,0.1,-1),COLORRED;
 STICKLINE(CROSS(REF(ZIG(3,5),1),ZIG(3,5)),箱顶,箱腰,0.1,-1),COLORGREEN;
 DRAWICON(CROSS(ZIG(3,5),REF(ZIG(3,5),1)),箱腰,1);
 DRAWICON(CROSS(REF(ZIG(3,5),1),ZIG(3,5)),箱腰,2);
 DRAWTEXT_FIX(CURRBARSCOUNT=1,0.02,0.01,0,'K线底部出红色或粉色，可低吸建仓！'),COLORRED;
 DRAWTEXT_FIX(CURRBARSCOUNT=1,0.02,0.05,0,'绿点表示长期的压力点！'),COLORGREEN;
 DRAWTEXT_FIX(CURRBARSCOUNT=1,0.02,0.10,0,'白点表示中短期的压力和支撑点，'),COLORGREEN;
 DRAWTEXT_FIX(CURRBARSCOUNT=1,0.02,0.16,0,'红点表示有效支撑或突破长中短期压力点！股价向下跌破，原则清仓！'),COLORGREEN;
 EE:=(H+L+O+2*C)/5;
 CRTP:=EE+(H-L);
 CRZL:=2*EE-L;
 CRZC:=2*EE-H;
 CRFZ:=EE-(H-L);
高:CONST(CRTP),COLORRED;
阻:CONST(CRZL),COLORC7C9FF;
支:CONST(CRZC),COLOR7C9CFF;
反:CONST(CRFZ),COLORDD00DD;
 DRAWTEXT(ISLASTBAR, 反, '反转价'),LINETHICK1,COLORDD00DD;
 DRAWTEXT(ISLASTBAR, 支, '支撑'),LINETHICK1,COLOR7C9CFF;
 DRAWTEXT(ISLASTBAR, 阻, '阻力'),LINETHICK1,COLORC7C9FF;
 DRAWTEXT(ISLASTBAR, 高, ' 高破线'),LINETHICK1,COLORGREEN;
均线:=EXPMA(C,12),COLORGRAY,LINETHICK2;
日:=50;
昨前:=3;
高2:=REF(HHV(H,日),昨前);
低2:=REF(LLV(L,日),昨前);
H4:=高2-(高2-低2)*0.618;
 H5:=高2-(高2-低2)*0.809;
支撑80.9%:REFDATE(H5,DATE),COLORRED;
支撑61.8%:REFDATE(H4,DATE),COLORGREEN,;
 STICKLINE(CURRBARSCOUNT=1,支撑80.9%,支撑80.9%,300,-1),COLORGREEN;
 STICKLINE(CURRBARSCOUNT=1,支撑61.8%,支撑61.8%,300,-1),COLORRED;
 DRAWTEXT(CURRBARSCOUNT=1 AND 支撑80.9%,支撑80.9%,'备钱'),COLORGREEN;
 DRAWTEXT(CURRBARSCOUNT=1 AND 支撑61.8%,支撑61.8%,'转运'),COLORRED;
 WH1:=IF(L=LLV(L,9),L,0);
 WH2:=CONST(BARSLAST(WH1!=0));
 WH3:=CONST(IF(WH2=0,H,REF(H,WH2)));
 WH4:=CONST(REF(BARSLAST(H>WH3),WH2+1)+WH2+1);
 WH5:=CONST(IF(WH4=0,H,REF(H,WH4)));
 WH6:=CONST(REF(BARSLAST(H>WH5),WH4+1)+WH4+1);
 WH7:IF(CURRBARSCOUNT<=WH2+10,CONST(IF(WH6=0,H,REF(H,WH6))),DRAWNULL),COLORRED,DOTLINE;
 STICKLINE(CURRBARSCOUNT<=WH2+1 AND L=LLV(L,9),O,C,3,0),COLORRED;
 DRAWTEXT(CURRBARSCOUNT=WH2+10,WH7,'LINE'),COLORRED;
 DRAWTEXT(ISLASTBAR,WH7,'进场'),COLORRED;
 WH8:IF(CURRBARSCOUNT<=WH2+1,IF(L=LLV(L,9),L,DRAWNULL),DRAWNULL),CIRCLEDOT;
 H81:=IF(H=HHV(H,9),H,DRAWNULL);
 H82:=CONST(BARSLAST(H81!=DRAWNULL));
 H83:=CONST(IF(H82=0,L,REF(L,H82)));
 H84:=CONST(REF(BARSLAST(L<H83),H82+1)+H82+1);
 H85:=CONST(IF(H84=0,L,REF(L,H84)));
 H86:=CONST(REF(BARSLAST(L<H85),H84+1)+H84+1);
 H87:=IF(CURRBARSCOUNT<=H82+10,CONST(IF(H86=0,L,REF(L,H86))),DRAWNULL),DOTLINE;
 H88:=IF(CURRBARSCOUNT<=H82+1,IF(H=HHV(H,9),H,DRAWNULL),DRAWNULL),CIRCLEDOT;
 DRAWTEXT(CURRBARSCOUNT=H82+10,H87,'LINE'),COLORYELLOW;
 DRAWTEXT(ISLASTBAR,H87,'止损'),COLORYELLOW;
 DIF:=EMA(DCLOSE,12)-EMA(DCLOSE,26);
 DEA:=EMA(DIF,9);
 AAA:=(DIF-DEA)*2*60;
起爆:=CROSS(AAA-REF(AAA,1),15);
 DRAWTEXT(起爆,MA(L,3),'↖暴涨'),COLORYELLOW,LINETHICK2;
 LC:=REF((O+H+L+2*C)/5,1);
 {短线擒黑马}
RSI:=SMA(MAX(C-LC,0),7,1)/SMA(ABS(C-LC),7,1)*10;
 TYP:=(HIGH+LOW+CLOSE)/3;
 CCI:=(TYP-MA(TYP,23))/(0.015*AVEDEV(TYP,23));
买:=CROSS(RSI,7.1) AND MA(V,5)>MA(V,10),COLORRED;
 DRAWTEXT(CROSS(RSI,7.1) AND MA(V,5)>MA(V,10),MA(L,3),'↖◆短线擒黑马◆'),COLORWHITE;
 DRAWICON(买,MA(L,3),17);
卖:=CROSS(7.1,RSI) AND MA(V,10)>MA(V,5),COLORGREEN;
 DRAWTEXT(CROSS(7.1,RSI) AND MA(V,10)>MA(V,5),箱顶,'■■逃跑■■'),COLORGREEN;
 DRAWICON(卖,MA(H,3),28);
 {绝密买点}
A81:=EMA(C,3),COLORWHITE;
 A82:=EMA(C,5),COLORYELLOW;
 A83:=EMA(C,7),COLORMAGENTA;
 A84:=EMA(C,12),COLORGREEN;
 A85:=EMA(C,20),COLORRED;
 A86:=EMA(C,50),COLORBLUE,LINETHICK2;
 SS8:=CROSS(A81,A85) AND C>O AND C>REF(C,1) AND C/REF(C,1)>=1.018 ;
 SSS8:=CROSS(A81,A85) AND C>O AND C>REF(C,1) AND C/REF(C,1)>=1.018;
 DRAWICON(SS8 ,MA(L,3),5);
 DRAWTEXT(SS8,MA(L,3),'↖绝密买点'),COLORYELLOW;
 ZYX1:="DMI.PDI"(12,6);
 ZYX2:="DMI.MDI"(12,6);
 ZYX3:=ZYX1>65 AND ZYX1>REF(ZYX1,1);
 ZYX4:=LLV(ZYX1,0);
 ZYX5:=BARSLAST(ZYX4=ZYX1);
 ZYX6:=(0-REF(ZYX2,4))/(ZYX4-REF(ZYX2,ZYX5))>2;
 ZYX7:=ZYX1>REF(ZYX1,1);
 ZYX8:=VOL>2*MA(VOL,30);
 ZYX9:="DMI.ADX"(12,6);
 ZYXA:="DMI.ADXR"(12,6);
 ZYXB:=CLOSE>MA(CLOSE,30) AND CLOSE<MA(CLOSE,30)*1.04;
 ZYXC:=MA(CLOSE,30)>REF(MA(CLOSE,30),1);
 ZYXD:=BARSLAST(CROSS(MA(CLOSE,5),MA(CLOSE,10)))<BARSLAST(CROSS(MA(CLOSE,10),MA(CLOSE,5)));
 {ZYXE:=0-"MACD.DIFF"(7,21,3);}
 ZYXF:=TROUGHBARS(3,15,1)<4;
 ZYX10:=EMA(CLOSE,30)>REF(EMA(CLOSE,30),2);
 ZYX11:=IF(ZYXF=1,50,0);
 ZYX12:=CROSS(ZYX2,ZYX1) AND CROSS(ZYXA,ZYX9);
 ZYX13:=CROSS(ZYX2,ZYX1) AND CROSS(ZYX9,ZYXA);
 ZYX14:=ZYXB AND ZYXC AND ZYXD AND ZYX10 AND ZYX6 AND ZYX7 AND ZYX8*50;
 ZYX15:=BARSLAST(CROSS(ZYX2,ZYX1)=1);
 ZYX16:=BARSLAST(CROSS(ZYX1,ZYX2)=1);
 ZYX17:=HHV(ZYX1,ZYX16);
 ZYX18:=BARSLAST(ZYX1=ZYX17);
 {STICKLINE(FILTER(ZYXF=1,5),50,0,10,0),COLORRED;}
 ZYX19:=ZYX3 OR ZYX12 OR ZYX13*100;
 ZYX1A:=ZYX13*100;
 DRAWICON(FILTER(ZYXF=1,3),MA(L,3),23);
 DRAWTEXT(FILTER(ZYXF=1,3),箱低,'■■铁底■■'),COLORGREEN;
 {量能平台}
ND:=10;
 PTD:=CONST(LLVBARS(V,ND));
 TDPX:IF(CURRBARSCOUNT<=ND,CONST(IF(PTD=0,O,REF(O,PTD))),DRAWNULL),COLORFF0000;
 IF(CURRBARSCOUNT=PTD+1,TDPX,DRAWNULL),CIRCLEDOT,COLORFF0000,LINETHICK2;
 DRAWTEXT(ISLASTBAR,TDPX,' 【地平线】'),COLORFF0000;
 G21:=30;
 T112:=CONST(HHVBARS(V,G21));
 T122:=IF(CURRBARSCOUNT<=G21+7,CONST(IF(T112=0,H,REF(H,T112))),DRAWNULL);
 T122A:=IF(CURRBARSCOUNT=T112+1,T122,DRAWNULL),CIRCLEDOT,COLORWHITE;
 DRAWTEXT(ISLASTBAR,T122,'30天量能平台'),COLORWHITE;
 W10:=10;
 TW1:=CONST(HHVBARS(V,W10));
 TW0:=IF(CURRBARSCOUNT<=W10+7,CONST(IF(TW1=0,C,REF(C,TW1))),DRAWNULL);
 TW0A:=IF(CURRBARSCOUNT=TW1+1,TW0,DRAWNULL),CIRCLEDOT,COLORWHITE;
 DRAWTEXT(ISLASTBAR,TW0,'10量能平台'),COLORWHITE;
 W20:=20;
 TW20:=CONST(HHVBARS(V,W20));
 TW22:=IF(CURRBARSCOUNT<=W20+7,CONST(IF(TW20=0,C,REF(C,TW20))),DRAWNULL);
 TW22A:=IF(CURRBARSCOUNT=TW20+1,TW22,DRAWNULL),COLORWHITE;
 DRAWTEXT(ISLASTBAR,TW22,'20量能平台'),COLORWHITE;
 MW:=10;
 MW1:=CONST(LLVBARS(V,MW));
 MW0:=IF(CURRBARSCOUNT<=MW+7,CONST(IF(MW1=0,O,REF(O,MW1))),DRAWNULL);
 MW0A:=IF(CURRBARSCOUNT=MW1+1,MW0,DRAWNULL),CIRCLEDOT,COLORWHITE;
 DRAWTEXT(ISLASTBAR,MW0,'地量反弹量能平台'),COLORWHITE;
 {N1:=18;N2:=36;N3:=55;}
 EM1:=EMA(C,18),NODRAW;
 EM2:=EMA(C,36),COLORRED;
 EM3:=EMA(C,55),COLORGREEN;
 TJ8:=BETWEEN(EM2,EM1,EM3);
 {DRAWICON(TJ8=0,L,14);}
 B18:='<-----------------财富平台';
DRAWTEXT(VOL=HHV(VOL,20),C ,B18),COLORRED;

=====================================================================

短线擒黑马选股公式

{短线擒黑马}
当天涨幅 :=C/REF(C,1)<1.0554 AND  C/REF(C,1)>1.031;
 VAR100:="核心指标.VAR100#DAY";   
 MACD0:=("MACD.MACD">REF("MACD.MACD",1))>=1;
去新股:=IF(NAMELIKE('N'),0,1){刚上市不久的新股};
一字涨停:=C/REF(C,1)>1.0975 AND H=O;
停牌:=(DYNAINFO(4)=0);
 MM:=NOT(停牌); D22:=IF(NAMELIKE('S'),0,1);
 D33:=IF(NAMELIKE('*'),0,1);
去ST:=D22 AND D33 AND MM AND NOT(一字涨停) AND MACD0 AND DYNAINFO(17)>0
 AND C/REF(C,1)>=1.017 AND C>=5.58 AND C<20.60 AND CAPITAL/1000000<4.61
 AND C>0 AND IF(CODELIKE('300'),0,1) AND 去新股;
WH1:=IF(L=LLV(L,9),L,0);
 WH2:=CONST(BARSLAST(WH1!=0));
 WH3:=CONST(IF(WH2=0,H,REF(H,WH2)));
 WH4:=CONST(REF(BARSLAST(H>WH3),WH2+1)+WH2+1);
 WH5:=CONST(IF(WH4=0,H,REF(H,WH4)));
 WH6:=CONST(REF(BARSLAST(H>WH5),WH4+1)+WH4+1);
 WH7:=CURRBARSCOUNT<>WH2+10;
 LC:=REF((O+H+L+2*C)/5,1);
 RSI:=SMA(MAX(C-LC,0),7,1)/SMA(ABS(C-LC),7,1)*10;
 TYP:=(HIGH+LOW+CLOSE)/3;
 CCI:=(TYP-MA(TYP,23))/(0.015*AVEDEV(TYP,23));
买:CROSS(RSI,7.1) AND MA(V,5)>MA(V,10) AND 去ST;