「翔博精选指标」陆家嘴谷神主力控盘,好公式源码分享(通达信公
2022-04-08原创 编 辑:翔博软件
	{陆家嘴谷神主力控盘}
	B1:=(HHV(H,12)-C)/(HHV(H,12)-LLV(LOW,12))*100- 38;
	B2:=SMA(B1,12,1)+100;
	B3:=(C-LLV(L,12))/(HHV(H,12)- LLV(L,12))*100;
	B4:=SMA(B3,3,1);
	B5:=SMA(B4,3,1)+100;
	B6:=B5-B2;
	控盘程度:(IF(B6>11,B6-1,0)),COLORYELLOW,NODRAW;
	控盘度:=50,COLORRED;
	STICKLINE( 控盘程度,0,控盘程度 ,2,0 ),COLORA05858;
	STICKLINE( 控盘程度 AND 控盘程度>50,50,控盘程度 ,2,0 ),COLORRED;
	STICKLINE( 控盘程度<REF(控盘程度,1) AND 控盘程度>50,控盘程度,50,3,0 ),COLORBLUE;
	STICKLINE( 控盘程度<REF(控盘程度,1) AND 控盘程度<50,控盘程度,0,3,0 ),COLORCYAN;
	STICKLINE( 控盘程度<REF(控盘程度,1) AND 控盘程度>50,控盘程度,50,0.3,0 ),COLORGREEN;
	PVAR1:=REF((LOW+OPEN+CLOSE+HIGH)/4,1); 
	PVAR2:=SMA(ABS(LOW-PVAR1),13,1)/SMA(MAX(LOW-PVAR1,0),10,1); 
	PVAR3:=EMA(PVAR2,10);
	PVAR4:=LLV(LOW,33);
	PVAR5:=EMA(IF(LOW<=PVAR4,PVAR3,0),3);
	主力进场:IF(PVAR5>REF(PVAR5,1),PVAR5,0),COLORRED,LINETHICK1;
	STICKLINE(PVAR5>REF(PVAR5,1),0,PVAR5,3,0 ),COLORRED;
	主力洗盘:IF(PVAR5<REF(PVAR5,1),PVAR5,0),COLORGREEN,LINETHICK1;
	STICKLINE(PVAR5<REF(PVAR5,1),0,PVAR5,3,0),COLORGREEN; 
	ATR := SUM(MAX(MAX(HIGH-LOW,ABS(HIGH-REF(CLOSE,1))),ABS(LOW-REF(CLOSE,1))),14);
	HD := HIGH-REF(HIGH,1); 
	LD := REF(LOW,1)-LOW; 
	DMP:= SUM(IF(HD>0 AND HD>LD,HD,0),14); 
	DMM:= SUM(IF(LD>0 AND LD>HD,LD,0),14); 
	PDI:=DMP*100/ATR; 
	MDI:=DMM*100/ATR;0; 
	持币:=PDI-MDI;
	WWW70822COM:=(持币<0),COLORGREEN;
	持股区:IF(持币>0,持币,0),COLORMAGENTA, LINETHICK2;
	(IF(主力洗盘>0.01 AND 主力洗盘<0.05,70,0)),LINETHICK2;
	DRAWTEXT(FILTER((IF(主力洗盘>0.01 AND 主力洗盘<0.05,58,0))=58,9),60,'洗盘即将结束'),COLORRED;
	VAR51:=3;
	VAR52:=(3)*(SMA(((CLOSE - LLV(LOW,27))/(HHV(HIGH,27) - LLV(LOW,27)))*(100),5,1)) - (2)*(SMA(SMA(((CLOSE - LLV(LOW,27))/(HHV(HIGH,27) - LLV(LOW,27)))*(100),5,1),3,1));
	准备启动:=CROSS(VAR52,VAR51),STICK,COLORRED;
	DRAWICON(准备启动>0,-8,34);
	PLOWV:=LLV(LOW,17);
	PHIGHV:=HHV(HIGH,17);
	偏RSV:=EMA((CLOSE-PLOWV)/(PHIGHV-PLOWV)*100,6);
	偏K:=EMA(偏RSV,3),COLORCYAN;
	偏D:=MA(偏K,3),COLORBROWN;
	P:=(C-MA(C,5))*100/MA(C,5);
	偏5线:IF(P>0,P,0),COLORYELLOW,NODRAW;
	超买:IF(偏K>=79,偏K,110),DOTLINE,COLORGREEN,LINETHICK2;
	危险:IF(偏K>=90,偏K,110),DOTLINE,COLORRED;
	超卖:IF(偏K<15,-偏K,0),DOTLINE,COLORRED,LINETHICK2;
	TJ1:=((C-LLV(LOW,22))/(HHV(HIGH,22)-LLV(LOW,22)))*110;
	TJF:=SMA(TJ1,10,2);
	TJFF:=SMA(TJ1,17,3);
	DRAWBAND(TJF,RGB(250,110,110),TJFF,RGB(10,250,10));
	日K:=("KDJ.K"(27,6,4)),COLORWHITE;
	日D:=("KDJ.D"(27,6,4)),COLORWHITE,LINETHICK2;
	STICKLINE( 控盘程度=0 AND 日K<日D,0,3,3,1 ),COLORCYAN;
	GVAR1:=(CLOSE-LLV(LOW,36))/(HHV(HIGH,36)-LLV(LOW,36))*100; 
	GVAR2:=SMA(GVAR1,3,1); 
	GVAR3:=SMA(GVAR2,3,1); 
	GVAR4:=SMA(GVAR3,3,1); 
	BBBB:=GVAR3; 
	GAA:=LLV(LOW,36); 
	GBB:=HHV(HIGH,20); 
	GDD:=(EMA(((CLOSE-GAA)/(GBB-GAA))*(4),4))*(25); 
	GSSS:=GDD*0.93,COLOR0000FF,LINETHICK2,COLORGREEN; 
	AZ:=CROSS(GSSS,BBBB) AND BBBB<25;
	AZ1:=CROSS(BBBB,GSSS) AND BBBB<100 ;
	DRAWTEXT(AZ,BBBB,'低买'),COLORYELLOW;
DRAWTEXT(AZ1 AND 日K>75,100,'卖出'),COLORWHITE;