DRAWGBK(CLOSE>0,COLORRGB(180,180,180),COLORRGB(89,1,1),1);

YC_0:=BARSCOUNT(CLOSE);

YC_2:=SYSPARAM(2);

YC_3:=SYSPARAM(3);

YC_4:=SYSPARAM(4);

YC_5:=SYSPARAM(5);

YC_NN0:=(YC_3 - YC_2);

YC_NN:=(YC_0 - YC_2);

YC_HH1:=((YC_4 - YC_5) / 22);

YC_HH2:=(YC_HH1 / 4);

YC_LL1:=LLV(LOW,YC_NN0);

YC_LL2:=YC_LL1[YC_3];

YC_Y0:=(YC_0 >= YC_2);

YC_VV0:=IF(((YC_Y0 = 1) AND (SYSPARAM(1) >= YC_0)),VOL,0);

YC_C1:=IF(BETWEEN(CLOSE,(YC_4 - (0 * YC_HH1)),(YC_4 - (1 * YC_HH1))),YC_VV0,0);

YC_C2:=IF(BETWEEN(CLOSE,(YC_4 - (1 * YC_HH1)),(YC_4 - (2 * YC_HH1))),YC_VV0,0);

YC_C3:=IF(BETWEEN(CLOSE,(YC_4 - (2 * YC_HH1)),(YC_4 - (3 * YC_HH1))),YC_VV0,0);

YC_C4:=IF(BETWEEN(CLOSE,(YC_4 - (3 * YC_HH1)),(YC_4 - (4 * YC_HH1))),YC_VV0,0);

YC_C5:=IF(BETWEEN(CLOSE,(YC_4 - (4 * YC_HH1)),(YC_4 - (5 * YC_HH1))),YC_VV0,0);

YC_C6:=IF(BETWEEN(CLOSE,(YC_4 - (5 * YC_HH1)),(YC_4 - (6 * YC_HH1))),YC_VV0,0);

YC_C7:=IF(BETWEEN(CLOSE,(YC_4 - (6 * YC_HH1)),(YC_4 - (7 * YC_HH1))),YC_VV0,0);

YC_C8:=IF(BETWEEN(CLOSE,(YC_4 - (7 * YC_HH1)),(YC_4 - (8 * YC_HH1))),YC_VV0,0);

YC_C9:=IF(BETWEEN(CLOSE,(YC_4 - (8 * YC_HH1)),(YC_4 - (9 * YC_HH1))),YC_VV0,0);

YC_C10:=IF(BETWEEN(CLOSE,(YC_4 - (9 * YC_HH1)),(YC_4 - (10 * YC_HH1))),YC_VV0,0);

YC_C11:=IF(BETWEEN(CLOSE,(YC_4 - (10 * YC_HH1)),(YC_4 - (11 * YC_HH1))),YC_VV0,0);

YC_C12:=IF(BETWEEN(CLOSE,(YC_4 - (11 * YC_HH1)),(YC_4 - (12 * YC_HH1))),YC_VV0,0);

YC_C13:=IF(BETWEEN(CLOSE,(YC_4 - (12 * YC_HH1)),(YC_4 - (13 * YC_HH1))),YC_VV0,0);

YC_C14:=IF(BETWEEN(CLOSE,(YC_4 - (13 * YC_HH1)),(YC_4 - (14 * YC_HH1))),YC_VV0,0);

YC_C15:=IF(BETWEEN(CLOSE,(YC_4 - (14 * YC_HH1)),(YC_4 - (15 * YC_HH1))),YC_VV0,0);

YC_C16:=IF(BETWEEN(CLOSE,(YC_4 - (15 * YC_HH1)),(YC_4 - (16 * YC_HH1))),YC_VV0,0);

YC_C17:=IF(BETWEEN(CLOSE,(YC_4 - (16 * YC_HH1)),(YC_4 - (17 * YC_HH1))),YC_VV0,0);

YC_C18:=IF(BETWEEN(CLOSE,(YC_4 - (17 * YC_HH1)),(YC_4 - (18 * YC_HH1))),YC_VV0,0);

YC_C19:=IF(BETWEEN(CLOSE,(YC_4 - (18 * YC_HH1)),(YC_4 - (19 * YC_HH1))),YC_VV0,0);

YC_C20:=IF(BETWEEN(CLOSE,(YC_4 - (19 * YC_HH1)),(YC_4 - (20 * YC_HH1))),YC_VV0,0);

YC_C21:=IF(BETWEEN(CLOSE,(YC_4 - (20 * YC_HH1)),(YC_4 - (21 * YC_HH1))),YC_VV0,0);

YC_C22:=IF(BETWEEN(CLOSE,(YC_4 - (19 * YC_HH1)),(YC_4 - (22 * YC_HH1))),YC_VV0,0);

YC_C23:=IF(BETWEEN(CLOSE,(YC_4 - (20 * YC_HH1)),(YC_4 - (23 * YC_HH1))),YC_VV0,0);

YC_Y1:=STRTONUM(NUMTOSTR(IF(ISLASTBAR,SUM(YC_C1,YC_NN0),0),2));

YC_Y2:=STRTONUM(NUMTOSTR(IF(ISLASTBAR,SUM(YC_C2,YC_NN0),0),2));

YC_Y3:=STRTONUM(NUMTOSTR(IF(ISLASTBAR,SUM(YC_C3,YC_NN0),0),2));

YC_Y4:=STRTONUM(NUMTOSTR(IF(ISLASTBAR,SUM(YC_C4,YC_NN0),0),2));

YC_Y5:=STRTONUM(NUMTOSTR(IF(ISLASTBAR,SUM(YC_C5,YC_NN0),0),2));

