鉴于一些朋友的分析家软件不能引入W-周KDJ指标,现把源码贴出来。《铁霖4A》的源码恕不贴出了。请谅解。 W-周KDJ源码: Var26:=(close-LLV(LOW,27))/(HHV(HIGH,27)-LLV(LOW,27))*100; Var28:=SMA(Var26,3,1); B1:=SMA(Var28,3,1); B2:=SMA(B1,3,1); 买入:IF(CROSS(B1,B2)AND B1<40,50,-1.5),linethick2,colorred; 卖:IF((FILTER(CROSS(79,(SMA(MAX(C-REF(C,1),0),7,1)/SMA(ABS(C-REF(C,1)),7,1)*100)),4)),60,120),colorffaa00,linethick2; 趋势线:=((3*SMA((CLOSE-LLV(LOW,27))/(HHV(HIGH,27)-LLV(LOW,27))*100,5,1)-2*SMA(SMA((CLOSE-LLV(LOW,27))/(HHV(HIGH,27)-LLV(LOW,27))*100,5,1),3,1)-50)*1.032+50)*2; 卖出:IF(CROSS(190,趋势线),60,120),COLORFFAA00,linethick2; RSV:=(CLOSE-LLV(LOW,9))/(HHV(HIGH,9)-LLV(LOW,9))*100; K:=SMA(RSV,3,1); D:=SMA(K,3,1); J:=3*K-2*D; stickline(j>k,j,k,6,0),colorred; stickline(k>d,k,d,6,0),color00bbff; stickline(j<k,j,k,6,0),colorgreen; stickline(k<d,k,d,6,0),color009900; Ka:ma("KDJ.K#WEEK",5),color00bbff; Da:ma("KDJ.D#WEEK",5),colorffaa00; Ja:ma("KDJ.J#WEEK",5),colorffff33,linethick1; stickline(Ka>=Da,Da,Ka,6,0),colorff99cc; stickline(Ka<Da,Ka,Da,6,0),colorff9999; DRAWTEXT(CROSS("KDJ.K#WEEK"(9,3,3),"KDJ.D#WEEK"(9,3,3)) ,20,'▲周金'),COLOR00ffff; DRAWTEXT(CROSS("KDJ.d#WEEK"(9,3,3),"KDJ.k#WEEK"(9,3,3)) ,110,'▼周死'),COLORgreen; DRAWTEXT(CROSS("KDJ.K#MONTH"(9,3,3),"KDJ.D#MONTH"(9,3,3)) ,20.2,'▲月金'),COLORff66ff; DRAWTEXT(CROSS("KDJ.D#MONTH"(9,3,3),"KDJ.K#MONTH"(9,3,3)) ,110,'▼月死'),COLORffaa00; DIFF:=EMA(CLOSE,12)-EMA(CLOSE,26); DEA:=EMA(DIFF,9); MACD:=(DIFF-DEA)*2; DIFFa:=MA("MACD.DIFF#WEEK"(26,12,9),5); DEAa:=MA("MACD.DEA#WEEK"(26,12,9),5); DRAWTEXT(CROSS("MACD.DIFF#WEEK"(26,12,9) ,"MACD.DEA#WEEK"(26,12,9)),20.2,'△周金'),COLOR00ccff; DRAWTEXT(CROSS("MACD.DEA#WEEK"(26,12,9) ,"MACD.DIFF#WEEK"(26,12,9)),90.4,'▽周死'),COLOR00ffcc; DRAWTEXT(CROSS("MACD.DIFF#MONTH"(26,12,9) ,"MACD.DEA#MONTH"(26,12,9)),20.6,'△月金'),COLORff66cc; DRAWTEXT(CROSS("MACD.DEA#MONTH"(26,12,9) ,"MACD.DIFF#MONTH"(26,12,9)),90.6,'▽月死'),COLORff9999;股票论坛 www.55188.com |
|