一眼看清機構持有籌碼副圖

安裝後如下圖，友情提示（指標只是輔助，不作建議） 所有程序均為免費分享。

什麼是程序化指標？？

認識程序化指標，炒股不用愁！

不會安裝參照 安裝指南 步驟操作

更多指標公式可通過左下方 閱讀原文 查閱

所屬板塊:=STRCAT('所屬板塊: ',STRCAT(STRCAT(STRCAT('[行業]-',HYBLOCK),STRCAT(' [地域]-',DYBLOCK)),STRCAT(' [概念]-',GNBLOCK)));

總股本:=STRCAT(STRCAT('總股本: ',CON2STR(TOTALCAPITAL/1000000,3)),'億股');

流通盤:=STRCAT(STRCAT('流通盤: ',CON2STR(CAPITAL/1000000,3)),'億股');

每股收益:=STRCAT(STRCAT('每股收益: ',CON2STR(FINANCE(29)/FINANCE(1),2)),'元');

每股未分配:=STRCAT(STRCAT('每股未分配: ',CON2STR(FINANCE(32),2)),'元');

每股公積金:=STRCAT(STRCAT('每股公積金: ',CON2STR(FINANCE(18),2)),'元');

每股淨資產:=STRCAT(STRCAT('每股淨資產: ',CON2STR(FINANCE(34),2)),'元');

總市值:=STRCAT(STRCAT('總市值: ',CON2STR(FINANCE(1)*C/100000000,3)),'億元');

市值:=STRCAT(STRCAT('流通值: ',CON2STR((CAPITAL/1000000)*C,3)),'億元');

SHI:INTPART(DATE+19000000),NODRAW;

上市日期:=STRCAT(' 上市日:',CON2STR(SHI,0));

收入同比增長:=STRCAT(STRCAT('收入同比增長: ',CON2STR(FINANCE(44),2)),'%');

市盈率:=STRCAT('市盈率: ',CON2STR(DYNAINFO(39),2));

主營毛利潤率:=STRCAT(STRCAT('主營毛利潤率: ',CON2STR((FINANCE(20)-FINANCE(21))/FINANCE(20)*100,2)),'%');

主營淨利潤率:=STRCAT(STRCAT('主營淨利潤率: ',CON2STR(FINANCE(30)/FINANCE(20)*100,2)),'%');

主營利潤率:=STRCAT(' 主營利潤率 ',CON2STR(FINANCE(23)/FINANCE(20)*100,2));

淨利同比增長:=STRCAT(STRCAT('淨利同比增長: ',CON2STR(FINANCE(43),2)),'%');

DRAWTEXT_FIX(ISLASTBAR,0.002,0,0,'上市日期:'),COLORMAGENTA;

DRAWNUMBER_FIX(ISLASTBAR,0.037,0,0,SHI),COLORMAGENTA;

DRAWTEXT_FIX(ISLASTBAR,0.002,0.05,0,所屬板塊),COLORMAGENTA;

DRAWTEXT_FIX(ISLASTBAR,0.002,0.10,0,總股本),COLORCYAN;

DRAWTEXT_FIX(ISLASTBAR,0.127,0.10,0,收入同比增長),COLORYELLOW;

DRAWTEXT_FIX(ISLASTBAR,0.257,0.10,0,每股收益),COLORCYAN;

DRAWTEXT_FIX(ISLASTBAR,0.002,0.15,0,流通盤),COLORCYAN;

DRAWTEXT_FIX(ISLASTBAR,0.127,0.15,0,主營毛利潤率),COLORYELLOW;

DRAWTEXT_FIX(ISLASTBAR,0.257,0.15,0,每股淨資產),COLORCYAN;

DRAWTEXT_FIX(ISLASTBAR,0.002,0.20,0,總市值),COLORCYAN;

DRAWTEXT_FIX(ISLASTBAR,0.127,0.20,0,主營淨利潤率),COLORYELLOW;

DRAWTEXT_FIX(ISLASTBAR,0.257,0.20,0,每股未分配),COLORCYAN;

DRAWTEXT_FIX(ISLASTBAR,0.002,0.25,0,市值),COLORCYAN;

DRAWTEXT_FIX(ISLASTBAR,0.127,0.25,0,淨利同比增長),COLORYELLOW;

DRAWTEXT_FIX(ISLASTBAR,0.257,0.25,0,每股公積金),COLORCYAN;

DRAWTEXT_FIX(ISLASTBAR,0.002,0.25,0,市盈率),COLORCYAN;

HSL:=100*VOL/(FINANCE(7)/100);

換手:=STRCAT(STRCAT('換手: ',CON2STR(HSL,2)),'%');

DRAWTEXT_FIX(ISLASTBAR,0.002,0.30,0,換手),COLORMAGENTA;

CJ:=DYNAINFO(10)/100000000;

成交:=STRCAT(STRCAT('成交: ',CON2STR(CJ,2)),'億');

