公式源码：

 

 

 

DRAWGBK(C>0,RGB(0,150,150),RGB(0,00,100),0,' ',0),LINETHICK2;

 

DRAWBAND(MA(COST(90),10),RGB(0,40,0),L,RGB(50,0,0));

 

DRAWKLINE(H,O,L,C);

 

{均线}

 

牛熊线:MA(COST(90),10),LINETHICK2;

 

 

 

DRAWTEXT_FIX(ISLASTBAR,0,0.02,0,STRCAT('地域:     ',DYBLOCK)),COLORYELLOW;

 

DRAWTEXT_FIX(ISLASTBAR,0.3,0.02,0,STRCAT('行    业:     ',HYBLOCK)),COLORYELLOW;

 

DRAWTEXT_FIX(ISLASTBAR,0,0.12,0,STRCAT('概    念:     ',GNBLOCK)),COLORRED; 

 

称帝:(COST(99)+COST(93)+COST(85))/3,COLORYELLOW,LINETHICK2;

 

IF(称帝>=REF(称帝,1),称帝,DRAWNULL),COLORYELLOW,LINETHICK2; 

 

IF(称帝< REF(称帝,1),称帝,DRAWNULL),COLORBLUE,LINETHICK2; 

 

 

 

X:=(3*C+L+O+H)/6;

 

多空线:(20*X+19*REF(X,1)+18*REF(X,2)+17*REF(X,3)+16*REF(X,4)+15*REF(X,5)+14*REF(X,6)

 

+13*REF(X,7)+12*REF(X,8)+11*REF(X,9)+10*REF(X,10)+9*REF(X,11)+8*REF(X,12)

 

+7*REF(X,13)+6*REF(X,14)+5*REF(X,15)+4*REF(X,16)+3*REF(X,17)+2*REF(X,18)+

 

REF(X,20))/210,COLORGREEN,LINETHICK2;

 

IF(多空线>=REF(多空线,1),多空线,DRAWNULL),COLORRED,LINETHICK2; 

 

IF(多空线< REF(多空线,1),多空线,DRAWNULL),COLORGREEN,LINETHICK2;

 

DRAWICON(CROSS( C ,多空线), C ,25),LINETHICK2;

 

DRAWTEXT(CROSS(C,多空线),LOW,'★低吸 '),COLORFFFFFF; 

 

V0:=多空线,COLOR00FF66;

 

V1:称帝,COLOR00FF66;

 

LC1:=REF(CLOSE,1);

 

RSI:=SMA(MAX(CLOSE-LC1,0),6,1)/SMA(ABS(CLOSE-LC1),6,1)*100; 

 

DRAWTEXT(CROSS(RSI,11),LOW,'★低吸 '),COLORFFFFFF;

 

{涨停}

 

STICKLINE(C>REF(C,1)*1.098,O,C,3,0),COLORRED;

 

{准备买入}

 

LC:=REF(CLOSE,1);

 

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

 

TR1:=SUM(MAX(MAX((HIGH - LOW),ABS((HIGH - REF(CLOSE,1)))),ABS((LOW - REF(CLOSE,1)))),10);

 

HD:=(HIGH - REF(HIGH,1));

 

LD:=(REF(LOW,1) - LOW);

 

DMP:=SUM(IF(((HD > 0) AND (HD > LD)),HD,0),10);

 

DMM:=SUM(IF(((LD > 0) AND (LD > HD)),LD,0),10);

 

PDI:=((DMP * 100) / TR1);

 

MDI:=((DMM * 100) / TR1);

 

ADX:=MA(((ABS((MDI - PDI)) / (MDI + PDI)) * 100),5);

 

AV:=(RSI5 + ADX);

 

WR10:=((100 * (HHV(HIGH,10) - CLOSE)) / (HHV(HIGH,10) - LLV(LOW,10)));

 

NEWVOL:=(RSI5 - WR10);

 

赚钱:=(AV + NEWVOL);

 

STICKLINE(赚钱<5,H,L,0,0),COLOR008000;{买点预警}

 

STICKLINE(赚钱<5,O,C,3,0),COLOR008000;

 

STICKLINE(CROSS("MACD脉冲.脉冲",0.4),H,L,0,0),COLORBLUE;

 

STICKLINE(CROSS("MACD脉冲.脉冲",0.4),O,C,3,0),COLORBLUE;

 

 

 

趋界:=100*(LOW/MA(C,10))-100 ;

 

L抄底:=(LOW-DMA((3*HIGH+LOW+OPEN+2*LOW)/7,VOL/(SUM(AMOUNT,10)/(AMOUNT/VOL/7)/7)))/DMA((3*HIGH+LOW+OPEN+2*LOW)/7,VOL/(SUM(AMOUNT,10)/(AMOUNT/VOL/7)/7))*100;

 

