INPUT:最近天(10,0,360);
N:=IF(SYSPARAM(3)=DATACOUNT,最近天,DATACOUNT-SYSPARAM(3));
HH:=HHV(H,N);
LL:=LLV(L,N);
VN:=N;
IF VN>DATACOUNT THEN
VN:=DATACOUNT;
For I=DATACOUNT DOWNTO DATACOUNT-VN+1 DO BEGIN
HH[I]:=HH[DATACOUNT];
LL[I]:=LL[DATACOUNT];
KKH:=BARSLAST(H=HH);
KKL:=BARSLAST(L=LL);
N低日:=STRTONUM(NUMTOSTR(REF(DATE,KKL),0)),LINETHICK;
N高日:=STRTONUM(NUMTOSTR(REF(DATE,KKH),0)),LINETHICK;
多空:=IF(N低日>N高日,2,1),LINETHICK0;
多空天:=IF(N低日<N高日,kkl,kkh),LINETHICK0;
END;
TMP:=SETLBOUND(hh,DATACOUNT-VN+1);
TMP:=SETLBOUND(ll,DATACOUNT-VN+1);
DATE1:=IF(多空=1,N低日,N高日);{}
hh0:=REF(H,BARSLAST(DATE1=DATE));
ll0:=REF(L,BARSLAST(DATE1=DATE));
H1:=STRTONUM(NUMTOSTR(Hh0,3)),POINTDOT;
L1:=STRTONUM(NUMTOSTR(Ll0,3)),POINTDOT;
LL:=H1 - L1;
VERTLINE(DATE=DATE1);
IF 多空=1 THEN BEGIN
{看多}
开门线: PARTLINE(DATE>=N低日,LL*1.50801 + L1),LINETHICK1,COLOREE99FF;;
PARTLINE(DATE>=N低日,LL*2.00001 + L1),COLOR9999FF,LINEDOT;
多2线: PARTLINE(DATE>=N低日,LL*2.40001 + L1),COLORFFFF99,linethick1;
PARTLINE(DATE>=N低日,LL*3.05001 + L1),COLOR99FF99,LINEDOT;
PARTLINE(DATE>=N低日,LL*3.75001 + L1),COLORFF9999,LINEDOT;
多5线: PARTLINE(DATE>=N低日,LL*4.15001 + L1),COLORMAGENTA,linethick2,LINEDOT;
PARTLINE(DATE>=N低日,LL*4.80001 + L1),COLORRED,LINEDOT;
多7线: PARTLINE(DATE>=N低日,LL*5.50001 + L1),COLORCYAN,linethick2;
PARTLINE(DATE>=N低日,LL*6.10001 + L1),COLORGREEN,LINEDOT;
PARTLINE(DATE>=N低日,LL*6.90001 + L1),LINETHICK1,COLORRED;
DRAWTEXT(SYSPARAM(3)=BARPOS,L1+LL*1.50801+0.002,NUMTOSTR(L1+LL*1.50801,2)),COLORAAAAAA,COLORFF84FF,ALIGN2;
DRAWTEXT(SYSPARAM(3)=BARPOS,L1+LL*2.00001+0.002,NUMTOSTR(L1+LL*2.00001,2)),COLORAAAAAA,COLORFF84FF,ALIGN2;
DRAWTEXT(SYSPARAM(3)=BARPOS,L1+LL*2.40001+0.002,'NO.2 '+NUMTOSTR(L1+LL*2.40001,2)),COLORAAAAAA,COLORFF84FF,ALIGN2;
DRAWTEXT(SYSPARAM(3)=BARPOS,L1+LL*3.05001+0.002,NUMTOSTR(L1+LL*3.05001,2)),COLORAAAAAA,COLORFF84FF,ALIGN2;
DRAWTEXT(SYSPARAM(3)=BARPOS,L1+LL*3.75001+0.002,NUMTOSTR(L1+LL*3.75001,2)),COLORAAAAAA,COLORFF84FF,ALIGN2;
DRAWTEXT(SYSPARAM(3)=BARPOS,L1+LL*4.15001+0.002,'NO.5 '+NUMTOSTR(L1+LL*4.15001,2)),COLORAAAAAA,COLORFF84FF,ALIGN2;
DRAWTEXT(SYSPARAM(3)=BARPOS,L1+LL*4.80001+0.002,NUMTOSTR(L1+LL*4.80001,2)),COLORAAAAAA,COLORFF84FF,ALIGN2;
DRAWTEXT(SYSPARAM(3)=BARPOS,L1+LL*5.50001+0.002,'NO.7 '+NUMTOSTR(L1+LL*5.50001,2)),COLORAAAAAA,COLORFF84FF,ALIGN2;
DRAWTEXT(SYSPARAM(3)=BARPOS,L1+LL*6.10001+0.002,NUMTOSTR(L1+LL*6.10001,2)),COLORAAAAAA,COLORFF84FF,ALIGN2;
DRAWTEXT(SYSPARAM(3)=BARPOS,L1+LL*6.90001+0.002,NUMTOSTR(L1+LL*6.90001,2)),COLORAAAAAA,COLORFF84FF,ALIGN2;
DRAWTEXT(DATE=DATE1,LL*1.50801 + L1+0.002,'多开门'),colorred;
DRAWTEXT(DATE=DATE1,LL*6.90001 + L1+0.002,'多关门'),colorred;
END;
ELSE BEGIN
{看空}
空开门线: PARTLINE(DATE>=N高日,H1-LL*1.50801),LINETHICK1,COLOREE99FF;
PARTLINE(DATE>=N高日,H1-LL*2.00001),COLOR9999FF,LINEDOT;
空2线: PARTLINE(DATE>=N高日,H1-LL*2.40001),COLORFFFF99;
PARTLINE(DATE>=N高日,H1-LL*3.05001),COLOR99FF99,LINEDOT;
PARTLINE(DATE>=N高日,H1-LL*3.75001),COLORFF9999,LINEDOT;
空5线: PARTLINE(DATE>=N高日,H1-LL*4.15001),COLORMAGENTA;
PARTLINE(DATE>=N高日,H1-LL*4.80001),COLORRED,LINEDOT;
空7线: PARTLINE(DATE>=N高日,H1-LL*5.50001),COLORCYAN;
PARTLINE(DATE>=N高日,H1-LL*6.10001),COLORGREEN,LINEDOT;
空关门线: PARTLINE(DATE>=N高日,H1-LL*6.90001),LINETHICK1,COLORRED;
DRAWTEXT(DATE=DATE1,H1-LL*1.50801+0.002,'空开门'),color3333FF;
DRAWTEXT(DATE=DATE1,H1-LL*6.90001+0.002,'空关门'),color3333FF;
DRAWTEXT(SYSPARAM(3)=BARPOS,H1-LL*1.50801+0.002,NUMTOSTR(H1-LL*1.50801,2)),COLORAAAAAA,COLORYELLOW,ALIGN2;
DRAWTEXT(SYSPARAM(3)=BARPOS,H1-LL*2.00001+0.002,NUMTOSTR(H1-LL*2.00001,2)),COLORAAAAAA,COLORYELLOW,ALIGN2;
DRAWTEXT(SYSPARAM(3)=BARPOS,H1-LL*2.40001+0.002,'NO.2 '+NUMTOSTR(H1-LL*2.40001,2)),COLORAAAAAA,COLORYELLOW,ALIGN2;
DRAWTEXT(SYSPARAM(3)=BARPOS,H1-LL*3.05001+0.002,NUMTOSTR(H1-LL*3.05001,2)),COLORAAAAAA,COLORYELLOW,ALIGN2;
DRAWTEXT(SYSPARAM(3)=BARPOS,H1-LL*3.75001+0.002,NUMTOSTR(H1-LL*3.75001,2)),COLORAAAAAA,COLORYELLOW,ALIGN2;
DRAWTEXT(SYSPARAM(3)=BARPOS,H1-LL*4.15001+0.002,'NO.5 '+NUMTOSTR(H1-LL*4.15001,2)),COLORAAAAAA,COLORYELLOW,ALIGN2;
DRAWTEXT(SYSPARAM(3)=BARPOS,H1-LL*4.80001+0.002,NUMTOSTR(H1-LL*4.80001,2)),COLORAAAAAA,COLORYELLOW,ALIGN2;
DRAWTEXT(SYSPARAM(3)=BARPOS,H1-LL*5.50001+0.002,'NO.7 '+NUMTOSTR(H1-LL*5.50001,2)),COLORAAAAAA,COLORYELLOW,ALIGN2;
DRAWTEXT(SYSPARAM(3)=BARPOS,H1-LL*6.10001+0.002,NUMTOSTR(H1-LL*6.10001,2)),COLORAAAAAA,COLORYELLOW,ALIGN2;
DRAWTEXT(SYSPARAM(3)=BARPOS,H1-LL*6.90001+0.002,NUMTOSTR(H1-LL*6.90001,2)),COLORAAAAAA,COLORYELLOW,ALIGN2;
END;
INPUT:
K(1,1,2,1);
N:=IF(SYSPARAM(1)=DATACOUNT,最近天,0);
HH:=HHV(H,n);
LL:=LLV(L,n);
VN:=n;
IF VN>DATACOUNT THEN
VN:=DATACOUNT+1;
For I=DATACOUNT DOWNTO DATACOUNT-VN+1 DO BEGIN
HH[I]:=HH[DATACOUNT];
LL[I]:=LL[DATACOUNT];
END;
KKH:=BARSLAST(H=HH);
KKL:=BARSLAST(L=LL);
N低日:=STRTONUM(NUMTOSTR(REF(BARPOS,KKL),0)),LINETHICK;
N高日:=STRTONUM(NUMTOSTR(REF(BARPOS,KKH),0)),LINETHICK;
多空:=IF(N低日>N高日,2,1);
DATE1:=IF(多空=1,N低日,N高日);{}
hh0:=IF(REF(H,BARSLAST(DATE1=BARPOS)+k-1)>REF(H,BARSLAST(DATE1=BARPOS)),REF(H,BARSLAST(DATE1=BARPOS)+k-1),REF(H,BARSLAST(DATE1=BARPOS)));
hhh00:=REF(H,BARSLAST(DATE1=BARPOS));
ll0:=REF(L,BARSLAST(DATE1=BARPOS));
H1:=STRTONUM(NUMTOSTR(Hh0,3)),POINTDOT;
Hhh0:=STRTONUM(NUMTOSTR(Hhh00,3)),POINTDOT;
L1:=STRTONUM(NUMTOSTR(Ll0,3)),POINTDOT;
hh00:=REF(H,BARSLAST(DATE1=BARPOS));
ll00:=IF(REF(L,BARSLAST(DATE1=BARPOS)+k-1)<REF(L,BARSLAST(DATE1=BARPOS)),REF(L,BARSLAST(DATE1=BARPOS)+k-1),REF(L,BARSLAST(DATE1=BARPOS)));
H11:=STRTONUM(NUMTOSTR(Hh00,3)),POINTDOT;
L11:=STRTONUM(NUMTOSTR(Ll00,3)),POINTDOT;
NN:=SYSPARAM(1);
IF NN<1 OR NN>DATACOUNT THEN EXIT;
x1:=SYSPARAM(1)=BARPOS;
tz1:=IF(REF(H,k-1)>H,REF(H,k-1),H);
tm1:=H;
tz2:=L;
zt1:=tz1[NN];
zm1:=tm1[NN];
zt2:=tz2[NN];
z1:=IF(SYSPARAM(1)=DATACOUNT,H1,zt1);
tm:=IF(SYSPARAM(1)=DATACOUNT,hhh0,zm1);
Z2:=IF(SYSPARAM(1)=DATACOUNT,L1,ZT2);
tz11:=H;
tz22:=IF(REF(L,k-1)<L,REF(L,k-1),L);
zt11:=tz11[NN];
zt22:=tz22[NN];
Z11:=IF(SYSPARAM(1)=DATACOUNT,h11,ZT11);
Z22:=IF(SYSPARAM(1)=DATACOUNT,L11,ZT22);
xxx1:=x1 AND l1<=REF(L,BARSLAST(DATE1=BARPOS)+1);
xxxx1:=x1 AND L<=REF(L,1) AND L<REF(L,2) AND L<REFX(L,1);
xx1:=IF(SYSPARAM(1)=DATACOUNT,xxx1,xxxx1);
xxx2:=x1 AND h11>=REF(H,BARSLAST(DATE1=BARPOS)+1);
xxxx2:=X1 AND H>=REF(H,1) AND H>=REF(H,2) AND H>REFX(H,1);
xx2:=IF(SYSPARAM(1)=DATACOUNT,xxx2,xxxx2);
DRAWTEXT(xx1 ,z1+(z1-z2)*1.0,'--(多l)'+NUMTOSTR(z1+(z1-z2)*1,2)+'---------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------'),colorFF00FF,pxup15;
DRAWTEXT(xx1 ,z1+(z1-z2)*1.4,'--⑵'+NUMTOSTR(z1+(z1-z2)*1.4,2)+' ----------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------'),colorFF00FF,pxup15;
DRAWTEXT(xx1 ,z1+(z1-z2)*2.1,'--⑶'+NUMTOSTR(z1+(z1-z2)*2.1,2)+'----------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------'),colorff9963,pxup15;
DRAWTEXT(xx1 ,z1+(z1-z2)*2.7,'--⑷'+NUMTOSTR(z1+(z1-z2)*2.7,2)+'----------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------'),colorFF00FF,pxup15;
DRAWTEXT(xx1 ,z1+(z1-z2)*3.1,'--⑸'+NUMTOSTR(z1+(z1-z2)*3.1,2)+'----------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------'),colorFF00FF,pxup15;
DRAWTEXT(xx1 ,z1+(z1-z2)*3.7,'--⑹'+NUMTOSTR(z1+(z1-z2)*3.7,2)+' ----------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------'),colorff9963,pxup15;
DRAWTEXT(xx1 ,z1+(z1-z2)*4.4,'--⑺'+NUMTOSTR(z1+(z1-z2)*4.4,2)+'----------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------'),colorFF00FF,pxup15;
DRAWTEXT(xx1 ,z1+(z1-z2)*5.0,'--⑻'+NUMTOSTR(z1+(z1-z2)*5,2)+'----------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------'),colorFF00FF,pxup15;
DRAWTEXT(xx1 ,z1+(z1-z2)*0.5,'--◇-----------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------'),colorFF9963,pxup15;
DRAWTEXT(xx1 ,z1+(z1-z2)*5.8,'--◇-----------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------'),colorff9963,pxup15;
DRAWTEXT(xx2 ,z22-(z11-z22)*1.0,'--(空l)'+NUMTOSTR(z22-(z11-z22)*1,2)+'-----------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------'),colorFF00FF,pxup15;
DRAWTEXT(xx2 ,z22-(z11-z22)*1.4,'--⑵'+NUMTOSTR(z22-(z11-z22)*1.4,2)+' ----------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------'),colorFF00FF,pxup15;
DRAWTEXT(xx2 ,z22-(z11-z22)*2.1,'--⑶'+NUMTOSTR(z22-(z11-z22)*2.1,2)+'---------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------'),colorff9963,pxup15;
DRAWTEXT(xx2 ,z22-(z11-z22)*2.7,'--⑷'+NUMTOSTR(z22-(z11-z22)*2.7,2)+'---------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------'),colorFF00FF,pxup15;
DRAWTEXT(xx2 ,z22-(z11-z22)*3.1,'--⑸'+NUMTOSTR(z22-(z11-z22)*3.1,2)+'---------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------'),colorFF00FF,pxup15;
DRAWTEXT(xx2 ,z22-(z11-z22)*3.7,'--⑹'+NUMTOSTR(z22-(z11-z22)*3.7,2)+'---------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------'),colorff9963,pxup15;
DRAWTEXT(xx2 ,z22-(z11-z22)*4.4,'--⑺'+NUMTOSTR(z22-(z11-z22)*4.4,2)+' ---------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------'),colorFF00ff,pxup15;
DRAWTEXT(xx2 ,z22-(z11-z22)*5.0,'--⑻'+NUMTOSTR(z22-(z11-z22)*5,2)+'---------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------'),colorFF00FF,pxup15;
DRAWTEXT(xx2 ,z22-(z11-z22)*0.5,'--◇----------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------'),colorFF9963,pxup15;
DRAWTEXT(xx2 ,z22-(z11-z22)*5.8,'--◇----------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------'),colorFF9963,pxup15;