<ref(close,1),-
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);{程序化指標(biāo) 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;
高點(diǎn)位:=REFDATE(HHV(H,總漲幅周期),DATE); 
低點(diǎn)位:=REFDATE(LLV(L,總漲幅周期),DATE);
低位價:=REF(L,BARSLAST(低點(diǎn)位=L)),COLORGREEN,NODRAW;
高位價:=REF(H,BARSLAST(高點(diǎn)位=H)),COLORRED,NODRAW;
曾最大漲幅:=(高位價-低位價)/低位價*100;
當(dāng)前漲幅:=(C-低位價)/低位價*100;
ZFA:=CON2STR(CONST(曾最大漲幅),2);
ZFB:=CON2STR(CONST(當(dāng)前漲幅),2);
ZFC:=STRCAT('【曾最大漲幅】：',ZFA);
ZFD:=STRCAT(ZFC,'％');
ZFE:=STRCAT(ZFD,'【當(dāng)前總漲幅】：');
ZFF:=STRCAT(ZFE,ZFB);
ZFG:=STRCAT(ZFF,'％');
AA1X:=SUM(IF(CLOSE>REF(CLOSE,1),VOL/CAPITAL*100,IF(CLOSE<REF(CLOSE,1),-
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<(REF(CLOSE,1)))),成交額,0)),0);
AA4X:=SUM((IF(((成交額/8<20) AND (CLOSE>(REF(CLOSE,1)))),成交額,0)),0);
AA5X:=SUM((IF(((成交額/8<20) AND (CLOSE<(REF(CLOSE,1)))),成交額,0)),0);
AA6X:=((AA2X+AA3X)+AA4X)+AA5X;
DD1X:=1;
AAA1:=STRCAT(STRCAT('機(jī)構(gòu)持有',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));