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,'请将复权方式改为:向前复权 系统设置选中:成交量复权');{总市值 亿}完全周期:=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;
