大智慧天宝系列之四量价均数公式

本指标有如下特点：
1.考虑了价与量的关系，更能反映资金流动的真实面目。
2.红黄线关系可作为波段操作的精准提示，非常灵敏，领会其中奥妙，就不会抄底抄在熊腰上，而该出手时就出手。
3.抄底逃顶妙不可言，请仔细观察顶底的K线形态。
4.适合于任何周期。

VARIABLE: zts=0,dts=0,量价=0,量价30=0,lj=0;

MA110:MA(CLOSE,110),LINETHICK2,COLORBLUE;
MA200:MA(C,200),COLORMAGENTA,LINETHICK2;
MA600:MA(C,600),COLORRED,LINETHICK2;
MA25:MA(C,25),COLORgreen,LINETHICK2;

均价:=SUM(AMOUNT,1)/SUM(V,1)/100;

量价均数:均价*AMOUNT/ SUM(AMOUNT,2) + REF(均价,1) * REF(AMOUNT,1)/ SUM(AMOUNT,2),COLORRED,linethick2;

量价3:均价*AMOUNT/SUM(AMOUNT,4) + REF(均价,1) * REF(AMOUNT,1)/ SUM(AMOUNT,4) + REF(均价,2) * REF(AMOUNT,2)/ SUM(AMOUNT,4)+ REF(均价,3) * REF(AMOUNT,3)/ SUM(AMOUNT,4) ,colorYELLOW,linethick2;
量价18:均价*AMOUNT/SUM(AMOUNT,18)
+ REF(均价,1) * REF(AMOUNT,1)/ SUM(AMOUNT,18)
+ REF(均价,2) * REF(AMOUNT,2)/ SUM(AMOUNT,18)
+ REF(均价,3) * REF(AMOUNT,3)/ SUM(AMOUNT,18)
+ REF(均价,4) * REF(AMOUNT,4)/ SUM(AMOUNT,18)
+ REF(均价,5) * REF(AMOUNT,5)/ SUM(AMOUNT,18)
+ REF(均价,6) * REF(AMOUNT,6)/ SUM(AMOUNT,18)
+ REF(均价,7) * REF(AMOUNT,7)/ SUM(AMOUNT,18)
+ REF(均价,8) * REF(AMOUNT,8)/ SUM(AMOUNT,18)
+ REF(均价,9) * REF(AMOUNT,9)/ SUM(AMOUNT,18)
+ REF(均价,10) * REF(AMOUNT,10)/ SUM(AMOUNT,18)
+ REF(均价,11) * REF(AMOUNT,11)/ SUM(AMOUNT,18)
+ REF(均价,12) * REF(AMOUNT,12)/ SUM(AMOUNT,18)
+ REF(均价,13) * REF(AMOUNT,13)/ SUM(AMOUNT,18)
+ REF(均价,14) * REF(AMOUNT,14)/ SUM(AMOUNT,18)
+ REF(均价,15) * REF(AMOUNT,15)/ SUM(AMOUNT,18)
+ REF(均价,16) * REF(AMOUNT,16)/ SUM(AMOUNT,18)
+ REF(均价,17) * REF(AMOUNT,17)/ SUM(AMOUNT,18)

,colorcyan,linethick3;

VAR1:=MA(均价,18);
VAR2:=(均价-VAR1)/VAR1*100;
VAR3:=MA(VAR2,1);

AA:=IF(VAR3>REF(VAR3,1) AND VAR3>0 ,16,-8);

BB:=IF(VAR3>REF(VAR3,1) AND VAR3<0 ,10,-8);
CCC:=IF(VAR3<REF(VAR3,1) AND VAR3>0 ,8,-8);

DD:=IF(VAR3<REF(VAR3,1) AND VAR3<0 ,8,-8);

STICKLINE(AA=16,均价,OPEN,2.5,0),COLORYELLOW;
STICKLINE(BB=10,均价,OPEN,2.5,0),COLORFF00FF;
STICKLINE(CCC=8,均价,OPEN,2.5,0),COLOR400080;
STICKLINE(DD=8,均价,OPEN,2.5,0),COLORFF0000;

正冲击波:=IF(均价/REF(均价,1)>1.009,12,4);
负冲击波:=IF(REF(均价,1)/均价>1.0091,8,4);

STICKLINE(正冲击波=12,均价,C,1.5,0),COLORRED;
STICKLINE(负冲击波=8,均价,C,1.5,0),COLORGREEN;

if 正冲击波=12 then begin
zts:=zts+1;
dts:=0;
 

end;

if 负冲击波=8 then begin
dts:=dts+1;
zts:=0;
end;
drawtext(dts=0 and zts<>ref(zts,1),h*1.01,str(zts)),colorred,align1,valign0;