郎少
发表于 2011-2-10 10:08
源码如下！！<BR>{M 1 30 3}<BR><BR>VAR1N:=1990131;<BR>U1:=IF((DATE <= VAR1N),1,0);<BR>TR:=SUM(MAX(MAX((HIGH - LOW),ABS((HIGH - REF(CLOSE,1)))),ABS((LOW - REF(CLOSE,1)))),5);<BR>HD:=(HIGH - REF(HIGH,1));<BR>LD:=(REF(LOW,1) - LOW);<BR>DMP:=(SUM(IF(((HD > 0) AND (HD > LD)),HD,0),5) * U1);<BR>DMM:=SUM(IF(((LD > 0) AND (LD > HD)),LD,0),5);<BR>神偷线:(((DMP * U1) * 100) / TR);<BR>辅助线:=((DMM * 100) / TR);<BR>动向趋势线:=(MA(((ABS((辅助线 - 神偷线)) / (辅助线 + 神偷线)) * 100),M) * U1);<BR>ADXR:=((动向趋势线 + REF(动向趋势线,M)) / 2);<BR>VAR1:=MA(LOW,1);<BR>VAR2:=MA(HIGH,2);<BR>VAR3:=MA(CLOSE,2);<BR>VAR7:=REF(VAR3,1);<BR>【强弱】:=((SMA(MAX((VAR3 - VAR7),0),5,1) / SMA(ABS((VAR3 - VAR7)),5,1)) * 100);<BR>预警:(IF(((动向趋势线 > 88) AND (神偷线 < 5.8)),20,0) * U1),LINETHICK1,COLORFF00FF; <BR>短底:5,LINETHICK2,COLORBLUE; <BR>短顶:43,COLORGREEN;<BR>绝顶:60,LINETHICK2,COLORFF00FF;<BR>FILLRGN(神偷线,短底,神偷线<=短底,RGB(255,0,0));<BR>FILLRGN(神偷线,短顶,神偷线>=短顶,RGB(255,0,0));<BR>FILLRGN(神偷线,绝顶,神偷线>=绝顶),colorgreen;<BR><BR><BR>通达信版<BR>{M 1 30 3}<BR>VAR1N:=1990131;<BR>U1:=IF((DATE <= VAR1N),1,0);<BR>TR1:=SUM(MAX(MAX((HIGH - LOW),ABS((HIGH - REF(CLOSE,1)))),ABS((LOW - REF(CLOSE,1)))),5);<BR>HD:=(HIGH - REF(HIGH,1));<BR>LD:=(REF(LOW,1) - LOW);<BR>DMP:=(SUM(IF(((HD > 0) AND (HD > LD)),HD,0),5) * U1);<BR>DMM:=SUM(IF(((LD > 0) AND (LD > HD)),LD,0),5);<BR>神偷线1:=(((DMP * U1) * 100) / TR1),NODRAW;<BR>辅助线:=((DMM * 100) / TR1);<BR>动向趋势线:=(MA(((ABS((辅助线 - 神偷线1)) / (辅助线 + 神偷线1)) * 100),M) * U1);<BR>ADXR:=((动向趋势线 + REF(动向趋势线,M)) / 2);<BR>VAR1:=MA(LOW,1);<BR>VAR2:=MA(HIGH,2);<BR>VAR3:=MA(CLOSE,2);<BR>VAR7:=REF(VAR3,1);<BR>【强弱】:=((SMA(MAX((VAR3 - VAR7),0),5,1) / SMA(ABS((VAR3 - VAR7)),5,1)) * 100);<BR><BR>短底:5,LINETHICK2,COLORFF3300; <BR>短顶:43,COLORGREEN;<BR>绝顶:60,LINETHICK2,COLORFF00FF;<BR>STICKLINE(神偷线1<=短底,神偷线1,短底,1,-1),COLOR997700;<BR>STICKLINE(神偷线1>=短顶,神偷线1,短顶,1,-1),COLOR779900;<BR>STICKLINE(神偷线1>=绝顶,神偷线1,绝顶,1,-1),COLOR0033FF;<BR>神偷线:神偷线1,COLOR00FFFF;<BR>预警:(IF(((动向趋势线 > 88) AND (神偷线1 < 5.8)),20,0) * U1),LINETHICK1,COLORFF00FF;<BR><BR><BR>飞狐版：<BR>input:m(3);<BR>VAR1N:=1990131;<BR>U1:=IF((DATE <= VAR1N),1,0);<BR>TR1:=SUM(MAX(MAX((HIGH - LOW),ABS((HIGH - REF(CLOSE,1)))),ABS((LOW - REF(CLOSE,1)))),5);<BR>HD:=(HIGH - REF(HIGH,1));<BR>LD:=(REF(LOW,1) - LOW);<BR>DMP:=(SUM(IF(((HD > 0) AND (HD > LD)),HD,0),5) * U1);<BR>DMM:=SUM(IF(((LD > 0) AND (LD > HD)),LD,0),5);<BR>神偷线1:=(((DMP * U1) * 100) / TR1);<BR>辅助线:=((DMM * 100) / TR1);<BR>动向趋势线:=(MA(((ABS((辅助线 - 神偷线1)) / (辅助线 + 神偷线1)) * 100),M) * U1);<BR>ADXR:=((动向趋势线 + REF(动向趋势线,M)) / 2);<BR>VAR1:=MA(LOW,1);<BR>VAR2:=MA(HIGH,2);<BR>VAR3:=MA(CLOSE,2);<BR>VAR7:=REF(VAR3,1);<BR>【强弱】:=((SMA(MAX((VAR3 - VAR7),0),5,1) / SMA(ABS((VAR3 - VAR7)),5,1)) * 100);<BR><BR>短底:5,LINETHICK2,COLORFF3300;<BR>短顶:43,COLORGREEN;<BR>绝顶:60,LINETHICK2,COLORFF00FF;<BR>STICKLINE(神偷线1<=短底,神偷线1,短底,8,0),COLOR997700;<BR>STICKLINE(神偷线1>=短顶,神偷线1,短顶,8,0),COLOR779900;<BR>STICKLINE(神偷线1>=绝顶,神偷线1,绝顶,8,0),COLOR0033FF;<BR>神偷线:神偷线1,COLOR00FFFF;<BR>预警:(IF(((动向趋势线 > 88) AND (神偷线1 < 5.8)),20,0) * U1),LINETHICK1,COLORFF00FF;
页:
[1]