咨詢內容：

請老師改一下

LC := REF(CLOSE,1);
BACKGROUNDSTYLE(1);
RSI1:SMA(MAX(CLOSE-LC,0),9,1)/SMA(ABS(CLOSE-LC),9,1)*100;
RSI2:SMA(MAX(CLOSE-LC,0),80,1)/SMA(ABS(CLOSE-LC),80,1)*100;

?EMA13:=EMA(C,13),COLORWHITE;?
EMA21:=EMA(C,21),COLORYELLOW;?
EMA34:=EMA(C,34),COLORFF00FF;?
EMA60:=MA(C,60),COLORFFCC66;?
VAR2:=(2*CLOSE+HIGH+LOW)/4;?
VAR3:=1;?
VAR4:=LLV(LOW,5);?
VAR5:=HHV(HIGH,4);?
散戶:=EMA((VAR2-VAR4)/(VAR5-VAR4)*100,4)*VAR3;?
莊家:=EMA(0.667*REF(散戶,1)+0.333*散戶,2)*VAR3;?
DRAWTEXT(CROSS(散戶,莊家) AND 散戶<30,L-0.05,'買'),COLORRED;?
DRAWTEXT(CROSS(莊家,散戶) AND 散戶>70,H+0.05,'賣'),COLORGREEN;?
DRAWTEXT(CROSS(散戶,莊家) AND 散戶<30,L,'多'),VALIGN0;?
DRAWTEXT(CROSS(莊家,散戶) AND 散戶>70,H,'空'),VALIGN2;?
VAR9:=CLOSE-REF(CLOSE,5);?
VARA:=EMA(EMA(VAR9,5),5)/EMA(EMA(ABS(VAR9),5),5);?
VARC:=EMA(EMA(VAR9,20),20)/EMA(EMA(ABS(VAR9),20),20);?
賣出:=IF(VARA>0 AND CROSS(VARC,VARA),90,100);?
DRAWICON(賣出<0,H+0.05,2);?
買線:=EMA(CLOSE,2);?
賣線:=EMA(SLOPE(CLOSE,21)*20+CLOSE,42);?
B1:IF(CROSS(買線,賣線),L-0.02,NULL),CROSSDOT,LINETHICK3,COLORMAGENTA;?
S1:IF(CROSS(80,RSI1)*30,H+0.02,NULL),CROSSDOT,LINETHICK3,COLORYELLOW;?
VC:=((CLOSE-MA(CLOSE,6))/MA(CLOSE,6)*100+(CLOSE-MA(CLOSE,24))/MA(CLOSE,24)*100+(CLOSE-MA (CLOSE,32))/MA(CLOSE,32)*100)/3;
S2:=IF(VC>20 AND FILTER(VC< REF(VC,1),5),H+0.02,NULL),CIRCLEDOT,LINETHICK3,COLORGREEN;?
A0:=(L+H+C*2)/4;
A1:EMA(A0,14),COLORBLUE,LINETHICK2;
A2:=EMA(A0,25),COLORBLUE,LINETHICK2;
A1X:=(A1-REF(A1,1))/REF(A1,1)*100,NODRAW;
A2X:=(A2-REF(A2,1))/REF(A2,1)*100,NODRAW;
看多:IF(A1X>=0 AND BARSLAST(CROSS(A1X,0))>0,REF((C+O)/2,BARSLAST(CROSS(A1X,0))),NULL),COLORMAGENTA,LINETHICK2;
逃頂:IF(A1X<0 AND BARSLAST(CROSS(0,A1X))>0,REF((C+O)/2,BARSLAST(CROSS(0,A1X))),NULL),COLORCYAN,LINETHICK2;
買入持股:IF(A1X>=0,A1,NULL),COLORRED,LINETHICK3;
賣出空倉:IF(A1X<0 AND A2X<0,A1,NULL),COLORGREEN,LINETHICK3;
STICKLINE(CROSS(A1X,0),H,L,0,0 ),COLOR9933FF;
STICKLINE(CROSS(A1X,0),C,O,3,0 ),COLOR0000CC;?
STICKLINE(CROSS(A1X,0),C,O,1,0 ),COLOR0033FF;?
STICKLINE(CROSS(0,A1X),L,H,0,0 ),COLOR66CC33;

?

?來源:程序化99網（ www.weiqiv.net.cn ）

