点石成金 红绿双线（飞狐主图 源码）

{点石成金(红绿双线); 参数:绿(0,0,1000),红(0,0,1000)}
input:绿(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),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,numtostr(点石成金,3)),COLOR00ff00,ALIGN2;//,VALIGN2
DRAWTEXT(ee,点石成金*1.01,numtostr(绿,3)),COLOR00ff00,ALIGN2;//VALIGN2,
DRAWTEXT(BARSTATUS=2,点石成金*1.01,'________'),COLOR00ff00,ALIGN2;//,VALIGN2
eee1:=BACKSET(BARSTATUS=2 ,if(红=0,低点时区+1,红));
ee1:=FILTER(eee1 ,if(红=0,低点时区*2,红+2 ));
VERTLINE(ee1),ALIGN2,COLORFFdd00;//,2
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,numtostr(点石成金1,3)),COLORred,ALIGN2;//,VALIGN0
DRAWTEXT(ee1,点石成金1*0.98,numtostr(红,3)),COLORred,ALIGN2;//,VALIGN0
DRAWTEXT(BARSTATUS=2,点石成金1*0.98,'________'),COLOR00ff00,ALIGN2; //,VALIGN0