FZ帝江.ALG

DRAWGBK(C=C,COLORRGB(260,50,260),COLORRGB(180,0,180),1);

DRAWTEXTEX(C,1,0,0,'红线买卖线，红线上买，红线下卖'),colorred;
DRAWTEXTEX(C,1,0,40,'黄线多空线，黄线出买，黄线无卖'),colorFFFF;
VERTLINE(ISLASTBAR),POINTDOT,colorFFFF;
X0:=(OPEN);
X1:=HHV(X0,21);
X2:=LLV(X0,7);
买卖线:(X1+X2)/2,colorred;
TMP:=买卖线-CLOSE;
DRAWLINE(ABS(TMP)<0.00001,LOW,ABS(TMP)<0.00001,OPEN,0),COLORWHITE;
DRAWLINE(ABS(TMP)<0.00001,HIGH,ABS(TMP)<0.00001,OPEN,0),COLORWHITE;

STICKLINE(TMP>0.00001,LOW,CLOSE,1,3),COLORCYAN;
STICKLINE(TMP>0.00001and OPEN>=CLOSE,OPEN,CLOSE,10,0),COLORCYAN;
STICKLINE(TMP>0.00001and OPEN<CLOSE,OPEN,CLOSE,10,1),COLORCYAN;

STICKLINE(TMP<-0.00001,LOW,HIGH,1,3),COLORRED;
STICKLINE(TMP<-0.00001and OPEN>=CLOSE,OPEN,CLOSE,10,0),COLORRED;
STICKLINE(TMP<-0.00001and OPEN<CLOSE,OPEN,CLOSE,10,1),COLORRED;

xx1:=ref(ma(vol,5),6)<ref(ma(vol,135),4);
xx2:=MIN(ref(OPEN,4),ref(CLOSE,4))/ref(low,4)>1.035 and (MIN(ref(OPEN,4),ref(CLOSE,4))-ref(low,4))/abs(ref(OPEN,4)-ref(CLOSE,4))>2
and ref(low,4)/ref(LOW,5)<0.97;
xx3:=ref(OPEN,4)/ref(LOW,5)<0.97 and ref(CLOSE,4)/ref(OPEN,4)>1.05;
xx4:=llv(low,3)>(ref(HIGH,4)+ref(low,4))/2;
xy1:=ref(ma(vol,5),2)<ma(vol,135);
xy2:=MIN(OPEN,CLOSE)/low>1.035 and (MIN(OPEN,CLOSE)-low)/abs(OPEN-CLOSE)>2 and low/ref(LOW,1)<0.97;
xy3:=OPEN/ref(LOW,1)<0.97 and CLOSE/OPEN>1.05;

螺旋:STICKLINE(xy1 and (xy2 or xy3),OPEN,CLOSE,5,0),COLORGRAY;
DRAWTEXT(xy1 and (xy2 or xy3),LOW*0.95,'螺旋'),COLORGRAY;

螺旋量成立:STICKLINE(xx1 and (xx2 or xx3) and xx4,OPEN,CLOSE,5,0),COLORWHITE;
DRAWTEXT(xx1 and (xx2 or xx3) and xx4,LOW*0.95,'螺旋量成立'),COLORWHITE;

c1:=INTPART(CLOSE/0.809)*0.809;d:=INTPART(CLOSE/80.9)*80.9;
抵抗:if(c>100,d,c1) ,pointdot,linethick3,COLORBROWN;
e:=INTPART(CLOSE/0.764)*0.764;f:=INTPART(CLOSE/76.4)*76.4;
防卫:if(c>100,f,e),pointdot,linethick3,COLORGRAY;
a:= 防卫+0.809;b:=防卫+80.3;
攻击:if(c>100,b,a),pointdot,linethick3,COLORMAGENTA;

BBI:=(MA(CLOSE,3)+MA(CLOSE,6)+MA(CLOSE,12)+MA(CLOSE,24))/4;
V2:=IF(BARSTATUS=1,VOL*240/MINUTE/REF(VOL,1)-1,VOL/REF(VOL,1)-1);
STICKLINE(V2>=1,O,C,3,0),COLORYELLOW;
DRAWTEXT(V2>=1,HIGH*1.05,'立庄量'),COLORYELLOW;

