站内快速搜索    

发新话题
打印

『11-08』 立体MACD+KDJ金叉(源码)

『11-08』 立体MACD+KDJ金叉(源码)

 

本文来自:海涛股票论坛(www.198bbs.com)  作者:方展博   点击837


<P>{立体彩色MACD分析家源码,甲乙多多祝大家新年快乐,财运兴旺!}<BR>DIFF:=(EMA(CLOSE,12) - EMA(CLOSE,26));<BR>DEA:=EMA(DIFF,9);<BR>MACD:2*(DIFF-DEA),COLORSTICK;<BR>STICKLINE(MACD&lt;ref(MACD,1)and MACD&gt;0,0,MACD,8,0 ),COLOR00aaff; <BR>STICKLINE(MACD&lt;ref(MACD,1)and MACD&gt;0,0,MACD,6.6,0 ),COLOR00bbff;<BR>STICKLINE(MACD&lt;ref(MACD,1)and MACD&gt;0,0,MACD,4.4,0 ),COLOR00ccff; <BR>STICKLINE(MACD&lt;ref(MACD,1)and MACD&gt;0,0,MACD,3.3,0 ),COLOR00ddff;<BR>STICKLINE(MACD&lt;ref(MACD,1)and MACD&gt;0,0,MACD,2.2,0 ),COLOR00eeff;<BR>STICKLINE(MACD&lt;ref(MACD,1)and MACD&gt;0,0,MACD,1.1,0 ),COLOR00ffff;<BR>STICKLINE(MACD&gt;=ref(MACD,1)and MACD&gt;0,0,MACD,8 ,0 ),COLOR0000aa; <BR>STICKLINE(MACD&gt;=ref(MACD,1)and MACD&gt;0,0,MACD,6.6 ,0 ),COLOR0011bb; <BR>STICKLINE(MACD&gt;=ref(MACD,1)and MACD&gt;0,0,MACD,4.4,0 ),COLOr0022cc;<BR>STICKLINE(MACD&gt;=ref(MACD,1)and MACD&gt;0,0,MACD,3.3 ,0 ),COLOR0033dd; <BR>STICKLINE(MACD&gt;=ref(MACD,1)and MACD&gt;0,0,MACD,2.2 ,0 ),COLOR0044ee; <BR>STICKLINE(MACD&gt;=ref(MACD,1)and MACD&gt;0,0,MACD,1.1 ,0 ),COLOR0055ff;<BR>STICKLINE(MACD&gt;ref(MACD,1)and MACD&lt;0,0,MACD,8,0 ),COLOraa00bb;<BR>STICKLINE(MACD&gt;ref(MACD,1)and MACD&lt;0,0,MACD,6.6 ,0 ),COLORbb11bb;<BR>STICKLINE(MACD&gt;ref(MACD,1)and MACD&lt;0,0,MACD,4.4,0 ),COLOrcc22bb;<BR>STICKLINE(MACD&gt;ref(MACD,1)and MACD&lt;0,0,MACD,3.3,0 ),COLORdd33bb; <BR>STICKLINE(MACD&gt;ref(MACD,1)and MACD&lt;0,0,MACD,2.2 ,0 ),COLORee44bb; <BR>STICKLINE(MACD&gt;ref(MACD,1)and MACD&lt;0,0,MACD,1.1 ,0 ),COLORff55bb;<BR>STICKLINE(MACD&lt;=ref(MACD,1)and MACD&lt;0,0,MACD,8,0 ),COLOrffaa00;<BR>STICKLINE(MACD&lt;=ref(MACD,1)and MACD&lt;0,0,MACD,6.6 ,0 ),COLORffbb11; <BR>STICKLINE(MACD&lt;=ref(MACD,1)and MACD&lt;0,0,MACD,4.4,0 ),COLOrffcc22;<BR>STICKLINE(MACD&lt;=ref(MACD,1)and MACD&lt;0,0,MACD,3.3 ,0 ),COLORffdd33; <BR>STICKLINE(MACD&lt;=ref(MACD,1)and MACD&lt;0,0,MACD,2.2 ,0 ),COLORffee44; <BR>STICKLINE(MACD&lt;=ref(MACD,1)and MACD&lt;0,0,MACD,1.1 ,0 ),COLORffff55;<BR><BR>RSV:=(CLOSE-LLV(LOW,9))/(HHV(HIGH,9)-LLV(LOW,9))*100;<BR>K:=SMA(RSV,3,1);<BR>D:=SMA(K,3,1);<BR>J:=3*K-2*D;<BR>周K:=MA("KDJ.K#WEEK"(9,3,3) ,5);<BR>周D:=MA("KDJ.D#WEEK"(9,3,3) ,5);<BR>周J:=MA("KDJ.J#WEEK"(9,3,3) ,5);<BR>DRAWICON(k&lt;20 and cross(k,d),MACD,1),align2;<BR>周金:DRAWTEXT(CROSS("KDJ.K#WEEK"(9,3,3),"KDJ.D#WEEK"(9,3,3)) ,MACD,'▲'),align2,COLORred;<BR>周死:DRAWTEXT(CROSS("KDJ.d#WEEK"(9,3,3),"KDJ.k#WEEK"(9,3,3)) ,macd*1.5,'▼'),align2,COLORgreen;<BR>月金:DRAWTEXT(CROSS("KDJ.K#MONTH"(9,3,3),"KDJ.D#MONTH"(9,3,3)) ,MACD,'▲'),align2,COLORMAGENTA;<BR>月死:DRAWTEXT(CROSS("KDJ.D#MONTH"(9,3,3),"KDJ.K#MONTH"(9,3,3)) ,macd*1.5,'▼'),align2,COLORYELLOW;<BR><BR>DIFF:(EMA(CLOSE,12) - EMA(CLOSE,26)),COLORWHITE;<BR>DEA:EMA(DIFF,9),COLORWHITE;<BR>partline(dea,c&gt;ma(c,15) and diff&gt;=dea ,rgb(255,0,255)),linethick2;<BR>partline(diff,c&gt;ma(c,15) and diff&gt;=dea ,rgb(255,0,0)),linethick2;<BR>partline(dea,c&lt;ma(c,15),rgb(0,255,0)),linethick2;<BR>partline(diff,c&lt;ma(c,15),rgb(0,255,0)),linethick2</P>

TOP

呵呵,楼主辛苦,可惜我初入行,有更详细的东东吗?谢谢

TOP

谢谢分享

TOP

提示: 作者被禁止或删除 内容自动屏蔽

TOP

这个是股票软件的公式!你还有什么不了解可以问斑竹!
我们是害虫我们是害虫.........那里有钱,那里冲!那里有钱,往那里冲......
待到来年九月八,我花开后百花杀,透天香气袭长安,满地尽带黄金甲!

TOP

飞狐能用吗?

TOP

发新话题