大智慧新一代版点石成金随意移动,精确定位,自动找点主图源码

随意移动,精确定位,自动找点,点石成金
 大智慧新一代版“点石成金”,可随意移动,精确定位,主图用设红绿两线,调整参数为零则自动找高低点,增减参
 数值可使取点变动.
 
源码:  (主图)
 
{点石成金(红绿双线); 参数:绿(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 ),ALIGN2,COLORFFdd00;
 s21:=COUNT(eee1 ,红 );
 bc1:=s21;
 点石成金H1:=IF(close>100,SUM(h*VOL,bc1)/SUM(VOL,bc1),sum(AMOUNT,bc1)/sum(v,bc1)/100*SUM(H,bc1)/SUM(C,BC1));
 点石成金L1:=IF(close>100,SUM(l*VOL,bc1)/SUM(VOL,bc1),sum(AMOUNT,bc1)/sum(v,bc1)/100*SUM(L,bc1)/SUM(C,BC1));
 点石成金1:if(ref(h,bc1)>ref(h,bc1+1) and ref(h,bc1)>ref(h,bc1-1) ,点石成金h1,点石成金l1),colorred,LINETHICK1;
 PARTLINE(点石成金1,eee1=1 ),colorred,LINETHICK2;
 DRAWTEXT(BARSTATUS=2,点石成金1*0.98,”+点石成金1),COLORred,VALIGN0,ALIGN2;  DRAWTEXT(ee1,点石成金1*0.98,”+红),COLORred,VALIGN0,ALIGN2;  DRAWTEXT(BARSTATUS=2,点石成金1*0.98,’________’),COLOR00ff00,VALIGN0,ALIGN2;