{漲停祕籍}

總額:=AMOUNT;

買1:=IF(O=C AND (C-REF(C,1))/REF(C,1)*100>9.8,AMOUNT,AMOUNT/((H-L)*2-ABS(O-C))*(C-L));

買%:=買1/AMOUNT*100;

流入1:=AMOUNT*買%/10000000000;

流出1:=AMOUNT/100000000-流入1;

淨流:=(流入1-流出1);

總額3:=SUM(AMOUNT,3);

流入3:=SUM(流入1,3);

流出3:=SUM(流出1,3);

淨流3:=SUM(流入1-流出1,3);

總額5:=SUM(AMOUNT,5);

流入5:=SUM(流入1,5);

流出5:=SUM(流出1,5);

淨流5:=SUM(流入1-流出1,5);

總額10:=SUM(AMOUNT,10);

流入10:=SUM(流入1,10);

流出10:=SUM(流出1,10);

淨流10:=SUM(流入1-流出1,10);

畫:=CONST(FINDHIGH(總額10,0,190,1));

DRAWTEXT_FIX(1,0.11,0.12,0,'淨流(億):'),COLOR8080FF,LINETHICK1;

DRAWTEXT_FIX(1,0.18,0.1,0,'1日'),COLOR8080FF,LINETHICK1;

DRAWTEXT_FIX(1,0.23,0.1,0,'3日'),COLOR8080FF,LINETHICK1;

DRAWTEXT_FIX(1,0.28,0.1,0,'5日'),COLOR8080FF,LINETHICK1;

DRAWTEXT_FIX(1,0.33,0.1,0,'10日'),COLOR8080FF,LINETHICK1;

DRAWNUMBER_FIX(1,0.18,0.15,0,CONST((淨流))),COLORYELLOW;

DRAWNUMBER_FIX(1,0.23,0.15,0,CONST((淨流3))),COLORYELLOW;

DRAWNUMBER_FIX(1,0.28,0.15,0,CONST((淨流5))),COLORYELLOW;

DRAWNUMBER_FIX(1,0.33,0.15,0,CONST((淨流10))),COLORYELLOW;

Z1A:=STRCAT(HYBLOCK,' ');

Z2A:=STRCAT(Z1A,FGBLOCK);

Z3A:=STRCAT(Z2A,DYBLOCK);

Z4A:=STRCAT(Z3A,' ');

DRAWTEXT_FIX(ISLASTBAR,0.25,0.98,0,STRCAT(Z4A,GNBLOCK)),COLORCYAN;

HHJSJDA:=(3*CLOSE+OPEN+LOW+HIGH)/6;

HHJSJDB:(20*HHJSJDA+19*REF(HHJSJDA,1)+18*REF(HHJSJDA,2)+17*REF(HHJSJDA,3)+16*REF(HHJSJDA,4)+15*REF(HHJSJDA,5)+14*REF(HHJSJDA,6)

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

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

REF(HHJSJDA,20))/210,COLORYELLOW;

HHJSJDC:MA(HHJSJDB,5),COLORRED;

XJMA4:MA(CLOSE,5),COLORFF00FF;

平空開多:=CROSS(MACD,0);

平多開空:=CROSS(0,MACD);

BUYSHORT_BUY(平空開多,LOW);

SELL_SELLSHORT(平多開空,HIGH);

AUTOFILTER;

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

STICKLINE(C<O AND F<-3 AND F>-5,C+(O-C)/3,C+(O-C)/3,2.5,0),COLORRED;

STICKLINE(C<O AND F<-3 AND F>-5,C+2*(O-C)/3,C+2*(O-C)/3,2.5,0),COLORRED;

STICKLINE(C<O AND F<=-5 AND F>-7,C+(O-C)/2,C+(O-C)/2,2.5,0),COLORYELLOW;

STICKLINE(C<O AND F<=-7 AND F>-10,C+2*(O-C)/3,C+(O-C)/3,2.5,1),COLORYELLOW;

STICKLINE(C<O AND F<=-9.9,O,C,2.5,0),COLOR00FF00;

STICKLINE(C>O AND F>3 AND F<5,O+(C-O)/3,O+(C-O)/3,2.5,0),COLORYELLOW;

STICKLINE(C>O AND F>3 AND F<5,O+2*(C-O)/3,O+2*(C-O)/3,2.5,0),COLORYELLOW;

STICKLINE(C>O AND F>=5 AND F<7,O+(C-O)/2,O+(C-O)/2,2.5,0),COLORYELLOW;