YC_Y6:=STRTONUM(NUMTOSTR(IF(ISLASTBAR,SUM(YC_C6,YC_NN0),0),2));

YC_Y7:=STRTONUM(NUMTOSTR(IF(ISLASTBAR,SUM(YC_C7,YC_NN0),0),2));

YC_Y8:=STRTONUM(NUMTOSTR(IF(ISLASTBAR,SUM(YC_C8,YC_NN0),0),2));

YC_Y9:=STRTONUM(NUMTOSTR(IF(ISLASTBAR,SUM(YC_C9,YC_NN0),0),2));

YC_Y10:=STRTONUM(NUMTOSTR(IF(ISLASTBAR,SUM(YC_C10,YC_NN0),0),2));

YC_Y11:=STRTONUM(NUMTOSTR(IF(ISLASTBAR,SUM(YC_C11,YC_NN0),0),2));

YC_Y12:=STRTONUM(NUMTOSTR(IF(ISLASTBAR,SUM(YC_C12,YC_NN0),0),2));

YC_Y13:=STRTONUM(NUMTOSTR(IF(ISLASTBAR,SUM(YC_C13,YC_NN0),0),2));

YC_Y14:=STRTONUM(NUMTOSTR(IF(ISLASTBAR,SUM(YC_C14,YC_NN0),0),2));

YC_Y15:=STRTONUM(NUMTOSTR(IF(ISLASTBAR,SUM(YC_C15,YC_NN0),0),2));

YC_Y16:=STRTONUM(NUMTOSTR(IF(ISLASTBAR,SUM(YC_C16,YC_NN0),0),2));

YC_Y17:=STRTONUM(NUMTOSTR(IF(ISLASTBAR,SUM(YC_C17,YC_NN0),0),2));

YC_Y18:=STRTONUM(NUMTOSTR(IF(ISLASTBAR,SUM(YC_C18,YC_NN0),0),2));

YC_Y19:=STRTONUM(NUMTOSTR(IF(ISLASTBAR,SUM(YC_C19,YC_NN0),0),2));

YC_Y20:=STRTONUM(NUMTOSTR(IF(ISLASTBAR,SUM(YC_C20,YC_NN0),0),2));

YC_Y21:=STRTONUM(NUMTOSTR(IF(ISLASTBAR,SUM(YC_C21,YC_NN0),0),2));

YC_Y22:=STRTONUM(NUMTOSTR(IF(ISLASTBAR,SUM(YC_C22,YC_NN0),0),2));

YC_Y23:=STRTONUM(NUMTOSTR(IF(ISLASTBAR,SUM(YC_C23,YC_NN0),0),2));

YC_AY0:=MAX(YC_Y1,MAX(YC_Y2,MAX(YC_Y3,MAX(YC_Y4,MAX(YC_Y5,MAX(YC_Y6,MAX(YC_Y7,MAX(YC_Y8,MAX(YC_Y9,MAX(YC_Y10,MAX(YC_Y11,MAX(YC_Y12,MAX(YC_Y13,MAX(YC_Y13,MAX(YC_Y14,MAX(YC_Y15,MAX(YC_Y16,MAX(YC_Y17,MAX(YC_Y18,MAX(YC_Y19,MAX(YC_Y20,MAX(YC_Y21,YC_Y22))))))))))))))))))))));

YC_X1:=(((YC_Y1 / YC_AY0) >= (YC_NN / YC_NN0)) AND (YC_NN >= 0));

YC_X3:=(((YC_Y3 / YC_AY0) >= (YC_NN / YC_NN0)) AND (YC_NN >= 0));

YC_X5:=(((YC_Y5 / YC_AY0) >= (YC_NN / YC_NN0)) AND (YC_NN >= 0));

YC_X7:=(((YC_Y7 / YC_AY0) >= (YC_NN / YC_NN0)) AND (YC_NN >= 0));

YC_X9:=(((YC_Y9 / YC_AY0) >= (YC_NN / YC_NN0)) AND (YC_NN >= 0));

YC_X11:=(((YC_Y11 / YC_AY0) >= (YC_NN / YC_NN0)) AND (YC_NN >= 0));

YC_X13:=(((YC_Y13 / YC_AY0) >= (YC_NN / YC_NN0)) AND (YC_NN >= 0));

YC_X15:=(((YC_Y15 / YC_AY0) >= (YC_NN / YC_NN0)) AND (YC_NN >= 0));

YC_X17:=(((YC_Y17 / YC_AY0) >= (YC_NN / YC_NN0)) AND (YC_NN >= 0));

YC_X19:=(((YC_Y19 / YC_AY0) >= (YC_NN / YC_NN0)) AND (YC_NN >= 0));

YC_X21:=(((YC_Y21 / YC_AY0) >= (YC_NN / YC_NN0)) AND (YC_NN >= 0));

YC_X23:=(((YC_Y23 / YC_AY0) >= (YC_NN / YC_NN0)) AND (YC_NN >= 0));

FILLRGN((((YC_Y1 / YC_AY0) >= (YC_NN / YC_NN0)) AND (YC_NN >= 0)),(YC_4 - (0 * YC_HH1)),((YC_4 - (1 * YC_HH1)) + (YC_HH1 * 0.1))),colorFF9900;

FILLRGN((((YC_Y2 / YC_AY0) >= (YC_NN / YC_NN0)) AND (YC_NN >= 0)),(YC_4 - (1 * YC_HH1)),((YC_4 - (2 * YC_HH1)) + (YC_HH1 * 0.1))),colorFF9900;

