DRAWGBK(C>0, RGB(07,18,108),RGB(88,0,0),0,'11',0);
DRAWBAND(100,RGB(170,77,87),90,RGB(630,780,8));
DRAWBAND(10,RGB(718,78,18),0,RGB(30,20,0));
D11:=YEAR AND MONTH AND DAY;
AA1:=STRCAT(CON2STR(YEAR,0),'年');
AA2:=STRCAT(CON2STR(MONTH,0),'月');
AA3:=STRCAT(CON2STR(DAY,0),'日');
AA4:=STRCAT('【',IF(WEEKDAY=1,'一',IF(WEEKDAY=2,'二',IF(WEEKDAY=3,'三',IF(WEEKDAY=4,'四',IF(WEEKDAY=5,'五',IF(WEEKDAY=6,'六','日')))))));
AA888:=STRCAT(STRCAT(STRCAT(AA1,AA2),STRCAT(AA3,AA4)),'】');
DRAWTEXT_FIX(D11,0.507,0.000,0.00,AA888),COLORD9D9F3;
DRAWTEXT_FIX(1,0.483,0.027,0,'【★==高原明月组合专用版==★】'),COLOR0078FF;
{KDJ月金}
月K:="KDJ.K#MONTH"(9,3,3);
月J:="KDJ.J#MONTH"(9,3,3);
{KDJ周金}
周K:="KDJ.K#WEEK"(9,3,3);
周J:="KDJ.J#WEEK"(9,3,3);
{KDJ日金}
日K:="KDJ.K#DAY"(9,3,3);
日J:="KDJ.J#DAY"(9,3,3);
月死叉:STICKLINE(月J<月K,-6,-8,4,0),COLORBLUE;
月金叉:STICKLINE(月J>月K,-4,-6,4,0),COLORRED;
周死叉:STICKLINE(周J<周K,-2,-4,4,0),COLORGREEN;
周金叉:STICKLINE(周J>周K,0,-2,4,0),COLORFF00FF;
-8,DOTLINE,COLORFF6EC7;
{下面四句是在指标上提示颜色含义，顺便说明下周月KJ所在位置}
{【深蓝月死叉K】:REFDATE(月K,DATE),COLORBLUE;
【大红月金叉J】:REFDATE(月J,DATE),COLORRED;
【草绿周死叉K】:REFDATE(周K,DATE),COLORGREEN;
【粉红周金叉J】:REFDATE(周J,DATE),COLORFF00FF;};
RSV:=(((CLOSE - LLV(LOW,34)) / (HHV(HIGH,34) - LLV(LOW,34))) * 100);
神仙:MEMA(RSV,3),COLORWHITE;
魔鬼:SMA(SMA(RSV,3,1),3,1),COLORYELLOW;
轨迹:SMA(SMA(SMA(RSV,3,1),3,1),3,1),COLORMAGENTA;
DRAWBAND(神仙,RGB(150, 0, 50 ), 魔鬼,RGB( 0, 60, 60)) ;
DRAWBAND(魔鬼,RGB(100, 0, 0 ), 轨迹,RGB( 0, 50,0)) ;
LSC:=REF(C,1);
RMI:=SMA(MAX(C-LSC,0),5,1)/SMA(ABS(C-LSC),5,1)*100;
RMIM:=SMA(RMI,3,1);
STICKLINE(RMIM>=50,50,RMIM,4,0),COLOR000080;
STICKLINE(RMIM>=50,50,RMIM,3,0),COLOR0000A6;
STICKLINE(RMIM>=50,50,RMIM,2,0),COLOR0000CE;
STICKLINE(RMIM>=50,50,RMIM,1,0),COLOR0000FF;
STICKLINE(RMIM<50,50,RMIM,4,0),COLOR800000;
STICKLINE(RMIM<50,50,RMIM,3,0),COLORB00000;
STICKLINE(RMIM<50,50,RMIM,2,0),COLORD50000;
STICKLINE(RMIM<50,50,RMIM,1,0),COLORFF0000;
STICKLINE(RMIM>80,80,RMIM,5,0),COLORGREEN;
STICKLINE(RMIM<20,20,RMIM,5,0),COLORWHITE;
A:=(C*3+O+H+L)/6;
XJ:=(A+0.618*REF(A,1)+0.382*REF(A,2)+0.236*REF(A,3)+0.146*REF(A,4))/2.382;
LX:=REF(XJ,1);
D1:=(SMA(MAX(XJ-LX,0),5,1)/SMA(ABS(XJ-LX),5,1))*100,COLOR0000FF;
D2:=(SMA(MAX(XJ-LX,0),7,1)/SMA(ABS(XJ-LX),7,1))*100,COLOR00FFFF;
N:=10;M1:=2;M2:=2;
Q_1:=C-REF(C,1);
Q_2:=100*EMA(EMA(Q_1,6),6)/EMA(EMA(ABS(Q_1),6),6);
Q_3:=CROSS(EMA(C,19),EMA(C,7));
Q_4:=CROSS(EMA(C,7),EMA(C,19));
Z1:=L=LLV(L,BARSLAST(Q_3)+1);
Z2:=LLV(L,BARSLAST(Q_3)+1);
Z3:=H=HHV(H,BARSLAST(Q_4)+1);
Z4:=HHV(H,BARSLAST(Q_4)+1);
Q_A:=DRAWLINE(Z1,Z2,Z3,Z4,0);
Y1:=H=HHV(H,BARSLAST(Q_4)+1);
Y2:=HHV(H,BARSLAST(Q_4)+1);
Y3:=L=LLV(L,BARSLAST(Q_3)+1);
Y4:=LLV(L,BARSLAST(Q_3)+1);
Q_B:=DRAWLINE(Y1,Y2,Y3,Y4,0);
X01:=LLV(Q_2,2)=LLV(Q_2,7) ;
X2:=COUNT(Q_2<0,2);
X3:=CROSS(Q_2,MA(Q_2,2));
X4:=REF(Q_B,1)<REF(Q_B,2);
X5:=Q_A>REF(Q_B,1);
买进:=(X01 AND X2 AND X3) AND X4 AND X5;
TJ:=IF(Q_B<REF(Q_B,1) AND Q_B=Q_A,1,0);
堪称一绝:STICKLINE(REF(TJ,1)=0 AND TJ>=1 AND CCI<-40 ,80,20,0,-1) ,COLORRED;
地狱底:0,DOTLINE,COLORGRAY;
地狱线:10,DOTLINE,COLORGRAY;
地平线:20,COLORLIMAGENTA;
天际线:80,COLORGRAY;
清仓线:90,DOTLINE;
DRAWICON(CROSS(神仙,魔鬼) AND 神仙<=15,10,40);
DRAWICON((CROSS(神仙,10)),5,1);
DRAWICON((CROSS(魔鬼,RSI)) AND RSI>60,魔鬼,8);
P:神仙;R:魔鬼;G:轨迹;
关注:IF((REF(C,2)-REF(O,2))/REF(O,2)<=-0.002 AND (REF(O,1)-REF(C,2))/REF(C,2)<=0.01
AND (REF(C,1)-REF(O,1))/REF(O,1)<=-0.001 AND (O- REF(O,1))/REF(O,1)<=0
AND (C-O)/O>=0 {AND (C-O)/O<=0.02}
AND (MA(C,60)-C)/C>=0.2 AND CROSS(神仙,10),25,0);
-20,DOTLINE;
110,DOTLINE;
{主力}
VUR1:=VOL/CAPITAL;
VUR2:=1.1*(MAX(HIGH,REF(CLOSE,1))/MIN(LOW,REF(CLOSE,1))-1);
VUR3:=2.5*MAX(VUR1,VUR2);
VUR4:=DMA(CLOSE,VUR3);
VUR5:=20*(VUR4/REF(VUR4,1)-1)*38;
VUR6:=EMA(VUR5,2);
{
VUR7:=EMA(VUR5,2);
VUR8:=EMA(VUR7,3);
VURS:=EMA(VUR7,8);
VUR9:=1.1*(MAX(INDEXH,REF(INDEXC,1))/MIN(INDEXL,REF(INDEXC,1))-1);
VURA:=2.5*MAX(VUR1,VUR9);
VURB:=DMA(INDEXC,VURA);
VURC:=EMA(20*(VURB/REF(VURB,1)-1),1)*38;
VURD:=EMA(VURC,2);
VURE:=EMA(VURC,2);
}
主力:VUR6,LINETHICK0;
多头绝对:20,LINETHICK1,COLOR00AAAA,POINTDOT;
空头绝对:-20,LINETHICK1,COLOR00AA00,POINTDOT;
STICKLINE(VUR6>0,0 ,VUR6*1.2,1,0 ),COLOR00AADD;
STICKLINE(VUR6>0,0 ,VUR6*0.8,1,0 ),COLOR0099DD;
STICKLINE(VUR6>0,0 ,VUR6*0.6,1,0 ),COLOR0066DD;
STICKLINE(VUR6>0,0 ,VUR6*0.4,1,0 ),COLOR0033DD;
STICKLINE(VUR6>0,0 ,VUR6*0.2,1,0 ),COLOR0000DD;
STICKLINE(VUR6<0,0 ,VUR6*1.2,1,0 ),COLORAADD00;
STICKLINE(VUR6<0,0 ,VUR6*0.8,1,0 ),COLOR99DD00;
STICKLINE(VUR6<0,0 ,VUR6*0.6,1,0 ),COLOR66DD00;
STICKLINE(VUR6<0,0 ,VUR6*0.4,1,0 ),COLOR33DD00;
STICKLINE(VUR6<0,0 ,VUR6*0.2,1,0 ),COLOR00DD00;
{
较强■:STICKLINE(VURD>0,0,VURD,7,0),COLORBB22EE;
超强■:STICKLINE(VUR5>0,0,VUR5,7,0),COLOR00CCCC;
极强■:STICKLINE(VUR6>0,0,VUR6,7,0),COLOR0000CC;
较弱■:STICKLINE(VURD<0,0,VURD,7,0),COLORFFAAAA;
超弱■:STICKLINE(VUR5<0,0,VUR5,7,0),COLOR00DD00;
极弱■:STICKLINE(VUR6<0,0,VUR6,7,0),COLORAAAA10};
{千钧KDJ}
RSV999:=(CLOSE-LLV(LOW,14))/(HHV(HIGH,14)-LLV(LOW,14))*100;
K0:=SMA(RSV999,3,1);
D0:=SMA(K0,3,1);
J99:=3*K0-2*D0;
STICKLINE(J99>REF(J99,1),HHV(J99,3),LLV(J99,3),0,0),COLOR00AAFF;
STICKLINE(J99>REF(J99,1),J99,REF(J99,1),3,0),COLOR0044FF;
STICKLINE(J99>REF(J99,1),J99,REF(J99,1),1.5,0),COLOR0088FF;
STICKLINE(J99>REF(J99,1),J99,REF(J99,1),0,0),COLOR00AAFF;
STICKLINE(J99<REF(J99,1),HHV(J99,3),LLV(J99,3),0,0),COLORFFAA00;
STICKLINE(J99<REF(J99,1),J99,REF(J99,1),3,0),COLORFF4400;
STICKLINE(J99<REF(J99,1),J99,REF(J99,1),1.5,0),COLORFF8800;
STICKLINE(J99<REF(J99,1),J99,REF(J99,1),0,0),COLORFFAA00;
{股本市值}
总股本:=STRCAT(STRCAT('总股本: ',CON2STR(TOTALCAPITAL/1000000,2)),'亿');
流通盘:=STRCAT(STRCAT(' 流通盘: ',CON2STR(CAPITAL/1000000,2)),'亿');
全流通:=STRCAT(' 全流通: ',CON2STR((CAPITAL/1000000)/(TOTALCAPITAL/1000000),2));
市值:=STRCAT(STRCAT(' 流通市值: ',CON2STR((CAPITAL/1000000)*C,2)),'亿');
上市天数:=STRCAT(' 上市天数: ',CON2STR(FINANCE(42),0));
{上市日期:=STRCAT(' 上市日期: ',CON2STR(HHV((BARSCOUNT(C)=0)*(DATE+19000000),0),0));}
股本市值:=STRCAT('股本市值: ',STRCAT(STRCAT(STRCAT(STRCAT(总股本,流通盘),全流通),市值),上市天数));
板块类别:=STRCAT(STRCAT(STRCAT(STRCAT(STRCAT(STRCAT(STRCAT(CODE,DYBLOCK), HYBLOCK), FGBLOCK), ZHBLOCK), GNBLOCK), FGBLOCK), ZSBLOCK);DRAWTEXT_FIX(ISLASTBAR,0.002,0.000,0,板块类别),COLORD9D9F3;
DRAWTEXT_FIX(ISLASTBAR,0.002,0.023,0,股本市值),COLORMAGENTA;
总额:=AMOUNT;
买:=IF(O=C AND (C-REF(C,1))/REF(C,1)*100>9.8,AMOUNT,AMOUNT/((H-L)*2-ABS(O-C))*(C-L));
买%:=买/AMOUNT*100;
流入:=AMOUNT*买%/10000000000;
流出:=AMOUNT/100000000-流入;
净流:=(流入-流出);
总额3:=SUM(AMOUNT,3);
流入3:=SUM(流入,3);
流出3:=SUM(流出,3);
净流3:=SUM(流入-流出,3);
总额5:=SUM(AMOUNT,5);
流入5:=SUM(流入,5);
流出5:=SUM(流出,5);
净流5:=SUM(流入-流出,5);
总额10:=SUM(AMOUNT,10);
流入10:=SUM(流入,10);
流出10:=SUM(流出,10);
净流10:=SUM(流入-流出,10);
画:=CONST(FINDHIGH(总额10,0,190,1));
DRAWTEXT_FIX(1,0.71,0.07,0,'净流(亿):'),COLORMAGENTA,LINETHICK1;
DRAWTEXT_FIX(1,0.78,0.05,0,'1日'),COLORMAGENTA,LINETHICK1;
DRAWTEXT_FIX(1,0.83,0.05,0,'3日'),COLORMAGENTA,LINETHICK1;
DRAWTEXT_FIX(1,0.88,0.05,0,'5日'),COLORMAGENTA,LINETHICK1;
DRAWTEXT_FIX(1,0.93,0.05,0,'10日'),COLORMAGENTA,LINETHICK1;
DRAWNUMBER_FIX(1,0.78,0.10,0,CONST((净流))),COLORYELLOW;
DRAWNUMBER_FIX(1,0.83,0.10,0,CONST((净流3))),COLORYELLOW;
DRAWNUMBER_FIX(1,0.88,0.10,0,CONST((净流5))),COLORYELLOW;
DRAWNUMBER_FIX(1,0.93,0.10,0,CONST((净流10))),COLORYELLOW;
