通达信多空通道多空源码附图

短上轨:EMA(HIGH,24),COLORRED;
短下轨:EMA(LOW,24),COLORGREEN;
 NOTEXT短下轨0:IF(CLOSE>短下轨,短下轨,DRAWNULL),COLORRED;
 NOTEXT短下轨1:IF(CLOSE<短下轨,短下轨,DRAWNULL),COLORGREEN;
 NOTEXT短上轨0:IF(CLOSE>短上轨,短上轨,DRAWNULL),COLORRED;
 NOTEXT短上轨1:IF(CLOSE<短上轨,短上轨,DRAWNULL),COLORGREEN;
 STICKLINE(CLOSE>短上轨,短上轨,短下轨,0,0),COLORRED;
 STICKLINE(CLOSE<短下轨,短上轨,短下轨,0,0),COLORGREEN;
短轨差:短上轨-短下轨,NODRAW,COLORYELLOW;
长上轨:EMA(HIGH,90),COLORMAGENTA;
长下轨:EMA(LOW,90),COLORBLUE;
 HJ_1:=TESTSKIP(DATE>1161130);
 NOTEXT长下轨0:IF(CLOSE>长下轨,长下轨,DRAWNULL),COLORMAGENTA;
 NOTEXT长下轨1:IF(CLOSE<长下轨,长下轨,DRAWNULL),COLORBLUE;
 NOTEXT长上轨0:IF(CLOSE>长上轨,长上轨,DRAWNULL),COLORMAGENTA;
 NOTEXT长上轨1:IF(CLOSE<长上轨,长上轨,DRAWNULL),COLORBLUE;
 STICKLINE(CLOSE>长上轨,长上轨,长下轨,0,0),COLORMAGENTA;
 STICKLINE(CLOSE<长下轨,长上轨,长下轨,0,0),COLORBLUE;
