%>
DRAWGBK(CLOSE>REF(MA(CLOSE,3),3),COLORRGB(85,0,113) ,COLORRGB(0,0,0),1);
DRAWGBK(CROSS(CLOSE,REF(MA(CLOSE,3),3)),COLORRGB(0,50,155) ,COLORRGB(0,0,30),1);
DRAWGBK(CROSS(REF(MA(CLOSE,3),3),CLOSE),COLORRGB(90,30,55) ,COLORRGB(0,50,00),1);
DRAWGBK(CLOSE<REF(MA(CLOSE,3),3),COLORRGB(50,110,0) ,COLORRGB(0,0,1),1);
{zmacd}
zqmacd:=DATATYPE;
rmacd:=OPENMINUTES(TIME);
zsmacd:=REF(CLOSE,rmacd);
zsrmacd:=DYNAINFO( 3);
jmacd:=SUM(CLOSE*VOL,SUMBARS(VOL,CAPITAL))/SUM(VOL,SUMBARS(VOL,CAPITAL));
jjmacd:=SUM(CLOSE*VOL,0)/SUM(VOL,0);
jjmacd1:=SUM(CLOSE*VOL,rmacd)/SUM(VOL,rmacd)LINETHICK0;
jjamacd:=IF(zqmacd=6,jjmacd,IF(zqmacd=1,jjmacd1,jjmacd));
zsamacd:=IF(zqmacd=6,zsrmacd,IF(zqmacd=1,zsmacd,zsrmacd));
crmacd:=IF(zqmacd=6,CLOSE>0,IF(zqmacd=1,rmacd>1,CLOSE>0));
PARTLINE(crmacd,zsamacd),COLORGRAY,POINTDOT;
dkmacd:=(SMA(CLOSE,2,1)-SMA(CLOSE,6,1))*2.1,LINETHICK0;
FILLRGN(dkmacd>0 and jjamacd>0 ,zsamacd,ZSamacd+dkmacd),Colorb3336633;
FILLRGN(dkmacd>0 and jjamacd>0 ,zsamacd,ZSamacd+dkmacd*0.97),COLORADBA9C;
FILLRGN(dkmacd>0 and jjamacd>0 ,zsamacd,ZSamacd+dkmacd*0.86),COLOR9CAA8C;
FILLRGN(dkmacd>0 and jjamacd>0 ,zsamacd,ZSamacd+dkmacd*0.75),COLOR8C9A73;
FILLRGN(dkmacd>0 and jjamacd>0 ,zsamacd,ZSamacd+dkmacd*0.66),COLOR738A63;
FILLRGN(dkmacd>0 and jjamacd>0 ,zsamacd,ZSamacd+dkmacd*0.55),COLOR637552;
FILLRGN(dkmacd>0 and jjamacd>0 ,zsamacd,ZSamacd+dkmacd*0.45),COLOR526542;
FILLRGN(dkmacd>0 and jjamacd>0 ,zsamacd,ZSamacd+dkmacd*0.4),COLOR425531;
FILLRGN(dkmacd>0 and jjamacd>0 ,zsamacd,ZSamacd+dkmacd*0.33),COLOR314521;
FILLRGN(dkmacd>0 and jjamacd>0 ,zsamacd,ZSamacd+dkmacd*0.25),COLOR213010;
FILLRGN(dkmacd>0 and jjamacd>0 ,zsamacd,ZSamacd+dkmacd*0.14),COLOR102000;
FILLRGN(dkmacd<=0 and jjamacd>0 ,zsamacd,ZSamacd+dkmacd),,Colorb3336633;
{说明}
DRAWTEXTEX(CLOSE,1,180,160,' | 红色初,股价靠近虚线入'),colorYellow;
DRAWTEXTEX(CLOSE,1,180,195,' | 绿头来,股价靠近虚线去'),colorYellow;
DRAWTEXTEX(CLOSE,1,180,225,' | 金线上得金,银线上的银'),colorYellow;
DRAWTEXTEX(CLOSE,1,180,255,' | 大盘个股趋向末明别性情'),colorYellow;
{vol}
r0:=0.96;
r:=(LOW-r0*SYSPARAM(5))/VOL;
r1:=LLV(r,SYSPARAM(3)-SYSPARAM(2));
r2:=r1[DATACOUNT];
r3:=LLV(LOW-r2*VOL,SYSPARAM(3)-SYSPARAM(2));
r4:=r3[SYSPARAM(3)];
r5:=(r2*VOL+r4)*0.995;
STICKLINE(CLOSE>=REF(CLOSE,1),r5,r0*SYSPARAM(5),7,1),color224455;
STICKLINE(CLOSE<REF(CLOSE,1),r5,r0*SYSPARAM(5),7,1),color553322;
八日量:MA(r5,8),SHIFT0,color606066;
十三日量:MA(r5,13),SHIFT0,color172271;
三日量:MA(r5,3),SHIFT0,color88ae00;
PARTLINE(三日量>=REF(三日量,1),三日量),Color88aedd,linethick1;
{MA}
Var1:=(HIGH+LOW+OPEN+CLOSE)/4;
A线:MA(3*Var1-2*SMA(Var1,2,1),12),COLORGREEN,LINETHICK1;
B线:=EMA(MA(CLOSE,13),2);
C线:EMA(((SLOPE(CLOSE,22) * 20) + CLOSE),55)*0.985,linethick1,colorgray;
FILLRGN(A线>C线,A线,C线),COLOR323167,LINETHICK1;
FILLRGN(A线>B线,B线,A线),COLOR323199,LINETHICK1;
FILLRGN(A线<=B线*1.0062,A线,C线),COLOR223311,LINETHICK1;
D线:B线,linethick1,LINEDOT,colorEEFF33;
MA55:MA(CLOSE,55),COLORFFCC66;
{股票教程网-股票公式网站 www.gwgz.net}
MA99:(MA(CLOSE,99)),CIRCLEDOT,Color006f05;
PARTLINE(A线>C线,C线),LINETHICK1,Color002288;
PARTLINE(A线<C线,C线),LINETHICK1,Color11412E;
PARTLINE(A线>B线,A线),LINETHICK1,Color002288;
PARTLINE(A线<B线,A线),LINETHICK1,Color11412E;
PARTLINE(MA99>REF(MA99,1),MA99),LINETHICK2,color888888;
PARTLINE(MA99>REF(MA99,1),MA99),LINETHICK1,colorffffff;
PARTLINE(MA99<REF(MA99,1),MA99),LINETHICK1,Color77462E;
MA55,LINETHICK2,colorFF;
MA55V:MA55,colorFFFF;
PARTLINE(MA55<REF(MA55,1),MA55),Color33EE00,linethick2;
PARTLINE(MA55<REF(MA55,1),MA55),Colorblue,linethick1;
{阴柱}
STICKLINE(OPEN>=CLOSE ,HIGH ,LOW,2,0 ),COLORGREEN;
STICKLINE(OPEN>=CLOSE ,CLOSE ,OPEN,8,0 ),COLOR008800;
STICKLINE(OPEN>=CLOSE ,CLOSE ,OPEN,7,0 ),COLOR009900;
STICKLINE(OPEN>=CLOSE ,CLOSE ,OPEN,6,0 ),COLOR00AA00;
STICKLINE(OPEN>=CLOSE ,CLOSE ,OPEN,5,0 ),COLOR00BB00;
STICKLINE(OPEN>=CLOSE ,CLOSE ,OPEN,4,0 ),COLOR00CC00;
STICKLINE(OPEN>=CLOSE ,CLOSE ,OPEN,3,0 ),COLOR00DD00;
STICKLINE(OPEN>=CLOSE ,CLOSE ,OPEN,2,0 ),COLOR00EE00;
STICKLINE(OPEN>=CLOSE ,CLOSE ,OPEN,1,0 ),COLOR00FF00;
{粉柱}
STICKLINE(CLOSE>OPEN,HIGH,LOW,2,0) ,COLORRED;
STICKLINE(CLOSE>OPEN,CLOSE,OPEN,8,0) ,COLORFF00FF;
STICKLINE(CLOSE>OPEN,CLOSE,OPEN,7,0) ,COLORFF22FF;
STICKLINE(CLOSE>OPEN,CLOSE,OPEN,6,0) ,COLORFF44FF;
STICKLINE(CLOSE>OPEN,CLOSE,OPEN,5,0) ,COLORFF66FF;
STICKLINE(CLOSE>OPEN,CLOSE,OPEN,4,0) ,COLORFF88FF;
STICKLINE(CLOSE>OPEN,CLOSE,OPEN,3,0) ,COLORFF99FF;
STICKLINE(CLOSE>OPEN,CLOSE,OPEN,2,0) ,COLORFFAAFF;
STICKLINE(CLOSE>OPEN,CLOSE,OPEN,1,0) ,COLORFFBBFF;
{直板K}
STICKLINE(HIGH=LOW and CLOSE=OPEN and (CLOSE/REF(CLOSE,1))>1.048,HIGH,LOW,8,0) ,COLORRED;
STICKLINE(HIGH=LOW and CLOSE=OPEN and (REF(CLOSE,1)/CLOSE)>1.048,HIGH,LOW,8,0) ,COLOR00FF00;
S:=('股票代码:' + STKLABEL);
DRAWTEXT((SYSPARAM(2) = BARPOS),CLOSE,S),ALIGN4,colorCCFFFF;
DRAWTEXT((BARPOS = SYSPARAM(2)),HIGH,((((((((((((((((((((((((((((((((((' 所属板块:' + BLKNAME) + '\n') + '发行价') +
NUMTOSTR(FINANCE(51),2)) + '元') + ' 发行量') + NUMTOSTR(FINANCE(52),2)) + '万股') + '\n') + '总股本') + NUMTOSTR(FINANCE(1),0)) + '万股')
+ ' 流通A股') + NUMTOSTR(FINANCE(7),0)) + '万股') + ' 净资产') + NUMTOSTR(FINANCE(35),2)) + '亿元') + '
每股收益') + NUMTOSTR(FINANCE(33),2)) + '元') + ' 每股未分配') + NUMTOSTR(FINANCE(32),2)) + '元') + '\n') +
'市盈率') + NUMTOSTR(DYNAINFO(39),2)) + '%') + ' 投资收益') + NUMTOSTR(FINANCE(24),2)) + '元') + ' 股东总数')
+ NUMTOSTR(FINANCE(50),0)) + '户')),ALIGN4,colorFF00;
{股票教程网-http://gwgz.net/承接通达信软件和公式破解,普通加密破解,完全加密破解,导入密码破解,时间限制破解,公式编写,可按您的要求写公式指标,价格按难度不同报价,有需要可以找我们}