MA1:=EMA(C,30);
MA2:=EMA(C,900);
GJ:=C,COLORWHITE;
JJ:=SUM(C*V,FROMOPEN)/SUM(V,FROMOPEN),COLORYELLOW,LINETHICK1.5;
均量:=MA(V,5);
量連增:=均量>REF(均量,1) AND REF(均量,1)>REF(均量,2);
價連漲:=C>=REF(C,1) AND REF(C,1)>REF(C,2);
價量線上:=C>JJ AND V>均量;
倍量:=V>=REF(V,1)*2 ;
價新高:=C>=HHV(C,FROMOPEN);
量新高:=V>=HHV(V,FROMOPEN);
限幅:=C/DYNAINFO(3)<=1.02;
起爆:=FILTER(量連增 AND 價連漲 AND 價量線上 AND 倍量 AND 價新高 AND 量新高 AND 限幅,20);
DRAWTEXT(起爆,C,'起爆'),COLOR00FFFF;
DRAWICON(起爆,C,1);
STICKLINE(起爆,C,JJ,1,0),COLOR1000FF;
VV:=BARSSINCE(起爆);
起爆價:REF(C,VV),LINETHICK2;
起爆時間:=REF(TIME/10000,VV);
收益:=(DYNAINFO(7)-起爆價)/起爆價*100;
DRAWICON(VV>=2,起爆價,13),NODRAW;
DRAWTEXT_FIX(1,0,0,0,'起爆時間:'),COLOR00FFFF;
DRAWNUMBER_FIX(1,0.1,0,0,CONST(起爆時間)),COLOR00FFFF;
DRAWTEXT_FIX(1,0.2,0,0,'起爆價:'),COLOR00FFFF;
DRAWNUMBER_FIX(1,0.26,0,0,CONST(起爆價)),COLOR00FFFF;
DRAWTEXT_FIX(1,0.33,0,0,'收益:'),COLOR00FFFF;
DRAWNUMBER_FIX(1,0.38,0,0,CONST(收益)),COLOR00FFFF;
UR:=10;LR:=10;
{線性回歸線}
TC1:=IF(H=HHV(H,8*UR),H,DRAWNULL);
TC2:=CONST(BARSLAST(TC1=H))+1;
UP:CONST(IF(TC2=1,H,REF(H,TC2-1)));
BC1:=IF(L=LLV(L,8*LR),L,DRAWNULL);
BC2:=CONST(BARSLAST(BC1=L))+1;
LL:CONST(IF(BC2=1,L,REF(L,BC2-1)));
LP:=CURRBARSCOUNT<=BC2 AND L=LL;{低點定位}
HP:=CURRBARSCOUNT<=TC2 AND H=UP;{高點定位}
STICKLINE(IF(BC2>TC2,HP,LP),LL,UP,0,0),COLOR628962;
STICKLINE(IF(BC2>TC2,LP,HP),LL,UP,0,0),COLOR628962;
NOD:=(IF(TC2>BC2,TC2,BC2)-IF(TC2>BC2,BC2,TC2));{用時}
LR1:=FORCAST(C,NOD+1);
NP:IF(CURRBARSCOUNT<=MAX(BC2,TC2),CONST(IF(MIN(TC2,BC2)=1,LR1,REF(LR1,MIN(TC2,BC2)-1))),DRAWNULL),POINTDOT,COLOR93BDA8;{近點}
LR2:=SLOPE(C,NOD+1);
LR3:=CONST(IF(MIN(TC2,BC2)=1,LR2,REF(LR2,MIN(TC2,BC2)-1)));
FP:NP-LR3*(NOD),POINTDOT,COLOR93BDA8;{遠點}
EQU:(NP+FP)/2,POINTDOT,COLOR93BDA8;
AD:=ABS(NP-FP);{高差};
DBL:=BARSLAST(BC1!=DRAWNULL)+1;
DBH:=BARSLAST(TC1!=DRAWNULL)+1;
BSP:=IF(BC2>TC2,DBL,DBH)-1;
LRL:=IF(NP>FP,FP+AD/NOD*BSP,FP-AD/NOD*BSP);
AT1:=IF(BETWEEN(CURRBARSCOUNT,BC2,TC2) AND H>LRL,H,LRL);
AT2:=HHV(AT1-LRL,MAX(BC2,TC2));
AT3:=CONST(BARSLAST(AT1-LRL=AT2));
AT4:=CONST(IF(AT3=0,H,REF(H,AT3)));
AT5:=CONST(IF(AT3=0,AT1-LRL,REF(AT1-LRL,AT3)));
ATL:=LRL+AT5;
UT1:=IF(BETWEEN(CURRBARSCOUNT,BC2,TC2) AND L<LRL,L,LRL);
UT2:=HHV(LRL-UT1,MAX(BC2,TC2));
UT3:=CONST(BARSLAST(LRL-UT1=UT2));
UT4:=CONST(IF(UT3=0,H,REF(H,UT3)));
{WWW.GUPANG.COM 股旁網_通達信指標公式}
UT5:=CONST(IF(UT3=0,LRL-UT1,REF(LRL-UT1,UT3)));
UTL:=LRL-UT5;
RH:=IF(CURRBARSCOUNT>=MIN(BC2,TC2)-10,ATL,CONST(REF(ATL,MIN(BC2,TC2)-11)));{限制高}
RL:=IF(CURRBARSCOUNT>=MIN(BC2,TC2)-10,UTL,CONST(REF(UTL,MIN(BC2,TC2)-11)));{限制低}
中軌:IF(NP>FP,IF(LRL<=RH,LRL,DRAWNULL),IF(LRL>=RL,LRL,DRAWNULL)),COLOR628962;
上軌:IF(NP>FP,IF(ATL<=RH,ATL,DRAWNULL),IF(ATL>=RL,ATL,DRAWNULL)),COLOR628962;
下軌:IF(NP>FP,IF(UTL<=RH,UTL,DRAWNULL),IF(UTL>=RL,UTL,DRAWNULL)),COLOR628962;
N1:=18;N2:=36;N3:=55;
EM1:=EMA(C,N1),NODRAW;
EM2:=EMA(C,N2),COLORRED;
EM3:=EMA(C,N3),COLORGREEN;
TJ:=BETWEEN(EM2,EM1,EM3);
DRAWICON(TJ=0,L,14);
B1:='<-----------------財富平臺';
DRAWTEXT(VOL=HHV(VOL,20),C ,B1),COLORRED;
VARM2:=(CLOSE-LLV(LOW,21))/(HHV(HIGH,21)-LLV(LOW,21))*100;
VARM3:=SMA(SMA(VARM2,9,4),9,4)/7.777777;
VARM4:=EMA(VARM3,5);
VARM5:=3*VARM3-2*VARM4;
AAM:=CROSS(VARM5,VARM3) AND VARM3<1.7777777 AND C>O;
VARM6:=(2*CLOSE+HIGH+LOW)/4;
VARM7:=LLV(LOW,13);
VARM8:=HHV(HIGH,13);
VARM9:=EMA((VARM6-VARM7)/(VARM8-VARM7)*100,13);
VARMA:=EMA(0.667*REF(VARM9,1)+0.333*VARM9,2);
DRAWTEXT(AAM,L,'區域底部'),COLORMAGENTA;
{立體K線部分}
STICKLINE(C>=0,C,O,3,0),COLOR0000AA;
STICKLINE(C>=0,C,O,2.5,0),COLOR0000BB ;
STICKLINE(C>=0,C,O,1.5,0),COLOR0000CC ;
STICKLINE(C>=0,C,O,1,0),COLOR0000EE;
STICKLINE(C>=0,H,L,0,0),COLOR0000FF;
STICKLINE(C<O,O,C,3,0),COLOR005500;
STICKLINE(C<O,O,C,0.6,0),COLOR007700;
STICKLINE(C<O,L,H,0.00001,0),COLOR007700;
1.智能診斷
T1:=IF(FINDSTR(EXTERNSTR(0,13),'萬元'),STRCAT('敢死隊席位：',EXTERNSTR(0,13)),'');
T2:=IF(FINDSTR(EXTERNSTR(0,12),'。'),STRCAT('智能診斷：',EXTERNSTR(0,12)),'');
T3:=IF(FINDSTR(EXTERNSTR(0,8),'公告'),STRCAT('年報業績：',EXTERNSTR(0,8)),'');
T4:=IF(FINDSTR(EXTERNSTR(0,10),'，'),STRCAT('主題投資：',EXTERNSTR(0,10)),'');
T5:=IF(FINDSTR(EXTERNSTR(0,15),'-'),STRCAT('解禁日期：',EXTERNSTR(0,15)),'');
T6:=IF(FINDSTR(EXTERNSTR(0,1),'，'),STRCAT('千股千評：',EXTERNSTR(0,1)),'');
T7:=IF(FINDSTR(EXTERNSTR(0,14),'-'),STRCAT('業績預報：',EXTERNSTR(0,14)),'');
T8:=IF(FINDSTR(EXTERNSTR(0,11),'-'),STRCAT('機構評級：',EXTERNSTR(0,11)),'');
T9:=IF(FINDSTR(EXTERNSTR(0,9),'-'),STRCAT('中報業績：',EXTERNSTR(0,9)),'');
N:=IF(TOTALBARSCOUNT>=120,120,TOTALBARSCOUNT);
{本輸出適用于鎖定K線數為120,N可改為你習慣的K線數,見下圖}
HH0:=HHV(H,N);
LL0:=LLV(L,N);
MM0:=CONST((HH0+LL0)*0.5);
S01:=CONST(IF(REF(C,N-15)>MM0,1.00,-0.08));
S02:=CONST(IF(REF(C,N-15)>MM0,-1,1));
S1:=IF(FINDSTR(EXTERNSTR(0,13),'萬元'),S01+(0.08*S02),S01),NODRAW;
S2:=IF(FINDSTR(EXTERNSTR(0,12),'。'),S1+(0.08*S02),S1),NODRAW;
S3:=IF(FINDSTR(EXTERNSTR(0,8),'公告'),S2+(0.08*S02),S2),NODRAW;
S4:=IF(FINDSTR(EXTERNSTR(0,10),'，'),S3+(0.08*S02),S3);
S5:=IF(FINDSTR(EXTERNSTR(0,15),'-'),S4+(0.08*S02),S4);
S6:=IF(FINDSTR(EXTERNSTR(0,1),'，'),S5+(0.08*S02),S5);
S7:=IF(FINDSTR(EXTERNSTR(0,14),'-'),S6+(0.08*S02),S6);
S8:=IF(FINDSTR(EXTERNSTR(0,11),'-'),S7+(0.08*S02),S7);
S9:=IF(FINDSTR(EXTERNSTR(0,9),'-'),S8+(0.08*S02),S8);
K:=IF(S1<=0,0.05,IF(S1>=0,-0.05,0));
DRAWTEXT_FIX(1,0,S1+K,0,T1)COLOR00FFFF;
DRAWTEXT_FIX(1,0,S2+K,0,T2)COLORFFFFFF;
DRAWTEXT_FIX(1,0,S3+K,0,T3)COLORFF00FF;
DRAWTEXT_FIX(1,0,S4+K,0,T4)COLOR0088FF;
DRAWTEXT_FIX(1,0,S5+K,0,T5)COLOR00FF00;
DRAWTEXT_FIX(1,0,S6+K,0,T6)COLOR0000FF;
DRAWTEXT_FIX(1,0,S7+K,0,T7)COLOR00CCFF;
DRAWTEXT_FIX(1,0,S8+K,0,T8)COLORFF88FF;
DRAWTEXT_FIX(1,0,S9+K,0,T9)COLORBBFFFF;
WN:=P;{原碼 N:=3;}
WA1:=REF(H,WN)=HHV(H,2*WN+1); WB1:=FILTER(WA1,WN);
WC1:=BACKSET(WB1,WN+1);
WD1:=FILTER(WC1,WN);{高點}
WA2:=REF(L,WN)=LLV(L,2*WN+1); WB2:=FILTER(WA2,WN);
WC2:=BACKSET(WB2,WN+1);
WD2:=FILTER(WC2,WN);{低點}
WR1:=BACKSET(ISLASTBAR,BARSLAST(WD1)+1); WS1:=WR1>REF(WR1,1); {前一高}
WT1:=BACKSET(ISLASTBAR,BARSLAST(WD2)+1); WU1:=WT1>REF(WT1,1); {前一低}
WR2:=BACKSET(WS1,REF(BARSLAST(WD1),1)+2); WS2:=WR2>REF(WR2,1); {前二高}
WT2:=BACKSET(WU1,REF(BARSLAST(WD2),1)+2); WU2:=WT2>REF(WT2,1); {前二低}
WR3:=BACKSET(WS2,REF(BARSLAST(WD1),1)+2); WS3:=WR3>REF(WR3,1); {前三高}
WT3:=BACKSET(WU2,REF(BARSLAST(WD2),1)+2); WU3:=WT3>REF(WT3,1); {前三低}
WR4:=BACKSET(WS3,REF(BARSLAST(WD1),1)+2); WS4:=WR4>REF(WR4,1); {前四高}
WT4:=BACKSET(WU3,REF(BARSLAST(WD2),1)+2); WU4:=WT4>REF(WT4,1); {前四高}
壓力A:=DRAWLINE(WS2,H,WS1,H,1),COLOR0000FF; {★壓力１:}
支撐A:=DRAWLINE(WU2,L,WU1,L,1),COLOR0000FF;{★支撐１:}
壓力B:=DRAWLINE(WS3,H,WS2,H,1),COLOR999999; {★壓力２:}
支撐B:=DRAWLINE(WU3,L, WU2,L,1),COLOR999999;{★支撐２:}
IF(BETWEEN(壓力A,HH,LH),壓力A,DRAWNULL),COLOR0000FF;
IF(BETWEEN(支撐A,HH,LH),支撐A,DRAWNULL),COLOR0000FF;
IF(BETWEEN(壓力B,HH,LH),壓力B,DRAWNULL),COLOR999999;
IF(BETWEEN(支撐B,HH,LH),支撐B,DRAWNULL),COLOR999999;
2.
生命線:=MA(C,60);
牛熊線:=MA(C,120);
V1:=(C+H+L)/3;
MA3:=MA(V1,2);
MA5:=MA(V1,5);
DRAWBAND(MA2,RGB(200,50,55),MA5,RGB(0,100,50));
IF(生命線>=牛熊線,生命線,DRAWNULL),COLORRED;
IF(牛熊線>=生命線,牛熊線,DRAWNULL),COLORFF9900;
IF(生命線>=牛熊線,牛熊線,DRAWNULL),COLOR00FFFF;
IF(牛熊線>=生命線,生命線,DRAWNULL),COLOR00FF00;
DRAWTEXT_FIX(1,0.0,0.00,0,EXTERNSTR(0,1))COLOR0077FF;
3.
JJ:=(3*C+H+L+O)/6;
VAR1:=(8*JJ+7*REF(JJ,1)+6*REF(JJ,2)+5*REF(JJ,3)+4*REF(JJ,4)+3*REF(JJ,5)+2*REF(JJ,6)+REF(JJ,8))/36;
TJ1:=VOL=HHV(VOL,10) AND VOL>2*REF(VOL,1) AND CLOSE>VAR1 AND C>REF(C,1);
LJL:=FILTER(TJ1,5);
DRAWTEXT_FIX(1,0.00,0.02,0,'所屬行業：'),COLORYELLOW;
DRAWTEXT_FIX(1,0.07,0.02,0,HYBLOCK),COLORYELLOW;
DRAWTEXT_FIX(1,0.14,0.02,0,'所屬地區：'),COLORYELLOW;
DRAWTEXT_FIX(1,0.21,0.02,0,DYBLOCK),COLORYELLOW;
N:=IF(TOTALBARSCOUNT>=120,120,TOTALBARSCOUNT);
HH0:=HHV(H,N);
LL0:=LLV(L,N);
MM0:=CONST((HH0+LL0)*0.5);
S01:=CONST(IF(REF(C,N-15)>MM0,1.00,-0.08));
S02:=CONST(IF(REF(C,N-15)>MM0,-1,1));
S1:=IF(FINDSTR(EXTERNSTR(0,13),'萬元'),S01+(0.08*S02),S01),NODRAW;
S2:=IF(FINDSTR(EXTERNSTR(0,12),'。'),S1+(0.08*S02),S1),NODRAW;
S3:=IF(FINDSTR(EXTERNSTR(0,8),'公告'),S2+(0.08*S02),S2),NODRAW;
S4:=IF(FINDSTR(EXTERNSTR(0,10),'，'),S3+(0.08*S02),S3);
S5:=IF(FINDSTR(EXTERNSTR(0,15),'-'),S4+(0.08*S02),S4);
S6:=IF(FINDSTR(EXTERNSTR(0,1),'，'),S5+(0.08*S02),S5);
S7:=IF(FINDSTR(EXTERNSTR(0,14),'-'),S6+(0.08*S02),S6);
S8:=IF(FINDSTR(EXTERNSTR(0,11),'-'),S7+(0.08*S02),S7);
S9:=IF(FINDSTR(EXTERNSTR(0,9),'-'),S8+(0.08*S02),S8);
K:=IF(S1<=0,0.05,IF(S1>=0,-0.05,0));
T1:=IF(FINDSTR(EXTERNSTR(0,13),'萬元'),STRCAT('敢死隊席位：',EXTERNSTR(0,13)),'');
T2:=IF(FINDSTR(EXTERNSTR(0,12),'。'),STRCAT('智能診斷：',EXTERNSTR(0,12)),'');
T3:=IF(FINDSTR(EXTERNSTR(0,8),'公告'),STRCAT('年報業績：',EXTERNSTR(0,8)),'');
T4:=IF(FINDSTR(EXTERNSTR(0,10),'，'),STRCAT('主題投資：',EXTERNSTR(0,10)),'');
T5:=IF(FINDSTR(EXTERNSTR(0,15),'-'),STRCAT('解禁日期：',EXTERNSTR(0,15)),'');
T6:=IF(FINDSTR(EXTERNSTR(0,1),'，'),STRCAT('千股千評：',EXTERNSTR(0,1)),'');
T7:=IF(FINDSTR(EXTERNSTR(0,14),'-'),STRCAT('業績預報：',EXTERNSTR(0,14)),'');
T8:=IF(FINDSTR(EXTERNSTR(0,11),'-'),STRCAT('機構評級：',EXTERNSTR(0,11)),'');
T9:=IF(FINDSTR(EXTERNSTR(0,9),'-'),STRCAT('中報業績：',EXTERNSTR(0,9)),'');
{DRAWTEXT_FIX(1,0,S1+K,0,T1)COLOR00FFFF;}
DRAWTEXT_FIX(1,0.00,0.12,0,T2),COLOR00FF00;
{DRAWTEXT_FIX(1,0.00,0.1,0,T3),COLORFF00FF;}
DRAWTEXT_FIX(1,0.30,0.02,0,T4),COLOR0088FF;
DRAWTEXT_FIX(1,0.30,0.07,0,T5)COLOR00FF00;
DRAWTEXT_FIX(1,0.00,0.92,0,T6),COLOR00FFFF;
DRAWTEXT_FIX(1,0.00,0.07,0,T7),COLOR00CCFF;
{DRAWTEXT_FIX(1,0,S8+K,0,T8)COLORFF88FF;}
{DRAWTEXT_FIX(1,0,S9+K,0,T9)COLORBBFFFF;}
{DRAWTEXT_FIX(1,0.00,0.25,0,'綠芯-高位出貨堅決撤離為佳'),COLOR00FF00,LINETHICK1;}
{DRAWTEXT_FIX(1,0.00,0.3,0,'藍芯-主力低位深度洗盤或高位出貨堅決'),COLORFF0000,LINETHICK1;
DRAWTEXT_FIX(1,0.00,0.35,0,'白芯-主力輕度洗盤'),COLORFFFFFF,LINETHICK1;
DRAWTEXT_FIX(1,0.00,0.4,0,'粉芯-主力在做高拋低吸或低吸高拋'),COLORFF00FF,LINETHICK1;
DRAWTEXT_FIX(1,0.00,0.45,0,'紅芯-主力吸籌進貨積極主動'),COLOR0000FF,LINETHICK1;
DRAWTEXT_FIX(1,0.00,0.5,0,'黃芯-主力吸籌進貨強并且成交量出現黃金柱'),COLORYELLOW,LINETHICK1;}
VAR111:=ZIG(3,13);
STICKLINE((REF(VAR111,2) < REF(VAR111,1)) AND (VAR111 < REF(VAR111,1)),CLOSE,OPEN,3,0),COLOR66FF00;
DRAWTEXT_FIX(STICKLINE((REF(VAR111,2) < REF(VAR111,1)) AND (VAR111 < REF(VAR111,1)),CLOSE,OPEN,5,0),0.00,0.11,0,''),COLOR00FF00,LINETHICK1;
天線:=MA(REF(HHV(C,30),1),2),LINETHICK3,COLORMAGENTA;
地線:=MA(REF(LLV(C,30),1),2),COLORGREEN,LINETHICK3;
4.主力進出
{PP超級資金流}
流通盤:=CAPITAL/1000000,COLOR7F00FF,LINETHICK0;
ZLCM:=EMA(WINNER(CLOSE)*70,3);{//主力籌碼估算}
SHCM:=EMA((WINNER(CLOSE*1.1)-WINNER(CLOSE*0.9))*80,3);{//散戶籌碼估算}
ZSHTL:=SHCM/(ZLCM+SHCM)*200;{//散戶套牢籌碼比率}
ZZLKP:=ZLCM/(ZLCM+SHCM)*200;{//主力控盤籌碼比率}
ZCMZL:=MA(ZLCM+SHCM,13);{//市場籌碼總量}
ZZNTS:=BARSLAST(ZSHTL<90 AND REF(ZSHTL,1)>90);{//走牛天數}
ZSHJJ:=EMA(ZSHTL,89);{//散戶警戒}
ZZLJJ:=EMA(ZZLKP,89);{//主力警戒}
ZJLRQD:=INTPART(ZZLKP-ZZLJJ);{//資金流入強度}
SH8:=EMA(ZSHTL,8);
DKB:=IF(ZZLKP-REF(ZZLKP,1)>ZSHTL-REF(ZSHTL,1),1,0);
散戶套牢線1:=INTPART(ZSHTL),COLORFFEEBB,LINETHICK2;
主力控盤線1:=INTPART(ZZLKP),COLOR4D4DFF,LINETHICK2;
DRAWBAND(主力控盤線1,RGB(0,255,255),散戶套牢線1,RGB(50,50,50));
{柱狀線}
STICKLINE(((主力控盤線1>REF(主力控盤線1,1)) AND (主力控盤線1>100)),主力控盤線1,散戶套牢線1,2,0),COLOR8000FF;
主力:INTPART(ZZLKP),COLOR4D4DFF,LINETHICK2;
散:INTPART(ZSHTL),COLORFFEEBB,LINETHICK2;
{資金流入線:ZJLRQD,,COLOR7F00FF,LINETHICK2;
資金強弱線:15,COLORFF80FF,LINETHICK2,CROSSDOT;
控盤臨界線:55,COLORFF937F,LINETHICK2,CROSSDOT;
強勢控盤線:75,COLORFF3399,LINETHICK2,CROSSDOT;};
{主力監控}
B1:=(HHV(H,35)-C)/(HHV(H,35)-LLV(LOW,35))*100-35;
B2:=SMA(B1,35,1)+100;
B3:=(C-LLV(L,35))/(HHV(H,35)-LLV(L,35))*100;
B4:=SMA(B3,3,1);
B5:=SMA(B4,3,1)+100;
B6:=B5-B2;
控盤程度:(IF(B6>1,B6-1,0))*2.5,COLORRED,LINETHICK2;
控盤度:100,COLORWHITE;
{柱狀線}
控盤上:IF(控盤程度>REF(控盤程度,1), 控盤程度,DRAWNULL),
STICK,COLORYELLOW,LINETHICK1;
控盤下:IF(控盤程度<REF(控盤程度,1), 控盤程度,DRAWNULL),
STICK,COLORFF9900,LINETHICK1;
進:IF(控盤程度>REF(控盤程度,1),5,DRAWNULL),CIRCLEDOT,COLORYELLOW;
出:IF(控盤程度<REF(控盤程度,1),5,DRAWNULL),CIRCLEDOT,COLORFF9900;
{SAR}
持幣:IF(SAR(10,2,20)>=H,100,DRAWNULL),CIRCLEDOT,COLORBLUE;
持股:IF(SAR(10,2,20)<=L,100,DRAWNULL),CIRCLEDOT,COLORRED;
5.分時主圖
AA:=ABS((2*CLOSE+HIGH+LOW)/4-MA(CLOSE,N))/MA(CLOSE,N);
°2??:DMA((2*CLOSE+LOW+HIGH)/4,AA),LINETHICK3,COLORMAGENTA;
CC:=(CLOSE/??°2??);
MA1:=MA(CC*(2*CLOSE+HIGH+LOW)/4,3);
MAAA:=((MA1-??°2??)/??°2??)/3;
TMP:=MA1-MAAA*MA1;
J:IF(TMP<=??°2??,??°2??,DRAWNULL),LINETHICK3,COLORCYAN;
A:=TMP,LINETHICK2,COLORYELLOW;
X:IF(TMP<=??°2??,TMP,DRAWNULL),LINETHICK,COLORGREEN;
漲家數:INDEXADV,COLOR0080FF,NODRAW;
跌家數:INDEXDEC,COLORGREEN,NODRAW;
6.
VAR111:=ZIG(3,13);
STICKLINE((REF(VAR111,2) < REF(VAR111,1)) AND (VAR111 < REF(VAR111,1)),CLOSE,OPEN,5,0),COLOR66FF00;
DRAWTEXT_FIX(1,0.00,0,0,'所屬行業：'),COLORYELLOW;
DRAWTEXT_FIX(1,0.07,0,0,HYBLOCK),COLORYELLOW;
DRAWTEXT_FIX(1,0.14,0,0,'所屬地區：'),COLORYELLOW;
DRAWTEXT_FIX(1,0.21,0,0,DYBLOCK),COLORYELLOW;
DRAWTEXT_FIX(1,0.00,0.05,0,'千股千評：'),COLORYELLOW;
DRAWTEXT_FIX(1,0.07,0.05,0,EXTERNSTR(0,1)),COLORYELLOW;
7.
TT:=240/FROMOPEN;
比:=TT;
促進指數ＭＦＬ:=(HIGH-LOW)*1000000/(VOL*比),COLORRED;
AY2:=EMA(CLOSE,12)-EMA(CLOSE,26);
AZ2:=EMA(AY2,9);
LT2:=(AY2-AZ2);
L211:=IF(LT2,LLV(L,21),DRAWNULL),COLOR217158,CIRCLEDOT;
ZGD:=HHV(H,80)*0.99;
ZGD2:=CONST(ZGD);
ZDD:=LLV(L211,80);
ZDD2:=CONST(ZDD);
YYA4:=MA(CLOSE,20);
YYA5:=(CLOSE > MA(CLOSE,5));
YYA6:=(MA(CLOSE,5) > MA(CLOSE,10));
YYA7:=(CLOSE > MA(CLOSE,10));
YYA8:=(MA(CLOSE,5) > MA(CLOSE,20));
YYA9:=(CLOSE > MA(CLOSE,20));
YYA10:=REF(YYA4,1);
YYA11:=(YYA4 > YYA10);
YYAVX:=(((((IF(YYA5,10,(0 - 10)) + IF(YYA6,10,(0 - 10))) + IF(YYA7,10,(0 - 10))) + IF(YYA8,10,(0 - 10))) + IF(YYA9,10,(0 - 10))) + IF(YYA11,10,(0 - 10)));
DSLX:=(CLOSE / INDEXC);
DSLX1:=MA(DSLX,5);
DSLX2:=MA(DSLX,10);
YYV1:=MA(VOL,5);
YYV2:=MA(VOL,10);
J1:=CONST(IF( YYAVX > 0,200,100));
J2:=CONST(IF( YYAVX > 0,00,100));
J3:=CONST(IF( YYAVX > 0,100,100));
ZGD3:=ZGD2;
ZDD3:=ZDD2;
ZGD4:=ZGD2;
天使:=EMA(C,2),COLOR000000;
魔鬼:=EMA(SLOPE(C,21)*20+C,42),COLOR000000;
買:=CROSS(天使,魔鬼);
賣:=CROSS(魔鬼,天使);
DRAWICON(買,L*0.97,1);
DRAWTEXT(買,L*0.95,'B'),COLORYELLOW;
DRAWICON(賣,H*1.03,2);
DRAWTEXT(賣,H*1.05,'S'),COLORWHITE;
STICKLINE(天使>=魔鬼,LOW,HIGH,0.01,0),COLOR0000DD;
STICKLINE(天使>=魔鬼,CLOSE,OPEN,2,1),COLORRED;
{STICKLINE(天使>=魔鬼,CLOSE,OPEN,3,0),COLOR0000CC;
STICKLINE(天使>=魔鬼,CLOSE,OPEN,2,0),COLOR0000DD;
STICKLINE(天使>=魔鬼,CLOSE,OPEN,1,0),COLOR0000FF;}
{STICKLINE(天使<魔鬼,CLOSE,OPEN,1,0),COLOREEEE00;
STICKLINE(天使<魔鬼,CLOSE,OPEN,2,0),COLORDDDD00;
STICKLINE(天使<魔鬼,CLOSE,OPEN,3,0),COLORCCCC00;}
STICKLINE(天使<魔鬼,LOW,HIGH,0.01,0),COLORFFDD00;
STICKLINE(天使<魔鬼,CLOSE,OPEN,2,0),COLORFFFF00;
STICKLINE(CROSS(天使,魔鬼),OPEN,CLOSE,2.5,0),COLORYELLOW;
STICKLINE(CROSS(魔鬼,天使),OPEN,CLOSE,2.5,0),COLORWHITE;
情況1:=CONST(IF(((CROSS(YYAVX,1) AND (YYV1 >= YYV2)) AND (DSLX >= DSLX1)),1,0)),NODRAW;
情況2:=CONST(IF(((CROSS(YYAVX,1) AND (YYV1 < YYV2)) AND (DSLX >= DSLX1)),1,0));
情況3:=CONST(IF(((CROSS(YYAVX,1) AND (YYV1 > YYV2)) AND (DSLX < DSLX1)),1,0));
情況4:=CONST(IF(((CROSS(YYAVX,1) AND (YYV1 <= YYV2)) AND (DSLX < DSLX1)),1,0));
情況5:=CONST(IF(((CROSS(1,YYAVX) AND (YYV1 >= YYV2)) AND (DSLX >= DSLX1)),1,0));
情況6:=CONST(IF(((CROSS(1,YYAVX) AND (YYV1 < YYV2)) AND (DSLX >= DSLX1)),1,0));
情況7:=CONST(IF(((CROSS(1,YYAVX) AND (YYV1 >= YYV2)) AND (DSLX < DSLX1)),1,0));
情況8:=CONST(IF(((CROSS(1,YYAVX) AND (YYV1 < YYV2)) AND (DSLX < DSLX1)),1,0));
情況9:=CONST(IF(((((YYAVX >= 1) AND (REF(YYAVX,1) > 0)) AND (YYV1 >= YYV2)) AND (DSLX >= DSLX1)),1,0));
情況10:=CONST(IF(((((YYAVX >= 1) AND (REF(YYAVX,1) > 0)) AND (YYV1 < YYV2)) AND (DSLX >= DSLX1)),1,0));
情況11:=CONST(IF(((((YYAVX >= 1) AND (REF(YYAVX,1) > 0)) AND (YYV1 >= YYV2)) AND (DSLX < DSLX1)),1,0)),NODRAW;
情況12:=CONST(IF(((((YYAVX >= 1) AND (REF(YYAVX,1) > 0)) AND (YYV1 < YYV2)) AND (DSLX < DSLX1)),1,0));
情況13:=CONST(IF(((((YYAVX < 1) AND (REF(YYAVX,1) < 0)) AND (YYV1 >= YYV2)) AND (DSLX >= DSLX1)),1,0));
情況14:=CONST(IF(((((YYAVX < 1) AND (REF(YYAVX,1) < 0)) AND (YYV1 < YYV2)) AND (DSLX >= DSLX1)),1,0));
情況15:=CONST(IF(((((YYAVX < 1) AND (REF(YYAVX,1) < 0)) AND (YYV1 >= YYV2)) AND (DSLX < DSLX1)),1,0));
情況16:=CONST(IF(((((YYAVX < 1) AND (REF(YYAVX,1) < 0)) AND (YYV1 < YYV2)) AND (DSLX < DSLX1)),1,0));
大盤1:=CONST(IF((CROSS(YYAVX,1) AND (YYV1 >= YYV2)),1,0));
大盤2:=CONST(IF((CROSS(YYAVX,1) AND (YYV1 < YYV2)),1,0));
大盤3:=CONST(IF((CROSS(1,YYAVX) AND (YYV1 >= YYV2)),1,0));
大盤4:=CONST(IF((CROSS(1,YYAVX) AND (YYV1 < YYV2)),1,0));
大盤5:=CONST(IF((((YYAVX >= 1) AND (REF(YYAVX,1) > 0)) AND (YYV1 >= YYV2)),1,0));
大盤6:=CONST(IF((((YYAVX >= 1) AND (REF(YYAVX,1) > 0)) AND (YYV1 < YYV2)),1,0));
大盤7:=CONST(IF((((YYAVX < 1) AND (REF(YYAVX,1) < 0)) AND (YYV1 >= YYV2)),1,0));
大盤8:=CONST(IF((((YYAVX < 1) AND (REF(YYAVX,1) < 0)) AND (YYV1 < YYV2)),1,0));
MFI:=(HIGH-LOW)*1000000/(VOL*比);
綠燈:=MFI>=REF(MFI,1)AND VOL*比>=REF(VOL,1);
MMM1:=CONST(綠燈);
衰退:=MFI<REF(MFI,1)AND VOL*比<REF(VOL,1);
MMM2:=CONST(衰退);
偽裝:=MFI>=REF(MFI,1)AND VOL*比<REF(VOL,1);
MMM3:=CONST(偽裝);
蟄伏:=MFI<REF(MFI,1)AND VOL*比>=REF(VOL,1);
MMM4:=CONST(蟄伏);
TS1:=IF(情況1=1,0.7+0.06,0.7);
TS2:=IF(情況2=1,TS1+0.06,TS1);
TS3:=IF(情況3=1,TS2+0.06,TS2);
TS4:=IF(情況4=1,TS3+0.06,TS3);
TS5:=IF(情況5=1,TS4+0.06,TS4);
TS6:=IF(情況6=1,TS5+0.06,TS5);
TS7:=IF(情況7=1,TS6+0.06,TS6);
TS8:=IF(情況8=1,TS7+0.06,TS7);
TS9:=IF(情況9=1,TS8+0.06,TS8);
TS10:=IF(情況10=1,TS9+0.06,TS9);
TS11:=IF(情況11=1,TS10+0.06,TS10);
TS12:=IF(情況12=1,TS11+0.06,TS11);
TS13:=IF(情況13=1,TS12+0.06,TS12);
TS14:=IF(情況14=1,TS13+0.06,TS13);
TS15:=IF(情況15=1,TS14+0.06,TS14);
TS16:=IF(情況16=1,TS15+0.06,TS15);
TS17:=IF(大盤1=1,TS16+0.06,TS16);
TS18:=IF(大盤2=1,TS17+0.06,TS17);
TS19:=IF(大盤3=1,TS18+0.06,TS18);
TS20:=IF(大盤4=1,TS19+0.06,TS19);
TS21:=IF(大盤5=1,TS20+0.06,TS20);
TS22:=IF(大盤6=1,TS21+0.06,TS21);
TS23:=IF(大盤7=1,TS22+0.06,TS22);
TS24:=IF(大盤8=1,TS23+0.06,TS23);
TS25:=IF(MMM1=1,TS24+0.06,TS24);
TS26:=IF(MMM2=1,TS25+0.06,TS25);
TS27:=IF(MMM3=1,TS26+0.06,TS26);
TS28:=IF(MMM4=1,TS27+0.06,TS27);
DRAWTEXT_FIX(情況1=1 ,0,TS1,0,'量能理想,明顯走強,中線參與，倉位在2/3左右'),COLORFF00FF;
DRAWTEXT_FIX(情況2=1 ,0,TS2,0,'走勢趨強量能不足，短線進場，倉位在1/2左右'),COLORFF00FF;
DRAWTEXT_FIX(情況3=1 ,0,TS3,0,'量價良好，并沒有明顯走強，短線進場，倉位1/2左右。'),COLORFF00FF;
DRAWTEXT_FIX(情況4=1 ,0,TS4,0,'形態尚可，量能不足，未完全走強,短線參與，倉位1/3左右。'),COLORFF00FF;
DRAWTEXT_FIX(情況5=1 ,0,TS5,0,'形態變壞，走勢尚可，重倉減大半，清倉者觀望。'),COLOR00FFFF;
DRAWTEXT_FIX(情況6=1 ,0,TS6,0,'隨大盤一起下跌，明顯縮量走勢，考慮大盤風險，減持或清倉。'),COLOR00FFFF;
DRAWTEXT_FIX(情況7=1 ,0,TS7,0,'該股放量下跌，走勢明顯偏弱，離場觀望。'),COLORFFFFFF;
DRAWTEXT_FIX(情況8=1 ,0,TS8,0,'該股縮量下跌，走勢偏弱，離場觀望。'),COLORFFFF00;
DRAWTEXT_FIX(情況9=1 ,0,TS9,0,'該股形態良好，強勢明顯，量能充足，可以繼續持有。'),COLOR00FFFF;
DRAWTEXT_FIX(情況10=1,0,TS10,0,'該股上行趨勢不變，強勢依然，但量能開始轉弱，注意風險'),COLOR00FFFF;
DRAWTEXT_FIX(情況11=1,0,TS11,0,'該股仍然具備上漲潛力，但股性偏弱，可考慮減倉。'),COLORFFFFFF;
DRAWTEXT_FIX(情況12=1,0,TS12,0,'該股走勢趨弱，量能不足，減持大部分籌碼'),COLORFFFF00;
DRAWTEXT_FIX(情況13=1,0,TS13,0,'該股形態不佳，注意成交量的變化，但目前不適合參與。'),COLORFFFF00;
DRAWTEXT_FIX(情況14=1,0,TS14,0,'該股趨勢不明，股價偏弱，注意量能變化，目前不宜參與。'),COLORFFFF00;
DRAWTEXT_FIX(情況15=1,0,TS15,0,'有走強跡象，但量能不足，趨勢不明，不適合操作'),COLORFFFF00;
DRAWTEXT_FIX(情況16=1,0,TS16,0,'該股走勢太弱，沒有參與價值。'),COLORFFFFFF;
DRAWTEXT_FIX(大盤1,0,TS17,0,'總勢量能理想,2/3倉位, 前一輪下跌，是否最佳買點，否則謹慎介入。'),COLOR00FF00;
DRAWTEXT_FIX(大盤2,0,TS18,0,'總勢趨強，量能不足，若前一輪下跌，短線進場1/2，量能放大加倉。'),COLORFF00FF;
DRAWTEXT_FIX(大盤3,0,TS19,0,'總勢形態走壞，重倉者可以減去大部分倉位。'),COLORAAAAAA;
DRAWTEXT_FIX(大盤4,0,TS20,0,'總勢縮量調整，注意風險，短線清倉觀望。'),COLORFFFFFF;
DRAWTEXT_FIX(大盤5,0,TS21,0,'總勢走勢良好，量能理想，可以繼續持有強勢股。'),COLOR00FFFF;
DRAWTEXT_FIX(大盤6,0,TS22,0,'總勢形態良好，但量能稍顯不足，隨時準備減倉'),COLOR00FF00;
DRAWTEXT_FIX(大盤7,0,TS23,0,'總勢趨勢不明，注意成交量變化，目前不適宜進場。'),COLORFFFFFF;
DRAWTEXT_FIX(大盤8,0,TS24,0,'總勢趨勢向下，量能萎縮，不適合進場。'),COLORFFFFFF;
DRAWTEXT_FIX(MMM1,0,TS25,0,'［綠燈］實計交易量增加。MFI促進指數增加。'),COLORFFFFFF;
DRAWTEXT_FIX(MMM2,0,TS26,0,'［衰退］實計交易量減少。MFI促進指數減少。'),COLORGREEN;
DRAWTEXT_FIX(MMM3,0,TS27,0,'［偽裝］實計交易量減少。MFI促進指數增加。'),COLORGREEN;
DRAWTEXT_FIX(MMM4,0,TS28,0,'［蟄伏］實計交易量增加。MFI促進指數減少。'),COLORYELLOW;
8.多空天地線
VAR2:=485;
VAR3:=222;
VAR4:=96;
VAR5:=MA(HHV(HIGH,VAR2),17);
VAR6:=MA(HHV(HIGH,VAR3),17);
VAR7:=MA(HHV(HIGH,VAR4),17);
VAR8:=MA(LLV(LOW,VAR2),17);
VAR9:=MA(LLV(LOW,VAR3),17);
VARA:=MA(LLV(LOW,VAR4),17);
VARB:=MA((VAR8*0.96+VAR9*0.96+VARA*0.96+VAR5*0.558+VAR6*0.558+VAR7*0.558)/6,17);
VARC:=MA((VAR8*1.25+VAR9*1.23+VARA*1.2+VAR5*0.55+VAR6*0.55+VAR7*0.65)/6,17);
VARD:=MA((VAR8*1.3+VAR9*1.3+VARA*1.3+VAR5*0.68+VAR6*0.68+VAR7*0.68)/6,17);
VARE:=MA((VARB*3+VARC*2+VARD)/6*1.738,17);
VARF:=MA((VARB*2.38+VARC*2.18+VARD*1.85+VAR5*1.05)/4,17);
VAR10:=MA((VARD+VARE)*0.5,17);
滿倉: VARB;
半倉: VARC;
低吸: VARD;
中線: VAR10;
高拋: VARE;
出貨: VARF;
9.DDX最新
N:=20;JJ:=(HIGH+LOW+CLOSE)/3;QJ0:=VOL/IF(HIGH=LOW,4,HIGH-LOW);
QJ1:=IF(CAPITAL=0,QJ0*(JJ-MIN(CLOSE,OPEN)),QJ0*IF(HIGH=LOW,1,(MIN(OPEN,CLOSE)-LOW)));
QJ2:=IF(CAPITAL=0,QJ0*(MIN(OPEN,CLOSE)-LOW),QJ0*IF(HIGH=LOW,1,(JJ-MIN(CLOSE,OPEN))));
QJ3:=IF(CAPITAL=0,QJ0*(HIGH-MAX(OPEN,CLOSE)),QJ0*IF(HIGH=LOW,1,(HIGH-MAX(OPEN,CLOSE))));
QJ4:=IF(CAPITAL=0,QJ0*(MAX(CLOSE,OPEN)-JJ),QJ0*IF(HIGH=LOW,1,(MAX(CLOSE,OPEN)-JJ)));
DDX:((QJ1+QJ2)-(QJ3+QJ4))/IF(CAPITAL=0,1000000,10000),COLOR00AAAA,LINETHICK;
DX:=MA(DDX,5)*N;
STICKLINE(DDX>0,0,DDX,3,0),COLOR000088;
STICKLINE(DDX>0,0,DDX,2.5,0),COLOR0000AA;
STICKLINE(DDX>0,0,DDX,1.5,0),COLOR0000CC;
STICKLINE(DDX>0,0,DDX,1,0),COLOR0000EE;
STICKLINE(DDX<0,0,DDX,3,0),COLOR008800;
STICKLINE(DDX<0,0,DDX,2.5,0),COLOR00AA00;
STICKLINE(DDX<0,0,DDX,1.5,0),COLOR00CC00;
STICKLINE(DDX<0,0,DDX,1,0),COLOR00EE00;
DDX1:SMA(DX,3,1),COLORFFFFFF;
DDX2:SMA(DDX1,3,1),COLOR00FFFF;
DDX3:EMA(DDX2,5),COLORFF00FF;
預警:DDX>0 AND MA(V,5)>MA(MA(V,5),5) AND CROSS(DDX1,DDX2),LINETHICK;
天:=COUNT(DDX>0,5),COLORRED;
DRAWTEXT(預警,DDX*1.06,'★'),LINETHICK3,COLOR00FFFF;
10.DDY最新
N:=22;JJ:=(HIGH+LOW+CLOSE)/3;QJ0:=VOL/IF(HIGH=LOW,4,HIGH-LOW);
QJ1:=IF(CAPITAL=0,QJ0*(JJ-MIN(CLOSE,OPEN)),QJ0*IF(HIGH=LOW,1,(MIN(OPEN,CLOSE)-LOW)));
QJ2:=IF(CAPITAL=0,QJ0*(MIN(OPEN,CLOSE)-LOW),QJ0*IF(HIGH=LOW,1,(JJ-MIN(CLOSE,OPEN))));
QJ3:=IF(CAPITAL=0,QJ0*(HIGH-MAX(OPEN,CLOSE)),QJ0*IF(HIGH=LOW,1,(HIGH-MAX(OPEN,CLOSE))));
QJ4:=IF(CAPITAL=0,QJ0*(MAX(CLOSE,OPEN)-JJ),QJ0*IF(HIGH=LOW,1,(MAX(CLOSE,OPEN)-JJ)));
DDY:((QJ2+QJ4)-(QJ1+QJ3))/IF(CAPITAL=0,1000000,10000),COLOR00DD00,LINETHICK;
DY:=MA(DDY,5)*N;
STICKLINE(DDY<0,0,DDY,3,0),COLORFF8800;
STICKLINE(DDY<0,0,DDY,2.5,0),COLORFFAA00;
STICKLINE(DDY<0,0,DDY,1.5,0),COLORFFCC00;
STICKLINE(DDY<0,0,DDY,1,0),COLORFFEE00;
STICKLINE(DDY>0,0,DDY,3,0),COLOR880088;
STICKLINE(DDY>0,0,DDY,2.5,0),COLORAA00AA;
STICKLINE(DDY>0,0,DDY,1.5,0),COLORCC00CC;
STICKLINE(DDY>0,0,DDY,1,0),COLOREE00EE;
DDY1:SMA(DY,3,1),COLORFFFFFF;
DDY2:SMA(DDY1,3,1),COLOR00FFFF;
DDY3:EMA(DDY2,5),COLORFF00FF;
預警:DDY>0 AND CROSS(DDY1,DDY2) AND DDY1<0,LINETHICK;
DRAWTEXT(預警,DDY*1.06,'★'),LINETHICK3,COLOR00BBFF;
11.分時買賣主
AA:=ABS((2*CLOSE+HIGH+LOW)/4-MA(CLOSE,N))/MA(CLOSE,N);
°2??:DMA((2*CLOSE+LOW+HIGH)/4,AA),LINETHICK3,COLORMAGENTA;
CC:=(CLOSE/??°2??);
MA1:=MA(CC*(2*CLOSE+HIGH+LOW)/4,3);
MAAA:=((MA1-??°2??)/??°2??)/3;
TMP:=MA1-MAAA*MA1;
J:IF(TMP<=??°2??,??°2??,DRAWNULL),LINETHICK3,COLORCYAN;
A:TMP,LINETHICK2,COLORYELLOW;
X:IF(TMP<=??°2??,TMP,DRAWNULL),LINETHICK2,COLORGREEN;
12.分時鳳舞九天
RCC:=DYNAINFO(3);
S2:=SMA(C,2,1);
S6:=SMA(C,3,1);
DK:=8*(S2-S6);
KK:=IF(PERIOD=8,0.95,1);
XG:HHV(H,480),COLORRED,LINETHICK9;
STICKLINE(FILTER(CROSS(C,REF(XG,1)),10),C*0.99,C,8,0),COLORYELLOW;
DRAWTEXT(FILTER(CROSS(C,REF(XG,1)),10),C*0.99,'★多頭上攻+先看量比曲線+逢高賣出■★★★★★★★★★★ '),COLORRED;
XY:LLV(H,480),COLOR00FF00,LINETHICK9;
STICKLINE(FILTER(CROSS(C,REF(XY,1)),10),C*0.99,C,8,0),COLOR00FF00;
DRAWTEXT(FILTER(CROSS(C,REF(XY,1)),10),C*0.99,'★空頭砸盤+先看量比曲線+慎重補倉■★★★★★★★★★★★★★'),COLORYELLOW;
QM0:=ZST1.凈流入#DAY;
QM1:=ZST1.超大單#DAY;
QM2:=ZST1.大單#DAY;
QM3:=ZST1.中單#DAY;
QM4:=ZST1.小單#DAY;
QMAXV:=ZST1.DAZHI#DAY;
{DRAWRECTREL(0,649,252,999.2,IF(120,RGB(10,0,0),0));}
DRAWRECTREL(0,CONST(950-(ABS(QM0)*200/QMAXV)),40,950,IF(CONST(QM0)>0,RGB(100,0,0),RGB(0,50,0)));
DRAWRECTREL(50,CONST(950-(ABS(QM1)*200/QMAXV)),90,950,IF(CONST(QM1)>0,RGB(100,0,0),RGB(0,50,0)));
DRAWRECTREL(100,CONST(950-(ABS(QM2)*200/QMAXV)),140,950,IF(CONST(QM2)>0,RGB(100,0,0),RGB(0,50,0)));
DRAWRECTREL(150,CONST(950-(ABS(QM3)*200/QMAXV)),190,950,IF(CONST(QM3)>0,RGB(100,0,0),RGB(0,50,0)));
DRAWRECTREL(200,CONST(950-(ABS(QM4)*200/QMAXV)),240,950,IF(CONST(QM4)>0,RGB(100,0,0),RGB(0,50,0)));
DRAWTEXT_FIX(CURRBARSCOUNT=1,0,1,0,'凈流'),COLORYELLOW;
DRAWTEXT_FIX(CURRBARSCOUNT=1,0.053,1,0,'超大'),COLORYELLOW;
DRAWTEXT_FIX(CURRBARSCOUNT=1,0.103,1,0,'大戶'),COLORYELLOW;
DRAWTEXT_FIX(CURRBARSCOUNT=1,0.153,1,0,'中戶'),COLORYELLOW;
DRAWTEXT_FIX(CURRBARSCOUNT=1,0.204,1,0,'散戶'),COLORYELLOW;
分時線:CLOSE,COLORWHITE;
大單動向:="DDX.大單動向#DAY",NODRAW;
DRAWTEXT_FIX(1,0.537,0.99,0,'DDX:'),COLORWHITE;
DRAWNUMBER_FIX(1,0.577,0.99,0,CONST(大單動向)),COLORRED;
漲跌動因:="DDY.漲跌動因#DAY",NODRAW;
DRAWTEXT_FIX(1,0.637,0.99,0,'DDY:'),COLORWHITE;
DRAWNUMBER_FIX(1,0.677,0.99,0,CONST(漲跌動因)),COLORRED;
大單差分:="DDZ.大單差分#DAY",NODRAW;
DRAWTEXT_FIX(1,0.737,0.99,0,'DDZ:'),COLORWHITE;
DRAWNUMBER_FIX(1,0.777,0.99,0,CONST(大單差分)),COLORRED;
均線:IF(BETWEEN(C/(SUM(AMOUNT,0)/SUM(VOL*100,0)),
1.05,0.95)=0,MA(C,0),(SUM(AMOUNT,0)/SUM(VOL*100,0))),COLORMAGENTA ,LINETHICK8;
AAA:DYNAINFO(5),COLORWHITE,LINETHICK1,POINTDOT;{最高}
BBB:DYNAINFO(6),COLORWHITE,LINETHICK1,POINTDOT;{最低}
CCC:=AAA-BBB;中G:(AAA+BBB)/2,COLORWHITE,LINETHICK1,POINTDOT;{中}
上頂:BBB+CCC*7/8,COLORWHITE,DOTLINE;
阻力:BBB+CCC*2/3,COLORWHITE,LINETHICK1,POINTDOT;
支撐:BBB+CCC/3,COLORWHITE,LINETHICK1,POINTDOT;
下底:BBB+CCC*1/8,COLORWHITE,DOTLINE;
DRAWNUMBER(CURRBARSCOUNT=12,AAA*0.9995,AAA),COLORFFAAFF;
DRAWNUMBER(CURRBARSCOUNT=12,BBB,BBB),COLORDDDD00;
DRAWNUMBER(CURRBARSCOUNT=12,中G,中G),COLORDDDDDD;
DRAWNUMBER(CURRBARSCOUNT=12,上頂,上頂),COLOR00FFFF;
DRAWNUMBER(CURRBARSCOUNT=12,阻力,阻力),COLOR00FFFF;
DRAWNUMBER(CURRBARSCOUNT=12,支撐,支撐),COLOR00FFFF;
DRAWNUMBER(CURRBARSCOUNT=12,下底,下底),COLOR00FFFF;
DRAWTEXT(CURRBARSCOUNT=20,AAA*0.9995,'最高:'),COLORFFAAFF;
DRAWTEXT(CURRBARSCOUNT=20,BBB,'最低:'),COLORGREEN;
DRAWTEXT(CURRBARSCOUNT=20,上頂,'上頂:'),COLOR00FF00;
DRAWTEXT(CURRBARSCOUNT=20,阻力,'阻力:'),COLORFFFF00;
DRAWTEXT(CURRBARSCOUNT=20,支撐,'支撐:'),COLORFFFF00;
DRAWTEXT(CURRBARSCOUNT=20,下底,'下底:'),COLOR00FFFF;
DRAWTEXT(CURRBARSCOUNT=20,中G,'平衡:'),COLOREEEEEE;
DRAWTEXT(LONGCROSS(下底,分時線,2),BBB*1.001,'★買★'),COLORRED;{吸}
DRAWTEXT(LONGCROSS(分時線,上頂,2),分時線,'★賣★'),COLORRED;{拋};
漲家數:INDEXADV,COLOR0080FF,NODRAW;
跌家數:INDEXDEC,COLORGREEN,NODRAW;
13.黑馬線
LS261:=EMA(CLOSE,2);
LS262:=EMA(CLOSE,150);
LS26:=LS261-LS262;
LS27:=EMA(LS26,100);
LS28:=2*(LS26-LS27);
LS29:=POW(LS28,3)*0.1+POW(LS28,1);
黑馬線:IF(LS28>0.1,LS29,0)*5,COLOR0066FF,LINETHICK2;
馬線:EMA(黑馬線,3),COLORBLUE,LINETHICK2;
量價線:=(CLOSE-MA(CLOSE,21))/MA(CLOSE,21)*100,COLORMAGENTA,LINETHICK1;
量價1:=EMA(量價線,3),COLORWHITE;
量價2:=EMA(EMA(量價線,3),3),COLORCYAN;
啟動:CROSS(黑馬線,0.01)*黑馬線,STICK,COLORYELLOW,LINETHICK3;
DRAWICON(啟動>0 AND 馬線>REF(馬線,1),0.2,1);
{起跑指標}
VAR1:=LLV(L,3)<=LLV(L,60);
VAR2:=C>O AND (C/O>1.03 OR C/REF(C,1)>1.03);
起:IF(VAR1 AND VAR2,量價線,0),STICK,COLORRED,LINETHICK3;
DRAWTEXT(起>0 OR 起<0 ,0.8 , '▲'),COLORRED,LINETHICK1;
VAR3:=HHV(H,3)>=HHV(H,60);
VAR4:=C<O AND (C/O<0.97 OR C/REF(C,1)<0.97);
跑:IF(VAR3 AND VAR4,黑馬線,0),STICK,COLORFF6600,LINETHICK3;
DRAWICON(跑>0,0.2,2);
14.M資金趨勢
{MACD資金趨勢}
A:=VOL*C;
B:=SUM(A,1)/SUM(VOL,1);
B1:=EMA(B,17);
資金:=(B-B1)*100/B;
DIFF:EMA(資金,12)-EMA(資金,26),COLORYELLOW;
DEA:EMA(DIFF,9),COLORLIGRAY;
MAC: 2*(DIFF-DEA), COLORSTICK;
STICKLINE(MAC>=REF(MAC,1)AND MAC>0,0,MAC,3,0),COLOR0000AA;{紅色}
STICKLINE(MAC>=REF(MAC,1)AND MAC>0,0,MAC,2,0),COLOR0000CC;
STICKLINE(MAC>=REF(MAC,1)AND MAC>0,0,MAC,1,0),COLOR0000EE;
STICKLINE(MAC>=REF(MAC,1)AND MAC>0,0,MAC,0.1,0),COLOR5555FF;
STICKLINE(MAC>=REF(MAC,1)AND MAC>0,0,MAC,0,0),COLOR8080FF;
STICKLINE(MAC<REF(MAC,1)AND MAC>0,0,MAC,3,0),COLOR770077;{紫色}
STICKLINE(MAC<REF(MAC,1)AND MAC>0,0,MAC,2,0),COLOR990099;
STICKLINE(MAC<REF(MAC,1)AND MAC>0,0,MAC,1,0),COLORBB00BB;
STICKLINE(MAC<REF(MAC,1)AND MAC>0,0,MAC,0,0),COLORDD00DD;
STICKLINE(MAC<REF(MAC,1)AND MAC>0,0,MAC,0.1,0),COLORFF00FF;
STICKLINE(MAC>REF(MAC,1)AND MAC<0,0,MAC,3,0),COLORFF0000;{藍色}
STICKLINE(MAC>REF(MAC,1)AND MAC<0,0,MAC,2,0),COLORFF5500;
STICKLINE(MAC>REF(MAC,1)AND MAC<0,0,MAC,1,0),COLORFF9900;
STICKLINE(MAC>REF(MAC,1)AND MAC<0,0,MAC,0,0),COLORFFFF00;
STICKLINE(MAC<=REF(MAC,1)AND MAC<0,0,MAC,3,0),COLOR155500;{綠色}
STICKLINE(MAC<=REF(MAC,1)AND MAC<0,0,MAC,2,0),COLOR208000;
STICKLINE(MAC<=REF(MAC,1)AND MAC<0,0,MAC,1,0),COLOR2BAA00;
STICKLINE(MAC<=REF(MAC,1)AND MAC<0,0,MAC,0.1,0),COLOR35D500;
STICKLINE(MAC<=REF(MAC,1)AND MAC<0,0,MAC,0,0),COLOR40FF00;
EMA(DIFF,26),CROSSDOT,COLORFF3333,LINETHICK1;
DIFF,COLORYELLOW;DEA;
15.分時主圖
AA:=ABS((2*CLOSE+HIGH+LOW)/4-MA(CLOSE,N))/MA(CLOSE,N);
°2??:DMA((2*CLOSE+LOW+HIGH)/4,AA),LINETHICK3,COLORMAGENTA;
CC:=(CLOSE/??°2??);
MA1:=MA(CC*(2*CLOSE+HIGH+LOW)/4,3);
MAAA:=((MA1-??°2??)/??°2??)/3;
TMP:=MA1-MAAA*MA1;
J:IF(TMP<=??°2??,??°2??,DRAWNULL),LINETHICK3,COLORCYAN;
A:=TMP,LINETHICK2,COLORYELLOW;
X:IF(TMP<=??°2??,TMP,DRAWNULL),LINETHICK,COLORGREEN;
漲家數:INDEXADV,COLOR0080FF,NODRAW;
跌家數:INDEXDEC,COLORGREEN,NODRAW;
16.均+量選股
VAR15:=MA(CLOSE,5);
VAR16:=MA(CLOSE,13);
VAR17:=MA(CLOSE,21);
VAR18:=MA(CLOSE,34);
VAR19:=MA(CLOSE,55);
VAR20:=MA(CLOSE,144);
VAR21:=MA(CLOSE,233);
WW5:=RANGE(VAR15 ,O,C);
QQ13:=RANGE(VAR16 ,O,C);
GG21:=RANGE(VAR17 ,O,C);
DD34:=RANGE(VAR18 ,O,C);
WW55:=RANGE(VAR19 ,O,C);
TT144:=RANGE(VAR20 ,O,C);
GG233:=RANGE(VAR21 ,O,C);
JJBB:=WW5+QQ13+GG21+DD34+WW55+TT144+GG233;
VOLUME:=VOL;
MAVOL1:=MA(VOLUME,5);
MAVOL2:=MA(VOLUME,34);
MAVOL3:=MA(VOLUME,144);
V2:=IF(CURRBARSCOUNT=1,VOL*240/FROMOPEN/REF(VOL,1)-1,VOL/REF(VOL,1)-1);
選股:JJBB>=3 AND V2>=1,COLORYELLOW;
17.DDX.
AA:=VOL/((HIGH-LOW)*2-ABS(CLOSE-OPEN));
買量:=IF(CLOSE>OPEN,AA*(HIGH-LOW),IF(CLOSE<OPEN,AA*((HIGH-OPEN)+(CLOSE-LOW)),VOL/2)),LINETHICK0;
賣量:=IF(CLOSE>OPEN,0-AA*((HIGH-CLOSE)+(OPEN-LOW)),IF(CLOSE<OPEN,0-AA*(HIGH-LOW),0-VOL/2)),LINETHICK0,COLORCYAN;
大單動向:(買量+賣量)*10000/FINANCE(7),COLOR00FFFF,NODRAW;
STICKLINE(大單動向<0,0,大單動向,2,0),COLORCYAN;
STICKLINE(大單動向<0,0,大單動向,2,0),COLORCYAN;
STICKLINE(大單動向<0,0,大單動向,2,0),COLORCYAN;
STICKLINE(大單動向<0,0,大單動向,0.5,0),COLORCYAN;
STICKLINE(大單動向>0,0,大單動向,2,0),COLORRED;
STICKLINE(大單動向>0,0,大單動向,1,0),COLORRED;
STICKLINE(大單動向>0,0,大單動向,1.5,0),COLORRED;
STICKLINE(大單動向>0,0,大單動向,0.5,0),COLORRED;
MA1:MA(大單動向,N)COLORYELLOW;
18.定選
位置1:=REF(HHV(H,N1),N2);
定點1:=REFDATE(位置1,DATE);
位置2:=REF(LLV(L,M1),M2);
定點2:=REFDATE(位置2,DATE);
定選1:=IF(定點2=L AND ((C-L)>(O-C) OR (O-L)>(C-O)),1,0);
定選2:IF(定點2=L AND ((HIGH-MAX(CLOSE,OPEN))>(MAX(CLOSE,OPEN)-MIN(CLOSE,OPEN))*1.03
OR (MIN(CLOSE,OPEN)-LOW)>(MAX(CLOSE,OPEN)-MIN(CLOSE,OPEN))*1.03),1,0);
19.
DRAWTEXT_FIX(1,0.0,0.06,0,DYBLOCK),COLOR0079FF;
DRAWTEXT_FIX(1,0.06,0.06,0,HYBLOCK),COLORFFFFFF;
DRAWTEXT_FIX(1,0.12,0.06,0,EXTERNSTR(0,10)),COLOR0077FF;
DRAWTEXT_FIX(1,0,0.12,0,STRCAT('千股千評：',EXTERNSTR(0,1)));
DRAWTEXT_FIX(1,0,0.18,0,STRCAT('年報業績：',EXTERNSTR(0,8))),COLORFF00FF;
DRAWTEXT_FIX(1,0,0.24,0,STRCAT('智能診斷：',EXTERNSTR(0,12))),COLOR0000FF;
DRAWTEXT_FIX(1,0.0,0.00,0,'★五里理念★： ★趨勢為先，看長做短, 5線分倉, 波段操作★
★★嚴守紀律, 堅決止損★★ ★★★永遠不要讓個股的虧損超過5-7℅!★★★'),COLORFF66FF;
20.機構持倉
換手:=V*100/CAPITAL;
主力:=MA(換手,4);
大戶:=MA(換手,9);
中戶:=MA(換手,17);
散戶:=MA(換手,34);
均量:=(主力+大戶+中戶+散戶)/4;
主力能量:=(主力-均量);
操盤:STICKLINE(主力能量>=0 AND 主力能量>=REF(主力能量,1),0,主力能量,2,0),COLORRED;
減倉:STICKLINE(主力能量>=0 AND 主力能量< REF(主力能量,1),0,主力能量,2,0),COLORLIMAGENTA;
反彈:STICKLINE(主力能量<0 AND 主力能量>=REF(主力能量,1),0,主力能量,2,0),COLORLIGRAY;
尋底:STICKLINE(主力能量<0 AND 主力能量< REF(主力能量,1),0,主力能量,2,0),COLORGREEN;
21.
預高:(C+REF(C,1)+REF(C,2)+REF(C,3)+REF(C,4)+REF(C,5)+REF(C,6)+REF(C,7)+REF(C,8)+REF(C,9)+REF(C,10)+REF(C,11)+REF(C,12)+REF(C,13)+REF(C,14)+REF(C,15)+REF(C,16)+REF(C,17)+REF(C,18)+REF(C,19)+(C*1.1))/21,COLORRED,NODRAW;
預低:(C+REF(C,1)+REF(C,2)+REF(C,3)+REF(C,4)+REF(C,5)+REF(C,6)+REF(C,7)+REF(C,8)+REF(C,9)+REF(C,10)+REF(C,11)+REF(C,12)+REF(C,13)+REF(C,14)+REF(C,15)+REF(C,16)+REF(C,17)+REF(C,18)+REF(C,19)+(C*0.9))/21,COLORGREEN,NODRAW;
STICKLINE(ISLASTBAR,預高,預低,0.1,0),COLORYELLOW;
DRAWTEXT_FIX(1,0,0,0,STRCAT('千股千評：',EXTERNSTR(0,1))),COLORRED;
DRAWTEXT_FIX(1,0,0.1,0,STRCAT('年報業績：',EXTERNSTR(0,8))),COLORYELLOW;
DRAWTEXT_FIX(1,0,0.5,0,STRCAT('中報業績：',EXTERNSTR(0,9))),COLORBLUE;
DRAWTEXT_FIX(1,0,0.6,0,STRCAT('主題投資：',EXTERNSTR(0,10))),COLORBROWN;
DRAWTEXT_FIX(1,0,0.7,0,STRCAT('機構評級：',EXTERNSTR(0,11))),COLORCYAN;
DRAWTEXT_FIX(1,0,0.8,0,STRCAT('智能診斷：',EXTERNSTR(0,12))),COLORRED;
DRAWTEXT_FIX(1,0,1,0,STRCAT('敢死隊席位：',EXTERNSTR(0,13))),COLORLIMAGENTA;
DRAWTEXT_FIX(1,0.6,0,0,STRCAT('業績預報：',EXTERNSTR(0,14))),COLORYELLOW;
DRAWTEXT_FIX(1,0.6,0.1,0,STRCAT('解禁日期：',EXTERNSTR(0,15))),COLORBLUE;
22.五里1號
DRAWTEXT_FIX(1,0.0,0.06,0,DYBLOCK),COLOR0079FF;
DRAWTEXT_FIX(1,0.06,0.06,0,HYBLOCK),COLORFFFFFF;
DRAWTEXT_FIX(1,0.12,0.06,0,EXTERNSTR(0,10)),COLOR0077FF;
DRAWTEXT_FIX(1,0,0.12,0,STRCAT('千股千評：',EXTERNSTR(0,1)));
DRAWTEXT_FIX(1,0,0.18,0,STRCAT('年報業績：',EXTERNSTR(0,8))),COLORFF00FF;
DRAWTEXT_FIX(1,0,0.24,0,STRCAT('智能診斷：',EXTERNSTR(0,12))),COLOR0000FF;
DRAWTEXT_FIX(1,0.0,0.00,0,'★五里理念★： ★趨勢為先，看長做短, 5線分倉, 波段操作★
★★嚴守紀律, 堅決止損★★ ★★★永遠不要讓個股的虧損超過5-7℅!★★★'),COLORFF66FF;
23.自動劃線
A1:=REF(HIGH,3)=HHV(HIGH,2*3+1);
B1:=FILTER(A1,3);
C1:=BACKSET(B1,3+1);
D1:=FILTER(C1,3);{高點}
A2:=REF(LOW,3)=LLV(LOW,2*3+1);
B2:=FILTER(A2,3);
C2:=BACKSET(B2,3+1);
D2:=FILTER(C2,3);{低點}
E1:=(REF(LLV(LOW,2*3),1)+REF(HHV(HIGH,2*3),1))/2;
E2:=(HIGH+LOW)/2;{高低點出現在同一K線上時可作取舍}
H1:=(D1 AND NOT(D2 AND E1>=E2)) OR ISLASTBAR OR BARSCOUNT(CLOSE)=1;
H2:=D1 AND NOT(D2 AND E1>=E2);
L1:=D2 AND NOT(D1 AND E1=E2);
X1:=REF(BARSLAST(H1),1)+1;
F1:=BACKSET(H1 AND COUNT(L1,X1)>0,LLVBARS(IF(L1,LOW,10000),X1));
G1:=F1>REF(F1,1);
I1:=BACKSET(G1,2);
LD:=I1>REF(I1,1);{過濾后低點}
L2:=LD OR ISLASTBAR OR BARSCOUNT(CLOSE)=1;
X2:=REF(BARSLAST(L2),1)+1;
F2:=BACKSET(L2 AND COUNT(H2,X2)>0,HHVBARS(IF(H2,HIGH,0),X2));
G2:=F2>REF(F2,1);
I2:=BACKSET(G2,2);
HD:=I2>REF(I2,1);{過濾后高點}
J1:=BACKSET(ISLASTBAR,MIN(BARSLAST(HD),BARSLAST(LD))+1);
J2:=J1>REF(J1,1);
A3:=H; B3:=REF(H,REF(BARSLAST(HD),1)+1)>REF(H,REF(BARSLAST(HD),1)+2+REF(BARSLAST(HD),REF(BARSLAST(HD),1)+2));
D3:=A3 AND B3 AND HD;
E3:=BACKSET(D3,REF(BARSLAST(HD),1)+2);
HH:=E3>REF(E3,1);{找出全部長期高點}
A4:=L>REF(L,REF(BARSLAST(LD),1)+1);
B4:=REF(L,REF(BARSLAST(LD),1)+1); D4:=A4 AND B4 AND LD; E4:=BACKSET(D4,REF(BARSLAST(LD),1)+2); LL:=E4>REF(E4,1);{找出全部長期低點}
DRAWICON(HH,H*1.01,8);
DRAWICON(LL,L*0.999,7);
H3:=HH OR ISLASTBAR OR BARSCOUNT(C)=1; {后面進行過濾，方法同前。只是不用考慮高低點出現在同一K線}
X3:=REF(BARSLAST(H3),1)+1;
F3:=BACKSET(H3 AND COUNT(LL,X3)>0,LLVBARS(IF(LL,L,POW(10,20)),X3));
G3:=F3>REF(F3,1);
I3:=BACKSET(G3,2);
LZ:=I3>REF(I3,1); {長期低點，也可供引用}
L4:=LZ OR ISLASTBAR OR BARSCOUNT(C)=1;
X4:=REF(BARSLAST(L4),1)+1;
F4:=BACKSET(L4 AND COUNT(HH,X4)>0,HHVBARS(IF(HH,H,-POW(10,20)),X4));
G4:=F4>REF(F4,1);
I4:=BACKSET(G4,2);
HZ:=I4>REF(I4,1);{長期高點，也可供引用}
K1:=BACKSET(ISLASTBAR,MIN(BARSLAST(HZ),BARSLAST(LZ))+1);
K2:=K1>REF(K1,1);
UU:=BACKSET(ISLASTBAR,BARSLAST(LD)+1);
VV:=UU>REF(UU,1);
WW:=BACKSET(VV,REF(BARSLAST(LD),1)+2);
XX:=WW>REF(WW,1);
UU2:=BACKSET(ISLASTBAR,BARSLAST(HD)+1);
VV2:=UU2>REF(UU2,1);
WW2:=BACKSET(VV2,REF(BARSLAST(HD),1)+2);
XX2:=WW2>REF(WW2,1);
前一低:REF(L,BARSLAST(VV)),COLOR99FF66,LINETHICK1;
前二低:REF(L,BARSLAST(XX)),COLOR99FF66,LINETHICK1;
前一高:REF(H,BARSLAST(VV2)),COLORCYAN,LINETHICK1;
前二高:REF(H,BARSLAST(XX2)),COLORCYAN,LINETHICK1;
DRAWLINE(XX,L,VV,L,1),COLORMAGENTA,LINETHICK1;
DRAWLINE(XX2,H,VV2,H,1),COLORMAGENTA,LINETHICK1;
DRAWTEXT(CURRBARSCOUNT=5,前一低*0.995,'前一低'),COLOR99FF66;
DRAWTEXT(CURRBARSCOUNT=5,前二低*0.995,'前二低'),COLOR99FF66;
DRAWTEXT(CURRBARSCOUNT=1,前一高*1.01,'前一高'),COLORCYAN;
DRAWTEXT(CURRBARSCOUNT=1,前二高*1.01,'前二高'),COLORCYAN;
漲家數:INDEXADV,COLOR0080FF,NODRAW;
跌家數:INDEXDEC,COLORGREEN,NODRAW;
24.
