「翔博精选指标」多空转换副图,量能类公式(通达信公式 副图 源
2022-05-24原创 编 辑:翔博软件
	DRAWRECTREL(999,999,0,0,RGB(128,128,0));}
	{DRAWRECTREL(999,999,0,0,RGB(210,105,30));}
	DRAWTEXT_FIX(ISLASTBAR=1,0.0100,0,0,STKNAME),COLORWHITE ;
	DRAWTEXT_FIX(ISLASTBAR=1,0.0880,0,0,CODE) COLOR0000FF;
	涨跌量:DVOL/100,NODRAW;
	STICKLINE(DOPEN<DCLOSE,0,涨跌量,4,0),COLOR8833CC;
	STICKLINE(DOPEN>DCLOSE,0,涨跌量,4,0),COLOR668833;
	实际量:-V,VOLSTICK;
	年换手:SUM(VOL,YEAR)*100/CAPITAL,NODRAW;
	月换手:SUM(VOL,MONTH)*100/CAPITAL,NODRAW;
	周换手:SUM(VOL,WEEKDAY)*100/CAPITAL,NODRAW;
	{涨跌量:DVOL/100,NODRAW;}
	{STICKLINE(DOPEN<DCLOSE,0,涨跌量,4,0),COLOR663366;}
	{STICKLINE(DOPEN>DCLOSE,0,涨跌量,4,0),COLOR667733;}
	正能量:VOL,VOLSTICK,COLORRED;
	负能量:-VOL,VOLSTICK,COLORCYAN;
	当日换手:IF((SETCODE==0||SETCODE==1),100*VOL,VOL)/(FINANCE(7)/100),NODRAW;
	多头换手:SUM(ACTINVOL,1)*100/CAPITAL,NODRAW,COLORMAGENTA;
	空头换手:SUM(ACTOUTVOL,1)*100/CAPITAL,NODRAW,COLORGREEN;
	五十日换手:SUM(VOL,50)*100/CAPITAL,NODRAW;
	百日换手:SUM(VOL,100)*100/CAPITAL,NODRAW;
	{年月日星期}
	DA:=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(DA,0.88,0.01,0,AA),COLORBROWN;
	DRAWTEXT_FIX(ISLASTBAR=1,0.0100,0,0,STKNAME), COLOR0000FF;
	DRAWTEXT_FIX(ISLASTBAR=1,0.0880,0,0,CODE),COLORMAGENTA;
	ASDF:=STRCAT(STRCAT('当前获利盘比例: ',CON2STR(WINNER(CLOSE)*100,2)),'%');
	DRAWTEXT_FIX(ISLASTBAR,0.3300,0.010,0,ASDF),COLORBROWN;
	{ASDF1:=STRCAT(STRCAT('昨日获利盘比例: ',CON2STR(WINNER(REF(CLOSE,1))*100,2)),'%');}
	{DRAWTEXT_FIX(ISLASTBAR,0.700,0.010,0,ASDF1),COLORYELLOW;}
	LC:=REF(CLOSE,1);
	WRSI:=SMA(MAX(CLOSE-LC,0),5,1)/SMA(ABS(CLOSE-LC),5,1)*100;
	WR10:=(HHV(HIGH,3)-CLOSE)/(HHV(HIGH,3)-LLV(LOW,3))*100;
	活跃:=(WRSI-WR10);
	活跃度比:=IF(活跃>=0,(活跃+100)/2,100-ABS((活跃-100)/2));
	DRAWTEXT_FIX(1,0.77700,0.01,1,STRCAT(STRCAT('活跃度比: ',CON2STR(活跃度比,2)),'%')),COLORMAGENTA;
	A111:=FINANCE(42);
	A211:=DATETODAY(CONST(DATE));
	A311:=A211-A111;
	XDATE:=DAYTODATE(A311)+19000000;
	上市日期:=STRCAT(' 上市日期: ',CON2STR(XDATE,0));
	DRAWTEXT_FIX(ISLASTBAR,0.5,0,0,上市日期),COLORMAGENTA;
	SSTS1:=STRCAT('上市',CON2STR(FINANCE(42),0));
	SSTS2:=STRCAT(SSTS1,'天');
	{DRAWTEXT_FIX(CURRBARSCOUNT=1,0.618,0.0,0,SSTS2),COLORCYAN;}
	SSTS3:=STRCAT('累计交易:',CON2STR(TOTALBARSCOUNT,0));
	SSTS4:=STRCAT(SSTS3,'周期');
	DRAWTEXT_FIX(CURRBARSCOUNT=1,0.168,0.001,0,SSTS4),COLORLIMAGENTA;
	{涨停统计}
	W11:=EMA(C,1);
	涨停:=W11/REF(W11,1)>=1.095;
	ZTCS:=COUNT(涨停,BARSSINCE(涨停)+1);
	NTZZT1:=STRCAT('  距今',CON2STR(CONST(BARSLAST(涨停)),0));
	NTZZT2:=STRCAT(NTZZT1,'天有涨停');
	GZT1:=STRCAT('  共涨停',CON2STR(ZTCS,0));GZT2:=STRCAT(GZT1,'次');
	ZTTJ1:=STRCAT(SSTS2,GZT2);
	ZTTJ2:=STRCAT(ZTTJ1,NTZZT2);ZTTJ:=STRCAT('【涨停统计】',ZTTJ2);
	DRAWTEXT_FIX(CURRBARSCOUNT=1,0.618,0.99,0,ZTTJ),COLORRED;
	Z1:=STRCAT(HYBLOCK,' ');
	Z2:=STRCAT(Z1,FGBLOCK);
	Z3:=STRCAT(Z2,DYBLOCK);
	Z4:=STRCAT(Z3,' ');
	HSL11:=V/CAPITAL*100; 
	DRAWNUMBER(CURRBARSCOUNT=1 AND HSL11,L,HSL11),COLORMAGENTA;
	DRAWTEXT_FIX(ISLASTBAR,0.00,0.991,0,STRCAT(Z4,GNBLOCK)),COLORRED;
	DRAWTEXT_FIX(1,0.500,0.991,0,STRCAT('【自定板块】:',ZDBLOCK)),COLORBROWN;
	WWW70822COM:=VOL/((HIGH-LOW)*2-ABS(CLOSE-OPEN));
	SAT:=(DVOL/DCLOSE)/(HHV(DVOL,20)/HHV(DCLOSE,20));
	当期量能饱和:=(IF(SAT>1,1,SAT)*100);
	DRAWTEXT_FIX(1,0.991,0.991,1,STRCAT(STRCAT('当期量能饱和: ',CON2STR(当期量能饱和,2)),'%')),COLORBROWN;
	T:=DYNAINFO(8)>0; 
	VO:VOL=LLV(VOL,100) AND T;
	地量柱:T AND VO;
	DRAWTEXT(地量柱,VOL+3000,'地');
	BLZ:=VOL>REF(V,1)*1.9;
	BLZ1:=VOL<REF(LLV(VOL,13),1);
	BLZ2:=VOL<REF(LLV(VOL,55),1);
	倍量柱:BLZ;
	DRAWTEXT(倍量柱,VOL+3000,'倍');
	FLZ:=V>REF(V,1)*0.98 AND V<REF(V,1)*1.02,LINETHICK1;
DRAWTEXT(FLZ,VOL+3000,'平');
	