FILLRGN((((YC_Y3 / YC_AY0) >= (YC_NN / YC_NN0)) AND (YC_NN >= 0)),(YC_4 - (2 * YC_HH1)),((YC_4 - (3 * YC_HH1)) + (YC_HH1 * 0.1))),colorFF9900;

FILLRGN((((YC_Y4 / YC_AY0) >= (YC_NN / YC_NN0)) AND (YC_NN >= 0)),(YC_4 - (3 * YC_HH1)),((YC_4 - (4 * YC_HH1)) + (YC_HH1 * 0.1))),colorFF9900;

FILLRGN((((YC_Y5 / YC_AY0) >= (YC_NN / YC_NN0)) AND (YC_NN >= 0)),(YC_4 - (4 * YC_HH1)),((YC_4 - (5 * YC_HH1)) + (YC_HH1 * 0.1))),colorFF9900;

FILLRGN((((YC_Y6 / YC_AY0) >= (YC_NN / YC_NN0)) AND (YC_NN >= 0)),(YC_4 - (5 * YC_HH1)),((YC_4 - (6 * YC_HH1)) + (YC_HH1 * 0.1))),colorFF9900;

FILLRGN((((YC_Y7 / YC_AY0) >= (YC_NN / YC_NN0)) AND (YC_NN >= 0)),(YC_4 - (6 * YC_HH1)),((YC_4 - (7 * YC_HH1)) + (YC_HH1 * 0.1))),colorFF9900;

FILLRGN((((YC_Y8 / YC_AY0) >= (YC_NN / YC_NN0)) AND (YC_NN >= 0)),(YC_4 - (7 * YC_HH1)),((YC_4 - (8 * YC_HH1)) + (YC_HH1 * 0.1))),colorFF9900;

FILLRGN((((YC_Y9 / YC_AY0) >= (YC_NN / YC_NN0)) AND (YC_NN >= 0)),(YC_4 - (8 * YC_HH1)),((YC_4 - (9 * YC_HH1)) + (YC_HH1 * 0.1))),colorFF9900;

FILLRGN((((YC_Y10 / YC_AY0) >= (YC_NN / YC_NN0)) AND (YC_NN >= 0)),(YC_4 - (9 * YC_HH1)),((YC_4 - (10 * YC_HH1)) + (YC_HH1 * 0.1))),colorFF9900;

FILLRGN((((YC_Y11 / YC_AY0) >= (YC_NN / YC_NN0)) AND (YC_NN >= 0)),(YC_4 - (10 * YC_HH1)),((YC_4 - (11 * YC_HH1)) + (YC_HH1 * 0.1))),colorFF9900;

FILLRGN((((YC_Y12 / YC_AY0) >= (YC_NN / YC_NN0)) AND (YC_NN >= 0)),(YC_4 - (11 * YC_HH1)),((YC_4 - (12 * YC_HH1)) + (YC_HH1 * 0.1))),colorFF9900;

FILLRGN((((YC_Y13 / YC_AY0) >= (YC_NN / YC_NN0)) AND (YC_NN >= 0)),(YC_4 - (12 * YC_HH1)),((YC_4 - (13 * YC_HH1)) + (YC_HH1 * 0.1))),colorFF9900;

FILLRGN((((YC_Y14 / YC_AY0) >= (YC_NN / YC_NN0)) AND (YC_NN >= 0)),(YC_4 - (13 * YC_HH1)),((YC_4 - (14 * YC_HH1)) + (YC_HH1 * 0.1))),colorFF9900;

FILLRGN((((YC_Y15 / YC_AY0) >= (YC_NN / YC_NN0)) AND (YC_NN >= 0)),(YC_4 - (14 * YC_HH1)),((YC_4 - (15 * YC_HH1)) + (YC_HH1 * 0.1))),colorFF9900;

FILLRGN((((YC_Y16 / YC_AY0) >= (YC_NN / YC_NN0)) AND (YC_NN >= 0)),(YC_4 - (15 * YC_HH1)),((YC_4 - (16 * YC_HH1)) + (YC_HH1 * 0.1))),colorFF9900;

FILLRGN((((YC_Y17 / YC_AY0) >= (YC_NN / YC_NN0)) AND (YC_NN >= 0)),(YC_4 - (16 * YC_HH1)),((YC_4 - (17 * YC_HH1)) + (YC_HH1 * 0.1))),colorFF9900;

FILLRGN((((YC_Y18 / YC_AY0) >= (YC_NN / YC_NN0)) AND (YC_NN >= 0)),(YC_4 - (17 * YC_HH1)),((YC_4 - (18 * YC_HH1)) + (YC_HH1 * 0.1))),colorFF9900;

FILLRGN((((YC_Y19 / YC_AY0) >= (YC_NN / YC_NN0)) AND (YC_NN >= 0)),(YC_4 - (18 * YC_HH1)),((YC_4 - (19 * YC_HH1)) + (YC_HH1 * 0.1))),colorFF9900;

FILLRGN((((YC_Y20 / YC_AY0) >= (YC_NN / YC_NN0)) AND (YC_NN >= 0)),(YC_4 - (19 * YC_HH1)),((YC_4 - (20 * YC_HH1)) + (YC_HH1 * 0.1))),colorFF9900;

FILLRGN((((YC_Y21 / YC_AY0) >= (YC_NN / YC_NN0)) AND (YC_NN >= 0)),(YC_4 - (20 * YC_HH1)),((YC_4 - (21 * YC_HH1)) + (YC_HH1 * 0.1))),colorFF9900;

FILLRGN((((YC_Y22 / YC_AY0) >= (YC_NN / YC_NN0)) AND (YC_NN >= 0)),(YC_4 - (21 * YC_HH1)),((YC_4 - (22 * YC_HH1)) + (YC_HH1 * 0.1))),colorFF9900;

