SR1:=REF(HIGH,10)=HHV(HIGH,2*10+1);
SR2:=FILTER(SR1,10);
SR3:=BACKSET(SR2,10+1);
HD:=FILTER(SR3,10);
前高:=REF(H,BARSLAST(HD));
DRAWICON(CROSS(C,前高),L-0.20,3);{突破前高的信号};
N:=75;P:=5;P1:=10;
{N为多少天内的高低值参数，我以自已的初始K线根数定义。P1、P2为短、长支撑压力取点参数}
A1:=REF(H,P)=HHV(H,2*P+1);
B1:=FILTER(A1,P);
C1:=BACKSET(B1,P+1);
D1:=FILTER(C1,P);
E1:=BACKSET(ISLASTBAR,BARSLAST(D1)+1);
F1:=E1>REF(E1,1);
短压:DRAWLINE(D1,H,F1,H,1),COLORGREEN;
A2:=REF(L,P)=LLV(L,2*P+1);
B2:=FILTER(A2,P);
C2:=BACKSET(B2,P+1);
D2:=FILTER(C2,P);
E2:=BACKSET(ISLASTBAR,BARSLAST(D2)+1);
F2:=E2>REF(E2,1);
短支:DRAWLINE(D2,L,F2,L,1),COLORLIRED;
AA1:=REF(H,P1)=HHV(H,2*P1+1);
BB1:=FILTER(AA1,P1);
CC1:=BACKSET(BB1,P1+1);
DD1:=FILTER(CC1,P1);
EE1:=BACKSET(ISLASTBAR,BARSLAST(DD1)+1);
FF1:=EE1>REF(EE1,1);
长压:DRAWLINE(DD1,H,FF1,H,1),COLORGREEN;
AA2:=REF(L,P1)=LLV(L,2*P1+1);
BB2:=FILTER(AA2,P1);
CC2:=BACKSET(BB2,P1+1);
DD2:=FILTER(CC2,P1);
EE2:=BACKSET(ISLASTBAR,BARSLAST(DD2)+1);
FF2:=EE2>REF(EE2,1);
长支:DRAWLINE(DD2,L,FF2,L,1),COLORRED;
STICKLINE(C>=O,C,O,3,0),COLOR000045;
STICKLINE(C>=O,C,O,2.5,0),COLOR000065;
STICKLINE(C>=O,C,O,2,0),COLOR000085;
STICKLINE(C>=O,C,O,1.5,0),COLOR0000A5;
STICKLINE(C>=O,C,O,1,0),COLOR0000C5;
STICKLINE(C>=O,C,O,0.5,0),COLOR0000E5;
STICKLINE(C>=O,H,L,0,0),COLOR0000F5;
STICKLINE(C<O,C,O,3,0),COLOR353500;
STICKLINE(C<O,C,O,2.5,0),COLOR454500;
STICKLINE(C<O,C,O,2,0),COLOR555500;
STICKLINE(C<O,C,O,1.5,0),COLOR656500;
STICKLINE(C<O,C,O,1,0),COLOR757500;
{STICKLINE(C<O,C,O,0.5,0),COLOR858500;}
STICKLINE(C<O,H,L,0,0),COLOR959500;
{趋势线部分}
HIGHN:=10;LOWN:=10;HIGHDISPLAY:=0;LOWDISPLAY:=0;ZGDISPLAY:=0;MADISPLAY:=0;
BB:=REF(H,HIGHN)=HHV(H,2*HIGHN+1);
QY:=BACKSET(BB,HIGHN+1);
CC:=FILTER(QY,HIGHN) AND H=HHV(H,HIGHN+1);
{DRAWICON(CC,H*1.02,2);}{压力符号}
DDD:=BARSLAST(CC);
GDTS:=IF(CC,CURRBARSCOUNT,0);
DINGBU:=IF(DDD,REF(H,DDD),H);{顶部}
DINGBUTS:=IF(DDD,REF(GDTS,DDD),GDTS);
DINGBU1:=REF(DINGBU,DDD+1);
GDCS1:=CONST(DINGBUTS);
DINGBUTS1:=REF(DINGBUTS,DDD+1);
GDCS2:=CONST(DINGBUTS1);
DINGBU2:=REF(DINGBU1,DDD+1);
MM:=IF(CURRBARSCOUNT>GDCS2,0,1);
高点压力:DRAWLINE(CURRBARSCOUNT=GDCS2,H,CURRBARSCOUNT=GDCS1,H,1),COLORMAGENTA,LINETHICK2;
AA9:=REF(L,LOWN)=LLV(L,2*LOWN+1);
QY1:=BACKSET(AA9,LOWN+1);
CC9:=FILTER(QY1,LOWN) AND L=LLV(L,LOWN+1);
{DRAWICON(CC1,L*0.98,1);}{支撑符号}
DD9:=BARSLAST(CC9);
DDTS:=IF(CC9,CURRBARSCOUNT,0);
YDB:=IF(DD9,REF(L,DD9),L);
DDTS1:=IF(DD9,REF(DDTS,DD9),DDTS);
DDCS1:=CONST(DDTS1);
ZDB:=REF(YDB,DD9+1);
DDTS2:=REF(DDTS1,DD9+1);
DDCS2:=CONST(DDTS2);
低点支撑:DRAWLINE(CURRBARSCOUNT=DDCS2,L,CURRBARSCOUNT=DDCS1,L,1) ,COLORGREEN,LINETHICK1.5;
DRAWTEXT(ISLASTBAR,低点支撑,' 低点连线'),COLORRED;
DRAWTEXT(ISLASTBAR,高点压力,' 高点连线'),COLORMAGENTA;
{次水平线}
大盘:=EMA(INDEXC,500)/EMA(C,500);
QA1:=REF(CLOSE,3)=HHV(CLOSE,2*3+1);
QB1:=BACKSET(QA1,3+1);
QC1:=FILTER(QB1,3) AND CLOSE=HHV(CLOSE,3+1);
QD1:=BARSLAST(QC1);
QE1:=IF(QC1,CURRBARSCOUNT,0);
QF1:=IF(QD1,REF(QE1,QD1),QE1);
QG1:=CONST(QF1);
次水平线:DRAWLINE(CURRBARSCOUNT=QG1,CLOSE,ISLASTBAR,REF
(CLOSE,QG1-1),1),COLORYELLOW;
{30天颈线}
A11:=REF(C,30)=HHV(C,2*20+1);
B11:=FILTER(A11,30);
C11:=BACKSET(B11,30+1);
HDD:=FILTER(C11,30);
高位水平线:REF(C,BARSLAST(HDD)),COLOR0099FF,POINTDOT;
DRAWTEXT(ISLASTBAR,高位水平线,' 高颈线'),COLOR0099FF;
STICKLINE(C,高位水平线,高位水平线,8,0),COLOR0099FF;
{低位颈线}
A22:=REF(C,30)=LLV(C,2*20+1);
B22:=FILTER(A22,30);
C22:=BACKSET(B22,30+1);
LDD:=FILTER(C22,30);
低位水平线:REF(C,BARSLAST(LDD)),COLORCYAN,POINTDOT;
DRAWTEXT(ISLASTBAR,低位水平线,' 低位水平线'),COLORCYAN;
{成交量颈线}
三十地量:REF(L,BARSLAST(VOL<LLV(VOL,30)*1.001)),COLORMAGENTA,POINTDOT,LINETHICK3;
地量期:=BARSLAST(V=LLV(V,30));
地量颈线:DRAWLINE(V=LLV(V,30),MIN(REF(L,1),L),地量期>0,MIN(REF(L,地量期+1),REF(L,地量期)),1),COLORGREEN,LINETHICK3;
DRAWTEXT(ISLASTBAR,地量颈线,' 地量颈线'),COLORGREEN;
{参数:NN=900101 1501231 1080918}{小/大/缺省}
{价咯:=REF(C,DATE=(NN+1)),NODRAW;
颈线2:=DRAWLINE(DATE=NN,C,DATE>NN,价咯,1),LINETHICK3;}
{PC:=(H+L+C)/3;}
V5:=MA(VOL,5);
V20:=MA(VOL,20);
A13:=CROSS(V20,V5);
A23:=BARSLAST(A13);
C13:=REF(C,A23);
{地量双星}
昨天十字:=ABS(REF(C,1)-REF(O,1))/REF(O,1)<=0.01;{昨天十字星}
前天十字:=ABS(REF(C,2)-REF(O,2))/REF(O,1)<=0.01;{前天十字星}
XG1:=昨天十字 AND 前天十字 AND C>REF(C,1) AND (C/地量颈线)>1.0 AND (C/地量颈线)<1.12;
DRAWTEXT(XG1,L-0.09,' 地双星'),COLORYELLOW;
{XG2:=昨天十字 AND 前天十字 AND C>REF(C,1) AND (C/黄金线)>1.0 AND (C/黄金线)<1.15;
DRAWTEXT(XG2,L-0.12,'金双星'),COLORYELLOW;};
MA60:MA(C,60),COLORYELLOW,LINETHICK2;
C6:=REF(C,1);
C3:=REF(C,1);
涨停:=IF((C-C3)*100/C3>=(10-0.01*100/C3),1,0);
STICKLINE(涨停,OPEN,CLOSE,2,1),COLORYELLOW; |
