<P>b:=BARSCOUNT(C)=SYSPARAM(2);<BR>d:=BARSLAST(b);<BR>e:=hhv(h,d);<BR>MSTATUS:=BARSTATUS=2;<BR>MA5:MA(C,5);<BR>MA10:MA(C,10);<BR>MA30:MA(C,30);<BR>MA60:MA(C,60);<BR>MA125:MA(C,125);<BR>MA250:MA(C,250);<BR>t1:=(MA5 > MA10 and MA10 > MA30 and MA5 > MA30);<BR>t2:=(MA5 < MA10 and MA10 < MA30 and MA5 < MA30);<BR>t3:=(MA30 > MA60 and MA30 > MA125 and MA60 > MA125);<BR>t4:=(MA30 < MA60 and MA30 < MA125 and MA60 < MA125);<BR>t5:=(MA60 > MA125 and MA125 > MA250 and MA60 > MA250);<BR>t6:=(MA60 < MA125 and MA125 < MA250 and MA60 < MA250);<BR>t7:=(CROSS(MA5,MA10));<BR>t8:=(CROSS(MA10,MA5));<BR>t9:=(CROSS(C,MA125));<BR>t10:=(CROSS(MA125,C));<BR>t11:=(CROSS(C,MA250));<BR>t12:=(CROSS(MA250,C));<BR>t13:=(CROSS(C,MA60) and CROSS(C,MA125) and CROSS(C,MA250));<BR>t14:=(MA30 > REF(MA30,1));<BR>t15:=(MA30 > REF(MA30,1) AND MA30 < REF(MA30,1)*1.001);<BR>t16:=(MA30 < REF(MA30,1));<BR>t17:=(MA5 > REF(MA5,1)*1.015);<BR>t18:=(MA5 > REF(MA5,1) AND MA5 < REF(MA5,1)*1.005);<BR>t19:=(MA5 < REF(MA5,1)*0.985);<BR>i:=0;<BR>DRAWTEXT(MSTATUS and t1 ,e-i*0.2,'短期均线多头排列 '+NUMTOSTR(ma5,2)+' > '+NUMTOSTR(ma10,2)+' > '+NUMTOSTR(ma30,2)+'; '),COLORRED,ALIGN2;i:=i+t1;<BR>DRAWTEXT(MSTATUS and t2,e-i*0.2,'短期均线空头排列 '+NUMTOSTR(ma5,2)+' < '+NUMTOSTR(ma10,2)+' < '+NUMTOSTR(ma30,2)+'; '),COLORGREEN,ALIGN2;i:=i+t2;<BR>DRAWTEXT(MSTATUS and t3,e-i*0.2,'中期均线多头排列 '+NUMTOSTR(ma30,2)+' > '+NUMTOSTR(ma60,2)+' > '+NUMTOSTR(ma125,2)+'; '),COLORRED,ALIGN2;i:=i+t3;<BR>DRAWTEXT(MSTATUS and t4,e-i*0.2,'中期均线空头列排 '+NUMTOSTR(ma30,2)+' < '+NUMTOSTR(ma60,2)+' < '+NUMTOSTR(ma125,2)+'; '),COLORGREEN,ALIGN2;i:=i+t4;<BR>DRAWTEXT(MSTATUS and t5,e-i*0.2,'长期均线多头排列 '+NUMTOSTR(ma60,2)+' > '+NUMTOSTR(ma125,2)+' > '+NUMTOSTR(ma250,2)+';'+'; '),COLORRED,ALIGN2;i:=i+t5;<BR>DRAWTEXT(MSTATUS and t6,e-i*0.2,'长期均线空头排列 '+NUMTOSTR(ma60,2)+' < '+NUMTOSTR(ma125,2)+' < '+NUMTOSTR(ma250,2)+'; '),COLORGREEN,ALIGN2;i:=i+t6;<BR>DRAWTEXT(MSTATUS and t7,e-i*0.2,'短期5日10日均线金叉'+'; '),COLORRED,ALIGN2;i:=i+t7;<BR>DRAWTEXT(MSTATUS and t8,e-i*0.2,'短期5日10日均线死叉'+'; '),COLORGREEN,ALIGN2;i:=i+t8;<BR>DRAWTEXT(MSTATUS and t9,e-i*0.2,'今日股价上穿半年线'+'; '),COLORFF00FF,ALIGN2;i:=i+t9;<BR>DRAWTEXT(MSTATUS and t10,e-i*0.2,'今日股价跌破半年线'+'; '),COLORGREEN,ALIGN2;i:=i+t10;<BR>DRAWTEXT(MSTATUS and t11,e-i*0.2,'今日股价上穿年线'+'; '),COLORFF00FF,ALIGN2;i:=i+t11;<BR>DRAWTEXT(MSTATUS and t12,e-i*0.2,'今日股价跌破年线'+'; '),COLORGREEN,ALIGN2;i:=i+t12;<BR>DRAWTEXT(MSTATUS and t13,e-i*0.2,'股价一阳穿三线'+'; '),COLORRED,ALIGN2;i:=i+t13;<BR>DRAWTEXT(MSTATUS and t14,e-i*0.2,'30日均线趋势向上'+'; '),COLORRED,ALIGN2;i:=i+t14;<BR>DRAWTEXT(MSTATUS and t15,e-i*0.2,'30日均线趋势走平'+'; '),COLORFFCC66,ALIGN2;i:=i+t15;<BR>DRAWTEXT(MSTATUS and t16,e-i*0.2,'30日均线趋势向下'+'; '),COLORGREEN,ALIGN2;i:=i+t16;;<BR>DRAWTEXT(MSTATUS and t17,e-i*0.2,'5日均线强劲向上'+'; '),COLORRED,ALIGN2;i:=i+t17;<BR>DRAWTEXT(MSTATUS and t18,e-i*0.2,'5日均线方向不明'+'; '),COLORYELLOW,ALIGN2;i:=i+t18;<BR>DRAWTEXT(MSTATUS and t19,e-i*0.2,'5日均线快速向下'+'; '),COLORGREEN,ALIGN2</P>
Powered by Discuz! 6.0.0 © 2001-2007 Comsenz Inc.
