|
主圖： 源碼：MA1:MA(CLOSE,M1); MA2:MA(CLOSE,M2); MA3:MA(CLOSE,M3); MA4:MA(CLOSE,M4); MA5:MA(CLOSE,M5); MA6:MA(CLOSE,M6); 地域板塊:=STRCAT(STRCAT(HYBLOCK,'-'),STRCAT('-',DYBLOCK)); 概念板塊:=STRCAT('--',GNBLOCK); {總股本:=STRCAT(STRCAT(' 總股本:',CON2STR(TOTALCAPITAL/1000000,2)),'億'); 流通盤:=STRCAT(STRCAT(' 流通盤:',CON2STR(CAPITAL/1000000,2)),'億'); 全流通:=STRCAT(STRCAT(' 流通比:',CON2STR(CAPITAL/TOTALCAPITAL*100,2)),'％');} 流通市值:=STRCAT(STRCAT('流通市值:',CON2STR((CAPITAL/1000000)*C,2)),'億'); {上市日期:=STRCAT('上市日期: ',CON2STR(HHV((BARSCOUNT(C)=0)*(DATE+19000000),0),0));} {股本市值:=STRCAT('【股本市值】',STRCAT(STRCAT(STRCAT(STRCAT(總股本,流通盤),全流通),市值),上市日期));} {股本市值:=STRCAT('.',STRCAT(流通市值,上市日期));} 股本市值:=STRCAT(流通市值,'元'); {市盈率:=STRCAT(' 市盈率:',CON2STR(C/FINANCE(33),2)); 市銷率:=STRCAT(' 市銷率:',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)); 凈利潤率:=STRCAT(' 凈利率:',CON2STR(FINANCE(30)/FINANCE(20)*100,2)); 主營利潤率:=STRCAT(' 主營利潤率:',CON2STR(FINANCE(23)/FINANCE(20)*100,2)); 當(dāng)前業(yè)績:=STRCAT('【當(dāng)前業(yè)績】',STRCAT(STRCAT(STRCAT(STRCAT(STRCAT(STRCAT(市盈率,市銷率),市凈率),凈資收益率),毛利率),凈利潤率),主營利潤率));} DRAWTEXT_FIX(ISLASTBAR,0.005,0.02,0,地域板塊),COLORCYAN; DRAWTEXT_FIX(ISLASTBAR,0.25,0.02,0,概念板塊),COLORYELLOW; DRAWTEXT_FIX(ISLASTBAR,0.005,0.28,0,股本市值),COLORCYAN; {DRAWTEXT_FIX(ISLASTBAR,0.005,0.12,0,當(dāng)前業(yè)績),COLORMAGENTA;} {DRAWTEXT_FIX(1,0.005,0.17,0,'蕕利比例：'),COLORYELLOW;} {DRAWNUMBER_FIX(1,0.06,0.17,0,CONST(WINNER(C )*100)),COLORYELLOW;} {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;{缺長期負(fù)債或負(fù)債總額} {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,'輕警','無警')); 財(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));{理論上越大越好但不同行業(yè)有不同標(biāo)準(zhǔn)}; {現(xiàn)金負(fù)債比:=STRCAT(' 現(xiàn)金負(fù)債比: ',CON2STR(FINANCE(25)/FINANCE(15),3));{缺長期負(fù)債或負(fù)債總額，理論上越大越好但不同行業(yè)有不同標(biāo)準(zhǔn)}; {財(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.005,0.23,0,財(cái)務(wù)系數(shù)),COLORGREEN;} {漲跌停 K線變色，通達(dá)信公式} NE:=IF(NAMELIKE('S') OR NAMELIKE('*S'),0.05,0.1);{通用個(gè)股/ST股} 漲停:=C/REF(C,1)-1>=NE-0.01/REF(C,1) AND C=H AND PERIOD=5;{僅在日線上變色} STICKLINE(漲停,C,O,-1,0),COLORFF00F5; 跌停:=REF(C,1)/C-1>=NE-0.01/REF(C,1) AND L=C AND PERIOD=5; STICKLINE(跌停,C,O,-1,0),COLOR00FF00; {曾漲跌停 K線變色} 曾漲停:=H/REF(C,1)-1>=NE-0.01/REF(C,1) AND C<H AND PERIOD=5; STICKLINE(曾漲停,H-(H-MAX(O,C)),H,0,0),COLORFF00B5; 曾跌停:=REF(C,1)/L-1>=NE-0.01/REF(C,1) AND L<C AND PERIOD=5; STICKLINE(曾跌停,L+(MIN(O,C)-L),L,0,0),COLOR00BB00; {漲跌停開盤 K線變色} 漲停開盤:=O/REF(C,1)-1>=NE-0.01/REF(C,1) AND O=H AND PERIOD=5;{陰陽線的十分之一變色} STICKLINE(漲停開盤,C+(O-C)*0.9,O,-1,0),COLORFF00F5; 跌停開盤:=REF(C,1)/O-1>=NE-0.01/REF(C,1) AND L=O AND PERIOD=5; STICKLINE(跌停開盤,C-(C-O)*0.9,O,-1,0),COLOR00FF00; {競價(jià)情況} JJCJL:=DYNAINFO(15)/DYNAINFO(4)/100; JJJEDW:=IF(DYNAINFO(15)>10000,'萬元','元'); JJJE:=IF(DYNAINFO(15)>10000,CON2STR(DYNAINFO(15)/10000,1),CON2STR(DYNAINFO(15),1)); JJJE1:=STRCAT(JJJE,JJJEDW); JJ:=STRCAT('競價(jià)量額：',STRCAT(CON2STR(JJCJL/10000,2),'萬手')); JJ1:=STRCAT(JJ,' = '); DRAWTEXT_FIX(1,0.25,0.15,0,STRCAT(JJ1,JJJE1))COLORCYAN;{競價(jià)量額位置} {DRAWTEXT_FIX(1,0.95,0.50,0,STRCAT('占昨成交：',STRCAT(CON2STR(DYNAINFO(15)/分時(shí)引用.昨日額#DAY*100,2),'%')))COLORYELLOW;} 今日競價(jià)股數(shù):=DYNAINFO(15)/DYNAINFO(4); ZSPJ:=分時(shí)引用JIN.ZSP#DAY; A:=今日競價(jià)股數(shù)/FINANCE(46)*10000*(O-ZSPJ)/ZSPJ; DRAWTEXT_FIX(1,0.005,0.15,0,STRCAT(STRCAT('競價(jià)動(dòng)能：',CON2STR(A,2)),''))COLORYELLOW; |
|
|
