一图走天下综合版 DRAWGBK(1,COLORRGB(0,0,20),COLORRGB(0,60,50),1);
DRAWTEXTEX(CLOSE,1,0,22,STKLABEL+' '+STKNAME+''),colorDDFF;
BB:=BARPOS=SYSPARAM(1);
VARIABLE:WDAY[7]='星期六';
WDAY[1]:='星期日';
WDAY[2]:='星期一';
WDAY[3]:='星期二';
WDAY[4]:='星期三';
WDAY[5]:='星期四';
WDAY[6]:='星期五';
FY:=YEAR;
FM:=MONTH;
FD:=DAY;
WD:=WEEKDAY;
P:=SYSPARAM(1);
STR1:=''+'今日： '+NUMTOSTR(FY[P],0)+'年'+NUMTOSTR(FM[P],0)+'月'+NUMTOSTR(FD[P],0)+'日 '+WDAY[WD[P]+1];
DRAWTEXTEX(CLOSE,1,460,22,STR1),colorDDFF;
月向线:=98;
月量线:=100;
50,LINEDOT;
CS:=IF(CAPITAL<1,516,469);
A:=EMA(CLOSE,198)-EMA(CLOSE,CS);
B:=EMA(A,112);
月线下水:=A<0;
月转红:=A>=REF(A,1);
A11:EMA(CLOSE,55)-EMA(CLOSE,119),colorFF0000;
B1:=EMA(A11,36);
周线下水:=A11<0;
周红:=A11>=REF(A11,1);
周转红:=A11>=REF(A11,1) AND REF(A11>=REF(A11,1),1)=0;
DIFF:=EMA(CLOSE,12)-EMA(CLOSE,26);
DEA:=EMA(DIFF,9);
MACD1:=2*(DIFF-DEA);
日转红:=MACD1>=0 AND REF(MACD1,1)<0;
PARTLINE(月转红,月向线),LINETHICK3,colorFFFFFF;
PARTLINE(周红,月量线),LINETHICK3,colorFF;
PARTLINE(月转红=0,月向线),LINEDOT,LINETHICK1,colorFF00;
PARTLINE(月线下水 AND 月转红=0,月向线),LINETHICK2,colorFF00;
PARTLINE(周红=0,月量线),LINEDOT,LINETHICK1,colorFF00;
PARTLINE(周线下水 AND 周红=0,月量线),LINETHICK2,colorFF00;
CS1:=100;
CS2:=HHV(ABS(MACD1),CS1);
CS3:=ABS(100/CS2);
MACD:(MACD1*CS3+100)/2,LINETHICK1,color74FFFF;
CS:=MACD;
日红:=CS>=REF(CS,1);
日转红:=日红 AND REF(日红,1)=0;
PARTLINE(日红,CS),LINETHICK3,colorFFFF;
A:=MA(VOL,5);
V1:=IF(CAPITAL<1,MA(A,74),A);
V2:=IF(CAPITAL<1,WMA(V1,360),WMA(V1,14));
V3:=(A-LLV(A,14))/(HHV(A,14)-LLV(A,14))*100;
V4:=(CLOSE-LLV(LOW,27))/(HHV(HIGH,27)-LLV(LOW,27))*100;
V7:=SMA(V4,3,1);
V8:=SMA(V7,3,1);
V5:=CROSS(V3,1) AND V1<V2 AND V8<20;
V6:=CROSS(98,V3) AND V1>V2 AND V7>80;
W1:=CROSS(V7,V8) AND V8<20;
MACDMR:=W1 AND 周红;
DRAWICON(MACDMR,月量线,4),colorFF;
月WW1:=SMA((CLOSE-LLV(CLOSE,350))/(HHV(HIGH,350)-LLV(LOW,350)),54,1);
月线:=SMA((月WW1-LLV(月WW1,20))/(HHV(月WW1,20)-LLV(月WW1,20)),54,1)*100;
月价:月线,LINETHICK0,colorFFFFFF;
月ZZ:=SMA((VOL-LLV(VOL,350))/(HHV(VOL,350)-LLV(VOL,350)),54,1);
月量:SMA((月ZZ-LLV(月ZZ,20))/(HHV(月ZZ,20)-LLV(月ZZ,20)),54,1)*100,LINETHICK0,colorFF;
NN:=IF(MA(CLOSE,60)>MA(CLOSE,120),6,3);
NN:=3;
WW1:=SMA((CLOSE-LLV(CLOSE,21))/(HHV(HIGH,21)-LLV(LOW,21)),NN,1);
WW2:=SMA((WW1-LLV(WW1,5))/(HHV(WW1,5)-LLV(WW1,5)),NN,1)*100;
ZZ:=SMA((VOL-LLV(VOL,21))/(HHV(VOL,21)-LLV(VOL,21)),NN,1);
ZZ1:=SMA((ZZ-LLV(ZZ,5))/(HHV(ZZ,5)-LLV(ZZ,5)),NN,1)*100;
快线:=EMA(WW2,1);
价快:=快线;
慢线:=EMA(快线,2);
价慢:慢线,LINETHICK0,colorFF00;
STICKLINE(EMA(慢线,2)>=REF(EMA(慢线,2),1),EMA(慢线,1),REF(EMA(慢线,1),1),5,0),LINETHICK1,colorFF;
STICKLINE(EMA(慢线,2)<REF(EMA(慢线,2),1),EMA(慢线,2),REF(EMA(慢线,2),1),5,0),colorFF00;
量快:EMA(ZZ1,1),LINEDOT,LINETHICK1,colorFFFFFF;
量慢:=EMA(量快,2);
PARTLINE(快线>=REF(快线,1),快线),LINETHICK1,colorFF;
PARTLINE(快线<REF(快线,1),快线),LINETHICK1,colorFF00;
PARTLINE(月线>=REF(月线,1),月线),LINEDOT,LINETHICK3,colorFFFFFF;
PARTLINE(月线<REF(月线,1),月线),LINETHICK2,color808080;
PARTLINE(月量>=REF(月量,1),月量),LINEDOT,LINETHICK1,color7400FF;
PARTLINE(月量<REF(月量,1),月量),LINEDOT,LINETHICK1,color808080;
周WW1:=SMA((CLOSE-LLV(CLOSE,110))/(HHV(HIGH,110)-LLV(LOW,110)),16,1);
周线:=SMA((周WW1-LLV(周WW1,10))/(HHV(周WW1,10)-LLV(周WW1,10)),16,1)*100;
周价:周线,LINETHICK0,colorFF00FF;
周ZZ:=SMA((VOL-LLV(VOL,110))/(HHV(VOL,110)-LLV(VOL,110)),16,1);
周量:SMA((周ZZ-LLV(周ZZ,10))/(HHV(周ZZ,10)-LLV(周ZZ,10)),16,1)*100,LINETHICK0,colorFFFF;
快线2:=EMA(周线,1);
慢线2:=EMA(快线2,2);
量快2:=EMA(周量,1);
量慢2:=EMA(量快2,2);
DRAWICON(CROSS(快线2,慢线2),慢线2,10);
DRAWICON(CROSS(慢线2,快线2),快线2,11);
DRAWICON(CROSS(量快2,量慢2),量慢2,10);
DRAWICON(CROSS(量慢2,量快2),量快2,11);
PARTLINE(周线>=REF(周线,1),周线),LINETHICK2,colorFF00FF;
PARTLINE(周线>=REF(周线,1) AND 月线>=REF(月线,1),周线),LINETHICK3,colorFF;
PARTLINE(周线<REF(周线,1),周线),LINETHICK2,colorFF00;
PARTLINE(周量>=REF(周量,1),周量),LINEDOT,LINETHICK1,colorFFFF;
PARTLINE(周量<REF(周量,1),周量),LINEDOT,LINETHICK1,colorFF00;
DRAWTEXT(FILTER(快线>=95 AND 慢线>=95 AND 周线>=90 OR 周量>=90,5),90,'周减'),PXUP4,colorFFFFFF;
DRAWTEXT(FILTER(快线>=95,5),95,'日减'),PXUP4,colorFFFFFF;
DRAWTEXT(周线>=REF(周线,1) AND CROSS(快线,慢线) AND 周线<50 AND 快线<50,快线+快线*0.1,'←价买'),colorFFFF;
DRAWTEXT(周量>=REF(周量,1) AND CROSS(快线,慢线) AND 周线<50 AND 快线<60,快线,'←量买'),colorFFFF;
DRAWICON(CROSS(价快,量快) AND 量快>60 AND 量快<REF(量快,1) OR CROSS(量快,价快) AND 量快>60 AND 价快<REF(价快,1),量快,11);
显示位置:=-6;
RSI6:(SMA(MAX(CLOSE-REF(CLOSE,1),0),6,1))/(SMA(ABS(CLOSE-REF(CLOSE,1)),6,1))*100,LINEDOT,LINETHICK1,color6FFF;
DRAWICON(CROSS(RSI6,价快),RSI6,4),colorFF;
DRAWICON(CROSS(价快,RSI6),RSI6,5),colorFF00;
DRAWICON(CROSS(RSI6,周价),RSI6,4),colorFF;
LC:=REF(CLOSE,1);
月RS:=(SMA(MAX(CLOSE-LC,0),100,1))/(SMA(ABS(CLOSE-LC),100,1))*100;
月SI:=(SMA(MAX(CLOSE-LC,0),320,1))/(SMA(ABS(CLOSE-LC),320,1))*100;
PARTLINE(月RS>月SI,显示位置+2),LINETHICK4,colorFFFFFF;
PARTLINE(月RS<月SI,显示位置+2),LINEDOT,LINETHICK1,colorFF00;
周RS:=EMA((SMA(MAX(CLOSE-LC,0),25,1))/(SMA(ABS(CLOSE-LC),25,1))*100,2);
周SI:=EMA((SMA(MAX(CLOSE-LC,0),80,1))/(SMA(ABS(CLOSE-LC),80,1))*100,21);
PARTLINE(周RS>周SI,显示位置+4),LINETHICK4,colorFF;
PARTLINE(周RS<周SI,显示位置+4),LINEDOT,LINETHICK1,colorFF00;
有量:=130-15*(SMA(SMA(VOL,4,3)/SMA(VOL,24,4)+SMA(VOL,5,4)/SMA(VOL,36,4)*1.052,18,9));
STICKLINE(有量<=100,100-有量,0,2,0),color78FF;
攻击量:IF(有量<=100,100-有量,0),LINETHICK0,color78FF;
量买:周量>=REF(周量,1) AND CROSS(快线,慢线) AND 周线<50 AND 快线<60,LINETHICK0;
价买:周线>=REF(周线,1) AND CROSS(快线,慢线) AND 周线<50 AND 快线<50,LINETHICK0;
ST:=STRFIND(STKNAME,'ST',1)>0;
S:=STRFIND(STKNAME,'S',1)>0;
停牌:=DYNAINFO(4)=0;
非ST:=NOT(ST) AND NOT(停牌) AND NOT(S) AND REF(CLOSE,100)>0;
红点选股:CROSS(快线2,慢线2) AND CROSS(量快2,量慢2) AND 非ST,LINETHICK0;
持仓区选股:月RS>月SI OR 周RS>周SI AND 非ST,LINETHICK0;
超级选股:红点选股 AND 持仓区选股 AND 非ST,LINETHICK0;
参考选股1:非ST AND 快线2>慢线2 AND 量快2>量慢2 AND 持仓区选股 AND (REF(快线2,1)<REF(慢线2,1) OR REF(量快2,1)<REF(量慢2,1)),LINETHICK0;
A:=ABS(快线-量快);
参考选股2:非ST AND 持仓区选股 AND CROSS(快线, |
