macd柱子面积的计算-公式代码.doc

-------------------------------------------------- 用数字表示的 DIF:EMA(CLOSE,12)-EMA(CLOSE,26); DEA:EMA(DIF,9); MACD:(DIF-DEA)*2,COLORSTICK; 红面积:SUM(MACD,BARSLAST(MACD0))*(MACD0),COLOR0000FF,NODRAW; 绿面积:SUM(MACD,BARSLAST(MACD0))*(MACD0),COLORFFFF00,NODRAW 送你个自写的缠中说禅的macd指标 我编制的通达信公式是这样的： 参数：short 默认是12，范围你自己定（下同） long默认是26； mid默认是9； K默认是0，范围0-1，0是显示均线面积，1是显示macd面积 MA1:=MA(CLOSE,5); MA2:=MA(CLOSE,10); DIF:=EMA(CLOSE,SHORT)-EMA(CLOSE,LONG); DEA:=EMA(DIF,MID); MACD:=(DIF-DEA)*2,COLORSTICK; DIFF:=SUM(MA1-MA2,0); SUMMACD:=SUM(MACD,0); W1:=BARSLAST(CROSS(MA2,MA1))+1; W2:=BARSLAST(CROSS(MA1,MA2))+1; W3:=BARSLAST(CROSS(MACD,0))+1; W4:=BARSLAST(CROSS(-MACD,0))+1; 趋势力度:IF(K,SUMMACD-REF(SUMMACD,MIN(W3,W4)),DIFF-REF(DIFF,MIN(W1,W2))); 趋势平均力度:趋势力度/IF(K,(MIN(W3,W4)+1)/20,(MIN(W1,W2)+1)/20),COLORSTICK; MAX趋势平均力度:HHV(趋势平均力度,34); MIN趋势平均力度:LLV(趋势平均力度,34); 想看均线的面积你就把K调成0，趋势力度就指的均线的面积，平均力度就很明显了 想看macd的面积就把K调成1，趋势力度就指的是macd的面积了。 后面两个值是最近的趋势平均力度的最大最小值，后面的34你看着定，做成一个参数也成。请求公式修改高手修改下面一个通达信macd面积公式使红绿柱面积分别除以红绿柱子数得出平均面积.谢谢，盼 2011-10-15 16:15 提问者：windy浴火凤凰 | 浏览次数：62次 {MACD扩展公式 *暴风音符* } {周期放大开关：1为普通模式，0为放大模式} 倍数:= IF(PERIOD=11,1,{年} IF(PERIOD=10,4,{季} IF(PERIOD=9,6, {多日} IF(PERIOD=8,10,{多分钟} IF(PERIOD=7,12,{月} IF(PERIOD=6,5, {周} IF(PERIOD=5,5, {日} IF(PERIOD=4,4, {60F} IF(PERIOD=3,8, {30F} IF(PERIOD=2,4, {15F} IF(PERIOD=1,6, {5F} IF(PERIOD=0,5, {1F} 1)))))))))))); N1:=IF(周期放大,12,12*倍数); N2:=IF(周期放大,26,26*倍数); N3:=IF(周期放大,9,9*倍数); DIFF:EMA(CLOSE,N1) - EMA(CLOSE,N2),COLORWHITE,NODRAW; DEA:EMA(DIFF,N3),COLORYELLOW,NODRAW; MACD: (DIFF-DEA)*2,COLORSTICK,NODRAW; 红柱面积:IF(MACD0,SUM(MACD,BARSLAST(MACD0)),0),NODRAW,COLORRED; 绿柱面积:ABS(IF(MACD0,SUM(MACD,BARSLAST(MACD0)),0)),NODRAW,COLORLIGREEN; MACD面积:=IF(MACD0,红柱面积,绿柱面积),NODRAW,COLORFFFF00; 位置:=MAX(HHV(DIFF,100),ABS(LLV(DIFF,100))); {MACD重建-避免遮挡} STICKLINE(MACD0,0,MACD,1,0),COLORRED; STICKLINE(MACD0,0,MACD,1,0),COLORGREEN; STICKLINE(MACD0 AND MACD=REF(MACD,1),0,MACD,1,0),COLORYELLOW; STICKLINE(MACD0 AND MACD=REF(MACD,1),0,MACD,1,0),COLORWHITE; NOTEXTDIFF:E