H抄底:=(H-DMA(((3*HIGH+LOW+OPEN+2*H)/7),VOL/(SUM(AMOUNT,10)/(AMOUNT/VOL/7)/7)))/DMA(((3*HIGH+LOW+OPEN+2*H)/7),VOL/(SUM(AMOUNT,10)/(AMOUNT/VOL/7)/7))*100;

 

C抄底:=(CLOSE-DMA(((3*HIGH+LOW+OPEN+2*CLOSE)/7),VOL/(SUM(AMOUNT,10)/(AMOUNT/VOL/7)/7)))/DMA(((3*HIGH+LOW+OPEN+2*CLOSE)/7),VOL/(SUM(AMOUNT,10)/(AMOUNT/VOL/7)/7))*100;

 

抄底:=(L抄底+H抄底+C抄底)/3;

 

L短线:=IF(((MA(((SMA(MAX(L-REF(L,1),0),5,1)/SMA(ABS(L-REF(L,1)),5,1)*100)-LLV((SMA(MAX(L-REF(L,1),0),5,1)/SMA(ABS(L-REF(L,1)),5,1)*100),10)),2)*3+((SMA(MAX(L-REF(L,1),0),5,1)/SMA(ABS(L-REF(L,1)),5,1)*100)-LLV((SMA(MAX(L-REF(L,1),0),5,1)/SMA(ABS(L-REF(L,1)),5,1)*100),10))*13)/16)>13,MA(((MA(((SMA(MAX(L-REF(L,1),0),5,1)/SMA(ABS(L-REF(L,1)),5,1)*100)-LLV((SMA(MAX(L-REF(L,1),0),5,1)/SMA(ABS(L-REF(L,1)),5,1)*100),10)),2)*3+((SMA(MAX(L-REF(L,1),0),5,1)/SMA(ABS(L-REF(L,1)),5,1)*100)-LLV((SMA(MAX(L-REF(L,1),0),5,1)/SMA(ABS(L-REF(L,1)),5,1)*100),10))*13)/16),2),((MA(((SMA(MAX(L-REF(L,1),0),5,1)/SMA(ABS(L-REF(L,1)),5,1)*100)-LLV((SMA(MAX(L-REF(L,1),0),5,1)/SMA(ABS(L-REF(L,1)),5,1)*100),10)),2)*3+((SMA(MAX(L-REF(L,1),0),5,1)/SMA(ABS(L-REF(L,1)),5,1)*100)-LLV((SMA(MAX(L-REF(L,1),0),5,1)/SMA(ABS(L-REF(L,1)),5,1)*100),10))*13)/16));

 

H短线:=IF(((MA(((SMA(MAX(H-REF(H,1),0),5,1)/SMA(ABS(H-REF(H,1)),5,1)*100)-LLV((SMA(MAX(H-REF(H,1),0),5,1)/SMA(ABS(H-REF(H,1)),5,1)*100),10)),2)*3+((SMA(MAX(H-REF(H,1),0),5,1)/SMA(ABS(H-REF(H,1)),5,1)*100)-LLV((SMA(MAX(H-REF(H,1),0),5,1)/SMA(ABS(H-REF(H,1)),5,1)*100),10))*13)/16)>13,MA(((MA(((SMA(MAX(H-REF(H,1),0),5,1)/SMA(ABS(H-REF(H,1)),5,1)*100)-LLV((SMA(MAX(H-REF(H,1),0),5,1)/SMA(ABS(H-REF(H,1)),5,1)*100),10)),2)*3+((SMA(MAX(H-REF(H,1),0),5,1)/SMA(ABS(H-REF(H,1)),5,1)*100)-LLV((SMA(MAX(H-REF(H,1),0),5,1)/SMA(ABS(H-REF(H,1)),5,1)*100),10))*13)/16),2),((MA(((SMA(MAX(H-REF(H,1),0),5,1)/SMA(ABS(H-REF(H,1)),5,1)*100)-LLV((SMA(MAX(H-REF(H,1),0),5,1)/SMA(ABS(H-REF(H,1)),5,1)*100),10)),2)*3+((SMA(MAX(H-REF(H,1),0),5,1)/SMA(ABS(H-REF(H,1)),5,1)*100)-LLV((SMA(MAX(H-REF(H,1),0),5,1)/SMA(ABS(H-REF(H,1)),5,1)*100),10))*13)/16));

 

