等级: 免费版
- 注册:
- 2022-5-31
- 曾用名:
|
SS:=SETTLE;
SS1:=REF(SS,1);
DRAWNUMBER(ISLASTBAR,SS,SS,0,COLORYELLOW);
DRAWCOLORLINE(SS>=SS1,SS,COLORRED,COLORBLUE);
XG:HHV(H,480),DOT,COLORCYAN;
H1:=MAX(GETPRICE('YCLOSE'),GETPRICE('HIGH'));
L1:=MIN(GETPRICE('YCLOSE'),GETPRICE('LOW'));
AMOUNT:= AVPRICE*V;
P1:=H1-L1;
阻力:L1+P1*8/9,DOT,COLORLIGHTRED;
支撑:L1+P1*0.5/9,DOT,COLORGREEN;
均线:IF(BETWEEN(C/(SUM(AMOUNT,0)/SUM(VOL*100,0)),1.05,0.95)=0,MA(C,0),(SUM(AMOUNT,0)/SUM(VOL*100,0))),COLORYELLOW,DOT;
DIF:=(EMA(CLOSE,12)-EMA(CLOSE,26))+GETPRICE('YCLOSE');
DEA:=EMA(DIF,9);
MACD1:=10*(DIF-DEA);
MACD2:=EMA(MACD1,2);
STICKLINE(MACD1>=MACD2 AND MACD1>=0,GETPRICE('YCLOSE'),MACD1+GETPRICE('YCLOSE'),0,-1),COLORLIGHTGREY;
STICKLINE(MACD1<MACD2 AND MACD1>0,GETPRICE('YCLOSE'),MACD1+GETPRICE('YCLOSE'),0,-1),COLORLIGHTGREY;
STICKLINE(MACD1>=MACD2 AND MACD1<0,GETPRICE('YCLOSE'),MACD1+GETPRICE('YCLOSE'),0,-1),COLORLIGHTGREY;
STICKLINE(MACD1<MACD2 AND MACD1<0,GETPRICE('YCLOSE'),MACD1+GETPRICE('YCLOSE'),0,-1),COLORLIGHTGREEN;
XX:=SUM(AMOUNT,BARSCOUNT(CLOSE))/SUM(V*100,BARSCOUNT(CLOSE));
主力:=EMA(CLOSE/XX,20);
大户:=EMA(CLOSE/XX,60);
散户:=EMA(CLOSE/XX,120);
底:=1;
1.022,NODRAW;
高:=1.033;
DRAWTEXT(CROSS(主力,1.02),C*0.999,' 拉'),COLORMAGENTA;
DRAWICON(CROSS(主力,1.04),C,45);
DRAWTEXT(CROSS(主力,1.04),C*0.999,' 冲'),COLORRED;
A1:=(VOL/CLOSE)/3;
A2:=SUM((IF(((A1>40) AND (CLOSE>(REF(CLOSE,1)))),A1,0)),0);
A3:=SUM((IF(((A1>40) AND (CLOSE<(REF(CLOSE,1)))),A1,0)),0);
A4:=SUM((IF(((A1<40) AND (CLOSE>(REF(CLOSE,1)))),A1,0)),0);
A5:=SUM((IF(((A1<40) AND (CLOSE<(REF(CLOSE,1)))),A1,0)),0);
A6:=((A2+A3)+A4)+A5;
A7:=IF((BARSTATUS=2),((100*A2)/A6),0);
A8:=((IF((BARSTATUS=2),((100*A3)/A6),0)));
A9:=((IF((BARSTATUS=2),((100*A4)/A6),0)));
A10:=((IF((BARSTATUS=2),((100*A5)/A6),0)));
DRAWTEXT(LONGCROSS(支撑,C,2),C-0.01,' 买入'),COLOR0000FF;
DRAWICON(LONGCROSS(支撑,C,2),C-0.01,1);
STICKLINE(LONGCROSS(支撑,C,2),C,阻力,0,-1),COLORCYAN;
DRAWTEXT(LONGCROSS(C,阻力,2),C+0.01,' 卖出'),COLORGREEN;
DRAWICON(LONGCROSS(C,阻力,2),C+0.01,45);
STICKLINE(LONGCROSS(C,阻力,2),C,支撑,0,-1),COLORRED;
LONGCROSS(支撑,C,2),SOUND('A');
LONGCROSS(C,阻力,2),SOUND('B');
量价:=(VOL/CLOSE)/3;
B2:=SUM((IF(((量价>0.20) AND (CLOSE>(REF(CLOSE,1)))),量价,0)),0);
B3:=SUM((IF(((量价>0.20) AND (CLOSE<(REF(CLOSE,1)))),量价,0)),0);
B6:=B2+B3;
DD1:=1;
比:=B2/B3;
D1:=YEAR AND MONTH AND DAY;
WA1:=V*C/100;
WA2:=SUM((IF(((WA1/8>20) AND (CLOSE>(REF(CLOSE,1)))),WA1,0)),0);
WA3:=SUM((IF(((WA1/8>20) AND (CLOSE<(REF(CLOSE,1)))),WA1,0)),0);
WA4:=SUM((IF(((WA1/8<20) AND (CLOSE>(REF(CLOSE,1)))),WA1,0)),0);
WA5:=SUM((IF(((WA1/8<20) AND (CLOSE<(REF(CLOSE,1)))),WA1,0)),0);
WA6:=((A2+A3)+A4)+A5;
WA7:=IF((ISLASTBAR),((100*WA2)/WA6),0);
WA8:=IF((ISLASTBAR),((100*WA3)/WA6),0);
WA9:=IF((ISLASTBAR),((100*WA4)/WA6),0);
WA10:=IF((ISLASTBAR),((100*WA5)/WA6),0);
|
|