DRAWTEXT_FIX(ISLASTBAR,0.127,0.30,0,成交),COLORMAGENTA;

DRAWTEXT_FIX(CURRBARSCOUNT=120,0.4,0.01,0,''),COLORGREEN;

LC:=REF(CLOSE,1);

WRSI:=SMA(MAX(CLOSE-LC,0),5,1)/SMA(ABS(CLOSE-LC),5,1)*100;

獲利籌碼:=CONST(WINNER(C)*100);

SAT:=(AMOUNT/C)/(HHV(AMOUNT,20)/HHV(C,20));

量能飽和:=(IF(SAT>1,1,SAT)*100);

WR10:=(HHV(HIGH,3)-CLOSE)/(HHV(HIGH,3)-LLV(LOW,3))*100;

活躍:=(WRSI-WR10);{程序化指標 WWW.HONGHAIE.COM}

活躍度比:=IF(活躍>=0,(活躍+100)/2,100-ABS((活躍-100)/2));

DRAWTEXT_FIX(ISLASTBAR=1,0.83,0.25,1,STRCAT(STRCAT('量能飽和： ',CON2STR(量能飽和,2)),'％')),COLORYELLOW;

DRAWTEXT_FIX(ISLASTBAR=1,0.83,0.52,1,STRCAT(STRCAT('活躍度比： ',CON2STR(活躍度比,2)),'％')),COLORYELLOW;

DRAWTEXT_FIX(ISLASTBAR=1,0.83,0.75,1,STRCAT(STRCAT('獲利籌碼： ',CON2STR(獲利籌碼,2)),'％')),COLORYELLOW;

DRAWRECTREL(950,470,630,365,RGB(150,10,250));

DRAWRECTREL(950,710,630,610,RGB(150,10,250));

DRAWRECTREL(950,855,630,955,RGB(150,10,250));

DRAWRECTREL(950,470,630+CONST(量能飽和*(950-630)/100),365,RGB(0,100,0));

DRAWRECTREL(790,470,790,365,RGB(0,0,10));

DRAWRECTREL(950,710,630+CONST(活躍度比*(950-630)/100),610,RGB(0,100,0));

DRAWRECTREL(790,710,790,610,RGB(0,0,10));

DRAWRECTREL(950,855,630+CONST(獲利籌碼*(950-630)/100),955,RGB(0,100,0));

DRAWRECTREL(790,855,790,955,RGB(0,0,10));

總漲幅週期:=350;

高點位:=REFDATE(HHV(H,總漲幅週期),DATE);

低點位:=REFDATE(LLV(L,總漲幅週期),DATE);

低位價:=REF(L,BARSLAST(低點位=L)),COLORGREEN,NODRAW;

高位價:=REF(H,BARSLAST(高點位=H)),COLORRED,NODRAW;

曾最大漲幅:=(高位價-低位價)/低位價*100;

當前漲幅:=(C-低位價)/低位價*100;

ZFA:=CON2STR(CONST(曾最大漲幅),2);

ZFB:=CON2STR(CONST(當前漲幅),2);

ZFC:=STRCAT('【曾最大漲幅】：',ZFA);

ZFD:=STRCAT(ZFC,'％');

ZFE:=STRCAT(ZFD,'【當前總漲幅】：');

ZFF:=STRCAT(ZFE,ZFB);

ZFG:=STRCAT(ZFF,'％');

AA1X:=SUM(IF(CLOSE>REF(CLOSE,1),VOL/CAPITAL*100,IF(CLOSE

VOL/CAPITAL*100,0)),0)};

成交額:=V*C/100,NODRAW;{萬元}

AA2X:=SUM((IF(((成交額/8>20) AND (CLOSE>(REF(CLOSE,1)))),成交額,0)),0);

AA3X:=SUM((IF(((成交額/8>20) AND (CLOSE

AA4X:=SUM((IF(((成交額/8<20) AND (CLOSE>(REF(CLOSE,1)))),成交額,0)),0);

AA5X:=SUM((IF(((成交額/8<20) AND (CLOSE

AA6X:=((AA2X+AA3X)+AA4X)+AA5X;

DD1X:=1;

AAA1:=STRCAT(STRCAT('機構持有',CON2STR((100*AA2X)/AA6X,0)),'%');

AAA2:=STRCAT(STRCAT('散戶持有',CON2STR((100*AA3X)/AA6X,0)),'%');

DRAWTEXT_FIX(1,0.83,0,1,'《★籌碼分析★》'),COLORRED;

DRAWTEXT_FIX(DD1X=1,0.63,0,0,AAA1),COLORMAGENTA;

DRAWTEXT_FIX(DD1X=1,0.89,0,0,AAA2),COLORGREEN;

VARA5:=CONST(AA2X/AA6X*100);

DRAWRECTREL(950,220,630,115,RGB(150,10,250));

DRAWRECTREL(950,220,630+CONST(VARA5*(950-630)/100),115,RGB(0,100,0));

DRAWRECTREL(790,220,790,115,RGB(0,0,10));