| MA30:=EMA(CLOSE,30); 強(qiáng)弱:=EMA(CLOSE,900); STICKLINE((MA30>強(qiáng)弱),MA30,強(qiáng)弱,0,-1),COLORLIGRAY; STICKLINE((MA30<強(qiáng)弱),MA30,強(qiáng)弱,0,-1),COLORLICYAN; H1:=MAX(DYNAINFO(3),DYNAINFO(5)); L1:=MIN(DYNAINFO(3),DYNAINFO(6)); P1:=H1-L1; 阻力:L1+P1*7/8,COLORLIMAGENTA,DOTLINE; 支撐:L1+P1*0.5/8,COLORCYAN,DOTLINE; 中:(支撐+阻力)/2,COLORLIGRAY,POINTDOT; 均價(jià):SUM(V*C,0)/SUM(V,0),COLORYELLOW,DOTLINE; 現(xiàn)價(jià):CLOSE,COLORWHITE,LINETHICK3; DRAWTEXT(ISLASTBAR AND 現(xiàn)價(jià),現(xiàn)價(jià),STRCAT('←',CON2STR(現(xiàn)價(jià),2))),COLORYELLOW; STICKLINE(CROSS(支撐,現(xiàn)價(jià)),支撐,中,0,-1),COLORYELLOW; STICKLINE(CROSS(現(xiàn)價(jià),阻力),阻力,中,0,-1),COLORGREEN; DRAWTEXT(LONGCROSS(支撐,現(xiàn)價(jià),2),C*0.9982,' 買(mǎi)'),COLORYELLOW; DRAWTEXT(LONGCROSS(現(xiàn)價(jià),阻力,2),C*1.0018,' 賣(mài)'),COLORCYAN; STICKLINE(C<支撐,支撐,C,1,0),COLORYELLOW; DRAWICON(CROSS(支撐,現(xiàn)價(jià)),(支撐-中)/5+支撐,26); STICKLINE(C>阻力,阻力,C,1,0),COLORLIGREEN; DRAWICON(CROSS(現(xiàn)價(jià),阻力),阻力-(支撐-中)/5,15); DRAWTEXT(CURRBARSCOUNT=8,阻力+0.003,'頂'),COLORYELLOW; DRAWTEXT(CURRBARSCOUNT=8,支撐-0.003,'底'),COLORGREEN; DRAWTEXT(CURRBARSCOUNT=8,(支撐+阻力)/2,'中'),COLORLIRED; 成交額:=V*C/100,NODRAW; A2:=SUM((IF(((成交額/8>20) AND (CLOSE>(REF(CLOSE,1)))),成交額,0)),0); A3:=SUM((IF(((成交額/8>20) AND (CLOSE<(REF(CLOSE,1)))),成交額,0)),0); A6:=(A2+A3); A7:=IF((ISLASTBAR),((100*A2)/A6),0); A8:=IF((ISLASTBAR),((100*A3)/A6),0); DD1:=1; AAA1:=STRCAT(STRCAT('機(jī)構(gòu)買(mǎi)',CON2STR((100*A2)/A6,0)),'%'); AAA2:=STRCAT(STRCAT('機(jī)構(gòu)賣(mài)',CON2STR((100*A3)/A6,0)),'%'); AAA3:=STRCAT(STRCAT('機(jī)構(gòu)總買(mǎi)入',CON2STR((100*(A2-A3))/A6,0)),'%'); A000:=DRAWTEXT_FIX(DD1=1,0,0.02,0,AAA1); A001:=DRAWTEXT_FIX(DD1=1,0,0.13,0,AAA2); DRAWTEXT_FIX(DD1=1,0.842,1,0,AAA3),COLORYELLOW; 現(xiàn)手買(mǎi):BUYVOL*DYNAINFO(7)*100/10000 COLOR0000FF,NODRAW; 現(xiàn)手賣(mài):SELLVOL*DYNAINFO(7)*100/10000 COLOR00FF00,NODRAW; 合:=ABS(現(xiàn)手買(mǎi))+ABS(現(xiàn)手賣(mài))COLOR80FFFF,NODRAW; 差:=ABS(現(xiàn)手買(mǎi))-ABS(現(xiàn)手賣(mài))COLOR80FFFF,NODRAW; MPB1:=ABS(現(xiàn)手買(mǎi))/合*100; MPB2:=ABS(現(xiàn)手賣(mài))/合*100; TESTSKIP(NOT(現(xiàn)手買(mǎi) OR 現(xiàn)手賣(mài) OR 合 OR 差 OR MPB1 OR MPB2)!=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+現(xiàn)手買(mǎi)*210/合,940,RGB(128,0,0)); DRAWRECTREL(595,995,595+現(xiàn)手買(mǎi)*210/合,945,RGB(148,0,0)); DRAWRECTREL(595,990,595+現(xiàn)手買(mǎi)*210/合,950,RGB(168,0,0)); DRAWRECTREL(595,985,595+現(xiàn)手買(mǎi)*210/合,955,RGB(188,0,0)); DRAWRECTREL(595,980,595+現(xiàn)手買(mǎi)*210/合,960,RGB(208,0,0)); DRAWRECTREL(595,975,595+現(xiàn)手買(mǎi)*210/合,965,RGB(228,0,0)); DRAWRECTREL(595,970,595+現(xiàn)手買(mǎi)*210/合,970,RGB(248,0,0)); DRAWRECTREL(595+現(xiàn)手買(mǎi)*210/合,940,595+現(xiàn)手買(mǎi)*210/合,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.560,0.89,0,STRCAT(STRCAT('',CON2STR(現(xiàn)手買(mǎi),1)),'萬(wàn)')),COLORRED; DRAWTEXT_FIX(1,0.800,0.89,0,STRCAT(STRCAT('',CON2STR(現(xiàn)手賣(mài),1)),'萬(wàn)')),COLORGREEN; DRAWTEXT_FIX(CURRBARSCOUNT=1 AND(差)>0,0.678,0.888,0,STRCAT(' ',STRCAT(CON2STR(差,1),'萬(wàn)'))) COLORRED; DRAWTEXT_FIX(CURRBARSCOUNT=1 AND(差)<0,0.678,0.888,0,STRCAT(' ',STRCAT(CON2STR(差,1),'萬(wàn)'))) COLORGREEN; DRAWTEXT_FIX(CURRBARSCOUNT=1 AND(差)=0,0.678,0.888,0,STRCAT(' ',STRCAT(CON2STR(差,1),'萬(wàn)'))) COLOR80FFFF; DRAWTEXT_FIX(1,0.800,0.98,0,STRCAT(STRCAT(' ',CON2STR(MPB2,1)),'%')),COLORGREEN; DRAWTEXT_FIX(1,0.560,0.98,0,STRCAT(STRCAT('',CON2STR(MPB1,1)),'%')),COLORRED; 市盈率:=STRCAT('市盈率: ',CON2STR(C/FINANCE(33),2)); 市銷(xiāo)率:=STRCAT('市銷(xiāo)率: ',CON2STR(C/(FINANCE(20)/FINANCE(1)),2)); 市凈率:=STRCAT('市凈率: ',CON2STR(C/FINANCE(34),2)); 凈資收益率:=STRCAT('凈資收益率: ',CON2STR(FINANCE(33)/FINANCE(34)*100,2)); 毛利率:=STRCAT('毛利率: ',CON2STR((FINANCE(20)-FINANCE(21))/FINANCE(20)*100,2)); 凈利潤(rùn)率:=STRCAT('凈利潤(rùn)率 ',CON2STR(FINANCE(30)/FINANCE(20)*100,2)); 主營(yíng)利潤(rùn)率:=STRCAT('主營(yíng)利潤(rùn)率 ',CON2STR(FINANCE(23)/FINANCE(20)*100,2)); 利潤(rùn)同比:=STRCAT('利潤(rùn)同比: ',CON2STR(FINANCE(43),2)); 收入同比:=STRCAT('收入同比: ',CON2STR(FINANCE(44),2)); X1:=(FINANCE(11)-FINANCE(15))/FINANCE(10)*1.2; X2:=(FINANCE(31)+FINANCE(17))/FINANCE(10)*1.4; X3:=FINANCE(23)/FINANCE(10)*3.3; X4:=FINANCE(19)/FINANCE(15)*0.6; X5:=FINANCE(20)/FINANCE(15)*0.999; Z值:=X1+X2+X3+X4+X5; 預(yù)警:=IF(Z值<1.2,'重警',IF(Z值>=1.2 AND Z值<2.6,'輕警','無(wú)警')); 財(cái)務(wù)預(yù)警:=STRCAT('財(cái)務(wù)預(yù)警: ',STRCAT(預(yù)警,STRCAT('-Z值: ',CON2STR(Z值,3)))); 優(yōu)質(zhì)資產(chǎn)率:=STRCAT(' 優(yōu)質(zhì)資產(chǎn)率: ',CON2STR((FINANCE(19)-FINANCE(22)-FINANCE(27))/FINANCE(19),2)); 現(xiàn)金負(fù)債比:=STRCAT(' 現(xiàn)金負(fù)債比: ',CON2STR(FINANCE(25)/FINANCE(15),3)); 財(cái)務(wù)系數(shù):=STRCAT('風(fēng)險(xiǎn)系數(shù): ',STRCAT(STRCAT(財(cái)務(wù)預(yù)警,優(yōu)質(zhì)資產(chǎn)率),現(xiàn)金負(fù)債比)); DRAWTEXT_FIX(ISLASTBAR,0.222,0.96,0,財(cái)務(wù)系數(shù)),COLORLIBLUE; D1:=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,'六','日'))))))); AA:=STRCAT(STRCAT(STRCAT(AA1,AA2),STRCAT(AA3,AA4)),''); DRAWTEXT_FIX(D1,0.888,0.001,0,AA),COLORLIGRAY; MZ0:=(BARSLAST(((HOUR=9) AND (MINUTE=31)))+1); 上穿分時(shí):IF(((SETCODE<2) AND (CONST(MZ0)<241)),CONST(IF((TIME<1000),HHV(CLOSE,0),SUM((IF((TIME=1000),1,0)*HHV(CLOSE,0)),0))),DRAWNULL),LINETHICK1,COLORLIRED; 底支:IF(((SETCODE<2) AND (CONST(MZ0)<241)),CONST(IF((TIME<1000),HHV(CLOSE,0),SUM((IF((TIME=1000),1,0)*LLV(CLOSE,0)),0))),DRAWNULL),LINETHICK1,COLORLIGREEN; STICKLINE(TIME=931 OR TIME=1000,上穿分時(shí),底支,0,-1),COLORLIBLUE; 分時(shí)上突:=CROSS(C,上穿分時(shí)); 上突:=C<上穿分時(shí) AND 上穿分時(shí)>底支; DRAWICON(分時(shí)上突,C,5); 股價(jià)支撐線(xiàn):=MA(CLOSE,20); 底價(jià)線(xiàn):股價(jià)支撐線(xiàn)-2*STD(CLOSE,20),COLORMAGENTA,LINETHICK2; DRAWTEXT_FIX(1,0.0001,0.00,0,STRCAT(STRCAT('【今日強(qiáng)勢(shì)有效突破】',CON2STR(上穿分時(shí),2)),' 元 買(mǎi)入穩(wěn)賺')),COLORYELLOW; DRAWTEXT_FIX(1,0.5001,0.00,0,STRCAT(STRCAT('【底部得到有效支撐】',CON2STR(底支,2)),' 元 可以參考')),COLORLIRED; | 
|  | 
來(lái)自: 常熟老李jlr5mr > 《指標(biāo)源碼》