FILLRGN((((YC_Y23 / YC_AY0) >= (YC_NN / YC_NN0)) AND (YC_NN >= 0)),(YC_4 - (22 * YC_HH1)),((YC_4 - (23 * YC_HH1)) + (YC_HH1 * 0.1))),colorFF9900;

STICKLINE((CLOSE >= OPEN),CLOSE,OPEN,8,0),colorBC;

STICKLINE((CLOSE >= OPEN),CLOSE,OPEN,5,0),colorFF;

STICKLINE((CLOSE >= OPEN),CLOSE,OPEN,3,0),color90FF;

STICKLINE((CLOSE >= OPEN),CLOSE,OPEN,1,0),colorFFFF;

STICKLINE((CLOSE >= OPEN),HIGH,CLOSE,0.8,0),colorFFFF;

STICKLINE((CLOSE >= OPEN),OPEN,LOW,0.8,0),colorFFFF;

STICKLINE((CLOSE <= OPEN),CLOSE,OPEN,8,0),colorFF0000;

STICKLINE((CLOSE <= OPEN),CLOSE,OPEN,5,0),colorFF00A6;

STICKLINE((CLOSE <= OPEN),CLOSE,OPEN,3,0),colorFF00FF;

STICKLINE((CLOSE <= OPEN),CLOSE,OPEN,1,0),colorFFFFFF;

STICKLINE((CLOSE <= OPEN),HIGH,OPEN,0.8,0),colorFFFFFF;

STICKLINE((CLOSE <= OPEN),CLOSE,LOW,0.8,0),colorFFFFFF;

SSL:=CLOSE;

上限:=YC_4;

间距:=YC_HH1;

DRAWNUMBER(FILTER((REFX((YC_X1 < REF(YC_X1,1)),6) AND (YC_Y1 > 0)),10),(YC_4 - ((0.6 * 1) * YC_HH2)),(YC_4 - (0 * YC_HH1)),2),colorFFFF00;

DRAWNUMBER(FILTER((REFX((YC_X3 < REF(YC_X3,1)),6) AND (YC_Y3 > 0)),10),(YC_4 - ((2.8 * 3) * YC_HH2)),(YC_4 - (2 * YC_HH1)),2),colorFFFF00;

DRAWNUMBER(FILTER((REFX((YC_X5 < REF(YC_X5,1)),6) AND (YC_Y5 > 0)),10),(YC_4 - ((3.3 * 5) * YC_HH2)),(YC_4 - (4 * YC_HH1)),2),colorFFFF00;

DRAWNUMBER(FILTER((REFX((YC_X7 < REF(YC_X7,1)),6) AND (YC_Y7 > 0)),10),(YC_4 - ((3.5 * 7) * YC_HH2)),(YC_4 - (6 * YC_HH1)),2),colorFFFF00;

DRAWNUMBER(FILTER((REFX((YC_X9 < REF(YC_X9,1)),6) AND (YC_Y9 > 0)),10),(YC_4 - ((3.62 * 9) * YC_HH2)),(YC_4 - (8 * YC_HH1)),2),colorFFFF00;

DRAWNUMBER(FILTER((REFX((YC_X11 < REF(YC_X11,1)),6) AND (YC_Y11 > 0)),10),(YC_4 - ((3.7 * 11) * YC_HH2)),(YC_4 - (10 * YC_HH1)),2),colorFFFF00;

DRAWNUMBER(FILTER((REFX((YC_X13 < REF(YC_X13,1)),6) AND (YC_Y13 > 0)),10),(YC_4 - ((3.72 * 13) * YC_HH2)),(YC_4 - (12 * YC_HH1)),2),colorFFFF00;

DRAWNUMBER(FILTER((REFX((YC_X15 < REF(YC_X15,1)),6) AND (YC_Y15 > 0)),10),(YC_4 - ((3.76 * 15) * YC_HH2)),(YC_4 - (14 * YC_HH1)),2),colorFFFF00;

DRAWNUMBER(FILTER((REFX((YC_X17 < REF(YC_X17,1)),6) AND (YC_Y17 > 0)),10),(YC_4 - ((3.8 * 17) * YC_HH2)),(YC_4 - (16 * YC_HH1)),2),colorFFFF00;

DRAWNUMBER(FILTER((REFX((YC_X19 < REF(YC_X19,1)),6) AND (YC_Y19 > 0)),10),(YC_4 - ((3.82 * 19) * YC_HH2)),(YC_4 - (18 * YC_HH1)),2),colorFFFF00;

DRAWNUMBER(FILTER((REFX((YC_X21 < REF(YC_X21,1)),6) AND (YC_Y21 > 0)),10),(YC_4 - ((3.84 * 21) * YC_HH2)),(YC_4 - (20 * YC_HH1)),2),colorFFFF00;

DRAWNUMBER(FILTER((REFX((YC_X23 < REF(YC_X23,1)),6) AND (YC_Y23 > 0)),10),(YC_4 - ((3.86 * 23) * YC_HH2)),(YC_4 - (22 * YC_HH1)),2),colorFFFF00;

 

 

CHECK1:=CHECKUSER(1);

 

STICKLINE(CLOSE>=OPEN,CLOSE,OPEN,7,0),colorAA;

STICKLINE(CLOSE>=OPEN,CLOSE,OPEN,6,0),colorBB;

STICKLINE(CLOSE>=OPEN,CLOSE,OPEN,5,0),colorCC;

STICKLINE(CLOSE>=OPEN,CLOSE,OPEN,4,0),colorDD;

STICKLINE(CLOSE>=OPEN,CLOSE,OPEN,3,0),colorEE;

