DRAWGBK(C>0, RGB(10,10,30),RGB(66,10,20),0,'11',0);
DRAWKLINE(H,O,L,C);
MA120:MA(CLOSE,120),COLORFFFF00,LINETHICK1;
MA60:MA(CLOSE,60),COLOR00FF00,LINETHICK1;
{MA30:MA(CLOSE,30),COLORF0F000,LINETHICK1;}
MA20:MA(CLOSE,20),COLORFF00FF,LINETHICK1;
MA10:MA(CLOSE,10),COLOR00FFFF,LINETHICK1;
MA5:MA(CLOSE,5),COLORWHITE,LINETHICK1;
{漲跌停標識}
C2:=REF(C,1);
非ST漲停:=IF((C-C2)*100/C2>=(10-0.01*100/C2),1,0);
漲停:=非ST漲停;
{STICKLINE(漲停,O,C,2.8,0),COLOR00E8E8;}
STICKLINE(漲停,O,C,2.6,0),COLOR9B37FF;
STICKLINE(漲停,H,L,1,0),COLOR7400E8;
非ST跌停:=IF((C2-C)*100/C2>=(10-0.01*100/C2),1,0);
跌停:=非ST跌停;
STICKLINE(跌停,O,C,2.7,0),COLORFF5555;
STICKLINE(跌停,H,L,1,0),COLORBLUE;
半漲1:=IF((C-C2)*100/C2>=(5-0.01*100/C2),1,0);
半漲2:=IF((C-C2)*100/C2<(10-0.01*100/C2),1,0);
JRS:=半漲1 AND 半漲2 AND FINANCE(33)>0;
STICKLINE(JRS AND C>O,O,C,2.7,0),COLOR020EF4;
{STICKLINE(JRS,H,L,0,0),COLOR020EF4;}
NUMBER:=COUNT(非ST漲停,BARSSINCE(非ST漲停)+1);
DRAWNUMBER(非ST漲停,HIGH*1.02,NUMBER),COLORWHITE;{漲停處標識次序}
DRAWNUMBER_FIX(CURRBARSCOUNT=1,0.56,0,0,NUMBER),COLORWHITE;
DRAWTEXT_FIX(CURRBARSCOUNT=1,0.45,0,0,'上市以來共漲停:'),COLORYELLOW;
{前期小高位}
A1:=REF(H,10)=HHV(H,2*10+1);
B1:=FILTER(A1,10);
C1:=BACKSET(B1,10+1);
HD:=FILTER(C1,10);
A2:=REF(H,10)=LLV(H,2*10+1);
B2:=FILTER(A2,10);
C3:=BACKSET(B2,10+1);
LD:=FILTER(C3,10);
前期小高位:REF(H,BARSLAST(HD)),COLORFFA346,POINTDOT;
STICKLINE(H,前期小高位,前期小高位,8,0),COLORFFA346;
{鯉魚躍龍門}
LT8:=LLVBARS(L,60);
LTT8:=BARSLAST(CURRBARSCOUNT=CONST(LT8)+1);
HT8:=FINDHIGHBARS(H,LT8+1,60,1);
龍門:DRAWLINE(CURRBARSCOUNT=CONST(HT8)+1,H,ISLASTBAR,REF(H,HT8),0),COLORYELLOW,LINETHICK2;
DRAWTEXT(ISLASTBAR,龍門,'    龍門'),COLORLIGRAY;
TT8:=BARSLAST(CURRBARSCOUNT=CONST(HT8)+1);
AA8:=CROSS(C,CONST(龍門));
TJ8:=COUNT(AA8,TT8+1)=1 AND AA8;
TJ18:=COUNT(V<MA(V,277),TT8+1) ;
BL8:=TJ18/(TT8+1)*100;
XG8:=TJ8 AND TT8>40 AND BL8>70;
XGT8:=BARSLAST(CURRBARSCOUNT=CONST(BARSLAST(XG8))+1);
ZH8:=REF(H,TT8);
YL8:=REF(L,LTT8);
XC8:=REF(C,XGT8);
YZ8:=(XC8-YL8)/YL8*100;
ZBL8:=YZ8/REF(LTT8,XGT8);
XGA8:=XG8 AND ZBL8<2.95;
NOTEXT_AA:DRAWLINE(TT8=0,H,LTT8=0,L,0),COLORFF8080,LINETHICK2;
NOTEXT_BB:DRAWLINE(LTT8=0,L,XGT8=0,L,0),COLORFF8080,LINETHICK2;
STICKLINE(XGA8,C,O,1,0),COLOR0E66FA;
DRAWTEXT(XGA8,龍門*0.985,'躍龍門'),COLORYELLOW;
{量能平臺}
N1:=19;
TK:=CONST(REFV(HHVBARS(V,21),1)+1);
LNPT:=IF(CURRBARSCOUNT<=N1+3,CONST(IF(TK=0,C,REF((H+L)/2,TK))),DRAWNULL);
量能平臺:HHV(LNPT,21),COLOR8000FF,LINETHICK2;
NOTEXT_新量能點:
IF(CURRBARSCOUNT=TK+1,量能平臺,DRAWNULL),CIRCLEDOT,COLORRED,LINETHICK4;
NOTEXT2:IF(CURRBARSCOUNT=TK+1,量能平臺,DRAWNULL),CIRCLEDOT,COLORYELLOW,LINETHICK2;
DRAWTEXT(ISLASTBAR,量能平臺,'     量能'),COLORLIGRAY;
{鎖倉拉升}
獲利盤:=WINNER(C)*100;
近鄰籌碼:=(WINNER(C*1.07)-WINNER(C*0.93))*85;
換手率:=V/CAPITAL*100;
VAR7:=ZIG(3,13);
轉(zhuǎn)向:=REF(VAR7,2)<REF(VAR7,1) AND VAR7<REF(VAR7,1);
STICKLINE(轉(zhuǎn)向,C,O,2,0),COLOR00FF00;
鎖倉:=獲利盤>=85 AND 近鄰籌碼<30 AND 換手率<5 AND NOT(EXIST(轉(zhuǎn)向,5));
DRAWTEXT(鎖倉,(L*0.99),'◆'),COLORWHITE;
{現(xiàn)價:DRAWLINE(CURRBARSCOUNT=TOTALBARSCOUNT,CONST(C),CURRBARSCOUNT=1,C,3)DOTLINE;}
{支撐.阻力畫線}
Y1:=ABS((2*CLOSE+HIGH+LOW)/4-MA(CLOSE,22))/MA(CLOSE,22);
Y2:=CONST((1-5/100)*(DMA(CLOSE,Y1)));
Y3:=CONST((1+3/100)*(DMA(CLOSE,Y1)));
支撐:IF(PERIOD=5,IF(BARSLAST(CURRBARSCOUNT=60),Y2,DRAWNULL),DRAWNULL),DOTLINE,LINETHICK1,COLORFFFF00;
阻力:IF(PERIOD=5,IF(BARSLAST(CURRBARSCOUNT=22),Y3,DRAWNULL),DRAWNULL),DOTLINE,LINETHICK1,COLORGREEN;
{紅五星藍方塊：一組買賣信號}
LC:=REF(CLOSE,3);
JH:=SMA(MAX(CLOSE-LC,0),6,1)/SMA(ABS(CLOSE-LC),6,1)*100;
DRAWTEXT(FILTER(CROSS(JH,30),55),LOW*0.99,'★'),COLOR8000FF;
DRAWTEXT(FILTER(CROSS(84,JH),22),HIGH*1.005,'◆'),COLOR008080;
{一絕漲跌信號}
Q_1:=C-REF(C,1);
Q_2:=100*EMA(EMA(Q_1,6),6)/EMA(EMA(ABS(Q_1),6),6);
Q_3:=CROSS(EMA(C,19),EMA(C,7));
Q_4:=CROSS(EMA(C,7),EMA(C,19));
ZD1:=L=LLV(L,BARSLAST(Q_3)+1);
ZD2:=LLV(L,BARSLAST(Q_3)+1);
ZD3:=H=HHV(H,BARSLAST(Q_4)+1);
ZD4:=HHV(H,BARSLAST(Q_4)+1);
Q_A:=DRAWLINE(ZD1,ZD2,ZD3,ZD4,0);
U1:=H=HHV(H,BARSLAST(Q_4)+1);
U2:=HHV(H,BARSLAST(Q_4)+1);
U3:=L=LLV(L,BARSLAST(Q_3)+1);
U4:=LLV(L,BARSLAST(Q_3)+1);
Q_B:=DRAWLINE(U1,U2,U3,U4,0);
TJS:=IF(Q_B<REF(Q_B,1) AND Q_B=Q_A,1,0);
BB:=REF(TJS,1)=0 AND TJS>=1 ;
DRAWICON(BB,L*0.98,34);
SS:=REF(Q_A<REF(Q_A,1) AND Q_B=Q_A,1)=0 AND TJS<1;
DRAWICON(SS,H*1.02,35);
{周線走好}
TW:=BARSLAST(WEEKOFYEAR!=REF(WEEKOFYEAR,1));
CC1:=REF(C,TW+1);
CC2:=REF(CC1,TW+1);
CC3:=REF(CC2,TW+1);
CC4:=REF(CC3,TW+1);
CC5:=REF(CC4,TW+1);
CC6:=REF(CC5,TW+1);
CC7:=REF(CC6,TW+1);
CC8:=REF(CC7,TW+1);
CC9:=REF(CC8,TW+1);
MM10:=(C+CC1+CC2+CC3+CC4+CC5+CC6+CC7+CC8+CC9)/10;
E20:=EXPMA(C,20);
E120:=EXPMA(C,120);
E250:=EXPMA(C,250);
A:=MACD.DIF;
B:=MACD.DEA;
TA1:=BARSLAST(CROSS(A,B));
ST:=BARSLAST(CROSS(B,A));
ZF:=(HHV(H,110)-LLV(L,110))/LLV(L,110)*100;
TJ:=EVERY(V>REF(V,1),2);
HH:=MAX(MAX(E20,E120),E250);
LL:=MIN(MIN(E20,E120),E250);
NH:=HH/LL*100-100;
TJ1:=EVERY(NH<40,25);
ZZF:=(C-REF(C,10))/REF(C,10)*100 ;
TJA:=C>MM10;
XG:=TA1=0 AND A<REF(A,ST) AND B<REF(B,ST) AND ZF<70 AND TJ AND TJ1 AND ZZF<1.4 AND TJA;
STICKLINE(XG,C,O,2,0),COLORYELLOW;
STICKLINE(XG,H,L,0,0),COLORYELLOW;
DRAWTEXT(XG,L*0.98,'周線走好'),COLORYELLOW;
M5:=MA(C,5);
M10:=MA(C,10);
M15:=MA(C,15);
FTJ:=M5>REF(M5,1) AND M10>REF(M10,1) AND M15>=REF(M15,10);
FT:=BARSLAST(CROSS(FTJ,0.5));
FTT:=BARSLAST(WEEKOFYEAR!=REF(WEEKOFYEAR,1));
FHH:=MAX(MAX(M5,M10),M15);
FLL:=MIN(MIN(M5,M10),M15);
FNH:=FHH/FLL*100-100;
FZZF:=(C-REF(C,FTT+1))/REF(C,FTT+1)*100;
FZZF1:=REF(FZZF,FTT+1);
FTJ2:=CROSS(FZZF>20,0.5) OR CROSS(FZZF1>20,0.5);
FJD:=(ATAN((M5/REF(M5,1)-1)*100)*180/3.1415926);
FTJA:=FZZF1>0 AND FZZF1>0 ;
FDT:=M10/M15*100-100>1 AND H/MAX(C,O)<1.03;
FBL:=MIN(C,O)/M5;
FBL5:=M5/M10*100-100;
FXG:=FTJ2 AND C=HHV(C,5) AND BETWEEN(FT,0,5)AND FTJA AND FNH<12 AND FDT AND FBL<1.045  AND FBL5<7.2 AND FJD<77.5;
STICKLINE(CROSS(FXG,0.5),C,O,1.8,0),COLORMAGENTA;
STICKLINE(CROSS(FXG,0.5),H,L,0,0),COLORMAGENTA;
DRAWTEXT(CROSS(FXG,0.5),L*0.98,'周線翻紅'),COLORYELLOW;
{短線盈利}
{E20:=EXPMA(C,20);
E120:=EXPMA(C,120);
E250:=EXPMA(C,250);}
SNH:=E120/E250*100-100;
STA:=EVERY(SNH<3 AND E120>E250,20);
STB:=CROSS(E20,MAX(E120,E250));
STC:=MIN(C,O)/E20<1.08;
SXG:=STB AND STA AND STC;
STICKLINE(SXG,C,O,2.5,0),COLOR1E67FF;
DRAWICON(SXG,H*1.02,18);
DRAWTEXT(SXG,L*0.97,'短贏')COLORYELLOW;
{與莊共舞主圖}
{M5:=MA(C,5);
M10:=MA(C,10);}
M20:=MA(C,20);
M60:=MA(C,60);
T:=BARSLAST(C>REF(C,1)*1.095 AND C=H);
T2:=BARSLAST(C<REF(C,1)*1.095 AND C>REF(C,1)*1.08);
T3:=BARSLAST(C<REF(C,1)*1.08 AND C>REF(C,1)*1.07);
T4:=BARSLAST(C<REF(C,1)*1.07 AND C>REF(C,1)*1.06);
T5:=BARSLAST(C<REF(C,1)*1.06 AND C>REF(C,1)*1.05);
TJAA:=C>REF(C,1)*1.05;
AAA:=REF(T,1)>100 AND REF(T2,1)>100 AND REF(T3,1)>100 AND REF(T4,1)>100 AND REF(T5,1)>80 AND TJAA;
HHM:=HHV(MACD.MACD*100,200);
LLM:=LLV(MACD.MACD*100,200);
D1:=MIN(MIN(M5,M10),M20)<M60;
D3:=MIN(MIN(M5,M10),M20)>M60;
XGTT:=BARSLAST(AAA AND HHM<60 AND LLM>-55);
D6:=BARSSINCEN(MIN(MIN(M5,M10),M20)>M60,XGTT+1);
XGAA:=CROSS((XGTT=0 AND D3) OR D6=0,0.5);
TAA:=COUNT(XGAA,30)=1 AND XGAA;
TJY:=COUNT(XGAA,30)=2 AND XGAA;
STICKLINE(TAA,C,O,1.5,0),COLORYELLOW;
STICKLINE(TAA,H,L,0,0),COLORYELLOW;
DRAWTEXT(TAA,L*0.97,'建倉'),COLORYELLOW;
STICKLINE(TJY,C,O,1.5,0),COLORLIMAGENTA;
STICKLINE(TJY,H,L,0,0),COLORLIMAGENTA;
DRAWTEXT(TJY,L*0.97,'拉升'),COLORLIMAGENTA;
{第二波啟動}
M25:=MA(C,25),COLORYELLOW;
BU:=OBV.OBV;
MB:=OBV.MAOBV;
GL:=(MAX(BU,MB)/MIN(BU,MB)-1)*100;
TA:=BARSLAST(CROSS(GL>8,0.5));
TJB:=BARSLAST(COUNT(TA=0,100)=2 AND TA=0);
TJC:=CROSS(C,M25);
ZFY:=(C-REF(C,1))/REF(C,1)*100;
XG1:=COUNT(TJC,TJB+1)=1 AND TJC AND ZFY<7;
STICKLINE(XG1,L,H,0,0),COLORFF00FF;       
STICKLINE(XG1,C,O,1.5,0),COLOR1E67FF;
DRAWTEXT(XG1,L*0.97,'第二波'),COLORWHITE;
{突破陰線}
QT:=BARSLAST(C>REF(C,1)*1.095 AND C=H);
QTJ:=(C-REF(C,QT+1))/REF(C,QT+1)*100;
QTJ1:=EVERY(C<O,QT);
QTJ2:=COUNT(REF(C,1)/C>1.09,QT)>0 AND REF(C,1)/C>1.09;
QA:=QTJ>-1 AND QTJ1 AND QTJ2;
QTA:=BARSLAST(QA);
QHH:=REF(H,QTA);
QTJ3:=EVERY(MAX(C,O)<QHH,QTA);
QTJ4:=MIN(C,O)<QHH AND MAX(C,O)>QHH AND COUNT(MIN(C,O)<QHH AND MAX(C,O)>QHH,QTA)=1;
QTJ5:=REF(QTJ3,1) AND QTA<69 AND IF(C<O,O/QHH>1.007,C>O) AND IF(C<O,REF(C,1)/C<1.06,C>O);
QXG:=QTJ4 AND QTJ5;
STICKLINE(QTA>=0,REF(H,QTA),REF(H,QTA),6,0),COLORBLUE;
DRAWICON(QXG=1,H*1.01,1);
DRAWTEXT(QXG=1,L*0.97,'突破陰'),COLORYELLOW;
DRAWTEXT(QTA=0,H*1.01,STRCAT(STRCAT('陰線最高價:',VAR2STR(REF(H,QTA),2)),'元'))COLORYELLOW;
{橫盤突破主圖}
MAA10:=EXPMA(C,10);
TTJ:=IF(MAX(C,O)<=MAA10,RANGE(MAX(C,O)/MAA10,0.99,1.005),IF(MIN(C,O)>=MAA10,RANGE(MIN(C,O)/MAA10,0.999,1.01),DRAWNULL));
TTJ1:=C=HHV(MAX(C,O),10) AND V=HHV(V,10);
TTT:=BARSLAST(REF(EVERY(TTJ,10),1) AND TTJ1);
TTJ2:=CROSS(C,MAA10);
XGG:=COUNT(TTJ2,TTT+1)=1 AND TTJ2;
STICKLINE(XGG=1,C,O,1,0),COLORYELLOW;
DRAWTEXT(XGG=1,L*0.98,'橫破'),COLORYELLOW;
{起程 綻放 螞蟻上樹聯(lián)合主圖}
E13:=EXPMA(C,13),,COLORGREEN;
M8:=MA(C,8);
M21:=MA(C,21);
M233:=MA(C,233);
E10:=EXPMA(C,10),COLORRED;
ZZT:=C/REF(C,1)>1.095 AND C=H;
ZA:=BARSLASTCOUNT(ZZT);
ZT:=BARSLAST(CROSS(ZA=3,0.5));
ZLL:=REF(L,(ZT+2));
ZTJ:=C<ZLL;
ZAA:=COUNT(ZTJ,ZT+1)=1 AND ZTJ;
ZTA:=BARSLAST(ZAA);
ZLT:=BARSLAST(L=LLV(L,ZTA+1));
ZTJ1:=CROSS(C,E10);
ZXG:=COUNT(ZTJ1,ZLT+1)=1 AND ZTJ1 AND TOTALBARSCOUNT>200;
STICKLINE(ZXG,C,O,2,0),COLORYELLOW;
DRAWTEXT(ZXG,L*0.99,'起轎'),COLORYELLOW;
{一壺清茶}
DTJ:=O>REF(H,1) AND C<O AND O/C<C/L AND V>REF(V,1);
DTT2:=BARSLAST(REF(ZA>1,1) AND DTJ);
DXG:=COUNT(CROSS(C,REF(H,DTT2)),DTT2+1)=1 AND CROSS(C,REF(H,DTT2));
STICKLINE(DTT2>=0,REF(H,DTT2),REF(H,DTT2),6,0),{COLORFF8000}COLOR00EC00,LINETHICK2;
DRAWTEXT(DTT2=0,REF(H,DTT2)*1.01,'清茶'),COLORYELLOW;
DRAWICON(DXG,L*0.97,34);
DRAWTEXT(DXG,L*0.96,'買');
{綻放}
HA:=M8/M21*100;
HTJ:=BARSLASTCOUNT(RANGE(HA,99.9,100.3));
HHB:=MAX(C,O)/MIN(C,O)*100-100;
HTJ1:=BARSLASTCOUNT(HHB<2);
HZF:=(HHV(H,5)-LLV(L,5))/LLV(L,5)*100;
HDZF:=(H-L)/REF(C,1)*100;
HTJ2:=COUNT(MIN(C,O)/L>1.03,5)=0;
HTJ3:=COUNT(H<REF(L,1),5)=0;
HTJ4:=C>M233;
HXG:=HTJ>4 AND HTJ1>4 AND HZF<10 AND HTJ2 AND HTJ3 AND HTJ4;
{STICKLINE(CROSS(HXG,0.5),C,O,2,0),COLORLIMAGENTA;}
STICKLINE(CROSS(HXG,0.5),H,L,1,0),COLORLIMAGENTA;
DRAWTEXT(CROSS(HXG,0.5),L*0.98,'綻放'),COLORYELLOW;
{DRAWTEXT(CROSS(HXG,0.5),HIGH*1.02,'◆'),COLORFF00FF;}
{螞蟻上樹}
ZF0:=(C-REF(C,1))/REF(C,1)*100;
TJJ:=EVERY(RANGE(ZF0,-2.22,2.55),15);
TJJ1:=C>O AND C/REF(C,1)>1.03;
TJJ2:=COUNT(E13>=REF(E13,1),15);
JD:=(ATAN((E13/REF(E13,15)-1)*100)*180/3.1415926);
A01:=IF(MIN(C,O)>E13,MAX(C,O)/E13*100-100,IF(MAX(C,O)<E13,E13/MIN(C,O),E13));
B01:=MAX(C,O)/MIN(C,O)*100-100;
LL0:=LLV(A01,15);
HH0:=HHV(A01,15);
HB:=COUNT(B01>3,15)<2;
XXG:=REF(TJJ,1) AND TJJ1 AND TJJ2>13 AND JD>72 AND REF(LL0,1)<1.37 AND REF(HH0,1)<11.15;
STICKLINE(XXG,L,H,0.6,0),COLOR0069D2;
{STICKLINE(XXG,C,O,2,0),COLOR0069D2;}
DRAWTEXT(XXG,L*0.98,'螞蟻上樹'),COLORYELLOW;
{平步青云主圖}
DIF:=MACD.DIF;
H300:=HHVBARS(DIF,300);
AX1:=BOLL.UB;
T1:=BARSLAST(CROSS(AX1>=REF(AX1,1),0.5));
E25:=EXPMA(C,25),COLORMAGENTA;
ZF00:=EVERY(RANGE(C/REF(C,1),0.97,1.05),T1+1);
ZFF:=(HHV(H,T1+1)-LLV(L,T1+1))/LLV(L,T1+1)*100;
TJX:=EVERY(MAX(C,O)/AX1<1.02 ,T1+1);
XL:=(ATAN((E25/REF(E25,T1)-1)*100)*180/3.1415926);
TJ01:=CROSS(DIF>=REF(DIF,H300),0.5) AND ZFF<17 AND ZF00 AND TJX;
TJ2:=MIN(C,O)/E25>1.04;
XGS:=TJ01 AND XL>75;
STICKLINE(XGS,C,O,2,0),COLORLIRED;
STICKLINE(XGS,H,L,0,0),COLORLIRED;
DRAWICON(XGS,H*1.01,15);
DRAWTEXT(XGS,L*0.98,'起程')COLORYELLOW;
{搶反彈主圖}
M25Q:=MA(C,25);
M60Q:=MA(C,60);
TQ:=BARSLAST(C>O AND C/REF(C,1)>1.05);
TJQ1:=EVERY(L>MA(C,60),TQ+1);
DF:=(C-REF(C,TQ+1))/REF(C,TQ+1)*100;
TJQ2:=DF<-11  AND C<O AND TJQ1 AND L=LLV(L,TQ+1);
C60:=BETWEEN(REF((L/M60Q-1)*100,1),0,6);
C25:=BETWEEN(REF((L/M25Q-1)*100,1),0,6);
TJQ3:=C60 OR C25;
QFTXG:=REF(TJQ2,1) AND C>O AND TJQ3;
STICKLINE(QFTXG,C,O,1.5,0),COLOR0072E3;
STICKLINE(QFTXG,H,L,0,0),COLORYELLOW;
DRAWTEXT(QFTXG,L*0.97,'搶反彈'),COLORYELLOW;
{大單成交}
VARE:=MA(100*(CLOSE-LLV(CLOSE,34))/(HHV(HIGH,34)-LLV(LOW,34)),5)-20;
VAR12:=(HIGH+LOW+CLOSE)/3;
VAR13:=(VAR12-MA(VAR12,14))/(0.015*AVEDEV(VAR12,14));
VAR14:=(VAR12-MA(VAR12,70))/(0.015*AVEDEV(VAR12,70));
VAR15:=IF(VAR13>=150 AND VAR13<200 AND VAR14>=150 AND VAR14<200,10,0);
VAR16:=IF(VAR13<=-150 AND VAR13>-200 AND VAR14<=-150 AND VAR14>-200,-10,VAR15);
VAR17:=(CLOSE-MA(CLOSE,13))/MA(CLOSE,13)*100;
VAR18:=100-ABS(VAR17);
VAR19:=IF(VAR18<90,VAR18,100);
VAR1A:=IF(VARE>0,VARE,0);
VAR1B:=IF(VAR14>=200 AND VAR13>=150,15,IF(VAR14<=-200 AND VAR13<=-150,-15,VAR16))+60;
VAR1C:=VAR1A>48 AND VAR1B>60 AND VAR19<100;
DRAWTEXT(VAR1C AND COUNT(VAR1C,30)=1,L*0.98,'大單成交'),COLORWHITE;
{老鼠倉}
AA1:=AMOUNT/V;
BB1:=L<AA1*0.9;
CCA:=(C-REF(C,1))/REF(C,1)*100>1.2;
DD1:=L<MA(C,5)*0.921;
EE1:=V<MA(V,5)*1.5;
老鼠倉:=BB1 AND CCA AND DD1 AND EE1,LINETHICK0;
DRAWTEXT(老鼠倉,(LOW* 0.99),'老鼠倉'),COLOR40CCFF;
{所屬板塊行業(yè)}
所屬板塊:=STRCAT('',STRCAT(STRCAT(STRCAT('',HYBLOCK),
STRCAT(' ',DYBLOCK)),STRCAT(' ',GNBLOCK)));
DRAWTEXT_FIX(ISLASTBAR,0,0,0,所屬板塊),COLORFFFF80;
DRAWTEXT_FIX(ISLASTBAR,0,0.05,0,EXTERNSTR(0,1)),COLORFFFF80;
DRAWTEXT_FIX(ISLASTBAR,0.11,0.1,0,FGBLOCK),COLORLIMAGENTA;
每股公積:=FINANCE(18)/1,NODRAW,COLORGREEN;
未分利潤:=FINANCE(32)/1,NODRAW,COLORGREEN;
DRAWTEXT_FIX(1,0,0.1,0,STRCAT('【每股公積】:  ',CON2STR(每股公積,3))),COLORYELLOW;
DRAWTEXT_FIX(1,0,0.15,0,STRCAT('【未分利潤】:  ',CON2STR(未分利潤,3))),COLORYELLOW;
DRAWTEXT_FIX(1,0,0.2,0,STRCAT('【日換手率】:  ',CON2STR(HSL,3))),COLORYELLOW;
{大小非.定向增發(fā).回購.公開發(fā)行}
LTB:=FINANCE(7)*100/FINANCE(1);
ZGB:=FINANCE(1)/100000000;
JJS:=LTB-REF(LTB,1);
DRAWTEXT(LTB<REF(LTB,1)*0.95 AND ZGB>REF(ZGB,1),L*0.990,'定向增發(fā)'),COLORWHITE;
DRAWTEXT(ZGB<REF(ZGB,1)*0.95 AND LTB>REF(LTB,1),L*0.990,'回購'),COLORGREEN;
DRAWTEXT(LTB>REF(LTB,1)*1.05 AND ZGB=REF(ZGB,1),L*0.990,'大小非'),COLORYELLOW;
DRAWTEXT(LTB>REF(LTB,1)*1.05 AND ZGB>REF(ZGB,1),L*0.990,'公開發(fā)行');
{反線}
長周期:EMA(CLOSE,250),NODRAW,COLOR8000FF;
NOTEXTA:IF(長周期>=REF(長周期,1),長周期,DRAWNULL),COLORRED,LINETHICK4,POINTDOT;
NOTEXTB:IF(長周期<REF(長周期,1),長周期,DRAWNULL),COLOR006A6A,LINETHICK4,POINTDOT;
反線:EMA((長周期-(EMA(CLOSE,3)-長周期)),5),LINETHICK2,COLORBLUE;
效果:=CROSS(長周期,反線);
DRAWICON(CROSS(C,反線) AND MA(反線,3)<REF(MA(反線,3),1),反線*0.999,23);{起爆點做標記}
DRAWTEXT(效果,長周期*0.998,'起爆'),COLOR8000FF;
{強烈推薦}
中中中:=((XMA(XMA(H,15),15)+XMA(XMA(H,20),20)+XMA(XMA(H,30),30)+XMA(XMA(H,40),40))/4+(XMA(XMA(L,15),15)+XMA(XMA(L,20),20)+XMA(XMA(L,30),30)+XMA(XMA(L,40),40))/4)/2;
EMA中中中:=EMA(中中中,10);
中中底:=(XMA(XMA(L,15),15)+XMA(XMA(L,20),20)+XMA(XMA(L,30),30)+XMA(XMA(L,40),40))/4*2-(XMA(XMA(H,15),15)+XMA(XMA(H,20),20)+XMA(XMA(H,30),30)+XMA(XMA(H,40),40))/4;
短中底:=(XMA(XMA(L,5),5)+XMA(XMA(L,8),8)+XMA(XMA(L,11),11)+XMA(XMA(L,14),14))/4-((XMA(XMA(H,5),5)+XMA(XMA(H,8),8)+XMA(XMA(H,11),11)+XMA(XMA(H,14),14)+XMA(XMA(H,4),4))/5-(XMA(XMA(L,5),5)+XMA(XMA(L,8),8)+XMA(XMA(L,11),11)+XMA(XMA(L,14),14)+XMA(XMA(L,4),4))/5)/2;
AF中:=EMA((CLOSE+HIGH+LOW)/3,10);
BF中:=REF(AF中,1);
DRAWTEXT(中中中>=EMA中中中 AND CROSS(AF中,BF中) AND 短中底<中中底,L*0.97,'↖強烈推薦'),COLORFF00FF;
BC:=MA(CLOSE,17)+MA(CLOSE,17)-REF(MA(CLOSE,17),1);
分水嶺:=IF(MA(CLOSE,17)<BC,BC,MA(CLOSE,17)),COLORFF8080,LINETHICK4,POINTDOT;
糾纏:分水嶺-(EMA(C,3)-分水嶺),COLOR808040,LINETHICK1,DOTLINE;