相对价位

input:N(13,1,100);
DRAWGBK(CLOSE,COLORRGB(36,68,36),COLORRGB(100,100,100),1);
XDJ1:=LLV(LOW,N);
XDJ2:=EMA((((3)*(CLOSE) + HIGH + LOW + OPEN)/(6) - XDJ1)/(HHV(HIGH,N) - XDJ1),8);
XDJ3:=(EMA(XDJ2,2))*(100);
CD1:=(REF(CLOSE,1))/(CLOSE);
CD2:=(1 - (MA(LOW,3))/(MA((HIGH + LOW + (2)*(CLOSE))/(4),20)))*(100) - 5;
CD3:=((MA(HIGH,3))/(MA((HIGH + LOW + (2)*(CLOSE))/(4),20)) - 1)*(100) - 5;
CD4:=IF((CD2 > 0),((CD2)*(REF((HIGH + LOW + (2)*(CLOSE))/(4),3)))/(CLOSE),0);
HZ1:=(MA(LOW,2))*(0.96);
HZ2:=(MA(LOW,26))*(0.85);
HZ3:=IF((REF(HZ1,1) < HZ2) and (REF(HZ1,1) < HZ1) and (REF(HZ1,1) < REF(HZ1,2)),8,0);
铁底:=(MA(LOW,30))*(0.85);
N1:=SYSPARAM(3);
N2:=SYSPARAM(2);
N3:=N1 - N2 + 1;
HH:=HHV(XDJ3,N3);
LL:=LLV(XDJ3,N3);
高:=(HH[N1])*(0.9);
中:=(HH[N1] + LL[N1])/(2);
低:=(LL[N1])*(1.3);
最低:=LL[N1];
Y:=HHV(VOL,N1 - N2 + 1);
YVB:=(Y[N1])/(HH[N1] - LL[N1] + MINDIFF);
Z:=(VOL)/(YVB) + LL[N1];
Z_1:=((CLOSE - LLV(LOW,30))/(HHV(HIGH,30) - LLV(LOW,30)))*(100) - 50;
Z_2:=SMA(Z_1,3,1);
Z_3:=EMA((3)*(Z_2) - (2)*(SMA(Z_2,3,1)),6);
Z_4:=(Z_3 - REF(Z_3,1))*(3);
ZJ1:=DMA((HIGH + LOW + (CLOSE)*(2))/(4),0.9);
ZJ2:=(VOL)/((HIGH - LOW)*(2) - ABS(CLOSE - OPEN));
ZJ3:=IF((CLOSE > OPEN),(ZJ2)*(HIGH - LOW),IF((CLOSE < OPEN),(ZJ2)*(HIGH - OPEN + CLOSE - LOW),(VOL)/(2))) + IF((CLOSE > OPEN),0 - (ZJ2)*(HIGH - CLOSE + OPEN - LOW),IF((CLOSE < OPEN),0 - (ZJ2)*(HIGH - LOW),0 - (VOL)/(2)));
ZJ4:=((ZJ3)/(20))/(1.15);
ZJ5:=(ZJ4)*(0.55) + (REF(ZJ4,1))*(0.33) + (REF(ZJ4,2))*(0.22);
ZJ6:=EMA(ZJ5,3);
QJ1:=(CLOSE - LLV(LOW,5))/(HHV(HIGH,5) - LLV(LOW,5));
QJ2:=(SMA(MAX(QJ1 - REF(QJ1,1),0),8,1))/(SMA(ABS(QJ1 - REF(QJ1,1)),8,1));
QJ3:=EMA(QJ2,5) - EMA(QJ2,13);
QJ4:=(QJ3 - LLV(QJ3,3))/(HHV(QJ3,3) - LLV(QJ3,3));
QJ5:=(SMA(QJ4,3,1))/(3);
QJ6:=SMA(QJ5,3,1);
KK:=((3)*(QJ5) - (2)*(QJ6))*(2.5);
DD:=EMA(((3)*(QJ5) - (2)*(QJ6))*(2.5),3);
T1:=BARSLAST(CROSS(DD,KK));
T2:=BARSLAST((KK > DD));
B:=DATACOUNT - BARPOS + 1;
SJ:=DATACOUNT - SYSPARAM(1);
FC:=VOL;
I:=SJ;
WHILE (I <= DATACOUNT) Do
Begin
Begin
XL:=0;
J:=0;
WHILE (J <= SJ) Do
Begin
XL:=XL + FC[I - J];J:=J+1;
End;
MAN:=XL;
I:=I+1;
End;
End;
HS:=((100)*(XL))/(CAPITAL);