STICKLINE(CLOSE>=OPEN,CLOSE,OPEN,2,0),colorFF;

STICKLINE(CLOSE>=OPEN,CLOSE,OPEN,1,0),colorFF;

STICKLINE(CLOSE>=OPEN,HIGH,LOW,0,0),colorFF;

STICKLINE(CLOSE<=OPEN,CLOSE,OPEN,7,0),colorAAAA00;

STICKLINE(CLOSE<=OPEN,CLOSE,OPEN,6,0),colorBBBB00;

STICKLINE(CLOSE<=OPEN,CLOSE,OPEN,5,0),colorCCCC00;

STICKLINE(CLOSE<=OPEN,CLOSE,OPEN,4,0),colorDDDD00;

STICKLINE(CLOSE<=OPEN,CLOSE,OPEN,3,0),colorEEEE00;

STICKLINE(CLOSE<=OPEN,CLOSE,OPEN,2,0),colorFFFF00;

STICKLINE(CLOSE<=OPEN,CLOSE,OPEN,1,0),colorFFFF00;

STICKLINE(CLOSE<=OPEN,HIGH,LOW,0,0),colorFFFF00;

STICKLINE(CLOSE/REF(CLOSE,1)>1.04,(CLOSE+OPEN)/2,CLOSE,7,0),colorAAAA;

STICKLINE(CLOSE/REF(CLOSE,1)>1.04,(CLOSE+OPEN)/2,CLOSE,5,0),colorCCCC;

STICKLINE(CLOSE/REF(CLOSE,1)>1.04,(CLOSE+OPEN)/2,CLOSE,3,0),colorEEEE;

STICKLINE(CLOSE/REF(CLOSE,1)>1.04,(CLOSE+OPEN)/2,CLOSE,1,0),colorFFFF;

DH:=(CLOSE-REF(CLOSE,1))/REF(CLOSE,1)*100;

STICKLINE(DH<=-4,(CLOSE+OPEN)/2,CLOSE,7,0),colorAA0000;

STICKLINE(DH<=-4,(CLOSE+OPEN)/2,CLOSE,5,0),colorCC0000;

STICKLINE(DH<=-4,(CLOSE+OPEN)/2,CLOSE,3,0),colorEE0000;

STICKLINE(DH<=-4,(CLOSE+OPEN)/2,CLOSE,1,0),colorFF0000;

ZG:=REF(HIGH,1);

ZD:=REF(LOW,1);

GG:HHV(ZG,25),colorFFB0FF;

DD:LLV(ZD,25),colorC1F81F;

<%

VH=FFL.VARDATA("GG")

VL=FFL.VARDATA("DD")

VN=FFL.VARDATA("25")

LAST=UBOUND(VH)

IF VN>LAST THEN VN=LAST+1

FOR I=LAST TO LAST-VN+1 STEP-1

    VH(I)=VH(LAST)

    VL(I)=VL(LAST)

NEXT

FFL.VARDATA("GG")=VH

FFL.VARDATA("DD")=VL

FFL.VARSTARTINDEX("GG")=LAST-VN+1

FFL.VARSTARTINDEX("DD")=LAST-VN+1

%>

DRAWTEXT(BARPOS=SYSPARAM(3),GG,'  【最高价:'+NUMTOSTR(GG,2)+'】'),ALIGN2,PXDN3,colorFFB0FF;

DRAWTEXT(BARPOS=SYSPARAM(3),DD,' 【最低价:'+NUMTOSTR(DD,2)+'】'),ALIGN2,PXDN3,colorFF00;

GGS:=BARSCOUNT(CLOSE);

YY:=BARPOS=SYSPARAM(1);

IF M=1 THEN BEGIN

FZ:=PEAKA(GG,25,1);

GZ:=TROUGHA(DD,25,1);

FZ1:=STRTONUM(NUMTOSTR(GGS-BARSSINCE(FZ),0));

GZ1:=STRTONUM(NUMTOSTR(GGS-BARSSINCE(GZ),0));

WF:=GGS<FZ1;

WFS:=COUNT(WF,0)>0;

WG:=GGS<GZ1;

WGS:=COUNT(WG,0)>0;

高:IF(WF=0 AND WFS=0 OR WF AND WFS,HHV(GG,0),FZ),LINETHICK0;

低:IF(WG=0 AND WGS=0 OR WG AND WGS,LLV(DD,0),GZ),LINETHICK0;

FX:=IF(WF=0 AND WFS=0 OR WF AND WFS,BARSCOUNT(GG)-1,PEAKBARSA(GG,25,1));

GX:=IF(WG=0 AND WGS=0 OR WG AND WGS,1,TROUGHBARSA(DD,25,1));

DRAWSL(FX>0 AND YY,REF(高,FX),0,MAX(FX,GX),1),colorFF00FF;

DRAWSL(FX>0 AND YY,REF(低,GX),0,MAX(GX,FX),1),colorFF00;

G1:(高-低)*0.03+高,LINETHICK0,colorFF00FF;

DRAWTEXT(FX>0 AND YY,G1,'﹉'),ALIGN0,PXDN2,colorFF00;

DRAWNUMBER(YY,G1,G1,2),ALIGN0,SHIFT2,colorFF00FF;

G2:(高-低)*0.08+高,LINETHICK0,colorFF00FF;

DRAWTEXT(FX>0 AND YY,G2,'﹉'),ALIGN0,PXDN2,colorFF00;

DRAWNUMBER(YY,G2,G2,2),ALIGN0,SHIFT2,colorFF00FF;

G3:(高-低)*0.125+高,LINETHICK0,colorFF00FF;

DRAWTEXT(FX>0 AND YY,G3,'﹉'),ALIGN0,PXDN2,colorFF00FF;

