{漲停祕籍}
總額:=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;