 | |  |  |
ZBGS1:=EMA(CLOSE,30);
ZBGS2:=EMA(CLOSE,900);
STICKLINE((ZBGS1>ZBGS2),ZBGS1,ZBGS2,0.8,0),COLORRED;
STICKLINE((ZBGS1< ZBGS2),ZBGS1,ZBGS2,0.8,0),COLORGREEN;
ZBGS3:=MAX(DYNAINFO(3),DYNAINFO(5));
ZBGS4:=MIN(DYNAINFO(3),DYNAINFO(6));
ZBGS5:=ZBGS3-ZBGS4;
ZBGS6:=ZBGS4+ZBGS5*7/8,COLORLIGREEN;
ZBGS7:=ZBGS4+ZBGS5*0.5/8,COLORLIMAGENTA;
ZBGS8:=(ZBGS7+ZBGS6)/2,COLORWHITE,POINTDOT;
ZBGS9:=SUM(V*C,0)/SUM(V,0),COLORYELLOW,DOTLINE;
ZBGS10:=CLOSE,COLORWHITE,LINETHICK2;
DRAWTEXT( ISLASTBAR AND ZBGS10,ZBGS10,STRCAT('←',CON2STR(ZBGS10,2))),COLORYELLOW;
STICKLINE(CROSS(ZBGS7,ZBGS10),ZBGS7,ZBGS8,1,0),COLORCC00FF;
STICKLINE(CROSS(ZBGS10,ZBGS6),ZBGS6,ZBGS8,1,0),COLOR33FF33;
DRAWTEXT(LONGCROSS(ZBGS7,ZBGS10,2),ZBGS7*1.001,'★买'),COLORFF66FF ;
DRAWTEXT(LONGCROSS(ZBGS10,ZBGS6,2),ZBGS6*0.999,'☆卖'),COLOR66FF33;
STICKLINE(C< ZBGS7,ZBGS7,C,2,0),COLORRED;
STICKLINE(CROSS(ZBGS7,ZBGS10),ZBGS7,(ZBGS7-ZBGS8)/5+ZBGS7,2,0),COLORYELLOW;
DRAWTEXT(CROSS(ZBGS7,ZBGS10),(ZBGS7-ZBGS8)/5+ZBGS7,'底'),COLORYELLOW;
STICKLINE(CROSS(ZBGS10,ZBGS6),ZBGS6,ZBGS6-(ZBGS7-ZBGS8)/5,2,0),COLORLIRED;
DRAWTEXT(CROSS(ZBGS10,ZBGS6),ZBGS6-(ZBGS7-ZBGS8)/5,'顶'),COLORLIRED;
DRAWTEXT(CURRBARSCOUNT=8,ZBGS6+0.003,'顶'),COLORGREEN,LINETHICK1;
DRAWTEXT(CURRBARSCOUNT=8,ZBGS7-0.003,'底'),COLORLIRED,LINETHICK1;
DRAWTEXT(CURRBARSCOUNT=8,(ZBGS7+ZBGS6)/2,'中'),COLORWHITE,LINETHICK1;
ZBGS11:=V*C/100,NODRAW;
ZBGS12:=SUM((IF(((ZBGS11/8>20) AND (CLOSE>(REF(CLOSE,1)))),ZBGS11,0)),0);
ZBGS13:=SUM((IF(((ZBGS11/8>20) AND (CLOSE< (REF(CLOSE,1)))),ZBGS11,0)),0);
ZBGS14:=(ZBGS12+ZBGS13);
ZBGS15:=IF((ISLASTBAR),((100*ZBGS12)/ZBGS14),0);
ZBGS16:=IF((ISLASTBAR),((100*ZBGS13)/ZBGS14),0);
ZBGS17:=1;
ZBGS18:=STRCAT(STRCAT('机勾买鱼',CON2STR((100*ZBGS12)/ZBGS14,0)),'％');
ZBGS19:=STRCAT(STRCAT('机勾卖鱼',CON2STR((100*ZBGS13)/ZBGS14,0)),'％');
ZBGS20:=STRCAT(STRCAT('机勾总买鱼',CON2STR((100*(ZBGS12-ZBGS13))/ZBGS14,0)),'％');
DRAWTEXT_FIX(ZBGS17=1,0,0.02,0,ZBGS18),COLORRED;
DRAWTEXT_FIX(ZBGS17=1,0,0.13,0,ZBGS19),COLOR00FF00;
DRAWTEXT_FIX(ZBGS17=1,0.88,1,0,ZBGS20),COLOR00FFFF;
ZBGS21:=BUYVOL*DYNAINFO(7)*100/10000 COLOR0000FF,NODRAW;
ZBGS22:=SELLVOL*DYNAINFO(7)*100/10000 COLOR00FF00,NODRAW;
ZBGS23:=ABS(ZBGS21)+ABS(ZBGS22)COLOR80FFFF,NODRAW;
ZBGS24:=ABS(ZBGS21)-ABS(ZBGS22)COLOR80FFFF,NODRAW;
ZBGS25:=ABS(ZBGS21)/ZBGS23*100;
ZBGS26:=ABS(ZBGS22)/ZBGS23*100;
TESTSKIP(NOT(ZBGS21 OR ZBGS22 OR ZBGS23 OR ZBGS24 OR ZBGS25 OR ZBGS26)!=0);
DRAWRECTREL(595,1000,795,940,RGB(0,128,0));
DRAWRECTREL(595,995,795,945,RGB(0,148,0));
DRAWRECTREL(595,990,795,950,RGB(0,168,0));
DRAWRECTREL(595,985,795,955,RGB(0,188,0));
DRAWRECTREL(595,980,795,960,RGB(0,208,0));
DRAWRECTREL(595,975,795,965,RGB(0,228,0));
DRAWRECTREL(595,970,795,970,RGB(0,248,0));
DRAWRECTREL(595,1000,595+ZBGS21*210/ZBGS23,940,RGB(128,0,0));
DRAWRECTREL(595,995,595+ZBGS21*210/ZBGS23,945,RGB(148,0,0));
DRAWRECTREL(595,990,595+ZBGS21*210/ZBGS23,950,RGB(168,0,0));
DRAWRECTREL(595,985,595+ZBGS21*210/ZBGS23,955,RGB(188,0,0));
DRAWRECTREL(595,980,595+ZBGS21*210/ZBGS23,960,RGB(208,0,0));
DRAWRECTREL(595,975,595+ZBGS21*210/ZBGS23,965,RGB(228,0,0));
DRAWRECTREL(595,970,595+ZBGS21*210/ZBGS23,970,RGB(248,0,0));
DRAWRECTREL(595+ZBGS21*210/ZBGS23,940,595+ZBGS21*210/ZBGS23,1000,RGB(128,0,0));
DRAWRECTREL(795,940,795,1000,RGB(0,0.0,10));
DRAWRECTREL(594.8,939.8,594.8,1000,RGB(0,0,10));
DRAWRECTREL(594.8,939.8,594.8,939.8,RGB(0,0,10));
DRAWRECTREL(594.8,1000,594.8,1000,RGB(0,0,10));
DRAWTEXT_FIX(1,0.54,0.89,0,STRCAT(STRCAT('',CON2STR(ZBGS21,1)),'万')),COLOR0000FF;
DRAWTEXT_FIX(1,0.785,0.89,0,STRCAT(STRCAT('',CON2STR(ZBGS22,1)),'万')),COLOR00FF00;
DRAWTEXT_FIX(CURRBARSCOUNT=1 AND(ZBGS24)>0,0.65,0.89,0,STRCAT(' ',STRCAT(CON2STR(ZBGS24,1),'万'))) COLOR0000FF;
DRAWTEXT_FIX(CURRBARSCOUNT=1 AND(ZBGS24)< 0,0.65,0.89,0,STRCAT(' ',STRCAT(CON2STR(ZBGS24,1),'万'))) COLOR00FF00;
DRAWTEXT_FIX(CURRBARSCOUNT=1 AND(ZBGS24)=0,0.65,0.89,0,STRCAT(' ',STRCAT(CON2STR(ZBGS24,1),'万'))) COLOR80FFFF;
DRAWTEXT_FIX(1,0.8,0.98,0,STRCAT(STRCAT(' ',CON2STR(ZBGS26,1)),'％')),COLOR00FF00;
DRAWTEXT_FIX(1,0.54,0.98,0,STRCAT(STRCAT('',CON2STR(ZBGS25,1)),'％')),COLOR0000FF;
ZBGS27:=STRCAT('市盈率: ',CON2STR(C/FINANCE(33),2));
ZBGS28:=STRCAT(' 市销率: ',CON2STR(C/(FINANCE(20)/FINANCE(1)),2));
ZBGS29:=STRCAT(' 市净率: ',CON2STR(C/FINANCE(34),2));
ZBGS30:=STRCAT(' 净资收益率: ',CON2STR(FINANCE(33)/FINANCE(34)*100,2));
ZBGS31:=STRCAT(' 毛利率: ',CON2STR((FINANCE(20)-FINANCE(21))/FINANCE(20)*100,2));
ZBGS32:=STRCAT(' 净利润率 ',CON2STR(FINANCE(30)/FINANCE(20)*100,2));
ZBGS33:=STRCAT(' 主营利润率 ',CON2STR(FINANCE(23)/FINANCE(20)*100,2));
ZBGS34:=STRCAT(' 利润同比: ',CON2STR(FINANCE(43),2));
ZBGS35:=STRCAT(' 收入同比: ',CON2STR(FINANCE(44),2));
ZBGS36:=(FINANCE(11)-FINANCE(15))/FINANCE(10)*1.2;
ZBGS37:=(FINANCE(31)+FINANCE(17))/FINANCE(10)*1.4;
ZBGS38:=FINANCE(23)/FINANCE(10)*3.3;
ZBGS39:=FINANCE(19)/FINANCE(15)*0.6;
ZBGS40:=FINANCE(20)/FINANCE(15)*0.999;
ZBGS41:=ZBGS36+ZBGS37+ZBGS38+ZBGS39+ZBGS40;
ZBGS42:=IF(ZBGS41< 1.2,'重警',IF(ZBGS41>=1.2 AND ZBGS41< 2.6,'轻警','无警'));
ZBGS43:=STRCAT('财务预警: ',STRCAT(ZBGS42,STRCAT('-Z值: ',CON2STR(ZBGS41,3))));
ZBGS44:=STRCAT(' 优质资产率: ',CON2STR((FINANCE(19)-FINANCE(22)-FINANCE(27))/FINANCE(19),2));
ZBGS45:=STRCAT(' 现金负债比: ',CON2STR(FINANCE(25)/FINANCE(15),3));
ZBGS46:=STRCAT('风险系数: ',STRCAT(STRCAT(ZBGS43,ZBGS44),ZBGS45));
DRAWTEXT_FIX(ISLASTBAR,0.025,0.96,0,ZBGS46),COLORCYAN;
ZBGS47:=YEAR AND MONTH AND DAY;
ZBGS48:=STRCAT(CON2STR(YEAR,0),'年');
ZBGS49:=STRCAT(CON2STR(MONTH,0),'月');
ZBGS50:=STRCAT(CON2STR(DAY,0),'日');
ZBGS51:=STRCAT('星期',IF(WEEKDAY=1,'一',IF(WEEKDAY=2,'二',IF(WEEKDAY=3,'三',IF(WEEKDAY=4,'四',IF(WEEKDAY=5,'五',IF(WEEKDAY=6,'六','日')))))));
ZBGS52:=STRCAT(STRCAT(STRCAT(ZBGS48,ZBGS49),STRCAT(ZBGS50,ZBGS51)),'');
DRAWTEXT_FIX(ZBGS47,0.83,0,0,ZBGS52),COLORGREEN;
未
| |  | |  |
|