DRAWTEXT(FX>0 AND YY,G3,'112.5%     '+NUMTOSTR(G3,2)),ALIGN0,PXDN2,colorFF00;

G4:(高-低)*0.236+高,LINETHICK0,colorFF00FF;

DRAWTEXT(FX>0 AND YY,G4,'﹉'),ALIGN0,PXDN2,colorFF00FF;

DRAWTEXT(FX>0 AND YY,G4,'123.6%     '+NUMTOSTR(G4,2)),ALIGN0,PXDN2,colorFF00;

G5:(高-低)*0.333+高,LINETHICK0,colorFF00FF;

DRAWTEXT(FX>0 AND YY,G5,'﹉'),ALIGN0,PXDN2,colorFF00FF;

DRAWTEXT(FX>0 AND YY,G5,'133.3%     '+NUMTOSTR(G5,2)),ALIGN0,PXDN2,colorFF00;

G6:(高-低)*0.28+高,LINETHICK0,colorFF00FF;

DRAWTEXT(FX>0 AND YY,G6,'﹉'),ALIGN0,PXDN2,colorFF00FF;

DRAWTEXT(FX>0 AND YY,G6,'128%     '+NUMTOSTR(G6,2)),ALIGN0,PXDN2,colorFF00;

G7:(高-低)*0.191+高,LINETHICK0,colorFF00FF;

DRAWTEXT(FX>0 AND YY,G7,'﹉'),ALIGN0,PXDN2,colorFF00FF;

DRAWTEXT(FX>0 AND YY,G7,'119.1%     '+NUMTOSTR(G7,2)),ALIGN0,PXDN2,colorFF00;

G8:(高-低)*0.382+高,LINETHICK0,colorFF00FF;

DRAWSL(FX>0 AND YY,REF(G8,GX),0,MAX(GX,FX),1),POINTDOT,colorFF00FF;

DRAWTEXT(FX>0 AND YY,G8,'138.2%     '+NUMTOSTR(G8,2)),ALIGN0,PXDN2,colorFF00;

F1:(高-低)*0.236+低,LINETHICK0,colorFF00FF;

DRAWSL(FX>0 AND YY,REF(F1,GX),0,MAX(GX,FX),1),POINTDOT,colorFF00FF;

DRAWNUMBER(YY,F1,F1,2),ALIGN0,SHIFT2,colorFF00FF;

F2:(高-低)*0.382+低,LINETHICK0,colorFFFF;

DRAWSL(FX>0 AND YY,REF(F2,GX),0,MAX(GX,FX),1),POINTDOT,colorFFFF;

DRAWNUMBER(YY,F2,F2,2),ALIGN0,SHIFT2,colorFFFF;

F3:(高-低)*0.5+低,LINETHICK0,colorFFFFFF;

DRAWSL(FX>0 AND YY,REF(F3,GX),0,MAX(GX,FX),1),POINTDOT,colorFFFFFF;

DRAWNUMBER(YY,F3,F3,2),ALIGN0,SHIFT2,colorFFFFFF;

F4:(高-低)*0.618+低,LINETHICK0,colorFFFF;

DRAWSL(FX>0 AND YY,REF(F4,GX),0,MAX(GX,FX),1),POINTDOT,colorFFFF;

DRAWNUMBER(YY,F4,F4,2),ALIGN0,SHIFT2,colorFFFF;

F5:(高-低)*0.764+低,LINETHICK0,colorFF00FF;

DRAWSL(FX>0 AND YY,REF(F5,GX),0,MAX(GX,FX),1),POINTDOT,colorFF00FF;

DRAWNUMBER(YY,F5,F5,2),ALIGN0,SHIFT2,colorFF00FF;

F6:(高-低)*0.55+低,LINETHICK0,colorFFFFFF;

DRAWTEXT(FX>0 AND YY,F6,'﹉'),ALIGN0,PXDN2,colorFF00;

DRAWNUMBER(YY,F6,F6,2),ALIGN0,SHIFT2,colorFFFFFF;

F7:(高-低)*0.45+低,LINETHICK0,colorFFFFFF;

DRAWTEXT(FX>0 AND YY,F7,'﹉'),ALIGN0,PXDN2,colorFF00;

DRAWNUMBER(YY,F7,F7,2),ALIGN0,SHIFT2,colorFFFFFF;

F8:(高-低)*0.875+低,LINETHICK0,colorFFFFFF;

DRAWTEXT(FX>0 AND YY,F8,'*'),ALIGN0,PXUP10,colorFF00;

DRAWNUMBER(YY,F8,F8,2),ALIGN0,SHIFT2,colorFF00;

F9:(高-低)*0.125+低,LINETHICK0,colorFFFFFF;

DRAWTEXT(FX>0 AND YY,F9,'*'),ALIGN0,PXUP10,colorFF00;

DRAWNUMBER(YY,F9,F9,2),ALIGN0,SHIFT2,colorFF00;

F10:(高-低)*0.667+低,LINETHICK0,colorFFFFFF;

DRAWTEXT(FX>0 AND YY,F10,'*'),ALIGN0,PXUP10,colorFF00;

DRAWNUMBER(YY,F10,F10,2),ALIGN0,SHIFT2,colorFF00;

F11:(高-低)*0.333+低,LINETHICK0,colorFFFFFF;

DRAWTEXT(FX>0 AND YY,F11,'*'),ALIGN0,PXUP10,colorFF00;

DRAWNUMBER(YY,F11,F11,2),ALIGN0,SHIFT2,colorFF00;

END;

