「翔博精选指标」裸K线主图(通达信公式 主图 源码 测试图)免费资源
2022-01-03    来源:原创    编辑:翔博软件
裸K线主图(通达信公式 主图 源码 测试图) 源码如下: {一目了然} DRAWGBK(C0,RGB(20,0,28),RGB(20,0,28),0,0,1); N:=240; KK:=BARSLAST(CURRBARSCOUNT=N); GD:=CONST(IF(ISLA
裸K线主图(通达信公式 主图 源码 测试图)
	源码如下:
	{一目了然}
	DRAWGBK(C>0,RGB(20,0,28),RGB(20,0,28),0,0,1);
	N:=240;
	KK:=BARSLAST(CURRBARSCOUNT=N);
	GD:=CONST(IF(ISLASTBAR=1,HHV(H,KK),0));
	RR:=CONST(IF(ISLASTBAR=1,LLV(L,KK),0));
	KJ:=GD-RR;
	高:IF(CURRBARSCOUNT<=N,GD,DRAWNULL),COLOR00FFFF,POINTDOT;
	压:IF(CURRBARSCOUNT<=N,GD-KJ*0.191,DRAWNULL),COLORFF00FF,NODRAW;
	平衡:IF(CURRBARSCOUNT<=N,RR+KJ/2,DRAWNULL),COLOR00FFFF,NODRAW;
	支撑:IF(CURRBARSCOUNT<=N,RR+KJ*0.191,DRAWNULL),COLOR00FF00,NODRAW;
	低:IF(CURRBARSCOUNT<=N,RR,DRAWNULL),COLOR00FF00,POINTDOT;
	天:BARSLAST(L=RR),COLOR00FFFF,NODRAW;
	STICKLINE(CURRBARSCOUNT=N,GD,RR,0,-1),COLORGREEN;
	STICKLINE(CURRBARSCOUNT=N,GD,RR,0,-1),COLORGREEN;
	STICKLINE(CURRBARSCOUNT=1,GD,RR,0,-1),COLORGREEN;
	STICKLINE(CURRBARSCOUNT<=N,平衡,平衡,3,-1),COLORWHITE;
	STICKLINE(CURRBARSCOUNT<=N,压,压,3,-1),COLORRED;
	STICKLINE(CURRBARSCOUNT<=N,支撑,支撑,3,-1),COLORGREEN;
	DRAWTEXT(CURRBARSCOUNT=1,压,'0.809'),COLOR0000FF;
	DRAWTEXT(CURRBARSCOUNT=1,平衡,'0.500'),COLORFFFFFF;
	DRAWTEXT(CURRBARSCOUNT=1,支撑,'0.191'),COLOR00FFFF;
	A:=EMA(C,21)COLORBLUE,LINETHICK3;
	B:=A<REF(A,1);
	HY:=IF(B-1,A,DRAWNULL)COLORRED,LINETHICK3;
	AA:=EMA(C,3) > EMA(C,21);
	BB:=EMA(C,3) < EMA(C,21);
	CC:= EMA(C,3) > EMA(C,8);
	CC1:=EMA(C,3) < EMA(C,8);
	STICKLINE(AA,L,H,0,0),COLOR0088EE;{金色}
	STICKLINE(AA,CLOSE,OPEN,3,0),COLOR0055AA;
	STICKLINE(AA,CLOSE,OPEN,2.8,0),COLOR0066BB;
	STICKLINE(AA,CLOSE,OPEN,2.5,0),COLOR0077CC;
	STICKLINE(AA,CLOSE,OPEN,2.2,0),COLOR0088DD;
	STICKLINE(AA,CLOSE,OPEN,1.7,0),COLOR0099EE;
	STICKLINE(AA,CLOSE,OPEN,1.2,0),COLOR00AAFF;
	STICKLINE(AA,CLOSE,OPEN,0.7,0),COLOR00CCFF;
	STICKLINE(AA,CLOSE,OPEN,0.2,0),COLOR00FFFF;
	STICKLINE(BB,H,L,0,1),COLORGREEN;{绿色}
	STICKLINE(BB,C,O,3.2,0),COLOR006600;
	STICKLINE(BB,C,O,2.6,0),COLOR008800;
	STICKLINE(BB,C,O,1.9,0),COLOR00AA00;
	STICKLINE(BB,C,O,1.1,0),COLOR00CC00;
	STICKLINE(BB,C,O,0.3,0),COLOR00FF00;
	STICKLINE(BB AND CC,H,L,0,1),COLORFF55FF;{紫色}
	STICKLINE(BB AND CC,C,O,3.2,0),COLOR880088;
	STICKLINE(BB AND CC,C,O,2.6,0),COLORAA00AA;
	STICKLINE(BB AND CC,C,O,1.9,0),COLORCC00CC;
	STICKLINE(BB AND CC,C,O,1.1,0),COLOREE00EE;
	STICKLINE(BB AND CC,C,O,0.3,0),COLORFF44FF;
	STICKLINE(AA AND CC1,H,L,0,1),COLORFF8800;{蓝色}
	STICKLINE(AA AND CC1,C,O,3.2,0),COLORFF2200;
	STICKLINE(AA AND CC1,C,O,2.6,0),COLORFF4400;
	STICKLINE(AA AND CC1,C,O,1.9,0),COLORFF6600;
	STICKLINE(AA AND CC1,C,O,1.1,0),COLORFF8800;
	STICKLINE(AA AND CC1,C,O,0.3,0),COLORFFAA00;
	DRAWTEXT(CURRBARSCOUNT=N/2+9,GD-KJ/12,'★强势区域--急拉减仓!'),COLOR00FFFF;
	DRAWTEXT(CURRBARSCOUNT=N/2+9,GD-KJ/3,'●震荡整理--寻机低吸!'),COLOR00FF00;
	DRAWTEXT(CURRBARSCOUNT=N/2+9,RR+KJ/3,'◆反弹中轨--逢高休息!'),COLORFFFFFF;
	DRAWTEXT(CURRBARSCOUNT=N/2+9,RR+KJ/10,'■弱势区域--暂不参与!'),COLORFFFF00;
	STICKLINE(BARSLAST(CURRBARSCOUNT=3)>=0,REF(C,BARSLAST(CURRBARSCOUNT=3)),REF(C,BARSLAST(CURRBARSCOUNT=3)),6,-1),COLORYELLOW;
	AAA:=BARSLAST(DATE!=REF(DATE,1));
	前天收:=REF(C,AAA+2)COLORWHITE;
	{}
	{高点突破};
	BDGD:=C=HHV(C,13);
	GDSJ:=BARSLAST(FILTER(CROSS(0.8,BDGD),2))+1;
	高点:REF(C,GDSJ),COLORFF00FF,POINTDOT;
	突破:CROSS(C,REF(高点,1)),COLOR00FFFF,POINTDOT,NODRAW;
	STICKLINE(GDSJ<=6,高点,高点,3,0),COLORFF00FF;
	DRAWTEXT(突破,LOW,'↑突买'),COLOR00FFFF;
	DRAWICON(CROSS(C,HHV(突破,'↑突买')),L,1);
	DRAWICON(CROSS(C,HHV(高点,120)),L,1);
	{}
	{主题概念}
	ZZ1:=STRCAT(HYBLOCK,'----');   
	Z2:=STRCAT(ZZ1,FGBLOCK);
	Z3:=STRCAT(Z2,DYBLOCK);   
	Z4:=STRCAT(Z3,'----');   
	DRAWTEXT_FIX(1,0.00,0.06,0,'    主题概念:')COLORCYAN;
	DRAWTEXT_FIX(ISLASTBAR,0.07,0.06,0,STRCAT(Z4,GNBLOCK)),COLORCYAN;
	DRAWTEXT_FIX(1,0.07,0.24,0,EXTERNSTR(0,14))COLORYELLOW;
	DRAWTEXT_FIX(1,0.00,0.12,0,'   金色持股  /   紫色反弹  /   蓝色洗盘  /   绿色持币')COLORLIRED;
	{};
	{金财神SB}
	M5:=MA(CLOSE,5);
	M10:=MA(CLOSE,10);
	M30:=MA(CLOSE,30);
	VR1:=SUM(MAX(MAX(HIGH-LOW,ABS(HIGH-REF(CLOSE,1))),ABS(LOW-REF(CLOSE,1))),25);
	VAR2:=HIGH-REF(HIGH,1);
	VAR3:=REF(LOW,1)-LOW;
	VAR4:=SUM(IF(VAR2>0 AND VAR2>VAR3,VAR2,0),25);
	VAR5:=SUM(IF(VAR3>0 AND VAR3>VAR2,VAR3,0),25);
	VAR6:=VAR4*100/VR1;
	VAR7:=VAR5*100/VR1;
	VAR8:=MA(ABS(VAR7-VAR6)/(VAR7+VAR6)*100,15);
	VAR9:=(VAR8+REF(VAR8,15))/2;
	BUY1:=ZIG(3,10);
	SELL1:=MA(BUY1,2);
DRAWICON(CROSS(BUY1,SELL1),L-0.1,7);
DRAWICON(CROSS(SELL1,BUY1),H+0.1,8);
	




					  
					  
					  
					  
					  
