AA:=MA((2*CLOSE+HIGH+LOW)/4,5);
通1:=AA*102/100;
通2:=AA*(200-102)/100;
CC:=ABS((2*CLOSE+HIGH+LOW)/4-MA(CLOSE,20))/MA(CLOSE,20);
DD:=DMA(CLOSE,CC);
上:(1+7/100)*DD,LINEDASHDOT,COLOR0099FF;
下:(1-7/100)*DD,LINEDASHDOT,COLOR0099FF;
中:(上+下)/2,LINETHICK0,COLOR0099FF;
逃顶:(1+14/100)*DD,LINETHICK2,COLORWHITE;
抄底:(1-14/100)*DD,LINETHICK2,COLORBLUE;DIFF := EMA(CLOSE,12) - EMA(CLOSE,26);
DEA := EMA(DIFF,9);
MACD := 2*(DIFF-DEA);PARTLINE(DIFF<=0 OR MACD<=0,中),LINETHICK2,COLORGREEN;
PARTLINE(DIFF>0 and MACD>0,中),LINETHICK2,COLORRED;OO:=if(DATATYPE=6,ma(O,22),if(DATATYPE=7,ma(O,10),ma(O,6)));j:=STKINDI('','kdj.j',0,6);
CC:=if(DATATYPE=6,ma(c,22),if(DATATYPE=7,ma(c,10),ma(c,6)));hs:=vol/CAPITAL*100;
jj:=(H+L+C)/3;qj0:=vol/IF(H=L,4,H-L);qj1:=IF(CAPITAL=0,qj0*(jj-MIN(C,O)),qj0*(MIN(O,C)-L));
qj2:=IF(CAPITAL=0,qj0*(MIN(O,C)-L),qj0*(jj-MIN(C,O)));qj3:=qj0*(H-MAX(O,C));qj4:=qj0*(MAX(C,O)-jj);
qj5:=qj1+qj2;qj6:=qj3+qj4;DD:=(qj5-qj6)/(qj5+qj6)*100;
DDX:=((qj1+qj2)-(qj3+qj4))/sum(vol,10)*100;DDZ:=DD*17;
DDY:=((qj2+qj4)-(qj1+qj3))/sum(vol,10)*100;
bb:=(cross(j,0)and ((ddx>0 and ddy>0) or DDZ>400));
主:=qj1+qj2;散:=qj3+qj4;T0:=VOL>REF(VOL,1) and MA(VOL,5)>REF(MA(VOL,5),1);
QJ11:=(HIGH+LOW)/2;QJ12:=EMA(QJ11,22);QJ13:=STD(QJ11,22);QJ14:=((QJ11-QJ12)/QJ13*100+200)/4;
QJ15:=(EMA(QJ14,5)-22)*1.56;QJ16:=SMA(QJ15,3,1);TJ1:=SMA(QJ16,3,1);TJ2:=3*QJ16-2.1*TJ1;
P:=SYSPARAM(1);
Q6:=atan((MA(C,5)/ref(MA(C,5),1)-1)*100)*57.3;Q2:=atan((MA(C,13)/ref(MA(C,13),1)-1)*100)*57.3;
Q1:=atan((MA(C,23)/ref(MA(C,23),1)-1)*100)*57.3;Q:=atan((MA(C,34)/ref(MA(C,34),1)-1)*100)*57.3;
Q3:=atan((MA(C,68)/ref(MA(C,68),1)-1)*100)*57.3;Q5:=atan((MA(C,250)/ref(MA(C,250),1)-1)*100)*57.3;
T1:=VOL<REF(VOL,1) and MA(VOL,5)>REF(MA(VOL,5),1);T2:=VOL>REF(VOL,1) and MA(VOL,5)<REF(MA(VOL,5),1);
T3:=VOL<REF(VOL,1) and MA(VOL,5)<REF(MA(VOL,5),1);T4:=主>REF(主,1) and 主>散 and if(CAPITAL=0,hs>1.3,hs>5);
T5:=主<REF(主,1) and 主>散 and if(CAPITAL=0,hs>0.5 and hs<1.3,hs>3 and hs<=5);
T6:=主>REF(主,1) and 主<散 and if(CAPITAL=0,hs<1.3 and hs>0.5,hs<5 and hs>3);
T7:=主<REF(主,1) and 主<散 and if(CAPITAL=0,hs<1.3,hs<3 and hs>=1);
DRAWTEXTEX(CLOSE,1,0,100,'5 日线夹角: '+NUMTOSTR(Q6[P],2)+' 度'),COLORAAAAAA;
DRAWTEXTEX(CLOSE,1,220,100,'13日线夹角: '+NUMTOSTR(Q2[P],2)+' 度'),COLORAAAAAA;
DRAWTEXTEX(CLOSE,1,450,100,'22日线夹角: '+NUMTOSTR(Q1[P],2)+' 度'),COLORAAAAAA;
DRAWTEXTEX(CLOSE,1,0,150,'34日线夹角: '+NUMTOSTR(Q[P],2)+' 度'),COLORAAAAAA;
DRAWTEXTEX(CLOSE,1,220,150,'68日线夹角: '+NUMTOSTR(Q3[P],2)+' 度'),COLORAAAAAA;
DRAWTEXTEX(CLOSE,1,450,150,'250日线夹角: '+NUMTOSTR(Q5[P],2)+' 度'),COLORAAAAAA;
DRAWTEXTEX(CLOSE,1,20,0,'上涨家数:'+NUMTOSTR(INDEXADV,0)+' 家'),COLOR0066FF;
DRAWTEXTEX(CLOSE,1,180,0,'下跌家数:'+NUMTOSTR(INDEXDEC,0)+' 家'),COLOR99FF99;
DRAWTEXTEX(CLOSE,1,340,0,'平盘家数:'+NUMTOSTR(PINGPAN,0)+' 家'),COLOREEEEEE;
DRAWTEXT(bb,L*0.98,'弄\n点\n钱\n玩\n玩'),COLOR00FFFF;
DRAWTEXTEX(T0,1,500,0,'成交大于昨日,有继续增大趋势'),Color00FFFF;
DRAWTEXTEX(T1,1,500,0,'成交小于昨日,但有放大迹象'),Color00DDFF;
DRAWTEXTEX(T2,1,500,0,'成交大于昨日,但有缩小迹象'),ColorFFFF00;
DRAWTEXTEX(T3,1,500,0,'成交小于昨日,且有缩小迹象'),ColorFFbb00;
DRAWTEXTEX(T4,1,760,0,'资金比较活跃,大资金活动明显'),Color00FFff;
DRAWTEXTEX(T5,1,760,0,'资金开始积极,大资金温和进场'),Color00DDff;
DRAWTEXTEX(T6,1,760,0,'散乱资金积极,散户行为明显'),ColorFFDD00;
DRAWTEXTEX(T7,1,760,0,'交易频率上升,散户相当积极'),ColorFFFF00;
DRAWTEXTEX(CLOSE,1,20,50,STKLABEL+' '+STKNAME+' '+STRLEFT(BLKNAME,40)),Color00AAAA;
a:=F10FIND('【十大流通股东】:',1);a0:=F10FIND('主要指标:',1);c0:=F10FIND('控盘情况:',a0);
hs:=F10FIND('总户数',500);
q1:=F10FIND('200',hs+40);q2:=F10FIND('200',q1+40);
g1:=LTRIM(F10TEXT(q1+14,10));g2:=LTRIM(F10TEXT(q2+14,10));
gd1:=STRTONUM(g1);gd2:=STRTONUM(g2);qq1:=gd1-gd2;qq2:=gd1-gd2;
DRAWTEXTex(qq1<0,1,820,960,'市场筹码较上期集中'),color00EEFF;
DRAWTEXTex(qq2>0,1,820,960,'市场筹码较上期分散'),colorFFAA00;QSW:=F10FIND('按照资产负债率排名',5000);
QSZ:=F10FIND('按照每股收益排名',5000);
DRAWTEXTEX(c,1,10,900,'按照每股收益排名,'+F10TEXT(QSz+20,0));
DRAWTEXTEX(c,1,10,950,'按照资产负债率排名,'+F10TEXT(QSW+22,0));  |
