-- 作者:偏爱
-- 发布时间:2011/4/4 18:48:01
--
下面是代码,请老师查看
指标1:ZQJX
SHORTH:MAX(VALUEWHEN(C<=SMA(L,3,1)&&C<=REF(LLV(L,2),1),SMA(H,3,1)),MA(C,10)); SHORTL:MIN(VALUEWHEN(C>=SMA(H,3,1)&&C>=REF(HHV(H,2),1),SMA(L,3,1)),MA(C,10)); SHORTH1:BARSLAST(L>SHORTH); SHORTL1:BARSLAST(H<SHORTL); PARTLINE(SHORTH1>SHORTL1,SHORTH,COLORGREEN); PARTLINE(SHORTH1<SHORTL1,SHORTL,COLORRED); DRAWNUMBER(SHORTH1>SHORTL1&&ISLASTBAR,SHORTH,SHORTH,2,COLORGREEN); DRAWNUMBER(SHORTH1<SHORTL1&&ISLASTBAR,SHORTL,SHORTL,2,COLORRED); LONGH:MAX(MAX(VALUEWHEN(C<=SMA(L,3,1)&&C<=REF(LLV(L,2),1),SMA(H,3,1)),MAX(VALUEWHEN(C<=SMA(L,5,1)&&C<=REF(LLV(L,2),1),SMA(H,5,1)),MAX(VALUEWHEN(C<=SMA(L,13,1)&&C<=REF(LLV(L,2),1),SMA(H,13,1)),MAX(VALUEWHEN(C<=SMA(L,21,1)&&C<=REF(LLV(L,2),1),SMA(H,21,1)),VALUEWHEN(C<=SMA(L,34,1)&&C<=REF(LLV(L,2),1),SMA(H,34,1)))))),MAX(MA(C,10),MAX(MA(C,20),MAX(MA(C,30),MAX(MA(C,40),MA(C,60)))))); LONGL:MIN(MIN(VALUEWHEN(C>=SMA(H,3,1)&&C>=REF(HHV(H,2),1),SMA(L,3,1)),MIN(VALUEWHEN(C>=SMA(H,5,1)&&C>=REF(HHV(H,2),1),SMA(L,5,1)),MIN(VALUEWHEN(C>=SMA(H,13,1)&&C>=REF(HHV(H,2),1),SMA(L,13,1)),MIN(VALUEWHEN(C>=SMA(H,21,1)&&C>=REF(HHV(H,2),1),SMA(L,21,1)),VALUEWHEN(C>=SMA(H,34,1)&&C>=REF(HHV(H,2),1),SMA(L,34,1)))))),MIN(MA(C,10),MIN(MA(C,20),MIN(MA(C,30),MIN(MA(C,40),MA(C,60)))))); LONGH1:BARSLAST(L>LONGH); LONGL1:BARSLAST(H<LONGL); PARTLINE(LONGH1>LONGL1,LONGH,COLORGREEN); PARTLINE(LONGH1<LONGL1,LONGL,COLORRED); DRAWNUMBER(LONGH1>LONGL1&&ISLASTBAR,LONGH,LONGH,3,COLORGREEN); DRAWNUMBER(LONGH1<LONGL1&&ISLASTBAR,LONGL,LONGL,3,COLORRED);
TO:O; TH:H; TL:L; YC:REF(C,1); YH:REF(H,1); YL:REF(L,1);
指标2:主图
NN:=BARSLAST(DATE<>REF(DATE,1)); N1:=BACKSET(ISLASTBAR,NN);
SHORTHDY:="ZQJX.SHORTH#DAY"; SHORTLDY:="ZQJX.SHORTL#DAY"; SHORTH1DY:="ZQJX.SHORTH1#DAY"; SHORTL1DY:="ZQJX.SHORTL1#DAY"; PARTLINE(SHORTH1DY>SHORTL1DY,SHORTHDY,COLORGREEN),POINTDOT; PARTLINE(SHORTH1DY<SHORTL1DY,SHORTLDY,COLORRED),POINTDOT; DRAWNUMBER(SHORTH1DY>SHORTL1DY&&ISLASTBAR,SHORTHDY,SHORTHDY,3,COLORGREEN); DRAWNUMBER(SHORTH1DY<SHORTL1DY&&ISLASTBAR,SHORTLDY,SHORTLDY,3,COLORRED); LONGHDY:="ZQJX.LONGH#DAY"; LONGLDY:="ZQJX.LONGL#DAY"; LONGH1DY:="ZQJX.LONGH1#DAY"; LONGL1DY:="ZQJX.LONGL1#DAY"; PARTLINE(LONGH1DY>LONGL1DY,LONGHDY,COLORCYAN),POINTDOT; PARTLINE(LONGH1DY<LONGL1DY,LONGLDY,COLORCYAN),POINTDOT; DRAWNUMBER(LONGH1DY>LONGL1DY&&ISLASTBAR,LONGHDY,LONGHDY,3,COLORCYAN); DRAWNUMBER(LONGH1DY<LONGL1DY&&ISLASTBAR,LONGLDY,LONGLDY,3,COLORCYAN); LONGHM30:="ZQJX.LONGH#MIN30"; LONGLM30:="ZQJX.LONGL#MIN30"; LONGH1M30:="ZQJX.LONGH1#MIN30"; LONGL1M30:="ZQJX.LONGL1#MIN30"; PARTLINE(LONGH1M30>LONGL1M30,LONGHM30,COLORMAGENTA),5,POINTDOT; PARTLINE(LONGH1M30<LONGL1M30,LONGLM30,COLORMAGENTA),POINTDOT; DRAWNUMBER(LONGH1M30>LONGL1M30&&ISLASTBAR,LONGHM30,LONGHM30,2,COLORMAGENTA); DRAWNUMBER(LONGH1M30<LONGL1M30&&ISLASTBAR,LONGLM30,LONGLM30,2,COLORMAGENTA); LONGHM15:="ZQJX.LONGH#MIN15"; LONGLM15:="ZQJX.LONGL#MIN15"; LONGH1M15:="ZQJX.LONGH1#MIN15"; LONGL1M15:="ZQJX.LONGL1#MIN15"; PARTLINE(LONGH1M15>LONGL1M15,LONGHM15,COLORGREEN),POINTDOT; PARTLINE(LONGH1M15<LONGL1M15,LONGLM15,COLORGREEN),POINTDOT; DRAWNUMBER(LONGH1M15>LONGL1M15&&ISLASTBAR,LONGHM15,LONGHM15,1,COLORGREEN); DRAWNUMBER(LONGH1M15<LONGL1M15&&ISLASTBAR,LONGLM15,LONGLM15,1,COLORGREEN); LONGHM5:="ZQJX.LONGH#MIN5"; LONGLM5:="ZQJX.LONGL#MIN5"; LONGH1M5:="ZQJX.LONGH1#MIN5"; LONGL1M5:="ZQJX.LONGL1#MIN5"; PARTLINE(LONGH1M5>LONGL1M5,LONGHM5,COLORyellow),POINTDOT; PARTLINE(LONGH1M5<LONGL1M5,LONGLM5,COLORyellow),POINTDOT; DRAWNUMBER(LONGH1M5>LONGL1M5&&ISLASTBAR,LONGHM5,LONGHM5,0,COLORyellow); DRAWNUMBER(LONGH1M5<LONGL1M5&&ISLASTBAR,LONGLM5,LONGLM5,0,COLORyellow); SHORTHM1:="ZQJX.SHORTH#MIN1"; SHORTLM1:="ZQJX.SHORTL#MIN1"; SHORTH1M1:="ZQJX.SHORTH1#MIN1"; SHORTL1M1:="ZQJX.SHORTL1#MIN1"; PARTLINE(SHORTH1M1>SHORTL1M1,SHORTHM1,COLORGREEN),POINTDOT; PARTLINE(SHORTH1M1<SHORTL1M1,SHORTLM1,COLORRED),POINTDOT; DRAWNUMBER(SHORTH1M1>SHORTL1M1&&ISLASTBAR,SHORTHM1,SHORTHM1,0,COLORGREEN); DRAWNUMBER(SHORTH1M1<SHORTL1M1&&ISLASTBAR,SHORTLM1,SHORTLM1,0,COLORRED); LONGHM1:="ZQJX.LONGH#MIN1"; LONGLM1:="ZQJX.LONGL#MIN1"; LONGH1M1:="ZQJX.LONGH1#MIN1"; LONGL1M1:="ZQJX.LONGL1#MIN1"; PARTLINE(LONGH1M1>LONGL1M1,LONGHM1,COLORWHITE),POINTDOT; PARTLINE(LONGH1M1<LONGL1M1,LONGLM1,COLORWHITE),POINTDOT; DRAWNUMBER(LONGH1M1>LONGL1M1&&ISLASTBAR,LONGHM1,LONGHM1,0,COLORWHITE); DRAWNUMBER(LONGH1M1<LONGL1M1&&ISLASTBAR,LONGLM1,LONGLM1,0,COLORWHITE);
TO:="ZQJX.TO#DAY"; TH:="ZQJX.TH#DAY"; TL:="ZQJX.TL#DAY"; YC:="ZQJX.YC#DAY"; YH:="ZQJX.YH#DAY"; YL:="ZQJX.YL#DAY"; PARTLINE(N1=1,IFELSE(TO<(YH+YL)/2,MAX(TO,YC),MIN(TO,YC)),COLORWHITE),POINTDOT; DRAWTEXT(TO<(YH+YL)/2&&N1=1&&ISLASTBAR,MAX(TO,YC),\'低开\'); DRAWTEXT(TO>(YH+YL)/2&&N1=1&&ISLASTBAR,MIN(TO,YC),\'高开\'); DRAWNUMBER(C>IFELSE(TO>(YH+YL)/2,MIN(TO,YC),MAX(TO,YC))&&TH>=YH&&C<=YH&&N1=1&&ISLASTBAR,YH,YH,0,COLORRED); DRAWTEXT(C>IFELSE(TO>(YH+YL)/2,MIN(TO,YC),MAX(TO,YC))&&TH>=YH&&C<=YH&&N1=1&&ISLASTBAR,YH,\'昨高\'); DRAWNUMBER(C<IFELSE(TO>(YH+YL)/2,MIN(TO,YC),MAX(TO,YC))&&TL<=YL&&C>=YL&&N1=1&&ISLASTBAR,YL,YL,0,COLORGREEN); DRAWTEXT(C<IFELSE(TO>(YH+YL)/2,MIN(TO,YC),MAX(TO,YC))&&TL<=YL&&C>=YL&&N1=1&&ISLASTBAR,YL,\'昨低\');
|