指导线:EMA((EMA(CLOSE,4)+EMA(CLOSE,6)+EMA(CLOSE,12)+EMA(CLOSE,24))/4,2),LINEDOT,LINETHICK0,colorFFFF;

界:MA(CLOSE,21),LINETHICK0,colorFEBAF5;

上限:界+3*STD(CLOSE,20),LINETHICK0,colorFFFF;

卖:界+2*STD(CLOSE,20),LINETHICK0,colorFF00FF;

买:界-2*STD(CLOSE,20),LINETHICK0,colorF0FF00;

下限:界-2.9*STD(CLOSE,20),LINETHICK0,colorFF00;

DRAWICON(HIGH>=上限,HIGH,10),ALIGN0,PXUP15;

DRAWICON(CROSS(HIGH,上限),HIGH,12),ALIGN0;

DRAWTEXT(CROSS(HIGH,上限),HIGH,'￣'),ALIGN0,colorFFFF;

DRAWICON(CROSS(上限,HIGH),HIGH,9),ALIGN0;

DRAWTEXT(CROSS(上限,HIGH),HIGH,'￣'),ALIGN0,colorFFFF;

DRAWICON(CROSS(HIGH,卖),HIGH,7),ALIGN0;

DRAWTEXT(CROSS(HIGH,卖),HIGH,'￣'),ALIGN0,colorFF00FF;

DRAWTEXT(CROSS(CLOSE,卖),HIGH,'￣'),ALIGN0,colorFF0000;

DRAWICON(CROSS(CLOSE,卖),HIGH,5),ALIGN0;

DRAWTEXT(CROSS(下限,LOW),LOW,'限'),ALIGN0,colorFF00;

DRAWTEXT(CROSS(下限,LOW),LOW,'￣'),ALIGN0,colorFF00;

DRAWTEXT(CROSS(买,LOW),LOW,'△'),ALIGN0,colorFFFF00;

DRAWTEXT(CROSS(买,LOW),LOW,'￣'),ALIGN0,colorFFFF00;

DRAWTEXT(CROSS(买,CLOSE),LOW,'▲'),ALIGN0,colorFFFF00;

DRAWTEXT(CROSS(买,CLOSE),LOW,'￣'),ALIGN0,colorFFFF00;

 

 

n:=45;

FH:=HIGH;

FL:=LOW;

SELL:=0*FH;

BUY:=SELL;

SIGNAL:=SELL;

BOXH:SELL,LINETHICK0;

BOXL:SELL,LINETHICK0;

VARIABLE:HC=0,LC=0,BT=FH[1],BB=FH[1];

FOR I=1 TO DATACOUNT DO BEGIN

IF HC>1 THEN BEGIN

IF LC>2 AND BT<=FH[I] THEN BEGIN

BUY[I]:=1;

FOR J=I-1 DOWNTO I-HC DO BEGIN

BOXH[J]:=FH[I-HC],LINETHICK0;

BOXL[J]:=FL[I-LC],LINETHICK0;

END;

HC:=0;

LC:=0;

END;

IF BT>FH[I] THEN BEGIN

IF LC>2 THEN BEGIN

IF BB>=FL[I] THEN BEGIN

SELL[I]:=1;

FOR J=I-1 DOWNTO I-HC DO BEGIN

BOXH[J]:=FH[I-HC],LINETHICK0;

BOXL[J]:=FL[I-LC],LINETHICK0;

END;

HC:=-1;

LC:=0;

END;ELSE BEGIN

BOXH[I]:=FH[I-HC],LINETHICK0;

BOXL[I]:=FL[I-LC],LINETHICK0;

END;

END;

HC:=HC+1;

IF LC>1 THEN BEGIN

IF BB<FL[I] THEN BEGIN

LC:=LC+1;

IF LC=3 THEN BEGIN

SIGNAL[I-HC+1]:=1;

FOR J=I DOWNTO I-HC+1 DO BEGIN

BOXH[J]:=FH[I-HC+1],LINETHICK0;

BOXL[J]:=FL[I-LC+1],LINETHICK0;

END;

END;

END;ELSE

LC:=0;

END;ELSE

IF LC=1 THEN BEGIN

IF BB<FL[I] THEN BEGIN

LC:=LC+1;

END;ELSE

LC:=0;

END;

IF LC=0 AND HC>1 THEN BEGIN

BB:=FL[I];

LC:=LC+1;

END;

END;ELSE BEGIN

HC:=0;

LC:=0;

END;

END;ELSE

IF HC=1 THEN BEGIN

IF BT>FH[I] THEN

HC:=HC+1;ELSE BEGIN

HC:=0;

LC:=0;

END;

END;

IF HC=0 THEN BEGIN

BT:=FH[I];

HC:=HC+1;

END;

END;

PARTLINE(BOXH AND BOXH=REF(BOXH,1),BOXH),POINTDOT,colorFFFF;

PARTLINE(BOXL AND BOXL=REF(BOXL,1),BOXL),POINTDOT,colorFFFF;

PARTLINE(BOXL AND BOXL=REF(BOXL,1),(BOXL+BOXH)/2),POINTDOT,colorFFFF;

STICKLINE((SIGNAL OR REFX(BUY OR SELL,1)) AND BOXH,BOXH,BOXL,0.1,0),POINTDOT,colorFFFF;

DRAWICON(BUY,LOW*0.98,4);

DRAWICON(SELL,HIGH*1.02,5);

BOXHL:=(BOXL+BOXH)/2;

HAC:=CLOSE;

VARIABLE:HA=1;

FOR I=2 TO DATACOUNT DO BEGIN

IF BOXH[I-1]=0 AND BOXH[I]>0 AND (BOXH[I]<>BOXH[I-1] OR BOXL[I]<>BOXL[I-1]) THEN

