{飛龍量能} AT:=IF(CAPITAL=0,AMOUNT/100000000,VOL/CAPITAL*100); ATM1:=EMA(AT,5); ATM2:=MA(AT,13); 階段地量:=AT<REF(LLV(AT,25),1) && ATM1<ATM2; 階段地量標識1:STICKLINE(階段地量,0,HHV(V,15),2.21,1),COLORGREEN; 階段地量標識2:STICKLINE(階段地量,0,HHV(V,15),2.21,1),COLORGREEN; VVOL:=IF(CURRBARSCOUNT=1 AND PERIOD=5,VOL*240/FROMOPEN,DRAWNULL)COLORLIBLUE,NODRAW; STICKLINE(CURRBARSCOUNT=1 AND PERIOD=5,VVOL,0,-1,-1),COLORLIBLUE; 量:VOL,VOLSTICK,COLORLIBLUE;{成交量}; A:=(啟動 CROSS 洗盤); VAR2:=REF(LOW,1); VAR3:=SMA(ABS(LOW-VAR2),3,1)/SMA(MAX(LOW-VAR2,0),3,1)*100; VAR4:=EMA(IF(CLOSE*1.2,VAR3*10,VAR3/10),3); VAR5:=LLV(LOW,38); VAR6:=HHV(VAR4,38); VAR7:=IF(LLV(LOW,90),1,0); VAR8:=EMA(IF(LOW<=VAR5,(VAR4+VAR6*2)/2,0),3)/618*VAR7; DD:=VAR8>5; 買入:=IF((COUNT(DD,2)=2),-20,0); VAR1S:=REF((LOW+OPEN+CLOSE+HIGH)/4,1); VAR2S:=SMA(ABS(LOW-VAR1S),13,1)/SMA(MAX(LOW-VAR1S,0),10,1); VAR3S:=EMA(VAR2S,10); VAR4S:=LLV(LOW,33); VAR5S:=EMA(IF(LOW<=VAR4S,VAR3S,0),3); 主力進場:=IF(VAR5S>REF(VAR5S,1),VAR5S,0)*1.1,LINETHICK1,COLORRED; STICKLINE(VAR5S>REF(VAR5S,1),0,VAR5S,4,1 ),COLORRED; 震倉:=IF(VAR5S<REF(VAR5S,1),VAR5S,0),COLORGREEN; BB:=VOL/((HIGH-LOW)*2-ABS(CLOSE-OPEN)); 主動買:=IF(CLOSE>OPEN,BB*(HIGH-LOW),IF(CLOSE<OPEN,BB*((HIGH-OPEN)+(CLOSE-LOW)),VOL/2)); 買:主動買/10000,COLORRED,LINETHICK1; 主動賣:=IF(CLOSE>OPEN,0-BB*((HIGH-CLOSE)+(OPEN-LOW)),IF(CLOSE<OPEN,0-BB*(HIGH-LOW),0-VOL/2)); 賣:-主動賣/10000,COLORGREEN,LINETHICK1; 參與度:買/(買+賣),COLORLIBLUE;{參與度} 量比:DYNAINFO(17),COLORRED;{量比}; 盤比:(買/賣),COLOR0099FF;{盤比} 啟動_05:MEMA(量,5)COLORWHITE;{啟動} 均衡_10:MEMA(量,10)COLORYELLOW;{均衡} 洗盤_35:MEMA(量,35)COLORGREEN,DOTLINE;{洗盤} 異動_135:MEMA(量,135)COLORMAGENTA,DOTLINE;{異動}; WW:=VOL/REF(VOL,1)>2; GG:=C>O; GG標識:STICKLINE (WW AND GG,0,VOL,0.01225,0),COLORYELLOW; 上漲動力:DRAWTEXT(GG標識,VOL*1.03,'㊣')COLORRED; QQ:=C<O; QQ標識:=STICKLINE (WW AND QQ,0,VOL*0.98,0.01,0),COLORBLUE; QQ標識1:STICKLINE (WW AND QQ,0,VOL*0.986,1.80,1),COLORBLACK; QQ標識2:STICKLINE (WW AND QQ,0,VOL*0.98,0.01,0),COLORBLUE; 下跌動力:DRAWTEXT(QQ標識,VOL*1.03,'㊣')COLORGREEN; 地量:IF((CROSS(震倉,主力進場)AND 買入=-20),100,0),STICK,COLORMAGENTA,LINETHICK1; 地量標識1:STICKLINE(地量,0,HHV(V,15),2.23,1),COLORMAGENTA; 地量標識2:STICKLINE(地量,0,HHV(V,15),0.21,1),COLORMAGENTA; 底線:0,LINETHICK1,COLORRED; D1:=1; AA1:=DRAWGBK(' 綠色空心柱,為階段地量。','.','.','.','.','.'); AA1圖標:=DRAWTEXT_FIX(D1=1,0,0.0010.18,0,AA1),COLOR0099FF,LINETHICK2; D2:=1; AA2:=DRAWGBK(' 大紅色柱包大黃色柱,股價多上漲。','.','.','.','.','.'); AA2圖標:=DRAWTEXT_FIX(D2=1,0,0.0910.18,0,AA2),COLORRED,LINETHICK2; D3:=1; AA3:=DRAWGBK(' 淺藍色柱包深藍色柱,股價多下跌。','.','.','.','.','.'); AA3圖標:=DRAWTEXT_FIX(D3=1,0,0.1810.18,0,AA3),COLORGREEN,LINETHICK2; D4:=1; AA4:=DRAWGBK(' 紫紅量柱是個股底部標識。','.','.','.','.','.'); AA4圖標:=DRAWTEXT_FIX(D4=1,0,0.2710.18,0,AA4),COLORMAGENTA,LINETHICK2; D5:=1; AA5:=DRAWGBK(' 參與度大于0.5當(dāng)日上漲概率高;反之則下跌概率高。','.','.','.','.','.'); AA5圖標:=DRAWTEXT_FIX(D5=1,0,0.3610.18,0,AA5),COLORLIBLUE,LINETHICK2; D6:=1; AA6:=DRAWGBK(' 選股公式--《飛龍地量》','.','.','.','.','.'); AA6圖標:=DRAWTEXT_FIX(D6=1,0,0.4610.18,0,AA6),COLORWHITE,LINETHICK2; |
|