长轨差:长上轨-长下轨,NODRAW,COLORYELLOW;
 DRAWNUMBER(REF(CLOSE,3)<REF(短下轨,3) OR REF(CLOSE,3)<REF(短上轨,3) AND (REF(CLOSE,2)<REF(短下轨,2) OR REF(CLOSE,2)<REF(短上轨,2)) AND (REF(CLOSE,1)<REF(短下轨,1) OR REF(CLOSE,1)<REF(短上轨,1)) AND CLOSE>短上轨 AND 短上轨<长下轨 AND COUNT(CLOSE<短下轨,6)>0,LOW*0.96,4),COLORBROWN;
 DRAWNUMBER(REF(CLOSE,3)<REF(短下轨,3) OR REF(CLOSE,3)<REF(短上轨,3) AND (REF(CLOSE,2)<REF(短下轨,2) OR REF(CLOSE,2)<REF(短上轨,2)) AND (REF(CLOSE,1)<REF(短下轨,1) OR REF(CLOSE,1)<REF(短上轨,1)) AND CLOSE>短上轨 AND CLOSE>长上轨 AND COUNT(CLOSE<短下轨,6)>0,LOW*0.96,10),COLORBROWN;
 DRAWNUMBER(REF(CLOSE,3)<REF(长下轨,3) OR REF(CLOSE,3)<REF(长上轨,3) AND (REF(CLOSE,2)<REF(长下轨,2) OR REF(CLOSE,2)<REF(长上轨,2)) AND (REF(CLOSE,1)<REF(长下轨,1) OR REF(CLOSE,1)<REF(长上轨,1)) AND CLOSE>长上轨 AND CLOSE>短上轨 AND COUNT(CLOSE<长下轨,6)>0,LOW*0.96,10),COLORBROWN;
 DRAWNUMBER(REF(CLOSE,3)>REF(短上轨,3) OR REF(CLOSE,3)>REF(短下轨,3) AND (REF(CLOSE,2)>REF(短上轨,2) OR REF(CLOSE,2)>REF(短下轨,2)) AND (REF(CLOSE,1)>REF(短上轨,1) OR REF(CLOSE,1)>REF(短下轨,1)) AND CLOSE<短下轨 AND 短上轨>长上轨 AND CLOSE>长下轨 AND COUNT(CLOSE>短上轨,6)>0,HIGH*1.04,6),COLORBROWN;
 DRAWNUMBER(REF(CLOSE,3)>REF(短上轨,3) OR REF(CLOSE,3)>REF(短下轨,3) AND (REF(CLOSE,2)>REF(短上轨,2) OR REF(CLOSE,2)>REF(短下轨,2)) AND (REF(CLOSE,1)>REF(短上轨,1) OR REF(CLOSE,1)>REF(短下轨,1)) AND CLOSE<短下轨 AND 短下轨<长下轨 AND COUNT(CLOSE>短上轨,6)>0,HIGH*1.04,0),COLORBROWN;
 DRAWNUMBER(REF(CLOSE,3)>REF(长上轨,3) OR REF(CLOSE,3)>REF(长下轨,3) AND (REF(CLOSE,2)>REF(长上轨,2) OR REF(CLOSE,2)>REF(长下轨,2)) AND (REF(CLOSE,1)>REF(长上轨,1) OR REF(CLOSE,1)>REF(长下轨,1)) AND CLOSE<长下轨 AND CLOSE<短下轨 AND COUNT(CLOSE>长上轨,6)>0,HIGH*1.04,0),COLORBROWN;
 DRAWKLINE(HIGH,OPEN,LOW,CLOSE);
 HJ_2:=CONST(HHV(REF(HIGH,1),240));
 HJ_3:=CONST(LLV(REF(LOW,1),240));
 HJ_4:=HJ_2-HJ_3;
 HJ_5:=LOW-HJ_4*0.03;
 HJ_6:=HIGH+HJ_4*0.03;
 HJ_7:=CLOSE>500;
 HJ_8:=MAX(CLOSE,OPEN);
 HJ_9:=MIN(CLOSE,OPEN);
 HJ_10:=0;
 HJ_11:=1;
 HJ_12:=IF(HJ_7,HIGH,HJ_8);
 HJ_13:=IF(HJ_7,LOW,HJ_9);
 HJ_14:=IF(CLOSE>OPEN,IF(HJ_11=0,LOW,HJ_13),IF(HJ_11=0,HIGH,HJ_12));
 HJ_15:=2/1000;
 HJ_16:=CURRBARSCOUNT;
 HJ_17:=120;
 HJ_18:=HJ_16<=HJ_17;
 HJ_19:=LOW;
 HJ_20:=IF(HJ_10=0,HJ_19,REF(HJ_10,HJ_10));
基准价:IF(HJ_18,CONST(HJ_20),DRAWNULL),DOTLINE,COLORRED;
 HJ_21:=基准价;
HJ_22:=HJ_21*HJ_15;
 HJ_23:=ABS(LOW-HJ_21)<=HJ_22;
 HJ_24:=ABS(OPEN-HJ_21)<=HJ_22;
 HJ_25:=ABS(CLOSE-HJ_21)<=HJ_22;
 HJ_26:=ABS(HIGH-HJ_21)<=HJ_22;
 HJ_27:=HJ_23 OR HJ_24 OR HJ_25 OR HJ_26 AND HJ_18 AND HJ_16!=1;
 HJ_28:=COUNT(HJ_27,HJ_17);
