通达信指标亮景副图源码
{亮景}
主买:=CONST("FSKY.主买#DAY"),NODRAW;
前量:=CONST("FSKY.前量#DAY");
前主:=CONST("FSKY.前主#DAY");
昨量:=CONST("FSKY.昨量#DAY"),NODRAW;
昨主:=CONST("FSKY.昨主#DAY");
今量:=CONST("FSKY.今量#DAY"),NODRAW;
前4:=CONST("FSKY.前4#DAY");
主4:=CONST("FSKY.主4#DAY");
前5:=CONST("FSKY.前5#DAY");
主5:=CONST("FSKY.主5#DAY");
CMM:=MAX(前5,前4),NODRAW;
BMM1:=MAX(前量,昨量),NODRAW;
BMM:=MAX(CMM,BMM1),NODRAW;
AMM:=IF(今量/BMM>2,今量,BMM),NODRAW;
MM:=CONST(500/AMM),NODRAW;
DRAWGBK(C>0,RGB(0,180,150),RGB(0,150,150),0,' ',0);
波段验证:=(8*((EMA((2*C+L)/3,3)-EMA((2*C+H)/3,6))-EMA((EMA((2*C+L)/3,3)-EMA((2*C+H)/3,6)),21))),COLORFF9900;
EM35:=(EMA((2*C+L)/3,2)-EMA((2*C+H)/3,5));
EM321:=EMA((EMA((2*C+L)/3,2)-EMA((2*C+H)/3,5)),21);
线性关系须明确:=(8*(EM35-EM321)),COLORYELLOW;
HLP:=SMA(WINNER(C)*100,3,1),COLOR2588FF,LINETHICK0;
TT:=IF(ISLASTBAR,240/FROMOPEN,1);
NN:=120;
比:=TT;
HH:=HHV(V*1,NN);
LL:=LLV(V,NN);
最高:=CONST(HH);
最低:=CONST(LL);
RCC:=最高*0.9-(最高-最低)*0.5;
RHL:=RCC;
HLMAX:=最高;
HLMIN:=最低;
HLMN1:=(HLMAX+HLMIN)/2;
HLMN2:=HLMAX-HLMIN;
HLMN3:=(100-0)/2*1.3;
HLMN4:=(100-0)/1*1.3;
P:=最高/120;
神:=2*SMA(V*((C+L)/2+(H+C)/2+L)/3,2,1)/SMA(V,2,1)-(3*HHV(SMA(V*((C+L)/2+(H+C)/2+L)/3,2,1)/SMA(V,2,1),2)-2*SMA(V*((C+L)/2+(H+C)/2+L)/3,2,1)/SMA(V,2,1));
奇:=(2*神+EMA((2*(C+L)/2+(H+C)/2+L+O)/5,2)+2*((EMA((C*2+H+L+O)/5,5)+MA((C*2+H+L+O)/5,13)+MA((C*2+H+L+O)/5,21))/3)+((EMA
分清:=(FORCAST(HHV((C+L)/2,1),21)+(EMA(((C+L)/2+L+(H+C)/2)/3,55)-(C-EMA(((C+L)/2+L+(H+C)/2)/3,55))))/2;
放心买入:=(((C+L)/2+(H+C)/2+L)/3+(3*(C+H+L+(O+C+L)/3)/4-2*(C+L)/2))/2;
强:=(EMA((分清+3*((EMA(放心买入,5)*5+分清)/6+((EMA(奇,5)+EMA(奇,8)+EMA(奇,13))/3))/2)/4,3)/3),POINTDOT,COLOR00FFFF;
验证:=((((C+L)/2-LLV(L,24))/(HHV((H+C)/2,24)-LLV(L,24))*1.1*(C+L)/2));
续持验证:=EMA((2*(5*((EMA((2*C+L)/3,2)-EMA((2*C+H)/3,5))
-EMA((EMA((2*C+L)/3,2)-EMA((2*C+H)/3,5)),21)))
+(((C*2+H)/3+(C*2+H)/3)/2)+EMA(验证,2))/4,2),COLOR555555;
AR:=(2*(C+L)/2+REF((C+L)/2,1))/3;
BR:=(7*(C+L)/2+6*REF((C+L)/2,1)+5*REF((C+L)/2,2)
+4*REF((C+L)/2,3)+3*REF((C+L)/2,4)
+2*REF((C+L)/2,5)+REF((C+L)/2,6))/28;
AAR:=(AR+(((C+L)/2-STD((C+L)/2,2))+3*(AR+0.3*8)/2)/4)/2;
BBR:=(BR+(((C+L)/2-STD((C+L)/2,2))+3*(AR+0.3*8)/2)/4)/2;
N1:=(CEILING(C/100)*15);
N2:=CEILING(CAPITAL/20000000);
N:=CONST(N1*N2);
DIFF := EMA(CLOSE,12) - EMA(CLOSE,26);
DEA
MACD :=1000* (2*(DIFF-DEA))/EMA(C,30);
VARA:=EMA(REF(CLOSE,1),4);
色彩峰:=(SMA(MAX(CLOSE-VARA,0),6,1)/SMA(ABS(CLOSE-VARA),6,1)*100);
准备:=色彩峰< 3.5,COLORDBDBDB;
出航:=FILTER(MACD< 0 AND MACD>REF(MACD,1) AND 色彩峰< 20,5), COLORBROWN;
飞燕:=CROSS(色彩峰,90),COLOR00FF00;
回归:=CROSS(色彩峰,90),COLORDBDBDB;
D0:=((0-HLMN3)*HLMN2/HLMN4+HLMN1);
STICKLINE(色彩峰,D0,((120-HLMN3)*HLMN2/HLMN4+HLMN1),10,0),COLOR8BA400;
STICKLINE(色彩峰,D0,((90-HLMN3)*HLMN2/HLMN4+HLMN1),10,0),COLOR8BA433;
STICKLINE(色彩峰,D0,((75-HLMN3)*HLMN2/HLMN4+HLMN1),10,0),COLOR8BA466;
STICKLINE(色彩峰,D0,((60-HLMN3)*HLMN2/HLMN4+HLMN1),10,0),COLOR8BA488;
STICKLINE(色彩峰,D0,((50-HLMN3)*HLMN2/HLMN4+HLMN1),10,0),COLOR8BA4AA;
STICKLINE(色彩峰,D0,((40-HLMN3)*HLMN2/HLMN4+HLMN1),10,0),COLOR8BA4BB;
STICKLINE(色彩峰,D0,((35-HLMN3)*HLMN2/HLMN4+HLMN1),10,0),COLOR8BA4CC;
STICKLINE(色彩峰,D0,((25-HLMN3)*HLMN2/HLMN4+HLMN1),10,0),COLOR8BA4EE;
STICKLINE(色彩峰,D0,((15-HLMN3)*HLMN2/HLMN4+HLMN1),10,0),COLOR8BA5FF;
STICKLINE(色彩峰,D0,((-60-HLMN3)*HLMN2/HLMN4+HLMN1),10,0),COLOR8BA433;
STICKLINE(色彩峰,D0,((-30-HLMN3)*HLMN2/HLMN4+HLMN1),10,0),COLOR8BA444;
STICKLINE(色彩峰,D0,((-10-HLMN3)*HLMN2/HLMN4+HLMN1),10,0),COLOR8BA455;
STICKLINE(色彩峰,D0,((-5-HLMN3)*HLMN2/HLMN4+HLMN1),10,0),COLOR8BA466;
STICKLINE(色彩峰>0,D0,((色彩峰-HLMN3)*HLMN2/HLMN4+HLMN1),10,0),COLOR66FF00;
STICKLINE(色彩峰>0,D0,((色彩峰*0.9-HLMN3)*HLMN2/HLMN4+HLMN1),10,0),COLOR66EE00;
STICKLINE(色彩峰>0,D0,((色彩峰*0.8-HLMN3)*HLMN2/HLMN4+HLMN1),10,0),COLOR66CC00;
STICKLINE(色彩峰>0,D0,((色彩峰*0.7-HLMN3)*HLMN2/HLMN4+HLMN1),10,0),COLOR66AA00;
STICKLINE(色彩峰>0,D0,((色彩峰*0.6-HLMN3)*HLMN2/HLMN4+HLMN1),10,0),COLOR668800;
STICKLINE(色彩峰>0,D0,((色彩峰*0.5-HLMN3)*HLMN2/HLMN4+HLMN1),10,0),COLOR666600;
STICKLINE(色彩峰>0,D0,((色彩峰*0.4-HLMN3)*HLMN2/HLMN4+HLMN1),10,0),COLOR664400;
STICKLINE(色彩峰>0,D0,((色彩峰*0.3-HLMN3)*HLMN2/HLMN4+HLMN1),10,0),COLOR662200;
STICKLINE(色彩峰,D0,((-色彩峰*0.2-HLMN3)*HLMN2/HLMN4+HLMN1),10,0),COLOR324D00;
RSV:= (CLOSE-LLV(LOW,4))/(HHV(HIGH,4)-LLV(LOW,4))*100;
FASTK:=SMA(RSV,3,1);
龙Ｋ:=SMA(FASTK,2,1);
龙Ｄ:=SMA(龙Ｋ,5,1);
狗:=LLV(LOW,10);
年:=HHV(H,25);
到来:=EMA((C-狗)/(年-狗)*4,4);
DRAWTEXT(准备,((-10-HLMN3)*HLMN2/HLMN4+HLMN1),'ャ'),COLORDBDBDB;
DRAWTEXT(准备,((-10-HLMN3)*HLMN2/HLMN4+HLMN1),'︼'),COLOR688EC1;
DRAWTEXT(CROSS( 0,MACD)AND 色彩峰>75,((110-HLMN3)*HLMN2/HLMN4+HLMN1),''),COLORFFFFFF;
DRAWTEXT(飞燕,((70-HLMN3)*HLMN2/HLMN4+HLMN1),'ヲ'),COLORDBDBDB;
DRAWTEXT(出航,((-10-HLMN3)*HLMN2/HLMN4+HLMN1),'Ψ'), COLORBROWN;
昨V:=REF(V,1);
WJ:=(H+L+C)/3;
V1:=IF(H=L,1,H-MAX(O,C));
V2:=IF(H=L,1,MAX(C,O)-WJ);
V3:=IF(H=L,1,MIN(O,C)-L);
V4:=IF(H=L,1,WJ-MIN(C,O));
V5:=VOL/IF(H=L,4,H-L);
V6:=(V1*V5);
V7:=(V2*V5);
V8:=(V3*V5);
V9:=(V4*V5);
买盘1:=DYNAINFO(23)*比;
卖盘1:=DYNAINFO(22)*比;
买盘2:=IF(ISLASTBAR AND C>300,(V9+V8)*TT,(V9+V8));
卖盘2:=IF(ISLASTBAR AND C>300,(V6+V7)*TT,(V6+V7));
买盘:=IF(ISLASTBAR AND PERIOD=5 AND C< 300,买盘1,买盘2);
卖盘:=IF(ISLASTBAR AND PERIOD=5 AND C< 300,卖盘1,卖盘2);
买卖差:=买盘-卖盘;
X:=50*P;
STICKLINE(C>=O,0-X,买盘+卖盘-X,2.8,1),COLORRED;
STICKLINE(C< O,0-X,买盘+卖盘-X,2.8,1),COLORFFFF00;
STICKLINE(买卖差>=0,0-X,买盘-X,2.5,0),COLORRED;
STICKLINE(买卖差>=0 AND C>=MA(C,30),0-X,买盘-X,3.0,0),COLORRED;
STICKLINE(买卖差>=0,0-X,卖盘-X,1.1,0),COLOR998800;
STICKLINE(买卖差>=0 AND C>=MA(C,30),0-X,卖盘-X,1.5,0),COLORDDCC00;
STICKLINE(买卖差< 0,0-X,买盘-X,2.5,0),COLORRED;
STICKLINE(买卖差< 0 AND C>=MA(C,30),0-X,买盘-X,3.0,0),COLORRED;
STICKLINE(买卖差< 0,0-X,卖盘-X,1.1,0),COLOR998800;
STICKLINE(买卖差< 0 AND C>=MA(C,30),0-X,卖盘-X,1.5,0),COLORDDCC00;
AA1:=REF(CLOSE,1);
BB1:=(买盘+卖盘)< MA(V,60)/3 ;
BB2:=MA(V,5)/2>V AND V>BB1;
STICKLINE(BB1,0-X,卖盘-X,2,0),COLORYELLOW;
龙行凤影:=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),LINETHICK0;
L1:=(CLOSE-LLV(LOW,11))/(HHV(HIGH,11)-LLV(LOW,11))*200-60;
凤Ｋ:=SMA(L1,3,1),COLORFFFFFF;
凤Ｄ:=SMA(凤Ｋ,3,1),COLORFFFFFF;
双起双飞:IF(龙行凤影< =10,-X*0.7,-X),COLOR00FFFF,LINETHICK2;
((凤Ｋ-HLMN3)*HLMN2/HLMN4+HLMN1),COLORFFFFFF;
((凤Ｄ-HLMN3)*HLMN2/HLMN4+HLMN1),COLORFFFFFF;
恭喜:STICKLINE(CROSS(到来,0.3),-X*0.5,-X,1,0), COLOR00FFFF;
发财:STICKLINE(CROSS(3.5,到来),((100-HLMN3)*HLMN2/HLMN4+HLMN1),((120-HLMN3)*HLMN2/HLMN4+HLMN1),2,0), COLORRED,LINETHICK2;
STICKLINE(CROSS(3.5,到来),((110-HLMN3)*HLMN2/HLMN4+HLMN1),((120-HLMN3)*HLMN2/HLMN4+HLMN1),2,0),COLORYELLOW,LINETHICK2;
IF(续持验证< 强,-X*1.1,DRAWNULL),CIRCLEDOT,COLORYELLOW,LINETHICK1;
IF(续持验证>=强,-X*1.1,DRAWNULL),CIRCLEDOT,COLORRED,LINETHICK1;
IF(续持验证>= REF(续持验证,1),-X*1.2,DRAWNULL),CIRCLEDOT,COLORRED,LINETHICK1;
IF(续持验证<
KP:=DYNAINFO(4);
ZX:=DYNAINFO(7);
A1:=IF(主买>=今量/2,255,255);
A2:=IF(主买>=今量/2,0,0);
A3:=IF(主买>=今量/2,0,255);
DRAWRECTREL(0,160,MM*今量,190,RGB(0,250,250));
DRAWRECTREL(0,160,MM*主买,190,RGB(A1,A2,A3));
DRAWRECTREL(0,160,MM*ABS(主买-(今量-主买)),190,RGB(A3,255,00));
ZO:=CONST("FSKY.ZO#DAY");
ZC:=CONST("FSKY.ZC#DAY");
A4:=IF(昨主>=昨量/2,255,255);
A5:=IF(昨主>=昨量/2,0,0);
A6:=IF(昨主>=昨量/2,0,255);
DRAWRECTREL(0,120,MM*昨量,150,RGB(0,250,250));
DRAWRECTREL(0,120,MM*昨主,150,RGB(A4,A5,A6));
DRAWRECTREL(0,120,MM*ABS(昨主-(昨量-昨主)),150,RGB(A6,255,00));
JO:=CONST("FSKY.JO#DAY");
JC:=CONST("FSKY.JC#DAY");
A7:=IF(前主>=前量/2,255,255);
A8:=IF(前主>=前量/2,0,0);
A9:=IF(前主>=前量/2,0,255);
DRAWRECTREL(0,80,MM*前量,110,RGB(0,250,250));
DRAWRECTREL(0,80,MM*前主,110,RGB(A7,A8,A9));
DRAWRECTREL(0,80,MM*ABS(前主-(前量-前主)),110,RGB(A9,255,00));
JO3:=CONST("FSKY.JO3#DAY");
JC3:=CONST("FSKY.JC3#DAY");
A10:=IF(主4>=前4/2,255,255);
A11:=IF(主4>=前4/2,0,0);
A12:=IF(主4>=前4/2,0,255);
DRAWRECTREL(0,40,MM*前4,70,RGB(0,250,250));
DRAWRECTREL(0,40,MM*主4,70,RGB(A10,A11,A12));
DRAWRECTREL(0,40,MM*ABS(主4-(前4-主4)),70,RGB(A12,255,00));
JO4:=CONST("FSKY.JO4#DAY");
JC4:=CONST("FSKY.JC4#DAY");
A13:=IF(主5>=前5/2,255,255);
A14:=IF(主5>=前5/2,0,0);
A15:=IF(主5>=前5/2,0,255);
DRAWRECTREL(0,0,MM*前5,30,RGB(0,250,250));
DRAWRECTREL(0,0,MM*主5,30,RGB(A13,A14,A15));
DRAWRECTREL(0,0,MM*ABS(主5-(前5-主5)),30,RGB(A15,255,00));
五纯％:=CONST(IF(1 ,"FSKY2.五纯％#DAY",DRAWNULL)),NODRAW;
一纯％:=CONST(IF(1,"FSKY2.一纯％#DAY",DRAWNULL)),NODRAW;
三纯％:=CONST(IF(1 ,"FSKY2.三纯％#DAY",DRAWNULL)),NODRAW;
DRAWRECTREL(0,345,200,600,RGB(80,80,80));
DRAWTEXT_FIX(五纯％>=0,0.0,1-0.65,0,STRCAT('五日纯量％:
DRAWTEXT_FIX(五纯％< 0,0.0,1-0.65,0,STRCAT('五日纯量％:
DRAWTEXT_FIX(三纯％>=0,0.0,1-0.56,0,STRCAT('三日纯量％:
DRAWTEXT_FIX(三纯％< 0,0.0,1-0.56,0,STRCAT('三日纯量％:
DRAWTEXT_FIX(一纯％>=0,0.0,1-0.48,0,STRCAT('当日纯量％:
DRAWTEXT_FIX(一纯％< 0,0.0,1-0.48,0,STRCAT('当日纯量％:
=============================================================
{FSKY}
比:=240/FROMOPEN;
TT:=IF(ISLASTBAR,240/FROMOPEN,1);
WJ:=(H+L+C)/3;
V1:=IF(H=L,1,H-MAX(O,C));
V2:=IF(H=L,1,MAX(C,O)-WJ);
V3:=IF(H=L,1,MIN(O,C)-L);
V4:=IF(H=L,1,WJ-MIN(C,O));
V5:=VOL/IF(H=L,4,H-L);
V6:=(V1*V5);
V7:=(V2*V5);
V8:=(V3*V5);
V9:=(V4*V5);
买盘1:=DYNAINFO(23)*比;
卖盘1:=DYNAINFO(22)*比;
买盘2:=IF(ISLASTBAR AND C>300,(V9+V8)*TT,(V9+V8));
卖盘2:=IF(ISLASTBAR AND C>300,(V6+V7)*TT,(V6+V7));
买盘:=IF(ISLASTBAR AND PERIOD=5 AND C< 300,买盘1,买盘2);
卖盘:=IF(ISLASTBAR AND PERIOD=5 AND C< 300,卖盘1,卖盘2);
今量:买盘+卖盘;
主买:买盘;
昨量:REF(VOL,1);
昨主:REF(主买,1);
前量:REF(VOL,2);
前主:REF(主买,2);
前4:REF(VOL,3);
主4:REF(主买,3);
前5:REF(VOL,4);
主5:REF(主买,4);
ZO:REF(O,1);
ZC:REF(C,1);
ZH:REF(H,1);
ZL:REF(L,1);
JO:REF(O,2);
JC:REF(C,2);
JH:REF(H,2);
JL:REF(L,2);
JO3:REF(O,3);
JC3:REF(C,3);
JH3:REF(H,3);
JL3:REF(L,3);
JO4:REF(O,4);
JC4:REF(C,4);
JH4:REF(H,4);
JL4:REF(L,4);
JO5:REF(O,5);
JC5:REF(C,5);
JH5:REF(H,5);
JL5:REF(L,5);
JO6:REF(O,6);
JC6:REF(C,6);
JH6:REF(H,6);
JL6:REF(L,6);
JO7:REF(O,7);
JC7:REF(C,7);
JH7:REF(H,7);
JL7:REF(L,7);
JO8:REF(O,8);
JC8:REF(C,8);
JH8:REF(H,8);
JL8:REF(L,8);
JO9:REF(O,9);
JC9:REF(C,9);
JH9:REF(H,9);
JL9:REF(L,9);
MA5:MA(C,5);
MA10:MA(C,10);
MA20:MA(C,20);
MA60:MA(C,60);
===============================================
{FSKY2}
比:=240/FROMOPEN;
TT:=IF(ISLASTBAR,240/FROMOPEN,1);
WJ:=(H+L+C)/3;
V1:=IF(H=L,1,H-MAX(O,C));
V2:=IF(H=L,1,MAX(C,O)-WJ);
V3:=IF(H=L,1,MIN(O,C)-L);
V4:=IF(H=L,1,WJ-MIN(C,O));
V5:=VOL/IF(H=L,4,H-L);
V6:=(V1*V5);
V7:=(V2*V5);
V8:=(V3*V5);
V9:=(V4*V5);
买盘1:=DYNAINFO(23)*比;
卖盘1:=DYNAINFO(22)*比;
买盘2:=IF(ISLASTBAR AND C>300,(V9+V8)*TT,(V9+V8));
卖盘2:=IF(ISLASTBAR AND C>300,(V6+V7)*TT,(V6+V7));
买盘:=IF(ISLASTBAR AND PERIOD=5 AND C< 300,买盘1,买盘2);
卖盘:=IF(ISLASTBAR AND PERIOD=5 AND C< 300,卖盘1,卖盘2);
今量:=买盘+卖盘;
差:=买盘-卖盘;
主买:=买盘;
昨量:=REF(VOL,1);
昨主:=REF(主买,1);
昨差:=REF(差,1);
前量:=REF(VOL,2);
前主:=REF(主买,2);
前差:=REF(差,2);
前4:=REF(VOL,3);
主4:=REF(主买,3);
差4:=REF(差,3);
前5:=REF(VOL,4);
主5:=REF(主买,4);
差5:=REF(差,4);
总5:=今量+昨量+前量+前4+前5;
总差:=差+昨差+前差+差4+差5;
一纯％:差/今量*100;
三纯％:(差+昨差+前差)/(今量+昨量+前量)*100;
五纯％:总差/总5*100;
上涨家数:INDEXADV;
下跌家数:INDEXDEC;
