input:n1(5,0,30),n2(10,0,50),n(5,0,30);
rc:=DYNAINFO( 3);
s2:=SMA(CLOSE,2,1);
s6:=SMA(CLOSE,6,1);
dk:=2*(s2-s6);
{以下是主图青红柱线}
STICKLINE(dk>0,rc,rc+dk,0,1),COLORRED;
STICKLINE(dk<0,rc,rc+dk,0,1),COLORCYAN;
{以下是买卖开口提示}
A:=REF(HHV(HIGH,240),1);
AA:=A[DATACOUNT];
B:=REF(LLV(LOW,240),1);
BB:=B[DATACOUNT];
ZJ1:=(((HIGH + LOW) + (2 * CLOSE)) / 4);
ZJ2:=(((ZJ1 - EMA(ZJ1,21)) / STD(ZJ1,21)) * 100);
ZJ3:=EMA(ZJ2,5);
ZJ4:=EMA(ZJ3,2);
ZJ5:=EMA(ZJ4,2);
ZJ6:=(((3 * ZJ4) - (2 * ZJ5)) / 2);
上压力:IF((ZJ6 > 90),(AA * 0.998),AA),LINETHICK2,COLORYELLOW;
下支撑:IF((ZJ6 < (0 - 95)),(BB * 1.002),BB),LINETHICK2,colorDD66AA;
{以下是突破低位划线}
XG:HHV(HIGH,480),COLORgreen,LINEDOT;
XG1:LLV(LOW,480),COLORCYAN,LINEDOT;
{以下是支撑压力线}
yl:= HHV(MA(CLOSE,3),20),COLORGREEN;
zc:=LLV(MA(CLOSE,3),20),COLORYELLOW;
zc2:(yl+zc)/2,COLORGREEN,LINETHICK2;
PARTLINE(SMA(zc2,3,1)>REF(SMA(zc2,3,1),1),zc2),ColorB400FF,LINETHICK2;
{以下是机构动向}
VAR1:=MA(CLOSE,5);
Ａ线:=MA(CLOSE,13);
VAR5:=MA(CLOSE,34);
VAR6:=MA(CLOSE,60);
Ｂ线:=(((EMA(CLOSE,5) * 7) + (EMA(CLOSE,5) * 3)) / 10);
Ｃ线:=DMA(EMA(CLOSE,12),(SUM((VOL / CAPITAL),5) / 3));
VARA:=REF(CLOSE,1);
VARE:=((SMA(MAX((CLOSE - VARA),0),6,1) / SMA(ABS((CLOSE - VARA)),6,1)) * 100);
DRAWTEXT(((DATE > 700101) AND CROSS(84,VARE)),HIGH,'☆减仓'),COLORYELLOW;
VARF:=((((2 * CLOSE) + HIGH) + LOW) / 4);
VAR10:=LLV(LOW,34);
VAR11:=HHV(HIGH,34);
VAR12:=EMA((((VARF - VAR10) / (VAR11 - VAR10)) * 100),6);
VAR13:=EMA(((0.667 * REF(VAR12,1)) + (0.333 * VAR12)),4);
VAR14:=LLV(LOW,120);
VAR15:=HHV(HIGH,120);
VAR16:=(VAR15 - VAR14);
DRAWTEXT(IF((((((COUNT((CLOSE < REF(CLOSE,1)),8) / 8) > 0.3) AND COUNT((VAR12 > VAR13),3)) AND
(REF(LOW,1) = LLV(LOW,120))) AND (CLOSE > OPEN)),1,0),LOW,'★进场'),COLORYELLOW;
T:=BARSCOUNT(CLOSE);
TP:=FILTER(CLOSE>=HHV(HIGH,T) AND VOL>MA(VOL,OPENMINUTES(TIME))*2 AND DYNAINFO(17)>1 AND TIME0>39600,240) ;
DRAWTEXT(TP,LOW,'★突破'),COLORred;
TA:=IF((HHV(H,T)-LLV(L,T))/LLV(L,T)<0.05 AND DYNAINFO(22)<DYNAINFO(23),HHV(h,T),C),linedot,LINETHICK3,COLORWHITE;//
VERTLINE(tp),COLORGREEN,POINTDOT,LINETHICK1;
//////////
AN:= CAPITAL<3000000 AND DYNAINFO(37)>0.02;
BU:=BARSLAST(CLOSE=HHV(CLOSE,2000));
SE:=BARSLAST(CLOSE=LLV(CLOSE,2000));
DRAWICON((CROSS(SE,BU) AND AN AND SE-BU>40) ,OPEN*0.99,4);
DRAWTEXT((CROSS(SE,BU) AND AN AND SE-BU>40) ,OPEN*0.98,'\n追\n涨'),colorred;
//////////////
hh:=DYNAINFO(5);//最高
q:=DATACOUNT;
LL:=DYNAINFO(6);//最低
r:=DYNAINFO(3);
f:=MAX(hh-r,r-LL);
ff:=f/r*100;
//q1:=r-f*1.01;
//q2:=r-2*f*1.0125;
q1:=IF(ff<1,0.9898*r,r-f*1.01);
q2:=IF(ff<1,0.9798*r,r-2*f*1.0125);
dk:=ASKVOL(1)+ASKVOL(2)+ASKVOL(3);
k:=SUM(dk,0);
d:=SUM(BUYVOL,0);
kh:=HHV(MAX(d,k),0);
kL:=LLV(MIN(k,d),0);
kb:=(q1-q2)/(kh-kL);
ky:=(q1+q2-kb*(kh+kL))/2;
da:k*kb+ky,COLORGREEN,LINETHICK2;
db:d*kb[q]+ky[q],COLORYELLOW,LINETHICK2;
a1:=IF(TIME>93000,SUM((CLOSE=BIDPRICE(1))*VOL,0),q2),LINETHICK0;//委买1成交量
a2:=IF(TIME>93000,SUM(BIDVOL(1),0),q2),LINETHICK0;//
b1:=IF(TIME>93000,SUM((CLOSE=ASKPRICE(1))*VOL,0),q2),LINETHICK0;//委卖1成交量
b2:=IF(TIME>93000,SUM(ASKVOL(1),0),q2),LINETHICK0;//委卖1挂单
b8:=IF(TIME>93000,SUM(ASKVOL(2),0),q2),LINETHICK0;//委卖2挂单
b9:=IF(TIME>93000,SUM(ASKVOL(3),0),q2),LINETHICK0;//委卖3挂单
Var1:=(b2)*10 ;
Var2:=((b8+b9)/b2)*10 ;
r:=Var1;
rh:=HHV(r,0);
rL:=LLV(r,0);
rb:=(q1-q2)/(rh-rL);
ry:=(q1+q2-rb*(rh+rL))/2;
dp:r*rb[q]+ry[q],COLORred,LINETHICK2;
//////////
////////
q2h:IF(ff<1,0.9797*rc,rc-2*f*1.016);
q2l:IF(ff<1,0.9697*rc,rc-3*f*1.011);
FILLRGN(CLOSE>=0 or CLOSE<0,q2h,q2l),COLORGRAY;
////////
RSV1:=(CLOSE-LLV(LOW,9))/(HHV(HIGH,9)-LLV(LOW,9))*100;
RSV2:=(CLOSE-LLV(LOW,27))/(HHV(HIGH,27)-LLV(LOW,27))*100;
WEN:=3*SMA((CLOSE-LLV(LOW,34))/(HHV(HIGH,34)-LLV(LOW,34))*100,5,1)-2*SMA(SMA((CLOSE-LLV(LOW,34))/(HHV(HIGH,34)-LLV(LOW,34))*100,5,1),3,1);
J1:=SMA(RSV1,3,1);
J2:=SMA(J1,3,1);
W1:=SMA(RSV2,3,1);
W2:=SMA(W1,3,1);
G1:=w1,LINETHICK2,COLORWHITE;
G2:=w2,LINETHICK2,COLORCYAN;
强弱界线:=49,POINTDOT,LINETHICK3,COLOR9966CC;
警戒线:=89.5,POINTDOT,LINETHICK1;
见顶信号:=95,COLORCCFF00;
底线:=5;
趋势线:=WEN,LINETHICK2,COLORMAGENTA;
大势:=EMA(趋势线,10);
aaa4:=趋势线;
aaa5:=大势;
mh00:=HHV(MAX(aaa4,aaa5),0);
mL00:=LLV(MIN(aaa5,aaa4),0);
mb00:=(q2h-q2l)/(mH00[q]-mL00[q]);
my00:=(q2h+q2l-mb00*(mH00[q]+mL00[q]))/2;
csx:=aaa4*mb00+my00;
ds:=aaa5*mb00+my00;
FILLRGN(ds,0,ds),COLORBROWN;
FILLRGN(csx>=ds,ds,csx),COLORRED;
csx,LINETHICK2,COLORRED;
ds,COLORGREEN;
czzz:=(q2h-q2l)/10;
q2l,POINTDOT,COLORCYAN;
q2l+1*czzz,POINTDOT,COLORBLACK;
q2l+2*czzz,POINTDOT,COLORBLUE;
q2l+5*czzz,POINTDOT,COLORWHITE;
q2l+8*czzz,POINTDOT,COLORGREEN;
q2l+9*czzz,POINTDOT,COLORGREEN;
出点准备:IF(wen>85,q2l+7*czzz,q2h),LINETHICK1,COLORCYAN;
出点1:=IF(CROSS(J2,J1) AND J2>85,q2l+7*czzz,q2h),LINETHICK2,COLOR00FF00;
出点2:=IF(CROSS(85,wen) AND HHV(csx,0)>q2l+9*czzz,q2l+7*czzz,q2h),LINETHICK2,COLORWHITE;
出点:IF(出点1=q2l+7*czzz OR 出点2=q2l+7*czzz,q2l+7*czzz,q2h),LINETHICK2,COLORWHITE;
小出点:IF(DS<REF(DS,1) AND REF(DS,1)>q2l+9*czzz,q2l+8.5*czzz,q2h),LINETHICK2,COLORYELLOW;
买点准备:IF(wen<=10,q2l+3*czzz,q2l),LINETHICK1,COLORMAGENTA;
买点1:=IF(CROSS(wen,10) AND ds<q2l+1*czzz,q2l+3*czzz,q2l),LINETHICK2,COLORWHITE;
买点2:=IF(CROSS(J1,J2) AND J2<q2l+1*czzz,q2l+3*czzz,q2l),LINETHICK2,COLOR00FF00;
买点:IF(买点1=q2l+3*czzz OR 买点2=q2l+3*czzz,q2l+3*czzz,q2l),LINETHICK2,COLORYELLOW;
小买点:IF(CSX>REF(CSX,1) AND REF(CSX,1)<q2l+1*czzz,q2l+1.5*czzz,q2l),LINETHICK2,COLORWHITE;
|