精准点个数:IF(HJ_28>0,HJ_28+1,0),NODRAW,COLORRED;
 HJ_29:=5;
 HJ_30:=REF(HIGH,HJ_29)=HHV(HIGH,2*HJ_29+1);
 HJ_31:=FILTER(HJ_30,HJ_29);
 HJ_32:=BACKSET(HJ_31,HJ_29+1);
 HJ_33:=FILTER(HJ_32,HJ_29);
 HJ_34:=REF(HIGH,BARSLAST(HJ_33));
 HJ_35:=REF(MAX(CLOSE,OPEN),HJ_29)=HHV(MAX(CLOSE,OPEN),2*HJ_29+1);
 HJ_36:=FILTER(HJ_35,HJ_29);
 HJ_37:=BACKSET(HJ_36,HJ_29+1);
 HJ_38:=FILTER(HJ_37,HJ_29);
 HJ_39:=REF(MAX(CLOSE,OPEN),BARSLAST(HJ_38));
 HJ_40:=REF(LOW,HJ_29)=LLV(LOW,2*HJ_29+1);
 HJ_41:=FILTER(HJ_40,HJ_29);
 HJ_42:=BACKSET(HJ_41,HJ_29+1);
 HJ_43:=FILTER(HJ_42,HJ_29);
 HJ_44:=REF(LOW,BARSLAST(HJ_43));
 HJ_45:=REF(MIN(CLOSE,OPEN),HJ_29)=LLV(MIN(CLOSE,OPEN),2*HJ_29+1);
 HJ_46:=FILTER(HJ_45,HJ_29);
 HJ_47:=BACKSET(HJ_46,HJ_29+1);
 HJ_48:=FILTER(HJ_47,HJ_29);
 HJ_49:=REF(MIN(CLOSE,OPEN),BARSLAST(HJ_48));
 HJ_50:=IF(HJ_11=0,HJ_34,HJ_39);
 HJ_51:=IF(HJ_11=0,HJ_44,HJ_49);
 STICKLINE(HJ_50=REF(HJ_50,1),HJ_50,HJ_50,5,0),COLORMAGENTA;
 STICKLINE(HJ_51=REF(HJ_51,1),HJ_51,HJ_51,5,0),COLORRED;
 HJ_52:=HJ_12-(HJ_12-HJ_13)/3;
 HJ_53:=HJ_13+(HJ_12-HJ_13)/3;
 HJ_54:=HJ_13+(HJ_12-HJ_13)/2;
 HJ_55:=1+IF(HJ_7,2,4.92)/100;
 HJ_56:=HJ_12/HJ_13>=HJ_55 OR CLOSE/REF(CLOSE,1)>=HJ_55;
 STICKLINE(HJ_56,HJ_52,HJ_52,1,0),COLORBLUE;
 STICKLINE(HJ_56,HJ_54,HJ_54,1,0),COLORBLUE;
 STICKLINE(HJ_56,HJ_53,HJ_53,1,0),COLORBLUE;
 STICKLINE(HJ_27,HJ_21,HJ_21,3,1),COLORBLUE;
 STICKLINE(HJ_16=1,HJ_21,HJ_21,3,1),COLORBLUE;
 HJ_57:=IF(HJ_11=0,BARSLAST(HJ_33)>0,BARSLAST(HJ_38)>0) AND (ABS(LOW-HJ_50)<=HJ_50*HJ_15 OR ABS(HJ_9-HJ_50)<=HJ_50*HJ_15);
 HJ_58:=IF(HJ_11=0,BARSLAST(HJ_43)>0,BARSLAST(HJ_48)>0) AND (ABS(LOW-HJ_51)<=HJ_51*HJ_15 OR ABS(HJ_9-HJ_51)<=HJ_51*HJ_15);
 STICKLINE(HJ_57,HJ_50,HJ_50,1,1),COLORBLUE;
 STICKLINE(HJ_58,HJ_51,HJ_51,1,1),COLORBLUE;
 DRAWKLINE(HIGH,OPEN,LOW,CLOSE);
 HJ_59:=AMOUNT/VOL/100;
 HJ_60:=CLOSE>OPEN AND REF(CLOSE,1)>HJ_59 AND CLOSE>HJ_59 AND CLOSE<300;
 STICKLINE(HJ_60,OPEN,CLOSE,1,0),COLORLICYAN;
 HJ_61:=OPEN>CLOSE AND CLOSE<HJ_59 AND HJ_59>REF(CLOSE,1);
 STICKLINE(HJ_61,OPEN,CLOSE,1,0),COLORRED;
 HJ_62:=VOL>REF(VOL,1)*0.95 AND VOL<REF(VOL,1)*1.05;
 HJ_63:=WINNER(CLOSE)-WINNER(OPEN)>=0.2 AND HJ_62;
 STICKLINE(HJ_63,OPEN,CLOSE,1,0),COLORBLUE;
 HJ_64:=(CLOSE-REF(CLOSE,1))/REF(CLOSE,1)*100;
 HJ_65:=NAMELIKE(1) OR NAMELIKE(2) OR NAMELIKE(3) AND HJ_64>=4.945;
 HJ_66:=NAMELIKE(1) OR NAMELIKE(2) OR NAMELIKE(3) AND HJ_64<=(-4.945);
