{水平白色分隔横线}
STICKLINE(C,0.5,36.5,4,1),COLORWHITE;
STICKLINE(C,0.5,32.5,4,1),COLORWHITE;
STICKLINE(C,0.5,28.5,4,1),COLORWHITE;
STICKLINE(C,0.5,24.5,4,1),COLORWHITE;
STICKLINE(C,0.5,20.5,4,1),COLORWHITE;
STICKLINE(C,0.5,16.5,4,1),COLORWHITE;
STICKLINE(C,0.5,8.5,4,1),COLORWHITE;
STICKLINE(C,0.5,4.5,4,1),COLORWHITE;
{盘口基础数据}
TOTALCAP:=FINANCE(39)/100000000,NODRAW;
TRADEAMT:=AMOUNT/10000,NODRAW;
BUYACT:=LARGEINTRDvol*10000/FINANCE(7)*10000,NODRAW,COLORRED;
SELLACT:=LARGEOUTTRDVOL*10000/FINANCE(7)*10000,NODRAW,COLORWHITE;
NETFLOW:=BUYACT-SELLACT,NODRAW;
FLOwrATIO:=BUYACT/SELLACT,NODRAW;
AUCTIONHAND:=DYNAINFO(15)/DYNAINFO(4)/100;
AUcrATIO:=(AUCTIONHAND/FINANCE(46))*1000000,NODRAW;
MAINNET:=DYNAINFO(100)/10000,NODRAW;
{周kdj均线}
WEEKkdJ:=MA("KDJ.J#WEEK"(9,3,3),5);
{趋势基础指标}
DIFF3_144:=EMA(C,3)-EMA(C,144);
DIFFAVG55:=EMA(DIFF3_144,55);
MIDCALC:=(C*2+H+L)/4*10;
SHORTWAVE:=EMA(MIDCALC,13)-EMA(MIDCALC,34);
DIFFDOUBLE:=2*(DIFF3_144-DIFFAVG55);
DEV34:=(C-MA(C,34))/MA(C,34)*100;
{短均线组合}
AVGGROUPA:=(MA(C,1)+MA(C,3)+MA(C,5)+MA(C,7)+MA(C,9))/5;
AVGGROUPB:=(MA(C,2)+MA(C,4)+MA(C,6)+MA(C,8)+MA(C,10))/5;
WAVESHORT:=MAX(EMA(AVGGROUPA,2)-EMA(AVGGROUPB,5),0)*200;
WAVESMOOTH:=EMA(WAVESHORT,5)*10;
{资金轨道计算}
TRACKBASE:=DMA((H+L+C*2)/4,0.9);
TRACKREF:=REF(EMA(TRACKBASE,3),1);
TRACKRATIO:=VOL/((H-L)*2-Abs(C-O));
{短期动能洋红柱}
STICKLINE(DIFFDOUBLE>=REF(DIFFDOUBLE,1),9.5,11.5,2.5,0),COLORFF80FF;
WAVESHORTVAL:=WAVESHORT,NODRAW;
DRAWTEXT(WAVESHORT>0 AND WAVESHORT>REF(WAVESHORT,1),12,VAR2STR(WAVESHORTVAL,0)),COLORWHITE,DRAWABOVE;
WAVESMOOTHVAL:=WAVESMOOTH,NODRAW;
{平滑动能红柱}
STICKLINE(WAVESMOOTH>REF(WAVESMOOTH,1),9,12,3.5,0),COLORRED;
DRAWTEXT(WAVESMOOTH>=REF(WAVESMOOTH,1),9,VAR2STR(WAVESMOOTHVAL,0)),COLORWHITE,DRAWABOVE;
{年份限制开关}
TIMESWITCH:=IF(YEAR>=2005 AND MONTH>=11 AND DAY>=1,0,1);
GROUPA:=AVGGROUPA;
GROUPB:=AVGGROUPB;
WAVELONG:=MAX(EMA(GROUPA,2)-EMA(GROUPB,5),0)*300;
WAVELONGSMOOTH:=EMA(WAVELONG,5);
SMOOTHTWO:=EMA(WAVELONGSMOOTH,2);
LONGWAVEBAR:=WAVELONGSMOOTH*TIMESWITCH,COLORFF00FF;
LONGWAVEBAR2:=WAVELONGSMOOTH*TIMESWITCH,COLORFF00FF;
{超强波段紫/红柱}
STICKLINE(WAVELONGSMOOTH>REF(WAVELONGSMOOTH,1) AND TIMESWITCH,22,23,3.5,0),COLORFF80FF;
LONGWAVEVAL:=LONGWAVEBAR,NODRAW;
STICKLINE(WAVELONGSMOOTH>REF(WAVELONGSMOOTH,1) AND TIMESWITCH,21,24,3.5,0),COLORFF0080;
DRAWTEXT(WAVELONGSMOOTH>REF(WAVELONGSMOOTH,1) AND TIMESWITCH,21,VAR2STR(LONGWAVEVAL,0)),COLORWHITE,DRAWABOVE;
{5周期rsi}
PRECLOSE:=REF(C,1);
RSI5:=SMA(MAX(C-PRECLOSE,0),5,1)/SMA(ABS(C-PRECLOSE),5,1)*100;
MA5MAX:=MAX(MA(C,5),MA(C,10));
MA5MIN:=MIN(MA(C,5),MA(C,10));
RSIOVERSELL:=CROSS(80,RSI5);
DRAWICON(RSIOVERSELL AND TIMESWITCH,23,2);
{周周期共振条件}
WEEKK:=("KDJ.K#WEEK")>("KDJ.D#WEEK");
WEEKRSI:=("RSI.RSI1#WEEK")>("RSI.RSI2#WEEK");
WEEKmacd:=("MACD.DIF#WEEK")>("MACD.DEA#WEEK");
STICKLINE(WEEKK AND WEEKRSI AND WEEKMACD,1,4,0,0),COLORFF00FF;
STICKLINE(WEEKK AND WEEKRSI AND WEEKMACD,1,4,3,0),COLORFF00FF;
WEEKRESONANCE:=WEEKRSI AND WEEKMACD;
WEEKNEWSIG:=WEEKRESONANCE AND REF(NOT(WEEKRESONANCE),1);
DRAWICON(WEEKNEWSIG,1,11);
STICKLINE(WEEKNEWSIG,1,4,1,0),COLORFF0080;
WEEKFULLSIG:=WEEKK AND WEEKRSI AND WEEKMACD;
WEEKFULLNEW:=WEEKFULLSIG AND REF(NOT(WEEKFULLSIG),1);
STICKLINE(WEEKFULLNEW,1,4,3,0),COLORFF0000;
DRAWICON(WEEKFULLNEW,4,25);
WEEKFULLEND:=NOT(WEEKFULLSIG) AND REF(WEEKFULLSIG,1);
STICKLINE(WEEKFULLEND,1,4,3,0),COLOR00FF00;
DRAWICON(WEEKFULLEND,4,27);
WEEKPARTSIG:=WEEKK AND WEEKRSI AND NOT(WEEKFULLSIG);
STICKLINE(WEEKPARTSIG,1,4,0,0),COLOR0000FF;
STICKLINE(WEEKPARTSIG,1,4,3,0),COLOR0000FF;
PARTNEWSIG:=WEEKPARTSIG AND REF(NOT(WEEKPARTSIG),1);
DRAWICON(PARTNEWSIG,4,9);
PARTSIGEND:=NOT(WEEKK AND WEEKRSI) AND REF(WEEKK AND WEEKRSI,1);
STICKLINE(PARTSIGEND,1,4,1,0),COLORFFFF00;
{月周期共振}
MONTHRSI:=("RSI.RSI1#MONTH")>("RSI.RSI2#MONTH");
MONTHMACD:=("MACD.DIF#MONTH")>("MACD.DEA#MONTH");
MONTHRESO:=MONTHRSI AND MONTHMACD;
MONTHNEW:=MONTHRESO AND REF(NOT(MONTHRESO),1);
STICKLINE(MONTHNEW,1,4,2,0),COLORFF0080;
{文字提示}
DRAWTEXT(PARTNEWSIG,1,'●建仓'),COLORYELLOW;
DRAWTEXT(MONTHNEW,1,'--中长'),COLORFF0080;
DRAWTEXT(WEEKFULLNEW,4,'●买点'),COLORRED;
DRAWTEXT(WEEKFULLEND,1,'●获利了结'),COLOR408000;
{主力强度信号}
PREMA9:=EMA(EMA(C,9),9);
KPACALC:=(PREMA9-REF(PREMA9,1))/REF(PREMA9,1)*8000;
CROSSZERO:=CROSS(KPACALC,0);
STICKLINE(KPACALC>REF(KPACALC,1) AND KPACALC>0,5,8,3.5,0),COLORRED;
WINRATE:=100*WINNER(C*0.95);
STICKLINE(WINRATE>50 AND COST(85)<C AND KPACALC>0,5,8,3,0),COLOR004080;
STICKLINE(WINRATE>50 AND COST(85)<C AND KPACALC>0,5,8,2,0),COLORFF0080;
JSPMARK:=IF(CROSSZERO,5,0),LINETHICK1,COLOR00FFFF,NODRAW;
STICKLINE(JSPMARK>0,6,6.5,1,0),COLOR00FFFF;
KPAVAL:=KPACALC,NODRAW;
DRAWTEXT(KPACALC>0,5,VAR2STR(KPAVAL,0)),COLORWHITE,DRAWABOVE;
{此处原DEV60重命名为DEV60_NEW，消除重复定义}
DEV60_NEW:=C/MA(C,60)-1;
STICKLINE(WAVESHORT>0 AND WAVESHORT>REF(WAVESHORT,1),12,16,3.5,0),COLORRED;
STICKLINE(DEV34>=REF(DEV34,1),12.5,15.5,2.5,0),COLORFF0080;
WAVEDIFF:=EMA(SHORTWAVE,5);
WAVEFINAL:=2*(SHORTWAVE-WAVEDIFF)*5.5;
LINEWAVE:=WAVEFINAL*5,COLORYELLOW,LINETHICK2,DOTLINE;
STICKLINE(WAVEFINAL>=REF(WAVEFINAL,1),29,32,3.5,0),COLORRED;
BUYWAVE:=WAVEFINAL>=REF(WAVEFINAL,1);
DRAWICON(BUYWAVE,32,42);
WAVEVAL:=WAVEFINAL,NODRAW;
DRAWTEXT(WAVEFINAL>=REF(WAVEFINAL,1),29,VAR2STR(WAVEVAL,0)),COLORBLACK,DRAWABOVE;
WEEKJAVG:=WEEKKDJ,COLORRED;
VOLCALC:=IF(C>O,TRACKRATIO*(H-L),IF(C<O,TRACKRATIO*((H-O)+(C-L)),VOL/2))+IF(C>O,0-TRACKRATIO*((H-C)+(O-L)),IF(C<O,0-TRACKRATIO*(H-L),0-VOL/2));
VOLRATIO:=VOL/CAPITAL;
Z7:=VOLCALC/20/1.15;
Z8:=Z7*0.55+REF(Z7,1)*0.33+REF(Z7,2)*0.22;
Z9:=EMA(Z8,8);
Z10:=EMA(Z8,3);
NETCAPFLOW:=(Z7*0.4-Z9*0.4)*C/60000;
TRADEBILL:=AMOUNT/100000000;
MARKETVAL:=C*CAPITAL/1000000,NODRAW;
RATIO1:=NETCAPFLOW*100/MARKETVAL;
RATIO2:=NETCAPFLOW*100/TRADEBILL;
COND1:=NETCAPFLOW>0.4 AND RATIO1>0.6 AND RATIO2>15 AND MARKETVAL<50;
COND2:=NETCAPFLOW>0.6 AND RATIO1>0.4 AND RATIO2>15 AND MARKETVAL>50;
COND3:=NETCAPFLOW>0.6 AND RATIO1>0.9 AND RATIO2>18 AND MARKETVAL<50;
COND4:=NETCAPFLOW>0.8 AND RATIO1>0.6 AND RATIO2>20 AND MARKETVAL>50;
SIGNALSTRONG:=(COND1 OR COND2)*5,COLORRED;
SIGNALEXTRA:=COND3 OR COND4;
STICKLINE(COND1 OR COND2,6,7,3,0),COLORMAGENTA;
DRAWTEXT(COND1 OR COND2 OR COND4,6,'资金进场'),COLORYELLOW;
{强弱区间}
BASE:=(C-REF(LLV(L,15),3))/(REF(HHV(H,15),3)-REF(LLV(L,15),3))*100;
SMOOTH:=SMA(BASE,3.1,1);
STICKLINE(C>MA5MAX,33,36,3,0),COLORRED,LINETHICK2;
STICKLINE(C>=MA5MIN AND C<=MA5MAX,33,36,3,0),COLORYELLOW,LINETHICK2;
MACDBASE:=EMA(C,12)-EMA(C,26);
MACDAVG:=EMA(MACDBASE,9);
MACdpoWER:=2000*(2*(MACDBASE-MACDAVG))/EMA(C,30);
POWERUP:=IF(MACDPOWER>=0,MACDPOWER,DRAWNULL),COLORRED,NODRAW;
STICKLINE(MACDPOWER>=0 AND MACDPOWER>REF(MACDPOWER,1),33.5,35.5,2,0),COLORFF0080;
OSCLINE:=SUM(EMA((C+L)/2,1)/3,3),COLOR00FFFF,LINETHICK2;
WHITESIG:=IF(WEEKJAVG>REF(WEEKJAVG,1) AND REF(WEEKJAVG,1)<REF(WEEKJAVG,2),1,DRAWNULL);
OSCMAX:=MAX(MA(OSCLINE,5),MA(OSCLINE,10));
OSCMIN:=MIN(MA(OSCLINE,5),MA(OSCLINE,10));
STICKLINE(C>OSCMAX,34,35,1,0),COLORRED,LINETHICK2;
STICKLINE(C>=OSCMIN AND C<=OSCMAX,34,35,1,0),COLORYELLOW,LINETHICK2;
PREMA9NEW:=EMA(EMA(C,9),9);
KKPCALC:=(PREMA9NEW-REF(PREMA9NEW,1))/REF(PREMA9NEW,1)*8000;
CROSSZERONEW:=CROSS(KKPCALC,0);
BASEPRICE:=(3*C+O+H+L)/6;
MA12LINE:=EMA(BASEPRICE,12);
MA36LINE:=EMA(BASEPRICE,36);
MA108LINE:=EMA(BASEPRICE,108);
MA250LINE:=EMA(BASEPRICE,250);
ZIGLINE:=ZIG(3,10);
ZIGSMOOTH:=MA(ZIGLINE,2);
SELLZIG:=CROSS(ZIGSMOOTH,ZIGLINE);
DRAWTEXT(SELLZIG,34,'●建议了结'),COLOR00FF00;
POWERINDEX:=(EMA(BASEPRICE,6)-REF(EMA(BASEPRICE,18),1))/REF(EMA(BASEPRICE,18),1)*100+55,NODRAW;
STICKLINE(POWERINDEX>=50 AND POWERINDEX>REF(POWERINDEX,1),17,20,3,0),COLOR0080FF;
STICKLINE(POWERINDEX>=60 AND POWERINDEX>REF(POWERINDEX,1),17.5,19.5,2.5,0),COLORRED;
STICKLINE(POWERINDEX>=80 AND POWERINDEX>REF(POWERINDEX,1),18,19,2,0),COLORMAGENTA;
WINRATeneW:=100*WINNER(C*0.95);
STICKLINE(WINRATENEW>50 AND COST(85)<C AND KKPCALC>0,17,20,2,0),COLORYELLOW;
STICKLINE(WINRATENEW>50 AND COST(85)<C AND KKPCALC>0,17,20,1.5,0),COLORFF0080;
POWERVAL:=POWERINDEX,NODRAW;
DRAWTEXT(POWERINDEX>REF(POWERINDEX,1) AND POWERINDEX>0,17,VAR2STR(POWERVAL,1)),COLORBLACK,DRAWABOVE;
HIGH3:=EMA(H,3)*1.03;
SHORTENTER:=CROSS(C,HIGH3) AND (C-REF(C,1))/REF(C,1)>0.04;
DRAWTEXT(SHORTENTER,18, '★短介入'),COLORYELLOW;
STICKLINE(WEEKJAVG>REF(WEEKJAVG,1),25,28,3,0),COLORRED;
STICKLINE(WHITESIG,26,27,2,0),COLORWHITE;
DRAWTEXT(CROSS(WEEKKDJ,5),26,'建仓'),COLORYELLOW;
SMOOTH2:=SMA(SMOOTH,3.1,1);
TSPOWER:=(SMOOTH*SMOOTH+SMOOTH2*SMOOTH2)/100,COLORYELLOW,LINETHICK2;
STICKLINE(TSPOWER>0 AND TSPOWER>REF(TSPOWER,1),26,27,1,0),COLORYELLOW;
VBR14:=MA((LLV(L,45)-C)/(HHV(H,45)-LLV(L,45))*100,3);
CLEARSIG:=CROSS(VBR14,-95) AND DEV60_NEW>=0.35;
DRAWTEXT(CLEARSIG,26,'★清仓'),COLORBLUE;
DRAWTEXT(CROSS(WEEKKDJ,50),26,'加仓'),COLORYELLOW;
{分区文字标注}
DRAWTEXT(ISLASTBAR=1,6,' 强资'),COLORLIMAGENTA;
DRAWTEXT(ISLASTBAR=1,13,' 短买'),COLORLIMAGENTA;
DRAWTEXT(ISLASTBAR=1,2.5,' 短中'),COLORLIMAGENTA;
DRAWTEXT(ISLASTBAR=1,22.5,' 超强'),COLORLIMAGENTA;
DRAWTEXT(ISLASTBAR=1,18.5,' KP能量'),COLORLIMAGENTA;
DRAWTEXT(ISLASTBAR=1,26.5,' 持股'),COLORLIMAGENTA;
