通达信谷峰综合顶底副图指标 源码

喜庆佳节就要有点喜庆气氛。刚发的《均线箱体差值》主图指标实在不成熟，欢迎大家品头论足，这是论坛交流应有的程序。
 现在奉献一个配套的副图指标----《谷峰综合顶底》。这指标是通过大家提供的资料进行综合整理，从多个方面探求寻找顶底。运用了《谷峰线》、《动能顶底》、《BIAS》、锯齿波》、及其他能反应顶底的资料，综合的目的是更多的显示股价走势的顶底状况，同时在图形的底部用彩条将《钱龙短线》、《锯齿波》及《谷峰线》的情况显示出来，便于对比。总之，虽然想了众多方法，但想准确的标识出顶底的确切位置，还是比较困难的，目前看是不可能的，只能说是大约，因此希望坛友们只是参考，互相交流，千万别当真！！！

 指标源码：
 XA1:=MA(CLOSE,20);
 XA2:=(CLOSE>MA(CLOSE,5));
 XA3:=(MA(CLOSE,5)>MA(CLOSE,10));
 XA4:=(CLOSE>MA(CLOSE,10));
 XA5:=(MA(CLOSE,5)>MA(CLOSE,20));
 XA6:=(CLOSE>MA(CLOSE,20));
 XA7:=REF(XA1,1);
 XA8:=(XA1>XA7);
 AVX:=(((((IF(XA2,10,(0 - 10)) + IF(XA3,10,(0 - 10))) + IF(XA4,10,(0 -10))) +
IF(XA5,10,(0 - 10))) + IF(XA6,10,(0 - 10))) + IF(XA8,10,(0 -10)))+50;
 DRAWBAND(AVX,RGB(170,70,0),50,RGB(0,100,110));
 谷峰线:AVX,COLOR00FFFF,LINETHICK1;
 DIFF:=EMA(CLOSE,3)-EMA(CLOSE,8);
 DEA:=EMA(DIFF,5);
 MACD:=2*(DIFF-DEA);
 A1:=EMA(DIFF,5)*100;
 A2:=((EMA(CLOSE,3)-EMA(CLOSE,8)))*100;
 A3:=IF(A2>0,A2,50),POINTDOT,COLORRED;
 A4:=IF(A2<0,A2,50),POINTDOT,COLORGREEN;
 L2:=5; L3:=10;
 QVAR1:=MA((VOL-REF(VOL,1))/REF(VOL,1),L2);
 QVAR2:=(CLOSE-MA(CLOSE,L3))/MA(CLOSE,L3)*100;
 MY:=1.5*QVAR2*(1+QVAR1)+50,COLOR00FFFF,LINETHICK3;
 QVAR3:=MA(MY,5),COLORFF00FF,LINETHICK2;
 DRAWBAND(MY,RGB(250,0,250),QVAR3,RGB(0,200,200));
 BIAS1:=(CLOSE-MA(CLOSE,6))/MA(CLOSE,6)*100;
 BIAS2:=(CLOSE-MA(CLOSE,12))/MA(CLOSE,12)*100;
 BIAS3:=(CLOSE-MA(CLOSE,24))/MA(CLOSE,24)*100;
 BIAS:=(BIAS1+2*BIAS2+3*BIAS3)/6;
 综合乖离:MA(BIAS,3),COLORFFFF00,LINETHICK0;
 BIAS底C:IF(综合乖离<-6,60,50),COLORFFFF00,LINETHICK2;
 DRAWBAND(BIAS底C,RGB(250,0,0),50,RGB(0,0,0));
 N:=3;
 VAR01:=MA(HHV(HIGH,485),17);
 VAR02:=MA(HHV(HIGH,222),17);
 VAR03:=MA(HHV(HIGH,96),17);
 VAR04:=MA(LLV(LOW,485),17);
 VAR05:=MA(LLV(LOW,222),17);
 VAR06:=MA(LLV(LOW,96),17);
 VAR07:=MA((VAR04*0.96+VAR05*0.96+VAR06*0.96+VAR01*0.558+VAR02*0.558+VAR03*0.558)/6,17);
 VAR08:=MA((VAR04*1.25+VAR05*1.23+VAR06*1.2+VAR01*0.55+VAR02*0.55+VAR03*0.65)/6,17);
 VAR09:=MA((VAR04*1.3+VAR05*1.3+VAR06*1.3+VAR01*0.68+VAR02*0.68+VAR03*0.68)/6,17);
 VAR10:=MA((VAR07*3+VAR08*2+VAR09)/6*1.738,17);
 VAR11:=IF(DATE<=1050531,VAR10,VAR10*DAY);
 VAR12:=LOW;
 VAR13:=REF(LOW,1);
 VAR14:=SMA(ABS(VAR12-VAR13),3,1)/SMA(MAX(VAR12-VAR13,0),N,1)*100;
 VAR15:=MA(IF(CLOSE*1.35<=VAR11,VAR14*10,VAR14/10),N);
 VAR16:=LLV(LOW,30);
 VAR17:=HHV(VAR15,30);
 VAR18:=1990831;
 VAR19:=IF(DATE<=VAR18,MA(IF(LOW<=VAR16,(VAR15+VAR17*2)/2,0),N),100000000);
 VAR20:=(HHV(H,9.8)-C)/(HHV(H,9.8)-LLV(L,9.8))*100;
 VAR21:=SMA(VAR20,3,1);
 VAR22:=SMA(VAR21,3,1);
 VAR23:=3*VAR21-2*VAR22;
 VAR24:=IF(VAR23>=100,100,IF(VAR23<=0,0,VAR23));
 VAR25:=(CLOSE-MA(CLOSE,60))/MA(CLOSE,60)*100;
 VAR26:=100+(-ABS(VAR25));
 VAR27:=(CLOSE-LLV(LOW,21))/(HHV(HIGH,21)-LLV(LOW,21))*100;
 VAR28:=SMA(SMA(VAR27,9,4),9,4)/7.77777;
 VAR29:=EMA(VAR28,5);
 VAR30:=3*VAR28-2*VAR29;
 VAR31:=CROSS(VAR30,VAR28) AND VAR28<2.7 AND C>O;
 VAR32:=(CLOSE-LLV(LOW,17))/(HHV(HIGH,17)-LLV(LOW,17))*100;
 VAR33:=(CLOSE-LLV(LOW,50))/(HHV(HIGH,50)-LLV(LOW,50))*100;
 VAR34:=SMA(SMA(VAR32,3,1),3,1)+3*STD(CLOSE,10);
 VAR35:=SMA(VAR33,3,1);
 VAR36:=100-((100*((HHV(HIGH,17))-CLOSE))/((HHV(HIGH,17))-(LLV(LOW,17))));
 VAR37:=100-(MA(((100*((HHV(HIGH,17))-CLOSE))/((HHV(HIGH,17))-(LLV(LOW,17)))),4));
 VAR38:=MA(VAR37,1);
 VAR39:=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);
 底部:IF(VAR19>10000 AND VAR19>20000,-5,-15),COLORMAGENTA,LINETHICK1;
 DRAWBAND(底部,RGB(0,250,250),-15,RGB(0,0,0));
 超低:IF(VAR19>30000 AND VAR19>30000,-10,-15),COLORYELLOW,LINETHICK1;
 DRAWBAND(超低,RGB(160,0,230),-15,RGB(0,0,0));
 卖出警报:IF((VAR24=0),105,115),COLORGREEN,LINETHICK2;
 DRAWBAND(115,RGB(200,230,0),卖出警报,RGB(0,0,0));
 超短:=IF((VAR36<VAR38),VAR38,VAR36),COLORFFFFFF,LINETHICK2;
 走势:=(VAR38),COLORFFFF00,LINETHICK3;
 DRAWBAND(超短,RGB(250,170,0),走势,RGB(0,0,0));
 建仓:=IF(VAR39<5,-5,-15),COLORFFFF00,LINETHICK2;
 STICKLINE(1,10,10,2,0),COLORFF00FF;
 STICKLINE(1,20,20,2,0),COLORFFFF00;
 STICKLINE(1,80,80,2,0),COLORFFFFFF;
 STICKLINE(1,90,90,2,0),COLOR00FFFF;
 AA:=VOL>=REF(V,1)*1.91 AND C>REF(C,1)*1.01;
 BB:=EMA(100*(C-LLV(LOW,34))/(HHV(H,34)-LLV(LOW,34)),3),COLOR1010FF;
 短底:STICKLINE(CROSS(BB,9),-15,-5,2,0),COLOR0000FF;
 STICKLINE(CROSS(BB,9),-5,5,2,0),COLOR00FFFF;
 STICKLINE(CROSS(BB,9),5,15,2,0),COLORFF00FF;
 DRAWTEXT(CROSS(BB,9),8,'短底'),COLOR00FFFF;
 STICKLINE(1,-18,-23,4,1),COLOR686868;
 STICKLINE(1,-25,-30,4,1),COLOR686868;
 AAA:MY,COLOR00FFFF,LINETHICK1;
 BBB:QVAR3,COLORFFFFFF,LINETHICK1;
 STICKLINE(AAA>=BBB,-18,-23,4,0),COLORFF00FF;
 STICKLINE(超短>走势,-25,-30,4,0),COLOR00CCFF;
 AAB:= AVX>=90;
 BBBB:= AVX>=70 AND AVX<90;
 DDB:= AVX>=50 AND AVX<70;
 EEB:=AVX<50 AND AVX>=30;
 FFB:=AVX<30;
 STICKLINE(AAB,-32,-37,4,0),COLOR0000DD;
 STICKLINE(BBBB,-32,-37,4,0),COLORFF00FF;
 STICKLINE(DDB,-32,-37,4,0),COLOR00FFFF;
 STICKLINE(EEB,-32,-37,4,0),COLORFFFF00;
 STICKLINE(FFB,-32,-37,4,1),COLOR686868;
 DRAWTEXT_FIX(1,0.3,0.045,0,'【上部彩条-钱龙短线】【中部彩条-锯齿波】【下部彩条-谷峰线】'),COLORFFFF00;
 
高手飘过，欢迎拍砖！！