涨停价:IF(HJ_65,REF(CLOSE,1)*1.05,REF(CLOSE,1)*1.1),NODRAW,COLORRED;
跌停价:IF(HJ_66,REF(CLOSE,1)*0.95,REF(CLOSE,1)*0.9),NODRAW,COLORGREEN;
 HJ_67:=REF(CLOSE,1);
 HJ_68:=CLOSE=ZTPRICE(REF(CLOSE,1),0.1);
 STICKLINE(HJ_68,OPEN,CLOSE,2,0),COLORMAGENTA;
 STICKLINE(HJ_68,OPEN,CLOSE,1,0),COLORMAGENTA;
 HJ_69:=CLOSE=DTPRICE(REF(CLOSE,1),0.1);
 STICKLINE(HJ_69,OPEN,CLOSE,2,0),COLORGREEN;
 STICKLINE(HJ_69,HIGH,LOW,0,1),COLORGREEN;
流通市值:FINANCE(40)/100000000,NODRAW;
 MA5角度:ATAN((MA(CLOSE,5)/REF(MA(CLOSE,5),1)-1)*100)*180/3.142,NODRAW,COLORRED;
循环年位置:(CLOSE-LLV(CLOSE,225))/(HHV(CLOSE,225)-LLV(CLOSE,225))*100,NODRAW,COLORGREEN;
 HJ_70:=HHV(VOL,10);
 HJ_71:=BARSLAST(HJ_70=VOL);
 HJ_72:=CROSS(REF(MAX(CLOSE,OPEN),HJ_71),CLOSE);
 STICKLINE(HJ_72,MAX(CLOSE,OPEN)*1.02,MIN(CLOSE,OPEN)*0.98,0,1),COLORRED;
 STICKLINE(HJ_72,(OPEN+CLOSE)/2,(OPEN+CLOSE)/2,10,0),COLORRED;
 DRAWICON(OPEN>REF(MAX(CLOSE,OPEN),1) AND CLOSE>OPEN AND CLOSE>REF(CLOSE,1) AND CLOSE>MA(CLOSE,5),LOW*0.97,11);
 DRAWICON(OPEN>REF(MAX(CLOSE,OPEN),1) AND CLOSE>OPEN AND CLOSE>REF(CLOSE,1) AND CLOSE>MA(CLOSE,5),LOW*0.97,11);
 HJ_73:=CLOSE<REF(CLOSE,4) AND REF(CLOSE,1)>REF(CLOSE,5);
 HJ_74:=REFX(CLOSE,1)<REF(CLOSE,3) AND REFX(CLOSE,2)<REF(CLOSE,2) AND REFX(CLOSE,3)<REF(CLOSE,1) AND REFX(CLOSE,4)<CLOSE AND REFX(CLOSE,5)<REFX(CLOSE,1) AND REFX(CLOSE,6)<REFX(CLOSE,2) AND REFX(CLOSE,7)<REFX(CLOSE,3) AND REFX(CLOSE,8)<REFX(CLOSE,4);
 HJ_75:=CLOSE<REF(CLOSE,4) AND REF(CLOSE,1)<REF(CLOSE,5) AND REF(CLOSE,2)>REF(CLOSE,6);
 HJ_76:=REFX(CLOSE,1)<REF(CLOSE,3) AND REFX(CLOSE,2)<REF(CLOSE,2) AND REFX(CLOSE,3)<REF(CLOSE,1) AND REFX(CLOSE,4)<CLOSE AND REFX(CLOSE,5)<REFX(CLOSE,1) AND REFX(CLOSE,6)<REFX(CLOSE,2) AND REFX(CLOSE,7)<REFX(CLOSE,3);
 HJ_77:=CLOSE<REF(CLOSE,4) AND REF(CLOSE,1)<REF(CLOSE,5) AND REF(CLOSE,2)<REF(CLOSE,6) AND REF(CLOSE,3)>REF(CLOSE,7);
 HJ_78:=REFX(CLOSE,1)<REF(CLOSE,3) AND REFX(CLOSE,2)<REF(CLOSE,2) AND REFX(CLOSE,3)<REF(CLOSE,1) AND REFX(CLOSE,4)<CLOSE AND REFX(CLOSE,5)<REFX(CLOSE,1) AND REFX(CLOSE,6)<REFX(CLOSE,2);
 HJ_79:=CLOSE<REF(CLOSE,4) AND REF(CLOSE,1)<REF(CLOSE,5) AND REF(CLOSE,2)<REF(CLOSE,6) AND REF(CLOSE,3)<REF(CLOSE,7) AND REF(CLOSE,4)>REF(CLOSE,8);
 HJ_80:=REFX(CLOSE,1)<REF(CLOSE,3) AND REFX(CLOSE,2)<REF(CLOSE,2) AND REFX(CLOSE,3)<REF(CLOSE,1) AND REFX(CLOSE,4)<CLOSE AND REFX(CLOSE,5)<REFX(CLOSE,1);
 HJ_81:=CLOSE<REF(CLOSE,4) AND REF(CLOSE,1)<REF(CLOSE,5) AND REF(CLOSE,2)<REF(CLOSE,6) AND REF(CLOSE,3)<REF(CLOSE,7) AND REF(CLOSE,4)<REF(CLOSE,8) AND REF(CLOSE,5)>REF(CLOSE,9);
 HJ_82:=REFX(CLOSE,1)<REF(CLOSE,3) AND REFX(CLOSE,2)<REF(CLOSE,2) AND REFX(CLOSE,3)<REF(CLOSE,1) AND REFX(CLOSE,4)<CLOSE;
 HJ_83:=CLOSE<REF(CLOSE,4) AND REF(CLOSE,1)<REF(CLOSE,5) AND REF(CLOSE,2)<REF(CLOSE,6) AND REF(CLOSE,3)<REF(CLOSE,7) AND REF(CLOSE,4)<REF(CLOSE,8) AND REF(CLOSE,5)<REF(CLOSE,9) AND REF(CLOSE,6)>REF(CLOSE,10);
 HJ_84:=REFX(CLOSE,1)<REF(CLOSE,3) AND REFX(CLOSE,2)<REF(CLOSE,2) AND REFX(CLOSE,3)<REF(CLOSE,1);
 HJ_85:=CLOSE<REF(CLOSE,4) AND REF(CLOSE,1)<REF(CLOSE,5) AND REF(CLOSE,2)<REF(CLOSE,6) AND REF(CLOSE,3)<REF(CLOSE,7) AND REF(CLOSE,4)<REF(CLOSE,8) AND REF(CLOSE,5)<REF(CLOSE,9) AND REF(CLOSE,6)<REF(CLOSE,10) AND REF(CLOSE,7)>REF(CLOSE,11);
 HJ_86:=REFX(CLOSE,1)<REF(CLOSE,3) AND REFX(CLOSE,2)<REF(CLOSE,2);
 HJ_87:=CLOSE<REF(CLOSE,4) AND REF(CLOSE,1)<REF(CLOSE,5) AND REF(CLOSE,2)<REF(CLOSE,6) AND REF(CLOSE,3)<REF(CLOSE,7) AND REF(CLOSE,4)<REF(CLOSE,8) AND REF(CLOSE,5)<REF(CLOSE,9) AND REF(CLOSE,6)<REF(CLOSE,10) AND REF(CLOSE,7)<REF(CLOSE,11) AND REF(CLOSE,8)>REF(CLOSE,12);
 HJ_88:=REFX(CLOSE,1)<REF(CLOSE,3);
 HJ_89:=CLOSE<REF(CLOSE,4) AND REF(CLOSE,1)<REF(CLOSE,5) AND REF(CLOSE,2)<REF(CLOSE,6) AND REF(CLOSE,3)<REF(CLOSE,7) AND REF(CLOSE,4)<REF(CLOSE,8) AND REF(CLOSE,5)<REF(CLOSE,9) AND REF(CLOSE,6)<REF(CLOSE,10) AND REF(CLOSE,7)<REF(CLOSE,11) AND REF(CLOSE,8)<REF(CLOSE,12) AND REF(CLOSE,9)>REF(CLOSE,13);
 HJ_90:=IF(PERIOD<4,LOW*(1-(PERIOD+1)/10*0.01),LOW*0.98);
 HJ_91:=IF(PERIOD<4,HIGH*(1+(PERIOD+1)/10*0.01),HIGH*1.05);
 HJ_92:=CURRBARSCOUNT-1;
 DRAWNUMBER(HJ_73 AND (HJ_74 OR HJ_92=0 OR (HJ_92=1 AND HJ_88) OR (HJ_92=2 AND HJ_86) OR (HJ_92=3 AND HJ_84) OR (HJ_92=4 AND HJ_82) OR (HJ_92=5 AND HJ_80) OR (HJ_92=6 AND HJ_78) OR (HJ_92=7 AND HJ_76)),HJ_90,1),COLORMAGENTA;
 DRAWNUMBER(HJ_75 AND (HJ_76 OR HJ_92=0 OR (HJ_92=1 AND HJ_88) OR (HJ_92=2 AND HJ_86) OR (HJ_92=3 AND HJ_84) OR (HJ_92=4 AND HJ_82) OR (HJ_92=5 AND HJ_80) OR (HJ_92=6 AND HJ_78)),HJ_90,2),COLORMAGENTA;
 DRAWNUMBER(HJ_77 AND (HJ_78 OR HJ_92=0 OR (HJ_92=1 AND HJ_88) OR (HJ_92=2 AND HJ_86) OR (HJ_92=3 AND HJ_84) OR (HJ_92=4 AND HJ_82) OR (HJ_92=5 AND HJ_80)),HJ_90,3),COLORMAGENTA;
 DRAWNUMBER(HJ_79 AND (HJ_80 OR HJ_92=0 OR (HJ_92=1 AND HJ_88) OR (HJ_92=2 AND HJ_86) OR (HJ_92=3 AND HJ_84) OR (HJ_92=4 AND HJ_82)),HJ_90,4),COLORMAGENTA;
 DRAWNUMBER(HJ_81 AND (HJ_82 OR HJ_92=0 OR (HJ_92=1 AND HJ_88) OR (HJ_92=2 AND HJ_86) OR (HJ_92=3 AND HJ_84)),HJ_90,5),COLORMAGENTA;
 DRAWNUMBER(HJ_83 AND (HJ_84 OR HJ_92=0 OR (HJ_92=1 AND HJ_88) OR (HJ_92=2 AND HJ_86)),HJ_90,6),COLORMAGENTA;
 DRAWNUMBER(HJ_85 AND (HJ_86 OR HJ_92=0 OR (HJ_92=1 AND HJ_88)),HJ_90,7),COLORMAGENTA;
 DRAWNUMBER(HJ_87 AND (HJ_88 OR HJ_92<1),HJ_90,8),COLORMAGENTA;
 DRAWNUMBER(HJ_89,HJ_90,9),COLORGREEN;
 HJ_93:=CLOSE>REF(CLOSE,4) AND REF(CLOSE,1)<REF(CLOSE,5);
 HJ_94:=REFX(CLOSE,1)>REF(CLOSE,3) AND REFX(CLOSE,2)>REF(CLOSE,2) AND REFX(CLOSE,3)>REF(CLOSE,1) AND REFX(CLOSE,4)>CLOSE AND REFX(CLOSE,5)>REFX(CLOSE,1) AND REFX(CLOSE,6)>REFX(CLOSE,2) AND REFX(CLOSE,7)>REFX(CLOSE,3) AND REFX(CLOSE,8)>REFX(CLOSE,4);
 HJ_95:=CLOSE>REF(CLOSE,4) AND REF(CLOSE,1)>REF(CLOSE,5) AND REF(CLOSE,2)<REF(CLOSE,6);
 HJ_96:=REFX(CLOSE,1)>REF(CLOSE,3) AND REFX(CLOSE,2)>REF(CLOSE,2) AND REFX(CLOSE,3)>REF(CLOSE,1) AND REFX(CLOSE,4)>CLOSE AND REFX(CLOSE,5)>REFX(CLOSE,1) AND REFX(CLOSE,6)>REFX(CLOSE,2) AND REFX(CLOSE,7)>REFX(CLOSE,3);
 HJ_97:=CLOSE>REF(CLOSE,4) AND REF(CLOSE,1)>REF(CLOSE,5) AND REF(CLOSE,2)>REF(CLOSE,6) AND REF(CLOSE,3)<REF(CLOSE,7);
 HJ_98:=REFX(CLOSE,1)>REF(CLOSE,3) AND REFX(CLOSE,2)>REF(CLOSE,2) AND REFX(CLOSE,3)>REF(CLOSE,1) AND REFX(CLOSE,4)>CLOSE AND REFX(CLOSE,5)>REFX(CLOSE,1) AND REFX(CLOSE,6)>REFX(CLOSE,2);
 HJ_99:=CLOSE>REF(CLOSE,4) AND REF(CLOSE,1)>REF(CLOSE,5) AND REF(CLOSE,2)>REF(CLOSE,6) AND REF(CLOSE,3)>REF(CLOSE,7) AND REF(CLOSE,4)<REF(CLOSE,8);
 HJ_100:=REFX(CLOSE,1)>REF(CLOSE,3) AND REFX(CLOSE,2)>REF(CLOSE,2) AND REFX(CLOSE,3)>REF(CLOSE,1) AND REFX(CLOSE,4)>CLOSE AND REFX(CLOSE,5)>REFX(CLOSE,1);
 HJ_101:=CLOSE>REF(CLOSE,4) AND REF(CLOSE,1)>REF(CLOSE,5) AND REF(CLOSE,2)>REF(CLOSE,6) AND REF(CLOSE,3)>REF(CLOSE,7) AND REF(CLOSE,4)>REF(CLOSE,8) AND REF(CLOSE,5)<REF(CLOSE,9);
 HJ_102:=REFX(CLOSE,1)>REF(CLOSE,3) AND REFX(CLOSE,2)>REF(CLOSE,2) AND REFX(CLOSE,3)>REF(CLOSE,1) AND REFX(CLOSE,4)>CLOSE;
 HJ_103:=CLOSE>REF(CLOSE,4) AND REF(CLOSE,1)>REF(CLOSE,5) AND REF(CLOSE,2)>REF(CLOSE,6) AND REF(CLOSE,3)>REF(CLOSE,7) AND REF(CLOSE,4)>REF(CLOSE,8) AND REF(CLOSE,5)>REF(CLOSE,9) AND REF(CLOSE,6)<REF(CLOSE,10);
 HJ_104:=REFX(CLOSE,1)>REF(CLOSE,3) AND REFX(CLOSE,2)>REF(CLOSE,2) AND REFX(CLOSE,3)>REF(CLOSE,1);
 HJ_105:=CLOSE>REF(CLOSE,4) AND REF(CLOSE,1)>REF(CLOSE,5) AND REF(CLOSE,2)>REF(CLOSE,6) AND REF(CLOSE,3)>REF(CLOSE,7) AND REF(CLOSE,4)>REF(CLOSE,8) AND REF(CLOSE,5)>REF(CLOSE,9) AND REF(CLOSE,6)>REF(CLOSE,10) AND REF(CLOSE,7)<REF(CLOSE,11);
 HJ_106:=REFX(CLOSE,1)>REF(CLOSE,3) AND REFX(CLOSE,2)>REF(CLOSE,2);
 HJ_107:=CLOSE>REF(CLOSE,4) AND REF(CLOSE,1)>REF(CLOSE,5) AND REF(CLOSE,2)>REF(CLOSE,6) AND REF(CLOSE,3)>REF(CLOSE,7) AND REF(CLOSE,4)>REF(CLOSE,8) AND REF(CLOSE,5)>REF(CLOSE,9) AND REF(CLOSE,6)>REF(CLOSE,10) AND REF(CLOSE,7)>REF(CLOSE,11) AND REF(CLOSE,8)<REF(CLOSE,12);
 HJ_108:=REFX(CLOSE,1)>REF(CLOSE,3);
 HJ_109:=CLOSE>REF(CLOSE,4) AND REF(CLOSE,1)>REF(CLOSE,5) AND REF(CLOSE,2)>REF(CLOSE,6) AND REF(CLOSE,3)>REF(CLOSE,7) AND REF(CLOSE,4)>REF(CLOSE,8) AND REF(CLOSE,5)>REF(CLOSE,9) AND REF(CLOSE,6)>REF(CLOSE,10) AND REF(CLOSE,7)>REF(CLOSE,11) AND REF(CLOSE,8)>REF(CLOSE,12) AND REF(CLOSE,9)<REF(CLOSE,13);
 DRAWNUMBER(HJ_93 AND (HJ_94 OR HJ_92=0 OR (HJ_92=1 AND HJ_108) OR (HJ_92=2 AND HJ_106) OR (HJ_92=3 AND HJ_104) OR (HJ_92=4 AND HJ_102) OR (HJ_92=5 AND HJ_100) OR (HJ_92=6 AND HJ_98) OR (HJ_92=7 AND HJ_96)),HJ_91,1),COLORMAGENTA;
 DRAWNUMBER(HJ_95 AND (HJ_96 OR HJ_92=0 OR (HJ_92=1 AND HJ_108) OR (HJ_92=2 AND HJ_106) OR (HJ_92=3 AND HJ_104) OR (HJ_92=4 AND HJ_102) OR (HJ_92=5 AND HJ_100) OR (HJ_92=6 AND HJ_98)),HJ_91,2),COLORMAGENTA;
 DRAWNUMBER(HJ_97 AND (HJ_98 OR HJ_92=0 OR (HJ_92=1 AND HJ_108) OR (HJ_92=2 AND HJ_106) OR (HJ_92=3 AND HJ_104) OR (HJ_92=4 AND HJ_102) OR (HJ_92=5 AND HJ_100)),HJ_91,3),COLORMAGENTA;
 DRAWNUMBER(HJ_99 AND (HJ_100 OR HJ_92=0 OR (HJ_92=1 AND HJ_108) OR (HJ_92=2 AND HJ_106) OR (HJ_92=3 AND HJ_104) OR (HJ_92=4 AND HJ_102)),HJ_91,4),COLORMAGENTA;
 DRAWNUMBER(HJ_101 AND (HJ_102 OR HJ_92=0 OR (HJ_92=1 AND HJ_108) OR (HJ_92=2 AND HJ_106) OR (HJ_92=3 AND HJ_104)),HJ_91,5),COLORMAGENTA;
 DRAWNUMBER(HJ_103 AND (HJ_104 OR HJ_92=0 OR (HJ_92=1 AND HJ_108) OR (HJ_92=2 AND HJ_106)),HJ_91,6),COLORMAGENTA;
 DRAWNUMBER(HJ_105 AND (HJ_106 OR HJ_92=0 OR (HJ_92=1 AND HJ_108)),HJ_91,7),COLORMAGENTA;
 DRAWNUMBER(HJ_107 AND (HJ_108 OR HJ_92<1),HJ_91,8),COLORMAGENTA;
 DRAWNUMBER(HJ_109,HJ_91,9),COLORGREEN;

{www.qill.cn-----------------------------------}