-- 作者:cxb555
-- 发布时间:2012/5/10 21:17:53
-- {为什么引用价差数据后指标就不能显示了?是哪里出问题了?}
TL_c:=c;//"sry01$close"-"srx09$close"; {为什么引用价差数据后指标就不能显示了?是哪里出问题了?}
TL_o:=o;//"sry01$open"-"srx09$open";
TL_h:=h;//"sry01$tl_h"-"srx09$tl_h";
TL_l:=l;//"sry01$low"-"srx09$low";
z:=0.004; N1:=BARSLAST(TL_C>REF(HHV(tl_H,5),1)); N2:=BARSLAST(TL_C<REF(LLV(tl_L,5),1)); M1:=MIN(REF(TL_C,N1)*(1-Z),REF(TL_C,N2)*(1+Z)); M2:=MAX(REF(TL_C,N1)*(1-Z),REF(TL_C,N2)*(1+Z)); LLXX:=M1; HLXX:=M2; CHXX:=CROSS(TL_C,LLXX*1.000001); CLXX:=(0-CROSS(LLXX*0.999999,TL_C)); TFXX:=IFELSE(CHXX,CHXX,IFELSE(CROSS(LLXX*0.999999,TL_C),CLXX,0)); UDXX:=REF(TFXX,BARSLAST(TFXX)); LLXXX:=HHV(TL_C,BARSLAST(UDXX<0))*(1-Z); HLXXX:=LLV(TL_C,BARSLAST(UDXX>0))*(1+Z); CHXXX:=CROSS(TL_C,HLXXX*1.000001); CLXXX:=(0-CROSS(LLXXX*0.999999,TL_C)); TFXXX:=IFELSE(CHXXX,CHXXX,IFELSE(CROSS(LLXXX*0.999999,TL_C),CLXXX,0)); UDXXX:=REF(TFXXX,BARSLAST(TFXXX)); LLXXXX:=MIN(HHV(TL_C,BARSLAST(UDXXX<0))*(1-Z),LLXXX); HLXXXX:=MAX(LLV(TL_C,BARSLAST(UDXXX>0))*(1+Z),HLXXX); CHXXXX:=CROSS(TL_C,HLXXXX*1.000001); CLXXXX:=(0-CROSS(LLXXXX*0.999999,TL_C)); TFXXXX:=IFELSE(CHXXXX,CHXXXX,IFELSE(CROSS(LLXXXX*0.999999,TL_C),CLXXXX,0)); UDXXXX:=REF(TFXXXX,BARSLAST(TFXXXX)); LLXXXXX:=MIN(HHV(TL_C,BARSLAST(UDXXXX<0))*(1-Z),LLXXXX); HLXXXXX:=MAX(LLV(TL_C,BARSLAST(UDXXXX>0))*(1+Z),HLXXXX); BBX:=LLXXXXX*0.999999; SSX:=HLXXXXX*1.000001; B1X:=IFELSE(CROSS(TL_C,SSX),1,IFELSE(CROSS(BBX,TL_C),-1,0)); B2X:=REF(B1X,BARSLAST(B1X)); W0:=IFELSE(B2X=1,BBX,IFELSE(B2X=-1,SSX,TL_C)); W:IFELSE(TL_C>W0,HHV(W0,BARSLAST(TL_C<W0)),IFELSE(TL_C<W0,LLV(W0,BARSLAST(TL_C>W0)),TL_C)); TMP:=TL_O-TL_C; KSSX:=HHV(REF(TL_C,BARSLAST(TL_C<W)),BARSLAST(TL_C<W)); KBBX:=LLV(REF(TL_C,BARSLAST(TL_C>W)),BARSLAST(TL_C>W)); DRAWLINE(TL_C<W AND TMP>0.00001,tl_h,TL_C<W AND TMP>0.00001,TL_O,COLORGREEN); DRAWLINE(TL_C<W AND TMP>0.00001,TL_L,TL_C<W AND TMP>0.00001,TL_C,COLORGREEN); DRAWLINE(TL_C>W AND TMP<-0.00001,tl_h,TL_C>W AND TMP<-0.00001,TL_C,COLORRED); DRAWLINE(TL_C>W AND TMP<-0.00001,TL_L,TL_C>W AND TMP<-0.00001,TL_O,COLORRED); DRAWLINE(TL_C<W AND ABS(TMP)<0.00001,TL_L,TL_C<W AND ABS(TMP)<0.00001,TL_O,COLORGREEN); DRAWLINE(TL_C<W AND ABS(TMP)<0.00001,tl_h,TL_C<W AND ABS(TMP)<0.00001,TL_O,COLORGREEN); DRAWLINE(TL_C>W AND ABS(TMP)<0.00001,TL_L,TL_C>W AND ABS(TMP)<0.00001,TL_O,COLORRED); DRAWLINE(TL_C>W AND ABS(TMP)<0.00001,tl_h,TL_C>W AND ABS(TMP)<0.00001,TL_O,COLORRED);
|