|
|

楼主 |
发表于 2024-2-5 07:41
来自手机
|
显示全部楼层
{画线 主图 第二版 王子改进版}
{大撑压系统}
N0:=7;
N:=34;
高位:=H;
低位:=L;
A1:=REF(高位,N)=HHV(高位,2*N+1);
B1:=FILTER(A1,N);
C1:=BACKSET(B1,N+1);
D1:=FILTER(C1,N);
A2:=REF(低位,N)=LLV(低位,2*N+1);
B2:=FILTER(A2,N);
C2:=BACKSET(B2,N+1);
D2:=FILTER(C2,N);
E1:=(REF(LLV(低位,2*N),1)+REF(HHV(高位,2*N),1))/2;
E2:=(高位+低位)/2;
H1:=(D1 AND NOT(D2 AND E1>=E2)) OR ISLASTBAR OR BARSCOUNT(C)=1;
L1:=(D2 AND NOT(D1 AND E1<E2));
H2:=D1 AND NOT(D2 AND E1>=E2);
X1:=REF(BARSLAST(H1),1)+1;
F1:=BACKSET(H1 AND COUNT(L1,X1)>0,LLVBARS(IF(L1,低位,10000),X1));
G1:=F1>REF(F1,1);
I1:=BACKSET(G1,2);
LD:=I1>REF(I1,1);
L2:=LD OR ISLASTBAR OR BARSCOUNT(C)=1;
X2:=REF(BARSLAST(L2),1)+1;
F2:=BACKSET(L2 AND COUNT(H2,X2)>0,HHVBARS(IF(H2,高位,0),X2));
G2:=F2>REF(F2,1);
I2:=BACKSET(G2,2);
HD:=I2>REF(I2,1);
R1:=BACKSET(ISLASTBAR,BARSLAST(HD)+1);
S1:=R1>REF(R1,1);
T1:=BACKSET(ISLASTBAR,BARSLAST(LD)+1),;
U1:=T1>REF(T1,1);
R2:=BACKSET(S1,REF(BARSLAST(HD),1)+2);
S2:=R2>REF(R2,1),COLORWHITE,NODRAW;
T2:=BACKSET(U1,REF(BARSLAST(LD),1)+2);
U2:=T2>REF(T2,1);
大压力:DRAWLINE(S2,H,S1,H,1),LINETHICK2,COLORRED;
大支撑:DRAWLINE(U2,L,U1,L,1),LINETHICK2,COLORGREEN;
DRAWTEXT(ISLASTBAR,大压力,STRCAT(CON2STR(大压力,2),'大压力') ),COLORLIRED;
DRAWTEXT(ISLASTBAR,大支撑,STRCAT(CON2STR(大支撑,2),'大支撑') ),COLORGREEN;
{小撑压系统}
XN0:=3;
XN:=13;
XA1:=REF(高位,XN)=HHV(高位,2*XN+1);
XB1:=FILTER(XA1,XN);
XC1:=BACKSET(XB1,XN+1);
XD1:=FILTER(XC1,XN);
XA2:=REF(低位,XN)=LLV(低位,2*XN+1);
XB2:=FILTER(XA2,XN);
XC2:=BACKSET(XB2,XN+1);
XD2:=FILTER(XC2,XN);
XE1:=(REF(LLV(低位,2*XN),1)+REF(HHV(高位,2*XN),1))/2;
XE2:=(高位+低位)/2;
XH1:=(XD1 AND NOT(XD2 AND XE1>=XE2)) OR ISLASTBAR OR BARSCOUNT(C)=1;
XL1:=(XD2 AND NOT(XD1 AND XE1<XE2));
XH2:=XD1 AND NOT(XD2 AND XE1>=XE2);
XX1:=REF(BARSLAST(XH1),1)+1;
XF1:=BACKSET(XH1 AND COUNT(XL1,XX1)>0,LLVBARS(IF(XL1,低位,10000),XX1));
XG1:=XF1>REF(XF1,1);
XI1:=BACKSET(XG1,2);
XLD:=XI1>REF(XI1,1);
XL2:=XLD OR ISLASTBAR OR BARSCOUNT(C)=1;
XX2:=REF(BARSLAST(XL2),1)+1;
XF2:=BACKSET(XL2 AND COUNT(XH2,XX2)>0,HHVBARS(IF(XH2,高位,0),XX2));
XG2:=XF2>REF(XF2,1);
XI2:=BACKSET(XG2,2);
XHD:=XI2>REF(XI2,1);
XR1:=BACKSET(ISLASTBAR,BARSLAST(XHD)+1);
XS1:=XR1>REF(XR1,1);
XT1:=BACKSET(ISLASTBAR,BARSLAST(XLD)+1);
XU1:=XT1>REF(XT1,1);
XR2:=BACKSET(XS1,REF(BARSLAST(XHD),1)+2);
XS2:=XR2>REF(XR2,1);
XT2:=BACKSET(XU1,REF(BARSLAST(XLD),1)+2);
XU2:=XT2>REF(XT2,1);
小压力:DRAWLINE(XS2,高位,XS1,高位,1),DOTLINE,COLORLIRED;
小支撑:DRAWLINE(XU2,低位,XU1,低位,1),DOTLINE,COLORGREEN;
DRAWTEXT(ISLASTBAR,小压力,STRCAT(CON2STR(小压力,2),'小压力') ),COLORLIRED;
DRAWTEXT(ISLASTBAR,小支撑,STRCAT(CON2STR(小支撑,2),'小支撑') ),COLORGREEN; |
|
|