C短线:=IF(((MA(((SMA(MAX(C-REF(C,1),0),5,1)/SMA(ABS(C-REF(C,1)),5,1)*100)-LLV((SMA(MAX(C-REF(C,1),0),5,1)/SMA(ABS(C-REF(C,1)),5,1)*100),10)),2)*3+((SMA(MAX(C-REF(C,1),0),5,1)/SMA(ABS(C-REF(C,1)),5,1)*100)-LLV((SMA(MAX(C-REF(C,1),0),5,1)/SMA(ABS(C-REF(C,1)),5,1)*100),10))*13)/16)>13,MA(((MA(((SMA(MAX(C-REF(C,1),0),5,1)/SMA(ABS(C-REF(C,1)),5,1)*100)-LLV((SMA(MAX(C-REF(C,1),0),5,1)/SMA(ABS(C-REF(C,1)),5,1)*100),10)),2)*3+((SMA(MAX(C-REF(C,1),0),5,1)/SMA(ABS(C-REF(C,1)),5,1)*100)-LLV((SMA(MAX(C-REF(C,1),0),5,1)/SMA(ABS(C-REF(C,1)),5,1)*100),10))*13)/16),2),((MA(((SMA(MAX(C-REF(C,1),0),5,1)/SMA(ABS(C-REF(C,1)),5,1)*100)-LLV((SMA(MAX(C-REF(C,1),0),5,1)/SMA(ABS(C-REF(C,1)),5,1)*100),10)),2)*3+((SMA(MAX(C-REF(C,1),0),5,1)/SMA(ABS(C-REF(C,1)),5,1)*100)-LLV((SMA(MAX(C-REF(C,1),0),5,1)/SMA(ABS(C-REF(C,1)),5,1)*100),10))*13)/16));

 

短线:=(L短线+H短线+C短线)/3 ;

 

短买:=(L-REF(C,10))-MA((L-REF(C,10)),5) ;

 

J:= 3*SMA(((C-LLV(LOW,9))/(HHV(HIGH,9)-LLV(LOW,9))*100),3,1)-2*SMA(SMA(((C-LLV(LOW,9))/(HHV(HIGH,9)-LLV(LOW,9))*100),3,1),3,1) ;

 

LJ:=3*SMA(((L-LLV(LOW,9))/(HHV(HIGH,9)-LLV(LOW,9))*100),3,1)-2*SMA(SMA(((L-LLV(LOW,9))/(HHV(HIGH,9)-LLV(LOW,9))*100),3,1),3,1) ;

 

CD:=短买<0 AND 抄底<=-2 AND  LJ<2  AND ((L短线=0 AND L抄底<=-2 ) AND (H短线<0.5 AND H抄底<=-1))  AND (100*(L-LLV(L,3))/(HHV(L,3)-LLV(L,3))=0 AND 100*(L-LLV(L,5))/(HHV(L,5)-LLV(L,5))=0  );

 

DD:=短线<4.2  AND (L短线<1 OR H短线<1 OR C短线<1) AND L短线<2 AND 抄底<-0.9  AND L抄底<-1.99  AND H抄底<7.2  AND 趋界<-1.5  AND  J<45;

 

可以抄底:=DD AND CD;

 

STICKLINE(可以抄底,H,L,0,0),COLORYELLOW;

 

STICKLINE(可以抄底,O,C,2,0),COLORYELLOW;

 

VAR1T:=4*SMA((CLOSE-LLV(LOW,5))/(HHV(HIGH,5)-LLV(LOW,5))*100,5,1)-3*SMA(SMA((CLOSE-LLV(LOW,5))/(HHV(HIGH,5)-LLV(LOW,5))*100,5,1),3.2,1);

 

VAR1F:=SMA(CROSS(赚钱,0),3,1);

 

VAR2F:=SMA(VAR1F,3,1);

 

VAR3F:=SMA(VAR2F,3,1);

 

DRAWICON(CROSS(赚钱,0) OR CROSS(VAR1T,8),L,1);

 

DRAWICON(CROSS(VAR2F,VAR3F) AND (VAR2F<40),L,41);

 

{角买}

 

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

 

DXD:=100*EMA(EMA(MTM,6),6)/EMA(EMA(ABS(MTM),6),6);

 

买:=LLV(DXD,2)=LLV(DXD,7) AND COUNT(DXD<0,2) AND CROSS(DXD,MA(DXD,2));

 

STICKLINE(FILTER(买=1,5),H,L,0,0),COLORMAGENTA;

 

STICKLINE(FILTER(买=1,5),C,O,3,0),COLORMAGENTA;

 

{白柱子买点}

 

HLCO:=(C+H+L+O)/4;

 

MAHC:=MA((CLOSE*2+H)/3,5),COLOR0000FF;

 

MAHO:=MA((O*2+H)/3,5),COLOR00FF00;

 

MALO:=MA((O+L*2)/3,5),COLOR00FFFF;

 

CO1:=O+(C-O)/2;

 

STICKLINE(MAHC<MAHO AND (CROSS(C,MALO) OR CROSS(HLCO,MALO)),CO1,MIN(C,O),1.5,0),COLORWHITE;

 

{暴涨}

 

ZF:=(C/REF(C,1)-1)*100;

 

AAAB:=SUM(ZF,3); 

 

DRAWICON(COUNT(AAAB<-6,3)=2 AND CROSS(AAAB,-6),L-0.1,11);