{A盘后须知}
DRAWGBKlast(c>0,strip(RGB(0,0,150),RGB(0,0,50),0));{1.KDJ}
RSV:=(CLOSE-LLV(LOW,9))/(HHV(HIGH,9)-LLV(LOW,9))*100;
K:=SMA(RSV,3,1);
D:=SMA(K,3,1);
J:=(3*K-2*D);连高80:=LAST(J>=80);
连高100:=LAST(J>=100);
连低20:=LAST(J<20);
金叉:=LAST(K > D);;
死叉:=LAST(K < D);;
角度:=LAST(ATAN(D-REF(D,1))*180/3.1416>0);
角度JD:=LAST(ATAN(D-REF(D,1))*180/3.1416<0);
drawtextabs(10,5,' 【今天：KDJ】'),Color00FFff,linethick2;
drawtextabs(15,20,'连高J>100:【'+NUMTOSTRN(连高100,0)+'天】'),Color0077ff,linethick2;
drawtextabs(15,35,'连高J>80: 【'+NUMTOSTRN(连高80,0)+'天】'),Color0077ff,linethick2;
drawtextabs(15,50,'连低J<20: 【'+NUMTOSTRN(连低20,0)+'天】'),Color0077ff,linethick2;
drawtextabs(15,65,'金叉 K>D: 【'+NUMTOSTRN(金叉,0)+'天】'),Color0077ff,linethick2;;
drawtextabs(15,80,'死叉 K<D: 【'+NUMTOSTRN(死叉,0)+'天】'),Color0077ff,linethick2;
drawtextabs(15,95,'角度D>0: 【'+NUMTOSTRN(角度,0)+'天】'),Color0077ff,linethick2;
drawtextabs(15,110,'角度D<0: 【'+NUMTOSTRN(角度JD,0)+'天】'),Color0077ff,linethick2;
drawtextabs(12,125,'J(9.3.3)【'+NUMTOSTRN("KDJ.J",2)+'】'),Color0077ff,linethick3;
{2.MACD}
DIFF := EMA(CLOSE,7) - EMA(CLOSE,13);
DEA := EMA(DIFF,3);
MACD := 2*(DIFF-DEA);
连高M:=LAST(MACD>=ref(MACD,1));
连低M:=LAST(MACD<ref(MACD,1));
连低DIFF:=LAST(DIFF<0);
金叉M:=LAST(MACD > 0);;
死叉M:=LAST(MACD < 0);;
角度M:=LAST(ATAN(DEA-REF(DEA,1))*180/3.1416>0);
角度MD:=LAST(ATAN(DEA-REF(DEA,1))*180/3.1416<0);
drawtextabs(200,5,' 【今天：MACD】'),ColorffFFff,linethick2;
drawtextabs(200,20,'连增MACD: 【'+NUMTOSTRN(连高M,0)+'天】'),ColorffFFff,linethick2;
drawtextabs(200,35,'连减MACD: 【'+NUMTOSTRN(连低M,0)+'天】'),ColorffFFff,linethick2;
drawtextabs(200,50,'连低DIFF<0: 【'+NUMTOSTRN(连低DIFF,0)+'天】'),ColorffFFff,linethick2;
drawtextabs(200,65,'金叉MACD>0: 【'+NUMTOSTRN(金叉M,0)+'天】'),ColorffFFff,linethick2;;
drawtextabs(200,80,'死叉MACD<0: 【'+NUMTOSTRN(死叉M,0)+'天】'),ColorffFFff,linethick2;
drawtextabs(200,95,'角度DEA>0: 【'+NUMTOSTRN(角度M,0)+'天】'),ColorffFFff,linethick2;
drawtextabs(200,110,'角度DEA<0: 【'+NUMTOSTRN(角度MD,0)+'天】'),ColorffFFff,linethick2;
drawtextabs(198,125,'MACD(13.7.3)【'+NUMTOSTRN("MACD.MACD",2)+'】'),ColorffFFff,linethick3;
{3.RSI}
LC := REF(CLOSE,1);
RSI:=SMA(MAX(CLOSE-LC,0),14,1)/SMA(ABS(CLOSE-LC),14,1)*100;
MR:=MA(RSI,5);
连高R80:=LAST(RSI>=80);
连高R65:=LAST(RSI>=65);
连低R40:=LAST(RSI<40);
金叉R:=LAST(RSI > MR);;
死叉R:=LAST(RSI < MR);;
角度R:=LAST(ATAN(MR-REF(MR,1))*180/3.1416>0);
角度RD:=LAST(ATAN(MR-REF(MR,1))*180/3.1416<0);
drawtextabs(400,5,' 【今天：RSI】'),Color00FF00,linethick2;
drawtextabs(400,20,'连高RSI>80: 【'+NUMTOSTRN(连高R80,0)+'天】'),Color00ff00,linethick2;
drawtextabs(400,35,'连高RSI>65: 【'+NUMTOSTRN(连高R65,0)+'天】'),Color00ff00,linethick2;
drawtextabs(400,50,'连低RSI<40: 【'+NUMTOSTRN(连低R40,0)+'天】'),Color00ff00,linethick2;
drawtextabs(400,65,'金叉RSI>RSM5: 【'+NUMTOSTRN(金叉R,0)+'天】'),Color00ff00,linethick2;;
drawtextabs(400,80,'死叉RSI<RSM5: 【'+NUMTOSTRN(死叉R,0)+'天】'),Color00ff00,linethick2;
drawtextabs(400,95,'角度MRSI>0: 【'+NUMTOSTRN(角度R,0)+'天】'),Color00ff00,linethick2;
drawtextabs(400,110,'角度MRSI<0: 【'+NUMTOSTRN(角度RD,0)+'天】'),Color00ff00,linethick2;
drawtextabs(398,125,'RSI(14): 【'+NUMTOSTRN("RSI1.RSI",2)+'】'),Color00ff00,linethick3;
{4.MA}
MA5:=MA(C,5);
MA10:=MA(C,10);
连高MA5:=LAST(MA5<=C);
连高MA10:=LAST(MA10<=C);
连低MA5:=LAST(MA5>C);
金叉MA:=LAST(MA5 > MA10);;
死叉MA:=LAST(MA5 <MA10);;
角度MA5:=LAST(ATAN(MA5-REF(MA5,1))*180/3.1416>0);
角度MA5D:=LAST(ATAN(MA5-REF(MA5,1))*180/3.1416<0);
drawtextabs(600,5,' 【今天：MA5】'),Color0000FF,linethick2;
drawtextabs(600,20,'连高C>MA5: 【'+NUMTOSTRN(连高MA5,0)+'天】'),Color0000ff,linethick2;
drawtextabs(600,35,'连高C>MA10: 【'+NUMTOSTRN(连高MA10,0)+'天】'),Color0000ff,linethick2;
drawtextabs(600,50,'连低C<MA5: 【'+NUMTOSTRN(连低MA5,0)+'天】'),Color0000ff,linethick2;
drawtextabs(600,65,'金叉MA5>MA10: 【'+NUMTOSTRN(金叉MA,0)+'天】'),Color0000ff,linethick2;;
drawtextabs(600,80,'死叉MA5<MA10: 【'+NUMTOSTRN(死叉MA,0)+'天】'),Color0000ff,linethick2;
drawtextabs(600,95,'角度MA5>0: 【'+NUMTOSTRN(角度MA5,0)+'天】'),Color0000ff,linethick2;
drawtextabs(600,110,'角度MA5<0: 【'+NUMTOSTRN(角度MA5D,0)+'天】'),Color0000ff,linethick2;
drawtextabs(598,125,'MA(C,5) 【'+NUMTOSTRN(MA5,2)+'】'),Color0000ff,linethick3;
{5.CCI}
TYP := (HIGH + LOW + CLOSE)/3;
CCI:=(TYP-MA(TYP,14))/(0.015*AVEDEV(TYP,14));
MC:=MA(CCI,5);
连高C200:=LAST(CCI>=200);
连高C100:=LAST(CCI>=100);
连低C100:=LAST(CCI<-100);
金叉C:=LAST(CCI > MC);;
死叉C:=LAST(CCI < MC);;
角度C:=LAST(ATAN(MC-REF(MC,1))*180/3.1416>0);
角度CD:=LAST(ATAN(MC-REF(MC,1))*180/3.1416<0);
drawtextabs(800,5,' 【今天：CCI】'),Color99FFFF,linethick2;
drawtextabs(800,20,'连高CCI>200: 【'+NUMTOSTRN(连高C200,0)+'天】'),Color99ffFF,linethick2;
drawtextabs(800,35,'连高CCI>100: 【'+NUMTOSTRN(连高C100,0)+'天】'),Color99ffFF,linethick2;
drawtextabs(800,50,'连低CCI<-100: 【'+NUMTOSTRN(连低C100,0)+'天】'),Color99ffFF,linethick2;
drawtextabs(800,65,'金叉CCI>CCM5: 【'+NUMTOSTRN(金叉C,0)+'天】'),Color99ffFF,linethick2;;
drawtextabs(800,80,'死叉CCI<CCM5: 【'+NUMTOSTRN(死叉C,0)+'天】'),Color99ffFF,linethick2;
drawtextabs(800,95,'角度MCCI>0: 【'+NUMTOSTRN(角度C,0)+'天】'),Color99ffFF,linethick2;
drawtextabs(800,110,'角度MCCI<0: 【'+NUMTOSTRN(角度CD,0)+'天】'),Color99ffFF,linethick2;
drawtextabs(795,125,'CCI(14) 【'+NUMTOSTRN(CCI,0)+'】'),Color99ffFF,linethick3;
{6.DDX}
DDX:=(BIGORDER(1)-BIGORDER(2))*VOL/CAPITAL*100;
DDX1:=ema(DDX,60)*60.177;
DDX2:=MA(DDX1,5);
DDX3:MA(DDX1,10),linethick0;
;DDX10红天:=count(DDX>0,10);
连红DDXB:=LAST(DDX>=0);
连低DDXC:=LAST(DDX<0);
金叉D:=LAST(DDX1 > DDX3);;
死叉D:=LAST(DDX1 < DDX3);;
角度D:=LAST(ATAN(DDX2-REF(DDX2,1))*180/3.1416>0);
角度DD:=LAST(ATAN(DDX2-REF(DDX2,1))*180/3.1416<0);
drawtextabs(1000,5,' 【今天：DDX】'),Color9977FF,linethick2;
drawtextabs(1000,20,'DDX10.天红: 【'+NUMTOSTRN(DDX10红天,0)+'天】'),Color9977FF,linethick2;
drawtextabs(1000,35,'连红DDX>=0: 【'+NUMTOSTRN(连红DDXB,0)+'天】'),Color9977FF,linethick2;
drawtextabs(1000,50,'连低DDX<0: 【'+NUMTOSTRN(连低DDXC,0)+'天】'),Color9977FF,linethick2;
drawtextabs(1000,65,'金叉DDX1>DDX3: 【'+NUMTOSTRN(金叉D,0)+'天】'),Color9977FF,linethick2;;
drawtextabs(1000,80,'死叉DDX1<DDX3 【'+NUMTOSTRN(死叉D,0)+'天】'),Color9977FF,linethick2;
drawtextabs(1000,95,'角度DDX2>0: 【'+NUMTOSTRN(角度D,0)+'天】'),Color9977FF,linethick2;
drawtextabs(1000,110,'角度DDX2<0: 【'+NUMTOSTRN(角度DD,0)+'天】'),Color9977FF,linethick2;
drawtextabs(998,125,'DDX1(60.5.10) 【'+NUMTOSTRN(DDX1,2)+'】'),Color9977FF,linethick3; |
