精确短线指标副图源码

NN:=BARSLAST(DATE!=REF(DATE,1))+1;
 RHN:= REF(HHV(H,NN) ,0);
 RLN:= REF(LLV(L,NN) ,0);
 SJTJ:=DATE<20151230;
 SJ:=SJTJ AND TIME<103000;
 ZS:=IF(DATE<REF(DATE,1) OR DATE>REF(DATE,1),REF(C,1),REF(REF(C,1),BARSLAST(DATE<REF(DATE,1) OR DATE>REF(DATE,1))));
 KP:=IF(DATE<REF(DATE,1) OR DATE>REF(DATE,1),O,REF(O,BARSLAST(DATE<REF(DATE,1) OR DATE>REF(DATE,1))));
开:IF(SJTJ AND TIME>090000, KP,DRAWNULL),LINETHICK0,COLORYELLOW;
高:IF(SJTJ,RHN,DRAWNULL),LINETHICK0,COLORMAGENTA;
低:IF(SJTJ,RLN,DRAWNULL),LINETHICK0,COLORYELLOW;
 HH1:=IF(H <REF(H,4) AND REF(H,1)<REF(H,4) AND REF(H,2)<REF(H,4) AND REF(H,3)<REF(H,4),REF(H,4),0);
 LL1:=IF(L >REF(L,4) AND REF(L,1)>REF(L,4) AND REF(L,2)>REF(L,4) AND REF(L,3)>REF(L,4),REF(L,4),0);
 HH2:=IF(HH1>0,HH1,REF(HH1,BARSLAST(HH1>0)));
 LL2:=IF(LL1>0,LL1,REF(LL1,BARSLAST(LL1>0)));
 K1:=IF(C>HH2 ,-3,IF(C<LL2 ,1,0));
 K2:=IF(K1<0 OR K1>0,K1,REF(K1,BARSLAST(K1<0 OR K1>0)));
 GX:=IF(C>10000,0.001,0.0005);
 HH22:=IF(C>20000,HH2+20,HH2*(1+GX));
 LL22:=IF(C>20000,LL2-20,LL2*(1-GX));
 G:=IF(K2=1,HH22,LL22);
支撑:IF(REF(K2,1)=-3 AND SJTJ,REF(G,1),DRAWNULL),LINETHICK2,COLORRED;
压力:IF(REF(K2,1)=1 AND SJTJ,REF(G,1),DRAWNULL),LINETHICK2,COLORGREEN;
 W2:=(O-C);
 HKX1:=W2>0 AND K2=-3 AND SJTJ;HKX2:=W2<=0 AND K2=-3 AND SJTJ;
 LKX1:=W2>0 AND K2=1 AND SJTJ;LKX2:=W2<=0 AND K2=1 AND SJTJ;
 STICKLINE(HKX1,O,C,3,0),COLORRED;
 STICKLINE(HKX1,O,H,0.0,0),COLORRED;
 STICKLINE(HKX1,C,L,0.0,0),COLORRED;
 STICKLINE(HKX2,O,C,3,1),COLORRED;
 STICKLINE(HKX2,O,L,0.0,0),COLORRED;
 STICKLINE(HKX2,C,H,0.0,0),COLORRED;
 STICKLINE(LKX1,O,C,3,0),COLORCYAN;
 STICKLINE(LKX1,O,H,0.0,0),COLORCYAN;
 STICKLINE(LKX1,C,L,0.0,0),COLORCYAN;
 STICKLINE(LKX2,C,O,3,1),COLORCYAN;
 STICKLINE(LKX2,C,H,0.0,0),COLORCYAN;
 STICKLINE(LKX2,O,L,0.0,0),COLORCYAN;
 GDK:=ABS(ZS-KP)/ZS>0.02;XB:=IF(C>13000,0.02,0.01);
 GDK2:=ABS(ZS-KP)/ZS>XB;
 KPGZ:=KP*1.0005;KPDZ:=KP*0.9995;
 HS11:= SJ AND C>KPGZ AND GDK2;
 LS11:= SJ AND C<KPDZ AND GDK2;
 HS22:= SJ AND C>=KPDZ AND REF(C,1)>=KPDZ AND GDK2;
 LS22:= SJ AND C<=KPGZ AND REF(C,1)<=KPGZ AND GDK2;
 HS:= HS11 OR HS22 ;
 LS:= LS11 OR LS22;
 {DK1:=BARSLAST(DK);
 KK1:=BARSLAST(KK);
 DK2:=BARSLAST(CROSS(KK1,DK1));
 KK2:=BARSLAST(CROSS(DK1,KK1));
 HS:=DK2<KK2;LS:=KK2<DK2;}
 GDJ:=IF(LS,RHN,RLN);
