随意移动,精确定位,自动找点,点石成金
 大智慧新一代版“点石成金”,可随意移动,精确定位,主图用设红绿两线,调整参数为零则自动找高低点,增减参
 数值可使取点变动.
 
源码:  (主图){公式在线提供：www.gszx.com.cn}
 
{点石成金(红绿双线); 参数:绿(0,0,1000),红(0,0,1000)}
 
高点时区:=PEAKBARS(4,30,1 );
 低点时区:=TROUGHBARS(4,30,1 );
 eee:=BACKSET(BARSTATUS=2 ,if(绿=0,高点时区+1,绿));
 ee:=FILTER(eee ,if(绿=0,高点时区*2,绿+2 ));
 VERTLINE(ee,2 ),ALIGN2,COLORFFff00;
 s2:=COUNT(eee ,绿 );
 bc:=s2;
 点石成金H:=IF(close>100,SUM(h*VOL,bc)/SUM(VOL,bc),sum(AMOUNT,bc)/sum(v,bc)/100*SUM(H,bc)/SUM(C,BC)){,colorred,LINETHICK2};
 点石成金L:=IF(close>100,SUM(l*VOL,bc)/SUM(VOL,bc),sum(AMOUNT,bc)/sum(v,bc)/100*SUM(L,bc)/SUM(C,BC)){,colorblue,LINETHICK2};
 点石成金:if(ref(h,bc)>ref(h,bc+1) and ref(h,bc)>ref(h,bc-1) ,点石成金h,点石成金l),color00ff00,LINETHICK1;
 PARTLINE(点石成金,eee=1 ),color00ff00,LINETHICK2;
 DRAWTEXT(BARSTATUS=2,点石成金*1.01,''+点石成金),COLOR00ff00,VALIGN2,ALIGN2;
 DRAWTEXT(ee,点石成金*1.01,''+绿),COLOR00ff00,VALIGN2,ALIGN2;
 DRAWTEXT(BARSTATUS=2,点石成金*1.01,'________'),COLOR00ff00,VALIGN2,ALIGN2;
 eee1:=BACKSET(BARSTATUS=2 ,if(红=0,低点时区+1,红));
 ee1:=FILTER(eee1 ,if(红=0,低点时区*2,红+2 ));
 VERTLINE(ee1,2 ),