STICKLINE(C>O AND F>=7 ,O+2*(C-O)/3,O+(C-O)/3,2.5,1),COLORYELLOW;

A:=IF(C<REF(O,1) AND C<O,1,0);

P1:=A;

B:=IF(C<REF(O,2) AND C<O,1,0);

P2:=B;

STICKLINE(P1=0 AND REF(P1,1)=1 AND P2=0 AND REF(P2,1)=1,OPEN,CLOSE,3,0),COLORMAGENTA;

STICKLINE(P1=1 AND REF(P1,1)=0 AND P2=1 AND REF(P2,1)=0,OPEN,CLOSE,3,0),COLORAAAAAA;

AA1:=AMOUNT/V;

BB1:=L<AA1*0.9;

CC1:=(C-REF(C,1))/REF(C,1)*100>1.2;

DD1:=L<MA(C,5)*0.921;

EE1:=V<MA(V,5)*1.5;

FF1:=BB1 AND CC1 AND DD1 AND EE1;

DRAWTEXT(FF1,(LOW* 0.97),'老鼠倉'),COLOR4080FF;

{停板紅線}

STICKLINE((C-REF(C,1))/REF(C,1)>=0.098,C,O,3,0),COLORRED;

STICKLINE((C-REF(C,1))/REF(C,1)>=0.098,H,L,0,0),COLORRED;

STICKLINE((C-REF(C,1))/REF(C,1)<=-0.098,C,O,3,0),COLORGREEN;

STICKLINE((C-REF(C,1))/REF(C,1)<=-0.098,H,L,0,0),COLORGREEN;

{連結MACD相鄰紅綠柱區間內高低點畫趨勢線 通達信}

DIFF:=EMA(CLOSE,12)-EMA(CLOSE,26);

DEA:=EMA(DIFF,9);

N1:=BARSLAST(CROSS(DIFF,DEA))+1;{最近一次滿足條件DIFF上穿DEA的K線到當前的距離}

N2:=BARSLAST(CROSS(DEA,DIFF))+1;{最近一次滿足條件DIFF下穿DEA的K線到當前的距離}

{當前是DIFF>DEA的狀態，連結最近兩個DIFF>DEA區間（不包含當前區間）內最高點的趨勢線}

A1:=BACKSET(ISLASTBAR && N1<N2,REF(REF(HHVBARS(H,N1)+1,N2),N2)+REF(N2,N2)+N2);

B1:=BACKSET(ISLASTBAR && N1<N2,REF(HHVBARS(H,N1),N2)+N2+1);

DRAWLINE(CROSS(A1,0.5),H,CROSS(B1,0.5),H,1),COLORRED;

{當前是DIFF>DEA的狀態，連結最近兩個DIFF<DEA區間內最低點的趨勢線}

A2:=BACKSET(ISLASTBAR && N1<N2,REF(REF(LLVBARS(L,N2)+1,N1),N2)+REF(N1,N2)+N2);

B2:=BACKSET(ISLASTBAR && N1<N2,REF(LLVBARS(L,N2)+1,N1)+N1);

DRAWLINE(CROSS(A2,0.5),L,CROSS(B2,0.5),L,1),COLORGREEN;

{當前是DIFF<DEA的狀態，連結最近兩個DIFF<DEA區間（不包含當前區間）內最低點的趨勢線}

A3:=BACKSET(ISLASTBAR && N1>N2,REF(REF(LLVBARS(L,N2)+1,N1),N1)+REF(N1,N1)+N1);

B3:=BACKSET(ISLASTBAR && N1>N2,REF(LLVBARS(L,N2),N1)+N1+1);

DRAWLINE(CROSS(A3,0.5),L,CROSS(B3,0.5),L,1),COLORGREEN;

{當前是DIFF<DEA的狀態，連結最近兩個DIFF>DEA區間內最高點的趨勢線}

A4:=BACKSET(ISLASTBAR && N1>N2,REF(REF(HHVBARS(H,N1)+1,N2),N1)+REF(N2,N1)+N1);

B4:=BACKSET(ISLASTBAR && N1>N2,REF(HHVBARS(H,N1)+1,N2)+N2);

DRAWLINE(CROSS(A4,0.5),H,CROSS(B4,0.5),H,1),COLORRED;

乖離率:(CLOSE-MA(CLOSE,12))/MA(CLOSE,12)*100,NODRAW;