INPUT: N(5,1,999);
TC:=STRCMP(STRLEFT(MARKETLABEL,2),'SZ');
DPSH:="SH000001$CLOSE"/HHV(STKINDI('SH000001','wd.昨收#DAY'),0);
DPSZ:="399001$CLOSE"/HHV(STKINDI('399001','wd.昨收#DAY'),0);
DPC:=IF(INBLOCK('A股板塊'),DYNAINFO(3)*IF(TC=0,DPSZ,DPSH),C);
{POLYLINE(C>0,DPC),LINETHICK0,LAYER0,COLORFF00FF;}
最新:C,LINETHICK0,PRECIS2,LAYER0,COLORWHITE;
AA:=SUM(AMOUNT,BARSCOUNT(C))/SUM(VOL*100,BARSCOUNT(C));
BB:=BETWEEN(C/AA,C+H,C-H);
均線:IF(BB=0,MA(C,BARSCOUNT(C)),AA),COLOR00FFFF,LINETHICK0,PRECIS2;
超級線:EMA(C,N),LINETHICK1,COLOR00FF00;
PARTLINE(超級線,超級線>REF(超級線,1),RGB(255,0,0)),LINETHICK2;
STICKLINE(c>=o and o<>0,HIGH,LOW,0.5,0),color0000CD;
STICKLINE(c>=o and o<>0,CLOSE,OPEN,8,0),color070084;
STICKLINE(c>=o and o<>0,CLOSE,OPEN,7,0),color0000A3;
STICKLINE(c>=o and o<>0,CLOSE,OPEN,6,0),color0000B7;
STICKLINE(c>=o and o<>0,CLOSE,OPEN,5,0),color0000CD;
STICKLINE(c>=o and o<>0,CLOSE,OPEN,4,0),color0000E9;
STICKLINE(c>=o and o<>0,CLOSE,OPEN,2,0),color0754E9;
STICKLINE(c>=o and o<>0,CLOSE,OPEN,0.5,0),Color5555FF;
STICKLINE(c<=o and o<>0,HIGH,LOW,0.5,0),colorFFBE00;
STICKLINE(CLOSE<OPEN and OPEN<>0,HIGH,LOW,0.5,0),colorFFBE00;
STICKLINE(CLOSE<OPEN and OPEN<>0,CLOSE,OPEN,8,0),ColorCA6500;
STICKLINE(CLOSE<OPEN and OPEN<>0,CLOSE,OPEN,7,0),ColorE17100;
STICKLINE(CLOSE<OPEN and OPEN<>0,CLOSE,OPEN,6,0),ColorF27900;
STICKLINE(CLOSE<OPEN and OPEN<>0,CLOSE,OPEN,5,0),ColorFF850B;
STICKLINE(CLOSE<OPEN and OPEN<>0,CLOSE,OPEN,4,0),ColorFF9326;
STICKLINE(CLOSE<OPEN and OPEN<>0,CLOSE,OPEN,2,0),ColorFFA851;
STICKLINE(CLOSE<OPEN and OPEN<>0,CLOSE,OPEN,0.5,0),colorFFFF00;
-------------------------------------
持股線:MA(C,18),COLORWHITE;
PARTLINE(持股線,MA(C,3)>持股線,RGB(255,0,0),MA(C,3)<持股線,RGB(0,255,0)),LINETHICK1;
現價: if (DYNAINFO(4)=0,C,DYNAINFO(7)),color114fff,POINTDOT;
TY:=C;
A1:=REF(TY,10)=HHV(TY,2*10+1); B1:=FILTER(A1,10); C1:=BACKSET(B1,10+1); HD:=FILTER(C1,10);
A2:=REF(TY,10)=LLV(TY,2*10+1); B2:=FILTER(A2,10); C2:=BACKSET(B2,10+1); LD:=FILTER(C2,10);
A:=REF(C,BARSLAST(HD));
Z:=REF(L,BARSLAST(LD));
T1:=BARSLAST(HD)<BARSLAST(LD) AND NOT(HD) ;
T2:=BARSLAST(HD)>BARSLAST(LD) AND NOT(LD);
頂:IF(T1,A,A),COLORYELLOW,linethick1,POINTDOT;
底:IF(T2,Z,Z),COLORWHITE,linethick1,POINTDOT;
{主圖上標}
{漲停}
漲停:=IF(REF(C,1)*1.1-C<0.01 ,1,0);
STICKLINE(漲停,OPEN,CLOSE,4,0),COLORRED;
STICKLINE(漲停,OPEN,CLOSE,3,0),COLORYELLOW;
STICKLINE(漲停,H,L,0,0),COLORYELLOW;;
DRAWTEXTABS(0,20,' 【何為線上？是股價從下向上突破，站上均線之上，且均線從走平到拐頭向上為有效。】' );
DRAWTEXTABS(0,40,' 【何為線下？是股價從上往下跌，有效跌穿均線，且均線開始拐頭向下。】' ),COLOR888888;
{1.RSI}
{LC:=REF(C,1);
RSI:((SMA(MAX((C - LC),0),3,1) / SMA(ABS((C - LC)),3,1)) * 100),LINETHICK0;
DRAWTEXT(CROSS(RSI,80) ,high*1.02,'RSI.'+NUMTOSTRN(RSI,0)+''),COLOR00ffFF,ALIGN1,LINETHICK1;}
{2.J合力}
{J9:EMA("KDJ.J"(9,3,3),5) ,COLOR0000FF,LINETHICK0;
J18:EMA("KDJ.J"(18,3,3),5) ,COLOR00FFFF,DOTLINE,LINETHICK0;
J27:EMA("KDJ.J"(27,3,3),5) ,COLOR00FF00,DOTLINE,LINETHICK0;
J36:EMA("KDJ.J"(36,3,3),5) ,COLOR0077FF,DOTLINE,LINETHICK0;
J45:EMA("KDJ.J"(45,3,3),5) ,COLORFF9900,LINETHICK0;
J合力:(3*J9+2*J18+J27+J36+J45)/8,COLOR00FFCC,LINETHICK0;
合力頂:=J合力>85 ;
合力低:=J合力<15;
DRAWTEXT(CROSS(合力頂,0) ,H*1.015,'【J:'+NUMTOSTRN(J合力,0)+'】'),ALIGN1,COLOR00FFFF,LINETHICK1,LAYER0;
DRAWTEXT(CROSS(合力頂,0) ,H*1.005,'◆'),ALIGN1,COLOR0077FF,LINETHICK1,LAYER0;
DRAWTEXT(CROSS(0,合力低) ,L*0.985,'◆'),ALIGN1,COLOR0077FF,LINETHICK1,LAYER0;
DRAWTEXT(CROSS(0,合力低) ,L*0.98,'【J:'+NUMTOSTRN(J合力,0)+'】'),ALIGN1,COLOR00FFFF,LINETHICK1,LAYER0;
DRAWTEXT(DISPSTATUS=2, H*1.03,'【J:'+NUMTOSTRN(J合力,0)+'】'),COLORFF00FF,LINETHICK1,ALIGN1;}
{3.低部買}
DIBU:= "KDJ.K"(9,3,3)<15 AND "KDJ.D"(9,3,3)<15 AND "KDJ.K"(18,3,3)<15 AND "KDJ.D"(18,3,3)<15
AND "KDJ.K"(27,3,3)<20 AND "KDJ.D"(27,3,3)<20 AND "KDJ.D"(36,3,3)<20 AND "KDJ.D"(54,3,3)<20;
DRAWTEXT(CROSS(0,DIBU) ,L*0.98,'買'),ALIGN1,COLOR00ffff,LINETHICK1,LAYER3;
{4.不漲回頭再買}
R:=SMA(MAX(CLOSE-REF(CLOSE,1),0),6,1)/SMA(ABS(CLOSE-REF(CLOSE,1)),6,1)*100;
MAR1:=MA(R,3);
F1:=100*(C-REF(C,1))/REF(C,1);
HHH1:=EMA(R,25)+6;
不漲回頭再買:REF(R,2)>REF(R,3) AND REF(R,2)>REF(R,1) AND R>REF(R,1)
AND MAR1>REF(MAR1,1)+1 AND REF(MAR1,2)-REF(MAR1,1)>-1
AND REF(R,1)<REF(MAR1,1) AND REF(R,2)-REF(MAR1,2)>-3
AND REF(R,1)<38 AND R<HHH1 AND F1<8,COLOR007A00,LINETHICK0;
DRAWTEXT(不漲回頭再買,(L * 0.98),'買'),ALIGN1;
{5.買賣}
MTM:=C-REF(C,1);
DX:=100*EMA(EMA(MTM,6),6)/EMA(EMA(ABS(MTM),6),6);
賣:=HHV(DX,2)=HHV(DX,7) AND COUNT(DX>50,2) AND CROSS(MA(DX,2),DX);
DRAWTEXT(FILTER(賣=1,1),HIGH*1.02,'★'),COLORGREEN;
買:=LLV(DX,2)=LLV(DX,7) AND COUNT(DX<0,2) AND CROSS(DX,MA(DX,2));
DRAWTEXT(FILTER(買=1,5),LOW-0.03,'★'),COLORRED;
{6.KDJ周金叉死叉}
周K:"KDJ.K#WEEK"(9,2,5),COLOR0000FF,LINETHICK0,LAYER3;
周D:"KDJ.D#WEEK"(9,2,5),COLOR00FF00,LINETHICK0;
DRAWTEXT(CROSS(周K,周D),L*0.975,'J周金'),ALIGN1,color0000FF,LINETHICK1;
DRAWTEXT(CROSS(周D,周K),H*1.04,'J周死'),ALIGN1,COLOR00FFFF,LINETHICK1;
KDB:=BARSLAST(REF(CROSS(周K,周D),1));
KDDB:=REF(WMA(C,5),KDB+1)>WMA(C,5) AND REF(周K,KDB+1)<周K AND CROSS(周K,周D);
K底背:=IF(FILTER(KDDB>0,5),1,0);
DRAWTEXT(K底背=1,L,'底背'),COLOR0000FF,LINETHICK1;
KDD:=BARSLAST(REF(CROSS(周D,周K),1));
K頂背:=REF(WMA(C,5),KDD+1)<WMA(C,5) AND REF(周K,KDD+1)>周K AND CROSS(周D,周K);
DRAWTEXT(FILTER(K頂背>0,5),H,'頂背'),COLOR00FFFF,LINETHICK1;
