指标源码:

DRAWGBK(CLOSE>0,COLORRGB(1,340,226),COLORRGB(511,685,395),1);
VAR1N:=1131231;
U1:=IF(DATE<=VAR1N,1,0);
STICKLINE(EMA((2*CLOSE+HIGH+LOW)/4,5)>EMA((2*CLOSE+HIGH+LOW)/4,10),EMA((2*CLOSE+HIGH+LOW)/4,10),EMA((2*CLOSE+HIGH+LOW)/4,23),0,1),colorFF00FF;
STICKLINE(EMA((2*CLOSE+HIGH+LOW)/4,5)<EMA((2*CLOSE+HIGH+LOW)/4,10),EMA((2*CLOSE+HIGH+LOW)/4,10),EMA((2*CLOSE+HIGH+LOW)/4,23),0,1),colorFFFF00;
DRAWTEXT(SYSPARAM(1)=BARPOS,CLOSE,''),ALIGN3,colorFFFF00;
STICKLINE(CLOSE>MA(CLOSE,10),CLOSE,OPEN,9,0),colorAA;
STICKLINE(CLOSE>MA(CLOSE,10),CLOSE,OPEN,8,0),color11BB;
STICKLINE(CLOSE>MA(CLOSE,10),CLOSE,OPEN,7,0),color22CC;
STICKLINE(CLOSE>MA(CLOSE,10),CLOSE,OPEN,6,0),color33DD;
STICKLINE(CLOSE>MA(CLOSE,10),CLOSE,OPEN,5,0),color44EE;
STICKLINE(CLOSE>MA(CLOSE,10),CLOSE,OPEN,4,0),color55FF;
STICKLINE(CLOSE>MA(CLOSE,10),CLOSE,OPEN,3,0),color66FF;
STICKLINE(CLOSE>MA(CLOSE,10),CLOSE,OPEN,2,0),color77FF;
STICKLINE(CLOSE>MA(CLOSE,10),CLOSE,OPEN,1,0),color88FF;
STICKLINE(CLOSE>MA(CLOSE,10),LOW,OPEN,0,1),colorFF;
STICKLINE(CLOSE>MA(CLOSE,10),HIGH,CLOSE,0,1),colorFF;
STICKLINE(CLOSE<=MA(CLOSE,10),CLOSE,OPEN,9,0),colorAA00;
STICKLINE(CLOSE<=MA(CLOSE,10),CLOSE,OPEN,8,0),colorBB11;
STICKLINE(CLOSE<=MA(CLOSE,10),CLOSE,OPEN,7,0),colorCC22;
STICKLINE(CLOSE<=MA(CLOSE,10),CLOSE,OPEN,6,0),colorDD33;
STICKLINE(CLOSE<=MA(CLOSE,10),CLOSE,OPEN,5,0),colorEE44;
STICKLINE(CLOSE<=MA(CLOSE,10),CLOSE,OPEN,4,0),colorFF55;
STICKLINE(CLOSE<=MA(CLOSE,10),CLOSE,OPEN,3,0),colorFF66;
STICKLINE(CLOSE<=MA(CLOSE,10),CLOSE,OPEN,2,0),colorFF77;
STICKLINE(CLOSE<=MA(CLOSE,10),CLOSE,OPEN,1,0),colorFF88;
STICKLINE(CLOSE<=MA(CLOSE,10),HIGH,LOW,0,0),colorFF00;
ATR:=MA(TR,13);
VAR1:=REF(CLOSE,1)-REF(ATR,1);
临界线:HHV(VAR1,7)*U1,LINETHICK2,Color000040;
PARTLINE((EMA((2*CLOSE+HIGH+LOW)/4,5)>REF(EMA((2*CLOSE+HIGH+LOW)/4,5),1))*U1,EMA((2*CLOSE+HIGH+LOW)/4,5)),colorFF;
PARTLINE((EMA((2*CLOSE+HIGH+LOW)/4,5)<REF(EMA((2*CLOSE+HIGH+LOW)/4,5),1))*U1,EMA((2*CLOSE+HIGH+LOW)/4,5)),colorFF00;
PARTLINE((EMA((2*CLOSE+HIGH+LOW)/4,10)>REF(EMA((2*CLOSE+HIGH+LOW)/4,10),1))*U1,EMA((2*CLOSE+HIGH+LOW)/4,10)),LINETHICK3,color4080FF;
PARTLINE((EMA((2*CLOSE+HIGH+LOW)/4,10)<REF(EMA((2*CLOSE+HIGH+LOW)/4,10),1))*U1,EMA((2*CLOSE+HIGH+LOW)/4,10)),LINETHICK2,colorFF00;
PARTLINE(EMA((LOW+CLOSE+OPEN)/3,23)>REF(EMA((LOW+CLOSE+OPEN)/3,23),1),REF(EMA((LOW+CLOSE+OPEN)/3,23),1)),LINETHICK3,colorFF;
PARTLINE(EMA((LOW+CLOSE+OPEN)/3,23)<REF(EMA((LOW+CLOSE+OPEN)/3,23),1),REF(EMA((LOW+CLOSE+OPEN)/3,23),1)),LINETHICK3,colorFF00;

