通达信金尊主图指标 源码 贴图

X:=1.28;
长周期:=SUMBARS(V,X*CAPITAL);
长周期修正:=IF(SUM(V,长周期)<X*CAPITAL,DRAWNULL,长周期);
长周期修正修正:=IF(长周期修正=0,1,长周期修正);
长价:(SUM(AMOUNT,长周期修正修正)-REF(AMOUNT,长周期修正修正-1)*(SUM(V,长周期修正修正)-X*CAPITAL)/REF(V,长周期修正修正-1))/(X*CAPITAL)/100,COLORFF9999;
Y:=0.35;
中周期:=SUMBARS(V,Y*CAPITAL);
中周期修正:=IF(SUM(V,中周期)<Y*CAPITAL,DRAWNULL,中周期);
中周期修正修正:=IF(中周期修正=0,1,中周期修正);
中价:(SUM(AMOUNT,中周期修正修正)-REF(AMOUNT,中周期修正修正-1)*(SUM(V,中周期修正修正)-Y*CAPITAL)/REF(V,中周期修正修正-1))/(Y*CAPITAL)/100,COLOR00D7FF;
Z:=0.14;
微周期:=SUMBARS(V,Z*CAPITAL);
微周期修正:=IF(SUM(V,微周期)<Z*CAPITAL,DRAWNULL,微周期);
微周期修正修正:=IF(微周期修正=0,1,微周期修正);
微价:(SUM(AMOUNT,微周期修正修正)-REF(AMOUNT,微周期修正修正-1)*(SUM(V,微周期修正修正)-Z*CAPITAL)/REF(V,微周期修正修正-1))/(Z*CAPITAL)/100,COLORGRAY;
长价啊:=(SUM(AMOUNT,长周期修正)-REF(AMOUNT,长周期修正-1)*(SUM(V,长周期修正)-X*CAPITAL)/REF(V,长周期修正-1))/(X*CAPITAL);
中价啊:=(SUM(AMOUNT,中周期修正)-REF(AMOUNT,中周期修正-1)*(SUM(V,中周期修正)-Y*CAPITAL)/REF(V,中周期修正-1))/(Y*CAPITAL);
微价啊:=(SUM(AMOUNT,微周期修正)-REF(AMOUNT,微周期修正-1)*(SUM(V,微周期修正)-Z*CAPITAL)/REF(V,微周期修正-1))/(Z*CAPITAL);
当前序列数倒数:=CURRBARSCOUNT;
微中金叉:=CROSS(微价啊,中价啊);
微中死叉:=CROSS(中价啊,微价啊);
中长金叉:=CROSS(中价啊,长价啊);
中长死叉:=CROSS(长价啊,中价啊);
中长金叉以来:=BARSLAST(中长金叉);
中长金叉点:=IF(中长金叉,长价啊,400000);
中长死叉点:=IF(中长死叉 AND YEAR>2014,长价啊,0);
最高距今:=HHVBARS(中长死叉点,0)+1;
末周期最高距今:=CONST(最高距今);
最高点:=当前序列数倒数=末周期最高距今;
DRAWTEXT(最高点,长价,'崩盘'),COLORFF9900;
最低距今:=LLVBARS(中长金叉点,末周期最高距今)+1;
末周期最低距今:=CONST(最低距今);
最低点:=当前序列数倒数=末周期最低距今 AND 中长金叉;
DRAWTEXT(最低点,长价,'突破'),COLORRED;
次高距今:=HHVBARS(中长死叉点,末周期最低距今)+1;
末周期次高距今:=CONST(次高距今);
次高点:=当前序列数倒数=末周期次高距今 AND 中长死叉;
DRAWTEXT(次高点,长价,'回踩'),COLORGREEN;
次低距今:=LLVBARS(中长金叉点,末周期次高距今)+1;
末周期次低距今:=CONST(次低距今);
次低点:=当前序列数倒数=末周期次低距今 AND 中长金叉 AND 最低点=0;
DRAWTEXT(次低点,长价,'启动'),COLORADDEFF;
次次高距今:=HHVBARS(中长死叉点,末周期次低距今)+1;
末次次高距今:=CONST(次次高距今);
次次高点:=当前序列数倒数=末次次高距今 AND 中长死叉 AND 次高点=0;
DRAWTEXT(次次高点,长价,'二次回踩'),COLORGREEN;
二次低距今:=LLVBARS(中长金叉点,末次次高距今)+1;
末二次低距今:=CONST(二次低距今);
二次低点:=当前序列数倒数=末二次低距今 AND 中长金叉 AND 最低点=0 AND 次低点=0;
DRAWTEXT(二次低点,长价,'二次启动'),COLORADDEFF;
三次高距今:=HHVBARS(中长死叉点,末二次低距今)+1;
末三次高距今:=CONST(三次高距今);
三次高点:=当前序列数倒数=末三次高距今 AND 中长死叉 AND 次高点=0 AND 次次高点=0;
DRAWTEXT(三次高点,长价,'三次回踩'),COLORGREEN;
三次低距今:=LLVBARS(中长金叉点,末三次高距今)+1;
末三次低距今:=CONST(三次低距今);
三次低点:=当前序列数倒数=末三次低距今 AND 中长金叉 AND 最低点=0 AND 次低点=0 AND 二次低点=0;
DRAWTEXT(三次低点,长价,'三次启动'),COLORADDEFF;
四次高距今:=HHVBARS(中长死叉点,末三次低距今)+1;
末四次高距今:=CONST(四次高距今);
四次高点:=当前序列数倒数=末四次高距今 AND 中长死叉 AND 次高点=0 AND 次次高点=0 AND 三次高点=0;
DRAWTEXT(四次高点,长价,'四次回踩'),COLORGREEN;
四次低距今:=LLVBARS(中长金叉点,末四次高距今)+1;
末四次低距今:=CONST(四次低距今);
四次低点:=当前序列数倒数=末四次低距今 AND 中长金叉 AND 最低点=0 AND 次低点=0 AND 二次低点=0 AND 三次低点=0;
DRAWTEXT(四次低点,长价,'四次启动'),COLORADDEFF;
五次高距今:=HHVBARS(中长死叉点,末四次低距今)+1;
末五次高距今:=CONST(五次高距今);
五次高点:=当前序列数倒数=末五次高距今 AND 中长死叉 AND 次高点=0 AND 次次高点=0 AND 三次高点=0 AND 四次高点=0;
DRAWTEXT(五次高点,长价,'五次回踩'),COLORGREEN;
五次低距今:=LLVBARS(中长金叉点,末五次高距今)+1;
末五次低距今:=CONST(五次低距今);
五次低点:=当前序列数倒数=末五次低距今 AND 中长金叉 AND 最低点=0 AND 次低点=0 AND 二次低点=0 AND 三次低点=0 AND 四次低点=0;
DRAWTEXT(五次低点,长价,'五次启动'),COLORADDEFF;
六次高距今:=HHVBARS(中长死叉点,末五次低距今)+1;
末六次高距今:=CONST(六次高距今);
六次高点:=当前序列数倒数=末六次高距今 AND 中长死叉 AND 次高点=0 AND 次次高点=0 AND 三次高点=0 AND 四次高点=0 AND 五次高点=0;
DRAWTEXT(六次高点,长价,'六次回踩'),COLORGREEN;
六次低距今:=LLVBARS(中长金叉点,末六次高距今)+1;
末六次低距今:=CONST(六次低距今);
六次低点:=当前序列数倒数=末六次低距今 AND 中长金叉 AND 最低点=0 AND 次低点=0 AND 二次低点=0 AND 三次低点=0 AND 四次低点=0 AND 五次低点=0;
DRAWTEXT(六次低点,长价,'六次启动'),COLORADDEFF;
概念板块:=GNBLOCK;
DRAWTEXT_FIX(1,0.08,0.05,0,概念板块),COLORCCCCC0;
复权非向前:=TQFLAG<>1;
DRAWTEXT_FIX(复权非向前,0.01,0.01,0,'请将复权方式改为:向前复权 系统设置选中:成交量复权');
{总市值 亿}{公式网WWW.GPXIAZAI.COM}
完全周期:=SUMBARS(V,CAPITAL);
完全价啊:=(SUM(AMOUNT,完全周期)-REF(AMOUNT,完全周期-1)*(SUM(V,完全周期)-CAPITAL)/REF(V,完全周期-1))/(CAPITAL);
总股本:=FINANCE(1);
总市值亿:=完全价啊*总股本/10000000000;
总市值字符串:=CON2STR(CONST(总市值亿),0);
整个字符串:=STRCAT('总市值:',总市值字符串);
整整个字符串:=STRCAT(整个字符串,'亿元');
DRAWTEXT_FIX(1,0.01,0.05,0,整整个字符串),COLOR82DDEE;
股东人数:=FINANCE(8);
总流通市值:=SUM(AMOUNT,完全周期);
人均市值:=CONST(总流通市值)/CONST(股东人数)/10000;
人均市值字符串:=CON2STR(CONST(人均市值),1);
人市字符串啊:=STRCAT('人均市值:',人均市值字符串);
人市字符串啊啊:=STRCAT(人市字符串啊,'万');
DRAWTEXT_FIX(1,0.01,0.07,0,人市字符串啊啊),COLOR82DDEE;
当前换手率:=VOL*100/CAPITAL;
长换手率:=SUM(V,长周期修正修正)*100/长周期修正修正/CAPITAL;
量上长:=当前换手率>=长换手率;
有效周期数:=BARSCOUNT(长换手率);
有效周期数啊:=IF(CONST(有效周期数)>800,800,CONST(有效周期数));
地量至今:=LLVBARS(长换手率,CONST(有效周期数啊));
当前为最低:=CURRBARSCOUNT=CONST(地量至今) AND 有效周期数>34;
最低以来:=BARSLAST(当前为最低)+1;
最低后首次上:=COUNT(量上长,最低以来)=1 AND 量上长 AND 有效周期数>34;
DRAWTEXT(最低后首次上,长价*1.03,'地量'),COLORRED;