T12:=V2>=1;
T0:=BARSLAST(T12);
L1:=REF(L,T0);
H1:=REF(H,T0);
L11:=MIN(REF(L,1),L);
L10:=MIN(L11,REF(L,2));
L21:=MAX(REF(L,1),L);
L20:=MAX(L21,REF(L,2));
T111:=(REF(V2>=1,3) OR REF(V2>=1,2) OR REF(V2>=1,1)) AND ((L10>L1 AND L20>H1) OR (L11>L1 AND L21>H1) OR (L>H1));
T11:=T111 AND REF(T111,1)=0;
STICKLINE(T11,O,C,3,0),COLOR3399ff;
DRAWTEXT(T11,HIGH*1.05,'立庄量成立'),COLOR3399ff;
A:=BARSCOUNT(CLOSE);
AH:=HHV(HIGH,72);
AL:=LLV(LOW,72);
A0:=((AH - AL) / 21);
B1:=(LOW - A0);
DRAWTEXT((((A + 0) / 13) = FLOOR(((A + 0) / 13))),(B1 - (2.5 * A0)),'。时窗'),colorFFFFFF;

QLIFE:=(EMA(CLOSE,60)+EMA(CLOSE,90))/2,POINTDOT,LINETHICK4,colorFF00;
G:=IF(HIGH=HHV(HIGH,3),1,0);
D:=IF(LOW=LLV(LOW,3),1,0);
S:=IF(REF(G,2)=1 AND REF(G,1)=0 AND G=0,REF(HIGH,2),REF(HIGH,2+(BARSLAST(REF(G,2)=1 AND REF(G,1)=0 AND G=0))));
X:=IF(REF(D,2)=1 AND REF(D,1)=0 AND D=0,REF(LOW,2),REF(LOW,2+(BARSLAST(REF(D,2)=1 AND REF(D,1)=0 AND D=0))));
上压力:=IF(HIGH>=MA(CLOSE,1),S,REF(S,BARSLAST(HIGH>MA(CLOSE,1)))),POINTDOT,LINETHICK3,colorFF00FF;
下支撑:=IF(LOW<=MA(CLOSE,5),X,REF(X,BARSLAST(LOW<=MA(CLOSE,5)))),POINTDOT,LINETHICK3,colorFFFF00;
K1:=上压力;
K2:=下支撑;
C1:=REF(CLOSE,1)<=K1 AND CLOSE>K1;
C2:=REF(CLOSE,1)>=K2 AND CLOSE<K2;
K3:=BARSLAST(C1);
K4:=BARSLAST(C2);

多空线:PARTLINE(K3<K4,K2),LINETHICK2,colorFFFF;

HH:=high;
LL:=low;
OO:=OPEN;
CC:=CLOSE;
<%
vh=ffl.vardata("hh")
vl=ffl.vardata("ll")
vo=ffl.vardata("oo")
vc=ffl.vardata("cc")
last=ubound(vh)
if last<101 then
b=last+1
else
b=0
for i=last-101 to last-51
  vh(i)=vh(i+51)
  vl(i)=vl(i+51)
  vo(i)=vo(i+51)
  vc(i)=vc(i+51)
next
a=(vh(last-51)+vl(last-51))/2
j=1
for i=last-49 to last
  j=j+2
  vh(i)=2*a-vl(i-j)
  vl(i)=2*a-vh(i-j)
  vo(i)=2*a-vc(i-j)
  vc(i)=2*a-vo(i-j)
next
end if
ffl.vardata("hh")=vh
ffl.vardata("ll")=vl
ffl.vardata("oo")=vo
ffl.vardata("cc")=vc
ffl.varstartindex("hh")=b
ffl.varstartindex("ll")=b
ffl.varstartindex("oo")=b
ffl.varstartindex("cc")=b
%>
A:=BACKSET(ISLASTBAR,50);
STICKLINE(A AND CC>=OO,OO,CC,6,1),SHIFT50,colorFF00FF;
STICKLINE(A AND CC>=OO,LL,OO,0.1,1),SHIFT50,colorFF00FF;
STICKLINE(A AND CC>=OO,CC,HH,0.1,1),SHIFT50,colorFF00FF;
STICKLINE(A AND CC<OO,OO,CC,6,0),SHIFT50,colorFF00;
STICKLINE(A AND CC<OO,LL,HH,0.1,0),SHIFT50,colorFF00;
TJTS:=BACKSET(ISLASTBAR,5);