VAR1:=EMA(EMA(CLOSE,5),5); 控盤:(VAR1-REF(VAR1,1))/REF(VAR1,1)*1000,NODRAW; STICKLINE(控盤<0,控盤,0,1,0),COLORYELLOW; A10:=CROSS(控盤,0); 散戶:IF(控盤<0,控盤,0),COLORYELLOW,NODRAW; DIF:=EMA(CLOSE,12)-EMA(CLOSE,26); DEA:=EMA(DIF,9); MACD:=(DIF-DEA)*2,COLORSTICK; 力度:=MACD/REF(MACD,1); 大盤熱點(diǎn)正:= MACD>0 AND MACD/REF(MACD,1)>1.15 AND C/REF(C,1)>1.005; 大盤熱點(diǎn)負(fù):= MACD<0 AND REF(MACD,1)/MACD>1.15 AND C/REF(C,1)>1.005; 負(fù)到正0:=MACD>0 AND REF(MACD<0,1) AND C/REF(C,1)>1.003 ; 大盤熱點(diǎn):=IF(大盤熱點(diǎn)正 OR 大盤熱點(diǎn)負(fù) OR 負(fù)到正0 ,1,0); 開始控盤:=A10 AND 大盤熱點(diǎn),NODRAW; STICKLINE(開始控盤,0,6,0,0),COLORFF00FF,COLORRED; DRAWICON(開始控盤,6,18)NODRAW;{畫3個(gè)小圈} DRAWICON(開始控盤,7,15),COLORMAGENTA;{畫小人圖} STICKLINE(控盤>REF(控盤,1) AND 控盤>0,控盤,0,1,0),COLORRED; 有莊:IF(控盤>REF(控盤,1) AND 控盤>0,控盤,0),COLORRED,NODRAW; VAR2:=100*WINNER(CLOSE*0.95); STICKLINE(VAR2>50 AND COST(85)<CLOSE AND 控盤>0,控盤,0,1,0),COLORFF00FF; 控盤高:IF(VAR2>50 AND COST(85)<CLOSE AND 控盤>0,控盤,0),COLORFF00FF,NODRAW; STICKLINE(控盤<REF(控盤,1) AND 控盤>0,控盤,0,1,0),COLOR00FF00; 出貨:IF(控盤<REF(控盤,1) AND 控盤>0,控盤,0),COLOR00FF00,NODRAW; 控盤監(jiān)測:MA(控盤,3),COLORWHITE; {凈流資金引用} 拉伸波:(C-L)/L*100,NODRAW; 調(diào)頭波:(C-H)/H*100,NODRAW; 總量:=VOL,NODRAW; ZZ:=IF(REF(C,1)>REF(O,1) AND O>REF(C,1)*1.014 AND C<O*1.02,1,3); V5:=MA(V,5); V12:=MA(V,12); V34:=MA(V,34); C6:=MA(C,6); 吸貨量:=CROSS(C,C6) AND V>V5*1.2 AND V>V12*1.2 AND ZZ>2 AND C>H*0.975,NODRAW; 出貨量:=CROSS(C6,C) AND V>V5*1.2 AND V>V12*1.2,NODRAW; 天量:=VOL>MA(VOL,5)*2 AND V>V34*3 AND C<REF(C,1)*1.05,NODRAW; 地量:=VOL<MA(VOL,5)/2 AND V<V12/2 AND H>L,NODRAW; DRAWTEXT(吸貨量,-2,'吸'),COLORRED; DRAWTEXT(出貨量,控盤*1.01,'出'),COLORGREEN; DRAWTEXT(天量,控盤*0.995,'天'),COLORYELLOW; DRAWTEXT(地量,2,'地'),COLORWHITE; {換手} 換手:=VOL*10000/FINANCE(7),NODRAW,COLORGREEN; {個(gè)股強(qiáng)弱} MA3:=MA(C,3); MA5:=MA(C,5); MA13:=MA(C,13); MA21:=MA(C,21); MA34:=MA(C,34); MA55:=MA(C,55); MA89:=MA(C,89); MA144:=MA(C,144); MA233:=MA(C,233); TMP1:=IF(C>MA5,1,0); TMP2:=IF(C>MA13,1,0); TMP3:=IF(C>MA21,1,0); TMP4:=IF(C>MA34,1,0); TMP5:=IF(C>MA55,1,0); TMP6:=IF(C>MA89,1,0); TMP7:=IF(C>MA144,1,0); TMP8:=IF(C>MA233,1,0); 個(gè)股強(qiáng)弱:=TMP1+TMP2+TMP3+TMP4+TMP5+TMP6+TMP7+TMP8+1,LINETHICK0; 前1天:=REF(個(gè)股強(qiáng)弱,1); 前2天:=REF(個(gè)股強(qiáng)弱,2); 前3天:=REF(個(gè)股強(qiáng)弱,3); {超漲超跌} 底線價(jià):=MA((H+L+O+C)/4,5)*0.93,DOTLINE,COLORLIGREEN; 頂線價(jià):=MA((H+L+O+C)/4,5)*1.07,DOTLINE,COLORLIGREEN; 市場獲利:=WINNER(C)*100,NODRAW; GOODGUPIAO:SMA(MAX(CLOSE-C,0),7,1)/SMA(ABS(CLOSE-C),7,1)*100,NODRAW; {拋物線} 拋物線:=SAR(5,34,110),NODRAW; {短波} 空:=IF(拋物線>C,拋物線,DRAWNULL),COLORWHITE,DOTLINE; 多:=IF(拋物線<C,拋物線,DRAWNULL),COLORMAGENTA,DOTLINE; 正離:=(H/多-1)*100,NODRAW; 負(fù)離:=(空/L-1)*100,NODRAW; 正離底:=(L/多-1)*100,NODRAW; 拋物線2:=SAR(5,3,15),NODRAW; {長波} 空2:=IF(拋物線2>C,拋物線2,DRAWNULL),COLORWHITE; 多2:=IF(拋物線2<C,拋物線2,DRAWNULL),COLORLIMAGENTA; 長波正離:=(H/多2-1)*100,NODRAW; 長波負(fù)離:=(空2/L-1)*100,NODRAW; 長波正離底:=(L/多2-1)*100,NODRAW; 頂5:=L<REF(L,1) AND REF(L,1)>REF(L,2) AND H<REF(H,1) AND REF(H,1)>REF(H,2) AND REF(H,1)>H AND C<MA5 AND REF(C>多,1) AND REF(HHV(H,7),2)<REF(H,1) AND C<REF(C,1) ; 頂3:=L<REF(L,1) AND REF(L,1)>REF(L,2) AND H<REF(H,1) AND REF(H,1)>REF(H,2) AND REF(H,1)>H AND C<MA3 AND REF(C>多,1) AND REF(HHV(H,7),2)<REF(H,1) AND C<REF(C,1) ; 頂:=L<REF(L,1) AND REF(L,1)>REF(L,2) AND H<=REF(H,1) AND REF(H,1)>REF(H,2) AND REF(H,1)>H AND REF(C>多,1) AND REF(HHV(H,7),2)<=REF(H,1) AND C<REF(C,1); 大頂:=IF(頂5=1 AND 頂3=1 AND 頂=1,頂5,DRAWNULL); DRAWTEXT(大頂,控盤+1,'大頂'), COLORGREEN; 次頂:=IF(頂5=0 AND 頂3=1 AND 頂=1,頂3,DRAWNULL); DRAWTEXT(次頂,控盤+1,'頂3'), COLORGREEN; 小頂:=IF(頂5=0 AND 頂3=0 AND 頂=1,頂,DRAWNULL); DRAWTEXT(小頂,控盤+1,'頂'), COLORGREEN; 特殊頂:=L<REF(L,1) AND REF(L,1)>REF(L,2) AND REF(L,2)>REF(L,3) AND H<REF(H,2) AND REF(H,1)<REF(H,2) AND REF(HHV(H,7),3)<REF(H,2) AND C<REF(C,1); DRAWTEXT(特殊頂,控盤+1,'特殊頂'),COLORRED; {頂分型右包含關(guān)系}; 特殊頂2:=L<REF(L,2) AND REF(L,2)>REF(L,3) AND REF(L,1)<REF(L,2) AND REF(H,1)>H AND REF(H,1)>REF(H,2) AND REF(H,2)>REF(H,3) AND REF(HHV(H,7),2)<REF(H,1) AND C<REF(C,1); DRAWTEXT(特殊頂2,控盤+1,'特殊頂2'),COLORRED; {頂分型左包含關(guān)系}; 特殊頂3:=L<REF(L,1) AND REF(L,1)>REF(L,2) AND REF(L,2)>REF(L,3) AND REF(L,3)>REF(L,4) AND L<REF(L,2) AND H<REF(H,3) AND REF(H,1)<REF(H,3) AND REF(H,2)<REF(H,3) AND REF(H,3)>REF(H,4) AND REF(HHV(H,7),4)<REF(H,3) AND C<REF(C,1); DRAWTEXT(特殊頂3,控盤+1,'特殊頂3'),COLORRED; {頂分型包含4根關(guān)系}; {底} 底5:=L>REF(L,1) AND REF(L,1)<REF(L,2) AND H>REF(H,1) AND REF(H,1)<REF(H,2) AND REF(H,1)<H AND C>MA5 AND REF(C<空,1) AND REF(LLV(L,7),2)>REF(L,1) AND C>REF(C,1) AND C>REF(O,1); 底3:=L>REF(L,1) AND REF(L,1)<REF(L,2) AND H>REF(H,1) AND REF(H,1)<REF(H,2) AND REF(H,1)<H AND C>MA3 AND REF(C<空,1) AND REF(LLV(L,7),2)>REF(L,1) AND C>REF(C,1) AND C>REF(O,1); 底:=L>REF(L,1) AND REF(L,1)<REF(L,2) AND H>REF(H,1) AND REF(H,1)<REF(H,2) AND REF(H,1)<H AND REF(C<空,1) AND REF(LLV(L,7),2)>REF(L,1) AND C>REF(C,1) AND C>REF(O,1); 大底:=IF(底5=1 AND 底3=1 AND 底=1,底5,DRAWNULL); DRAWTEXT(大底,控盤-1,'大底'), COLORMAGENTA; 次底:=IF(底5=0 AND 底3=1 AND 底=1,底3,DRAWNULL); DRAWTEXT(次底,控盤-1,'底3'), COLORMAGENTA; 小底:=IF(底5=0 AND 底3=0 AND 底=1,底,DRAWNULL); DRAWTEXT(小底,控盤-1,'底'), COLORMAGENTA; 特殊底:=L>REF(L,1) AND REF(L,1)>REF(L,2) AND REF(L,2)<REF(L,3) AND H>REF(H,1) AND REF(H,1)<REF(H,2) AND REF(LLV(L,7),3)>REF(L,2); DRAWTEXT(特殊底,控盤-1,'特殊底'),COLORYELLOW; {底分型包含關(guān)系}; 行業(yè)換手:CALCSTOCKINDEX(HYZSCODE,'換手引用',1),NODRAW; 
|