博易技術人員： LC := REF(CLOSE,1);

RSI1:=SMA(MAX(CLOSE-LC,0),9,1)/SMA(ABS(CLOSE-LC),9,1)*100;
RSI2:=SMA(MAX(CLOSE-LC,0),80,1)/SMA(ABS(CLOSE-LC),80,1)*100;

?EMA13:=EMA(C,13),COLORWHITE;?
EMA21:=EMA(C,21),COLORYELLOW;?
EMA34:=EMA(C,34),COLORFF00FF;?
EMA60:=MA(C,60),COLORFFCC66;?
VAR2:=(2*CLOSE+HIGH+LOW)/4;?
VAR3:=1;?
VAR4:=LLV(LOW,5);?
VAR5:=HHV(HIGH,4);?
散戶:=EMA((VAR2-VAR4)/(VAR5-VAR4)*100,4)*VAR3;?
莊家:=EMA(0.667*REF(散戶,1)+0.333*散戶,2)*VAR3;?
DRAWTEXT(CROSS(散戶,莊家) AND 散戶<30,L-0.05,'買'),COLORRED;?
DRAWTEXT(CROSS(莊家,散戶) AND 散戶>70,H+0.05,'賣'),COLORGREEN;?
DRAWTEXT(CROSS(散戶,莊家) AND 散戶<30,L,'多'),VALIGN0;?
DRAWTEXT(CROSS(莊家,散戶) AND 散戶>70,H,'空'),VALIGN2;?
VAR9:=CLOSE-REF(CLOSE,5);?
VARA:=EMA(EMA(VAR9,5),5)/EMA(EMA(ABS(VAR9),5),5);?
VARC:=EMA(EMA(VAR9,20),20)/EMA(EMA(ABS(VAR9),20),20);?
賣出:=IF(VARA>0 AND CROSS(VARC,VARA),90,100);?
DRAWICON(賣出<0,H+0.05,2);?
買線:=EMA(CLOSE,2);?
賣線:=EMA(SLOPE(CLOSE,21)*20+CLOSE,42);?
B1:IF(CROSS(買線,賣線),L-0.02,DRAWNULL),CROSSDOT,LINETHICK3,COLORMAGENTA;?
S1:IF(CROSS(80,RSI1)*30,H+0.02,DRAWNULL),CROSSDOT,LINETHICK3,COLORYELLOW;?
VC:=((CLOSE-MA(CLOSE,6))/MA(CLOSE,6)*100+(CLOSE-MA(CLOSE,24))/MA(CLOSE,24)*100+(CLOSE-MA (CLOSE,32))/MA(CLOSE,32)*100)/3;
S2:=IF(VC>20 AND FILTER(VC< REF(VC,1),5),H+0.02,DRAWNULL),CIRCLEDOT,LINETHICK3,COLORGREEN;?
A0:=(L+H+C*2)/4;
A1:EMA(A0,14),COLORBLUE,LINETHICK2;
A2:=EMA(A0,25),COLORBLUE,LINETHICK2;
A1X:=(A1-REF(A1,1))/REF(A1,1)*100,NODRAW;
A2X:=(A2-REF(A2,1))/REF(A2,1)*100,NODRAW;
看多:IF(A1X>=0 AND BARSLAST(CROSS(A1X,0))>0,REF((C+O)/2,BARSLAST(CROSS(A1X,0))),DRAWNULL),COLORMAGENTA,LINETHICK2;
逃頂:IF(A1X<0 AND BARSLAST(CROSS(0,A1X))>0,REF((C+O)/2,BARSLAST(CROSS(0,A1X))),DRAWNULL),COLORCYAN,LINETHICK2;
買入持股:IF(A1X>=0,A1,DRAWNULL),COLORRED,LINETHICK3;
賣出空倉:IF(A1X<0 AND A2X<0,A1,DRAWNULL),COLORGREEN,LINETHICK3;
STICKLINE(CROSS(A1X,0),H,L,0,0 ),COLOR9933FF;
STICKLINE(CROSS(A1X,0),C,O,3,0 ),COLOR0000CC;?
STICKLINE(CROSS(A1X,0),C,O,1,0 ),COLOR0033FF;?
STICKLINE(CROSS(0,A1X),L,H,0,0 ),COLOR66CC33; 來源 程序化久久網