|
如何讓一條均線在上升趨勢用紅色顯示 下降趨勢用綠色顯示？ 就是顏色分段顯示出來 是均線 不是k線分段
------------------------------
PARTLINE(PRICE,COND1,COLOR1,COND2,COLOR2...),繪制PRICE線，當(dāng)COND1條件滿足時,用COLOR1顏色，當(dāng)COND2條件滿足時,用COLOR2顏色，否則不繪制，從COLOR1之后的參數(shù)均可以省略，最多可以有10組條件。 以10日線為例PARTLINE(MA10,MA10>=REF(MA10,1),RGB(255,0,255),MA10<REF(MA10,1),RGB(0,255,255)); --------------------------------------- MA1:(MA(C,5)+MA(C,10))/2;
partline(MA1,MA1>REF(MA1,1),RGB(255,0,0),MA1<REF(MA1,1),RGB(0,255,0)); --------------------------------- 通達信表示：
MA5:MA(C,5),COLORRED; IF(MA5<REF(MA5,1),MA5,DRAWNULL),COLORGREEN,LINETHICK1; -----------------------------------
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; 現(xiàn)價: 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; {主圖上標(biāo)} {漲停} 漲停:=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; |
|
|