YBH1:=EMA(CLOSE,7) - EMA(CLOSE,19);
YBH2:=EMA(YBH1,9);
YB:=(YBH1 >= YBH2);
YH:=(YBH1 >= 0);
SZ:=((CLOSE)*(3) + HIGH + LOW + OPEN)/(6);
SK:=EMA(SZ,13) - EMA(SZ,73);
SD:=EMA(SK,2);
XH:=CROSS(SK,SD) and (SK < 0 - 0.04) and (CLOSE - (REF(CLOSE,1))/(REF(CLOSE,1)) >= 0.03) or CROSS(SK,SD) and (SK <= 0 - 0.14) or CROSS(SK,SD) and (SK <= 0.05) and ((VOL)/(MA(VOL,5)) > 2) or ((CLOSE)/(REF(CLOSE,1)) > 0.035);
QJ1:=(SUM((VOL)*(CLOSE),1))/(SUM(VOL,1));
QJ2:=EMA(QJ1,13);
QJ3:=FORCAST(((QJ1 - QJ2)*(100))/(QJ1),5);
XLA:=(CLOSE >= REF(CLOSE,1)) and (REF(CLOSE,1) >= REF(CLOSE,2)) and (REF(CLOSE,1) <= REF(CLOSE,3)) and (REF(CLOSE,2) <= REF(CLOSE,3)) and (REF(CLOSE,4) > REF(CLOSE,2)) or (REF(CLOSE,4) <= REF(CLOSE,2)) and (REF(CLOSE,5) >= REF(CLOSE,3)) or (CLOSE >= REF(CLOSE,1)) and (REF(CLOSE,1) <= REF(CLOSE,2)) and (CLOSE >= REF(CLOSE,2)) and (REF(CLOSE,3) > REF(CLOSE,1)) or (REF(CLOSE,3) <= REF(CLOSE,1)) and (REF(CLOSE,4) >= REF(CLOSE,2));
STICKLINE((ZJ6 <= 0),0,最低 + (Z)/(2),5,1),ColorFCFF00;
STICKLINE((CD4 > 0),0,最低 + (Z)/(2),5,0),ColorFFB0FF;
STICKLINE((CD4 > 0),0,(最低 + (Z)/(2))*(0.8),5,0),ColorFF8CFF;
STICKLINE((CD4 > 0),0,(最低 + (Z)/(2))*(0.6),5,0),ColorFF59FF;
STICKLINE((CD4 > 0),0,(最低 + (Z)/(2))*(0.4),5,0),ColorFF18FF;
STICKLINE((CD4 > 0),0,(最低 + (Z)/(2))*(0.2),5,0),Color001DFF;
STICKLINE(HZ3,0,最低 + (Z)/(2),5,0),colorGreen;
STICKLINE(HZ3,0,(最低 + (Z)/(2))*(0.8),5,0),Color33CC00;
STICKLINE(HZ3,0,(最低 + (Z)/(2))*(0.6),5,0),Color339900;
STICKLINE(HZ3,0,(最低 + (Z)/(2))*(0.4),5,0),Color337700;
STICKLINE(HZ3,0,(最低 + (Z)/(2))*(0.2),5,0),Color005500;
STICKLINE((ZJ6 >= 0),0,最低 + (Z)/(2),5,1),Color5050FF;
STICKLINE((CLOSE < 铁底),(Z)/(2),最低 + (Z)/(2),5,0),colorGray;
PARTLINE(CLOSE,高),POINTDOT,colorGray;
PARTLINE(CLOSE,中),POINTDOT,colorGray;
PARTLINE(CLOSE,低),POINTDOT,colorWhite;
强:FORCAST(XDJ3,5),linethick,PRECISION2,colorRed;
弱:=FORCAST(REF(XDJ3,1),5);
PARTLINE(CLOSE,强),linethick2,colorRed;
PARTLINE((强 < 弱),强),linethick2,ColorFF0000;
区界:REF(LLV(XDJ3,T2),T1),PRECISION2,colorYellow;

涨跌幅:((CLOSE - REF(CLOSE,1))/(REF(CLOSE,1)))*(100),linethick,PRECISION2,ColorFFBBFF;


DRAWTEXT((BARPOS = SYSPARAM(2)),高,'高位: ' + NUMTOSTR(高,2)),linethick,colorGray;
DRAWTEXT((BARPOS = SYSPARAM(2)),中,'中位: ' + NUMTOSTR(中,2)),linethick,colorGray;
DRAWTEXT((BARPOS = SYSPARAM(2)),(最低)*(0.68),'低位: ' + NUMTOSTR(低,2)),linethick4,colorWhite;

PARTLINE(RANGE(BARPOS,SYSPARAM(1),SYSPARAM(3) + 3),(中)*(1.1)),Color5BBBB5;
DRAWTEXT((BARSCOUNT(CLOSE) = SYSPARAM(1)),(中)*(1.2),' 倒数: ' + NUMTOSTR(B[SYSPARAM(1)],0) + '(天) ' + ' \n             累计换手:' + NUMTOSTR(HS,2) + '% '),linethick,Color5BBBB5;