引用:
Originally posted by yb88 at 2004-6-29 09:27:
有原码吗????????请帮发一个!!!!!!!!
__ZBT
_COMM
_PAR
_VAR YQ, YQ1, YQ2, YQ3, YQ4, YQ5
_ZB HIGH, LOW, CLOSE
_LOCAL
_RES YQX, YQX1
_DEF 0.000
_CODE
YQ=(HIGH+3*LOW+CLOSE)/5;
YQ1=EMA(YQ2,YQ,13)-EMA(YQ3,YQ,34);
EMA(YQ4,YQ1,5);
YQ5=(YQ1-YQ4)*5;
YQX=CHOOSE(YQ5>=1000,1000,CHOOSE(YQ5<=YQ,YQ,YQ5));
YQX1=LFCAST(LFCAST(YQX,38),7);
CURVELINE(YQX1,clrPurple,2);
CURVELINE(CHOOSE(YQX>YQX1,YQX,YQX1),clrRed);
CURVELINE(CHOOSE(YQX<YQX1,YQX,YQX1),clrGreen);
TITLE("上涨:",CHOOSE(YQX>YQX1,YQX,YQX1),"",clrRed,"下跌:",CHOOSE(YQX<YQX1,YQX,YQX1),"",clrGreen,"分水岭:",YQX1,"",clrPurple);
__END:em13::em13::em13::em13::em13::em13::em13::em13: