VA:=IF(CLOSE>REF(CLOSE,1),VOL,-VOL);
OBV:SUM(IF(CLOSE=REF(CLOSE,1),0,VA),0),COLORRED;
UUV:=(OBV<=REF(OBV,1));
LL:=REF(LOW,1);
V0:=(CLOSE+HIGH+LOW)/3;
LC:=REF(CLOSE,1);
AA:=ABS(HIGH-LC); { A=当天最高价-前一天收盘价}
BB:=ABS(LOW-LC); {B=当天最低价-前一天收盘价}
CC:=ABS(HIGH-REF(LOW,1)); {C=当天最高价-前一天最低价}
DD:=ABS(LC-REF(OPEN,1)); {D=前一天收盘价-前一天开盘价}
EE:=(CLOSE-LC); { E=当天收盘价-前一天收盘价 }
FF:=(CLOSE-OPEN); {F=当天收盘价-当天开盘价 }
GG:=(LC-REF(OPEN,1)); {G=前一天收盘价-前一天开盘价 E、F、G采用其±差值}
XX:=EE+FF/2+GG/4; { X=E+1/2F+G }
KK:=MAX(MAX(AA,BB),MAX(BB,CC)); { K=比较A、B、C三数值,选出其中最大值 }
R:=IF(AA>BB AND AA>CC,AA+BB/2+DD/4,IF(BB>CC AND BB>AA,BB+AA/2+DD/4,CC+DD/4));
SI:=50*XX/R*KK/(LL/100)*(CLOSE/REF(CLOSE,1)); { SI=50×X/R×K/L }
ASI:=SUM(SI,0),COLORYELLOW;
SII:=(ASI>REF(ASI,1));
UC:=SUM(OBV,60)/60;
UUC:=SUM(ASI,60)/60;
CT:=EMA(UUC,125)/EMA(UC,125);
ASIP:ASI/CT,COLORYELLOW;
YY:=REF(UUV,1)<1 AND UUV AND SII,COLORGREEN;
RE:=REF(SII,1)<1 AND SII AND UUV<1,COLORLIRED;
STICKLINE(YY,ASIP*1.05,OBV*0.95,0.000000001,0),COLORGREEN;
STICKLINE(RE,ASIP,OBV,0.000000001,0),COLORLIRED; |