PARTLINE(EMA((LOW+CLOSE+OPEN)/3,23)>REF(EMA((LOW+CLOSE+OPEN)/3,23),1),REF(EMA((LOW+CLOSE+OPEN)/3,23),1)),LINETHICK3,colorFF;
VAR1:=REF(CLOSE,1);
VAR2:=MA(CLOSE,5);
VAR3:=(SMA(MAX(CLOSE-VAR1,0),6,1))/(SMA(ABS(CLOSE-VAR1),6,1))*100;
VAR4:=(SMA(MAX(CLOSE-VAR1,0),12,1))/(SMA(ABS(CLOSE-VAR1),12,1))*100;
VAR5:=(SMA(MAX(CLOSE-VAR1,0),24,1))/(SMA(ABS(CLOSE-VAR1),24,1))*100;
VAR6:=IF(CROSS(VAR3,VAR5),LOW,REF(LOW,BARSLAST(CROSS(VAR3,VAR5))));
VAR7:=IF(CROSS(VAR5,VAR3),HIGH,REF(HIGH,BARSLAST(CROSS(VAR5,VAR3))));
VAR8:=IF(CLOSE>=MA(CLOSE,20),80,50);
VAR9:=IF(CLOSE>=MA(CLOSE,20),50,20);
VARA:=IF(VAR3<VAR8 AND REF(VAR3,1)>=VAR8,HHV(REF(HIGH,1),(BARSLAST(VAR3>=VAR8 AND REF(VAR3,1)<VAR8))-1),REF(HHV(REF(HIGH,1),(BARSLAST(VAR3>=VAR8 AND REF(VAR3,1)<VAR8))-1),BARSLAST(VAR3<VAR8 AND REF(VAR3,1))));
VARB:=IF(HIGH>VARA,LOW,REF(LOW,BARSLAST(HIGH>VARA)));
VARC:=IF(HIGH>VARA,VAR3,REF(VAR3,BARSLAST(HIGH>VARA)));
VARD:=IF(HIGH>VARB AND VAR3<VARC AND VAR3<VAR5,HIGH,REF(HIGH,BARSLAST(HIGH>VARB AND VAR3<VARC AND VAR3<VAR5)));
VARE:=IF(VAR3>VAR9 AND REF(VAR3,1)<=VAR9,LLV(REF(LOW,1),(BARSLAST(VAR3<=VAR9 AND REF(VAR3,1)>VAR9))-1),REF(LLV(REF(LOW,1),(BARSLAST(VAR3<=VAR9 AND REF(VAR3,1)>VAR9))-1),BARSLAST(VAR3>VAR9 AND REF(VAR3,1))));
VARF:=IF(LOW<VARE,HIGH,REF(HIGH,BARSLAST(LOW<VARE)));
VAR10:=IF(LOW<VARE,VAR3,REF(VAR3,BARSLAST(LOW<VARE)));
VAR11:=IF(LOW<VARF AND VAR3>VAR10 AND VAR3>VAR5,LOW,REF(LOW,BARSLAST(LOW<VARF AND VAR3>VAR10 AND VAR3>VAR5)));
压力线:VAR11*U1,LINETHICK2,colorFF00FF;
临界点:VARD*U1,LINETHICK3,colorFF0000;
MA6:=MA(CLOSE,5);
MA18:=MA(CLOSE,21);
MA55:=MA(CLOSE,34);
MA125:=MA(CLOSE,125);
MA250:=MA(CLOSE,250);
DIFF:=EMA(CLOSE,12)-EMA(CLOSE,26);
DEA:=EMA(DIFF,9);
MACD:=2*(DIFF-DEA);
加码价:=((CLOSE-REF(MA18,1))/18+MA18)*1.004;
加码条件:=CROSS(CLOSE,加码价) AND 加码价>REF(加码价,1);
黄K出现股价站上临界点加码:IF(加码条件,LOW,HIGH)*U1,POINTDOT,colorFFFF;
STICKLINE(加码条件 AND MACD<0.1,HIGH,LOW,0,1),LINETHICK2,colorFFFF;
STICKLINE(加码条件 AND MACD<0.1,OPEN,CLOSE,4,1),LINETHICK2,colorFFFF;

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

选股源码：
{临界点加码}
MA18:=MA(CLOSE,21);
加码价:=((CLOSE-REF(MA18,1))/18+MA18)*1.004;
加码条件:=CROSS(CLOSE,加码价) AND 加码价>REF(加码价,1);
临界加码:=IF(加码条件,8,0);
临界加码>0;