最高价:IF(C<KP AND TIME>090500 AND TIME<093000 , RHN,DRAWNULL),LINETHICK2,COLORGREEN;
最低价:IF(C>KP AND TIME>090500 AND TIME<093000 , RLN,DRAWNULL),LINETHICK2,COLORRED;
 DRAWNUMBER(ISLASTBAR AND TIME>090500 AND TIME<103000 AND GDK,GDJ,GDJ),COLORMAGENTA;
 HKX3:=W2>0 AND HS AND SJ;HKX4:=W2<=0 AND HS AND SJ;
 LKX3:=W2>0 AND LS AND SJ;LKX4:=W2<=0 AND LS AND SJ;
 STICKLINE(HKX3,O,C,2,0),COLORRED;
 STICKLINE(HKX3,O,H,0.0,0),COLORRED;
 STICKLINE(HKX3,C,L,0.0,0),COLORRED;
 STICKLINE(HKX4,O,C,2,1),COLORRED;
 STICKLINE(HKX4,O,L,0.0,0),COLORRED;
 STICKLINE(HKX4,C,H,0.0,0),COLORRED;

STICKLINE(LKX3,O,C,2,0),COLORCYAN;
 STICKLINE(LKX3,O,H,0.0,0),COLORCYAN;
 STICKLINE(LKX3,C,L,0.0,0),COLORCYAN;
 STICKLINE(LKX4,C,O,2,1),COLORCYAN;
 STICKLINE(LKX4,C,H,0.0,0),COLORCYAN;
 STICKLINE(LKX4,O,L,0.0,0),COLORCYAN;
 GX1:=IF(C>8000,0.001,0.0005);
 HDK:=(K2=1 AND REF(K2,1)=-3 AND TIME<103500 AND NOT(GDK2)) OR (K2=1 AND REF(K2,1)=-3 AND TIME>103500) OR (K2=1 AND REF(K2,1)=1 AND REF(HS,1) AND TIME=103500);
 DRAWTEXT(HDK ,H*(1+GX1),1),COLORYELLOW;
 LDD:=(K2=-3 AND REF(K2,1)=1 AND TIME<103500 AND NOT(GDK2)) OR (K2=-3 AND REF(K2,1)=1 AND TIME>103500) OR (K2=-3 AND REF(K2,1)=-3 AND REF(LS,1) AND TIME=103500);
 DRAWTEXT(LDD ,LOW,2),COLORYELLOW;
 ODD:=(HS AND TIME<=090500 AND C>KP AND SJTJ) OR (HS AND REF(LS,1) AND TIME>090500 AND TIME<=102500 AND SJTJ );
 DRAWTEXT(ODD,O,2),COLORYELLOW;
 ODK:=(LS AND TIME<=090500 AND C<KP AND SJTJ) OR (LS AND REF(HS,1) AND TIME>090500 AND TIME<=102500 AND SJTJ);
 DRAWTEXT(ODK,O,1),COLORYELLOW;
 KKK1:=IF(CLOSE>10000,0.01,0.005);
 GDK1:=ABS(ZS-KP)/ZS>KKK1;
 HS1:=TIME>090500 AND TIME<=103000 AND HS AND GDK1;
 HSZY:=HS1 AND K2=1 AND (G-H<KP*0.002);
 HSZD:=TIME>090500 AND TIME<=103000 AND HS AND (REF(HS,1)=1) AND K2=-3 AND (REF(K2,1)=1);
 HSPD:=TIME>090500 AND TIME<=103000 AND HS AND K2=1 AND (REF(K2,1)=-3);
 LS1:=TIME>090500 AND TIME<=103000 AND LS AND GDK1;
 LSZY:=LS1 AND K2=-3 AND (L-G<KP*0.002);
 LSZK:=TIME>090500 AND TIME<=103000 AND LS AND (REF(LS,1)=1) AND K2=1 AND (REF(K2,1)=-3);
 LSPK:=TIME>090500 AND TIME<=103000 AND LS AND K2=-3 AND (REF(K2,1)=1);
 ZY8L:=(HSZY AND (REF(NOT(HSZY),1)=1)) OR (LSZY AND (REF(NOT(LSZY),1)=1));
 DRAWTEXT(GDK AND TIME<=090500 AND SJTJ,KP,3),COLORYELLOW;
 XHL3:=IF(K2=-3,L,H);
 {DRAWTEXT(ZY8L,XHL3,4),COLORYELLOW;}
 DRAWTEXT(HSZD OR LSZK,O,5),COLORYELLOW;
 GX3:=IF(C>7000,0.01,0.005);MXM:=RHN*(1+GX3);AAA:=CONST(MXM);
 GX2:=IF(C>8000,0.002,0.001);
 GX4:=IF(C>5000,6,5);
 ZHZ20:=IF(TIME<090000,KP,DYNAINFO(20));
 ZHZ12:=IF(TIME<090000,KP,DYNAINFO(12));
 ZHZ14:=IF(TIME<090000,KP,DYNAINFO(14));
 DRAWTEXT(C AND CURRBARSCOUNT=(GX4+4) AND ZHZ14>0 AND TIME>090000 AND C>3500,AAA, 6),COLORWHITE;
 DRAWTEXT(C AND CURRBARSCOUNT=(GX4+4) AND ZHZ14<0 AND TIME>090000 AND C>3500,AAA, 7),COLORWHITE;
 DRAWNUMBER( CURRBARSCOUNT=GX4 AND DYNAINFO(14)<0 AND TIME>090000 AND C>3500 ,AAA*(1+GX2),ZHZ20),COLORGREEN;
 DRAWNUMBER( CURRBARSCOUNT=GX4 AND DYNAINFO(14)<0 AND TIME>090000 AND C>3500,AAA,ZHZ12),COLORGREEN;
 DRAWNUMBER( CURRBARSCOUNT=GX4 AND DYNAINFO(14)<0 AND TIME>090000 AND C>3500,AAA*(1-GX2),ZHZ14*100),COLORGREEN;
 DRAWNUMBER( CURRBARSCOUNT=GX4 AND DYNAINFO(14)>0 AND TIME>090000 AND C>3500,AAA*(1+GX2),ZHZ20),COLORRED;
 DRAWNUMBER( CURRBARSCOUNT=GX4 AND DYNAINFO(14)>0 AND TIME>090000 AND C>3500,AAA,ZHZ12),COLORRED;
 DRAWNUMBER( CURRBARSCOUNT=GX4 AND DYNAINFO(14)>0 AND TIME>090000 AND C>3500,AAA*(1-GX2),ZHZ14*100),COLORRED;
 BBB:=CONST(ZHZ20);
 DRAWNUMBER(ISLASTBAR AND ((REF(K2,1)=1) OR (REF(K2,1)=-3)) ,REF(G,1),REF(G,1)),COLORYELLOW;
 XHL1:=IF(K2=-3,H,L);XHL2:=IF(LS,H,L);
 FJTJ:=(HS AND REF(HS,1) AND TIME<103000) OR (LS AND REF(LS,1) AND TIME<103000) OR (K2=1 AND REF(K2=1,1) AND TIME>103000) OR (K2=-3 AND REF(K2=-3,1) AND TIME>103000);
 KJC:=FJTJ AND ((V>25000 AND C>45000) OR (V>42000 AND C>20000) OR (V>15000 AND C>13000 AND C<20000) OR (V>40000 AND C>5500 AND C<13000) OR (V>50000 AND C<6000)) AND TIME>091500 AND TIME<=145500;
 KJC1:=KJC AND NOT(REF(KJC,1));
 KJCZ:=IF(KJC1,XHL1,XHL2);
 FJTJ1:=FJTJ AND (HSPD OR LSPK );
 FJTJ2:=FJTJ AND (HSPD OR LSPK OR KJC1) AND NOT(HSZD OR LSZK) AND NOT(ODD OR ODK OR LDD OR HDK);
 DRAWTEXT(FJTJ2 AND C>3500,KJCZ,8),COLORYELLOW;
 DRAWNUMBER(ISLASTBAR AND C>0,C,C),COLORWHITE;
 {DRAWNUMBER( CURRBARSCOUNT=4 AND TIME>090000 AND C>3500,BBB,BBB),COLORWHITE;};
 DRAWTEXT(((CROSS(C,HH2) AND REF(K2=-3,1)) OR (CROSS(LL2,C) AND REF(K2=1,1))) AND C>3500 AND NOT(FJTJ2),O,5),COLORYELLOW;