HAC[I]:=0;

IF BOXH[I-1]>0 AND BOXH[I]>0 AND (BOXH[I]<>BOXH[I-1] OR BOXL[I]<>BOXL[I-1]) THEN

HAC[I]:=0;

IF BOXH[I-1]>0 AND BOXH[I]>0 AND BOXH[I]=BOXH[I-1] AND BOXL[I]<>BOXL[I-1] THEN

HAC[I]:=0;

IF BOXH[I-1]>0 AND BOXH[I]>0 AND BOXH[I]=BOXH[I-1] AND BOXL[I]=BOXL[I-1] THEN

HAC[I]:=HA;

IF BOXH[I-1]>0 AND BOXH[I]>0 AND BOXH[I]=BOXH[I-1] AND BOXL[I]<>BOXL[I-1] THEN

HAC[I]:=HA;

IF BOXH[I-1]>0 AND BOXH[I]>0 AND BOXH[I]=BOXH[I-1] AND BOXH[I-2]=BOXH[I-1] THEN

HAC[I]:=HAC[I-1]+HA;

IF BOXH[I-1]>0 AND BOXH[I]=0 THEN

HAC[I]:=0;

IF BOXH[I-1]=0 AND BOXH[I]=0 THEN

HAC[I]:=0;

END;

NV:=HAC;

KK:=HAC[1];

LL:=HAC[1];

LLT:=HAC[1];

MM:=HAC[1];

MMT:=HAC[1];

FOR I=2 TO DATACOUNT DO BEGIN

IF HAC[I-1]=0 AND HAC[I]>0 THEN

KK:=I-1;

IF HAC[I-1]>0 AND HAC[I]>0 THEN

LLT:=I-1;

IF HAC[I-1]>0 AND HAC[I]>0 THEN

FOR J=KK TO LLT DO BEGIN

NV[J]:=HAC[I]+1;

END;

IF HAC[I-1]>0 AND HAC[I]=0 THEN

LL:=I-1;

IF HAC[I-1]>0 AND HAC[I]=0 THEN

FOR J=KK TO LL DO BEGIN

NV[J]:=HAC[I-1]+1;

END;

END;

XX:=NV;

BB25:=(BOXH-BOXL)/(NV-1)*IF(ISLASTBAR,HAC-1,HAC)*(TAN(-26.5659*3.14159/180))+BOXH;

PARTLINE(REF(BB25,1)<>0 AND BOXH=REF(BOXH,1) AND BB25>0 AND BB25>BOXL-BOXL*0.05,BB25),POINTDOT,LINETHICK1,colorFF00FF;

DRAWLINE(BB25>0 AND BB25=BOXH AND BARSCOUNT(CLOSE)>DATACOUNT-45,BB25,BB25>0 AND

BB25-BOXHL<1 AND BARSCOUNT(CLOSE)>DATACOUNT-45,BB25,1),colorFF00FF;

BB45:=(BOXH-BOXL)/(NV-1)*IF(ISLASTBAR,HAC-1,HAC)*(TAN(-45*3.14159/180))+BOXH;

PARTLINE(REF(BB45,1)<>0 AND BOXH=REF(BOXH,1) AND BB45>0 AND BB45>BOXL-BOXL*0.05,BB45),LINETHICK1,colorFF00FF;

DRAWLINE(BB45>0 AND BB45=BOXH AND BARSCOUNT(CLOSE)>DATACOUNT-45,BB45,BB45>0 AND

BB45=BOXL AND BARSCOUNT(CLOSE)>DATACOUNT-45,BB45,1),colorFF00FF;

BB66:=(BOXH-BOXL)/(NV-1)*IF(ISLASTBAR,HAC-1,HAC)*(TAN(-63.435*3.14159/180))+BOXH;

PARTLINE(REF(BB66,1)<>0 AND BOXH=REF(BOXH,1) AND BB66>0 AND BB66>BOXL-BOXL*0.025,BB66),POINTDOT,LINETHICK1,colorFF00FF;

XBB23:=(BOXH-BOXL)/(NV-1)*IF(ISLASTBAR,HAC-1,HAC)*(TAN(26.5659*3.14159/180))+BOXL;

PARTLINE(XBB23>0 AND XBB23>BOXL AND XBB23<BOXH+BOXH*0.05,XBB23),POINTDOT,LINETHICK1,colorFF00;

DRAWLINE(XBB23>0 AND XBB23=BOXL AND BARSCOUNT(CLOSE)>DATACOUNT-45,XBB23,XBB23>0

AND BOXHL-XBB23<1 AND BARSCOUNT(CLOSE)>DATACOUNT-45,XBB23,1),colorFF00;

XBB45:=(BOXH-BOXL)/(NV-1)*IF(ISLASTBAR,HAC-1,HAC)*(TAN(45*3.14159/180))+BOXL;

PARTLINE(XBB45>0 AND XBB45>BOXL AND XBB45<BOXH+BOXH*0.05,XBB45),LINETHICK1,colorFF00;

DRAWLINE(XBB45>0 AND XBB45=BOXL AND BARSCOUNT(CLOSE)>DATACOUNT-45,XBB45,XBB45>0

AND XBB45=BOXH AND BARSCOUNT(CLOSE)>DATACOUNT-45,XBB45,1),colorFF00;

XBB66:=(BOXH-BOXL)/(NV-1)*IF(ISLASTBAR,HAC-1,HAC)*(TAN(63.435*3.14159/180))+BOXL;

PARTLINE(XBB66>0 AND XBB66>BOXL AND XBB66<BOXH+BOXH*0.025,XBB66),POINTDOT,LINETHICK1,colorFF00;