咨詢內容：
請老師幫忙修改
LC:=REF(CLOSE,2);
RSI1:=SMA(MAX(CLOSE-LC,0),13,1)/SMA(ABS(CLOSE-LC),13,1)*100;
AH:=HHV(RSI1,8);
AL:=LLV(RSI1,8);
STO1:=IF(AL=AH,0,100*(RSI1-AL)/(AH-AL));
SK:EMA(STO1,5);
SD:EMA(SK,3);
FILLRGN(SK>SD,SK,SD,RGB(225,0,0));
FILLRGN(SK<SD,SK,SD,RGB(1,235,1));
強市線:80,POINTDOT,COLORRED;
弱市線:20,POINTDOT,COLORWHITE;
分水嶺:50,POINTDOT,COLORGREEN;
N1:=3;
N2:=5;
N3:=8;
N4:=13;
RSV:=-(HHV(HIGH,N4)-CLOSE)/(HHV(HIGH,N4)-LLV(LOW,N4))*100;
LWR1:=SMA(RSV,N1,1);
LWR2:=SMA(LWR1,N1,1);
B1:=LWR1>LWR2;
S1:=LWR1<LWR2;
RSV1:=(CLOSE-LLV(LOW,N3))/(HHV(HIGH,N3)-LLV(LOW,N3))*100;
K:=SMA(RSV1,N1,1);
D:=SMA(K,N1,1);
B2:=K>D;
S2:=K<D;
LCC:=REF(CLOSE,1);
RSIC1:=(SMA(MAX(CLOSE-LCC,0),N2,1))/(SMA(ABS(CLOSE-LCC),N2,1))*100;
RSIC2:=(SMA(MAX(CLOSE-LCC,0),N4,1))/(SMA(ABS(CLOSE-LCC),N4,1))*100;
B3:=RSIC1>RSIC2;
S3:=RSIC1<RSIC2;
DIFF:=EMA(CLOSE,N3)-EMA(CLOSE,N4);
DEA:=EMA(DIFF,N2);
B4:=DIFF>DEA;
S4:=DIFF<DEA;
BBI:=(MA(CLOSE,N1)+MA(CLOSE,N2)+MA(CLOSE,N3)+MA(CLOSE,N4))/4;
B5:=CLOSE>BBI;
S5:=CLOSE<BBI;
MTM:=CLOSE-REF(CLOSE,1);
MMS:=100*EMA(EMA(MTM,N2),N1)/EMA(EMA(ABS(MTM),N2),N1);
MMM:=100*EMA(EMA(MTM,N4),N3)/EMA(EMA(ABS(MTM),N4),N3);
B6:=MMS>MMM;
S6:=MMS<MMM;
WJ:=(H+L+C)/3;
V1:=IF(H=L,1,H-MAX(O,C));
V2:=IF(H=L,1,MAX(C,O)-WJ);
V3:=IF(H=L,1,MIN(O,C)-L);
V4:=IF(H=L,1,WJ-MIN(C,O));
V5:=VOL/IF(H=L,4,H-L);
V6:=(V1*V5);
V7:=(V2*V5);
VB8:=(V3*V5);
VB9:=(V4*V5);
買盤:=(VB9+VB8);
賣盤:=(V6+V7);
買賣差:=買盤-賣盤;
DDX:=買賣差;
DX:=MA(買賣差,5)*20;
DDX1:=SMA(DX,3,1);
DDX2:=SMA(DDX1,3,1);
DDX3:=(5*DDX2+4*REF(DDX2,1)+3*REF(DDX2,2)+2*REF(DDX2,3)+REF(DDX2,4))/15;
B7:=DDX1>DDX2;
S7:=DDX1<DDX2;
CAPITAL:=GETPRICE1('流通股本');
量:=V;?
換手:=V/CAPITAL*100;
VAR1:=VOL/((HIGH-LOW)*2-ABS(CLOSE-OPEN));
買盤1:=IF(CLOSE>OPEN,VAR1*(HIGH-LOW),IF(CLOSE<OPEN,VAR1*((HIGH-OPEN)+(CLOSE-LOW)),VOL/2));
賣盤1:=IF(CLOSE>OPEN,0-VAR1*((HIGH-CLOSE)+(OPEN-LOW)),IF(CLOSE<OPEN,0-VAR1*(HIGH-LOW),0-VOL/2));
DLX:=(買盤1-(賣盤1))/量*換手;
DLX1:=SUM(DLX,6);
DLX2:=MA(DLX1,5);
B8:=DLX1>DLX2;
S8:=DLX1<DLX2;
X1:=B1 AND B2 AND B3 AND B4 AND B5 AND B6 AND B7 AND B8;
X2:=S1 AND S2 AND S3 AND S4 AND S5 AND S6 AND S7 AND S8;
IF(X1 ,50,NULL),COLORRED ,LINETHICK5,POINTDOT;?
IF(X2 ,50,NULL),COLORGREEN? ,LINETHICK5,POINTDOT;
XIAO1:=(REF((LOW+OPEN+CLOSE+HIGH)/4,1));
XIAO2:=(SMA(ABS(LOW-XIAO1),13,1)/SMA(MAX(LOW-XIAO1,0),10,1));
XIAO3:=(EMA(XIAO2,10));
XIAO4:=(LLV(LOW,33));
XIAO5:=(EMA(IF(LOW<=XIAO4,XIAO3,0),3));
STICKLINE1(XIAO5>REF(XIAO5,1),0,XIAO5,3,0 ),COLOR000055;
STICKLINE1(XIAO5>REF(XIAO5,1),0,XIAO5,2.6,0 ),COLOR000077;
STICKLINE1(XIAO5>REF(XIAO5,1),0,XIAO5,2.1,0 ),COLOR000099;
STICKLINE1(XIAO5>REF(XIAO5,1),0,XIAO5,1.5,0 ),COLOR0000BB;
STICKLINE1(XIAO5>REF(XIAO5,1),0,XIAO5,0.9,0 ),COLOR0000DD;
STICKLINE1(XIAO5>REF(XIAO5,1),0,XIAO5,0.3,0 ),COLOR0000FF;
STICKLINE1(XIAO5<REF(XIAO5,1),0,XIAO5,3,0),COLORYELLOW;
STICKLINE1(XIAO5<REF(XIAO5,1),0,XIAO5,2.6,0),COLORYELLOW;
STICKLINE1(XIAO5<REF(XIAO5,1),0,XIAO5,2.1,0),COLORYELLOW;
STICKLINE1(XIAO5<REF(XIAO5,1),0,XIAO5,1.5,0),COLOR00BB00;
STICKLINE1(XIAO5<REF(XIAO5,1),0,XIAO5,0.9,0),COLORYELLOW;
STICKLINE1(XIAO5<REF(XIAO5,1),0,XIAO5,0.3,0),COLORYELLOW;
【私募進場】:IF(XIAO5>REF(XIAO5,1),XIAO5,0),COLORYELLOW,NODRAW;
【私募洗盤】:IF(XIAO5<REF(XIAO5,1),XIAO5,0),COLORWHITE,NODRAW;
?
?來源:程序化99網（ www.weiqiv.net.cn ）
博易技術人員：
LC:=REF(CLOSE,2);
RSI1:=SMA(MAX(CLOSE-LC,0),13,1)/SMA(ABS(CLOSE-LC),13,1)*100;
AH:=HHV(RSI1,8);
AL:=LLV(RSI1,8);
STO1:=IF(AL=AH,0,100*(RSI1-AL)/(AH-AL));
SK:EMA(STO1,5);
SD:EMA(SK,3);
FILLRGN(SK>SD,SK,SD),COLOR0000E1;
FILLRGN(SK<SD,SK,SD),COLOR01EB01;
強市線:80,POINTDOT,COLORRED;
弱市線:20,POINTDOT,COLORWHITE;
分水嶺:50,POINTDOT,COLORGREEN;
N1:=3;
N2:=5;
N3:=8;
N4:=13;
RSV:=-(HHV(HIGH,N4)-CLOSE)/(HHV(HIGH,N4)-LLV(LOW,N4))*100;
LWR1:=SMA(RSV,N1,1);
LWR2:=SMA(LWR1,N1,1);
B1:=LWR1>LWR2;
S1:=LWR1<LWR2;
RSV1:=(CLOSE-LLV(LOW,N3))/(HHV(HIGH,N3)-LLV(LOW,N3))*100;
K:=SMA(RSV1,N1,1);
D:=SMA(K,N1,1);
B2:=K>D;
S2:=K<D;
LCC:=REF(CLOSE,1);
RSIC1:=(SMA(MAX(CLOSE-LCC,0),N2,1))/(SMA(ABS(CLOSE-LCC),N2,1))*100;
RSIC2:=(SMA(MAX(CLOSE-LCC,0),N4,1))/(SMA(ABS(CLOSE-LCC),N4,1))*100;
B3:=RSIC1>RSIC2;
S3:=RSIC1<RSIC2;
DIFF:=EMA(CLOSE,N3)-EMA(CLOSE,N4);
DEA:=EMA(DIFF,N2);
B4:=DIFF>DEA;
S4:=DIFF<DEA;
BBI:=(MA(CLOSE,N1)+MA(CLOSE,N2)+MA(CLOSE,N3)+MA(CLOSE,N4))/4;
B5:=CLOSE>BBI;
S5:=CLOSE<BBI;
MTM:=CLOSE-REF(CLOSE,1);
MMS:=100*EMA(EMA(MTM,N2),N1)/EMA(EMA(ABS(MTM),N2),N1);
MMM:=100*EMA(EMA(MTM,N4),N3)/EMA(EMA(ABS(MTM),N4),N3);
B6:=MMS>MMM;
S6:=MMS<MMM;
WJ:=(H+L+C)/3;
V1:=IF(H=L,1,H-MAX(O,C));
V2:=IF(H=L,1,MAX(C,O)-WJ);
V3:=IF(H=L,1,MIN(O,C)-L);
V4:=IF(H=L,1,WJ-MIN(C,O));
V5:=VOL/IF(H=L,4,H-L);
V6:=(V1*V5);
V7:=(V2*V5);
VB8:=(V3*V5);
VB9:=(V4*V5);
買盤:=(VB9+VB8);
賣盤:=(V6+V7);
買賣差:=買盤-賣盤;
DDX:=買賣差;
DX:=MA(買賣差,5)*20;
DDX1:=SMA(DX,3,1);
DDX2:=SMA(DDX1,3,1);
DDX3:=(5*DDX2+4*REF(DDX2,1)+3*REF(DDX2,2)+2*REF(DDX2,3)+REF(DDX2,4))/15;
B7:=DDX1>DDX2;
S7:=DDX1<DDX2;
量:=V;?
換手:=V/CAPITAL*100;
VAR1:=VOL/((HIGH-LOW)*2-ABS(CLOSE-OPEN));
買盤1:=IF(CLOSE>OPEN,VAR1*(HIGH-LOW),IF(CLOSE<OPEN,VAR1*((HIGH-OPEN)+(CLOSE-LOW)),VOL/2));
賣盤1:=IF(CLOSE>OPEN,0-VAR1*((HIGH-CLOSE)+(OPEN-LOW)),IF(CLOSE<OPEN,0-VAR1*(HIGH-LOW),0-VOL/2));
DLX:=(買盤1-(賣盤1))/量*換手;
DLX1:=SUM(DLX,6);
DLX2:=MA(DLX1,5);
B8:=DLX1>DLX2;
S8:=DLX1<DLX2;
X1:=B1 AND B2 AND B3 AND B4 AND B5 AND B6 AND B7 AND B8;
X2:=S1 AND S2 AND S3 AND S4 AND S5 AND S6 AND S7 AND S8;
IF(X1 ,50,DRAWNULL),COLORRED ,LINETHICK5,POINTDOT;?
IF(X2 ,50,DRAWNULL),COLORGREEN? ,LINETHICK5,POINTDOT;
XIAO1:=(REF((LOW+OPEN+CLOSE+HIGH)/4,1));
XIAO2:=(SMA(ABS(LOW-XIAO1),13,1)/SMA(MAX(LOW-XIAO1,0),10,1));
XIAO3:=(EMA(XIAO2,10));
XIAO4:=(LLV(LOW,33));
XIAO5:=(EMA(IF(LOW<=XIAO4,XIAO3,0),3));
STICKLINE(XIAO5>REF(XIAO5,1),0,XIAO5,3,0 ),COLOR000055;
STICKLINE(XIAO5>REF(XIAO5,1),0,XIAO5,2.6,0 ),COLOR000077;
STICKLINE(XIAO5>REF(XIAO5,1),0,XIAO5,2.1,0 ),COLOR000099;
STICKLINE(XIAO5>REF(XIAO5,1),0,XIAO5,1.5,0 ),COLOR0000BB;
STICKLINE(XIAO5>REF(XIAO5,1),0,XIAO5,0.9,0 ),COLOR0000DD;
STICKLINE(XIAO5>REF(XIAO5,1),0,XIAO5,0.3,0 ),COLOR0000FF;
STICKLINE(XIAO5<REF(XIAO5,1),0,XIAO5,3,0),COLORYELLOW;
STICKLINE(XIAO5<REF(XIAO5,1),0,XIAO5,2.6,0),COLORYELLOW;
STICKLINE(XIAO5<REF(XIAO5,1),0,XIAO5,2.1,0),COLORYELLOW;
STICKLINE(XIAO5<REF(XIAO5,1),0,XIAO5,1.5,0),COLOR00BB00;
STICKLINE(XIAO5<REF(XIAO5,1),0,XIAO5,0.9,0),COLORYELLOW;
STICKLINE(XIAO5<REF(XIAO5,1),0,XIAO5,0.3,0),COLORYELLOW;
【私募進場】:IF(XIAO5>REF(XIAO5,1),XIAO5,0),COLORYELLOW,NODRAW;
【私募洗盤】:IF(XIAO5<REF(XIAO5,1),XIAO5,0),COLORWHITE,NODRAW;
來源 程序化久久網
打印本文
關閉窗口