请老师帮助将通达信转换为金字塔

稳诺

V0:=VOL,VOLSTICK;
QSC:=V0,LINETHICK0;
成交量:QSC,NODRAW;

YS1:=(REF(O,1) + REF(C,1)) / 2;
YS2:=(H + L + C) / 3;
YS3:=MAX(MAX(YS1,YS2),H);
YS4:=MIN(MIN(YS1,YS2),L);
YS5:=IF(YS1 < YS2,YS3 - YS4 + YS2 - YS1,YS3 - YS4);
YS6:=IF(YS1 > YS2,YS3 - YS4 + YS1 - YS2,YS3 - YS4);
YS7:=YS5 / (YS5 + YS6) * V * MAX(ABS(YS1 - YS2) / (YS3 - YS4),0.15) / 10000;
YS8:=YS6 / (YS5 + YS6) * V * MAX(ABS(YS1 - YS2) / (YS3 - YS4),0.15) / 10000;
YSSR:=(YS7 - YS8) * 25000,LINETHICK0;
YJZ:=MA(YSSR,3),LINETHICK0;

净流:YJZ/10,NODRAW;

YJJJ:=CROSS(净流,0);
YKKK:=CROSS(0,净流);
ZTLR:=REF(CROSS(净流,0),1);
ZTLC:=REF(CROSS(0,净流),1);
XFDD:=C>=REF(H,1)AND ZTLR;
XFKK:=C<=REF(L,1)AND ZTLC;

STICKLINE(QSC<0,QSC,0,2.2,1),COLORWHITE;
STICKLINE(QSC>0,QSC,0,2.2,1),COLORGRAY;


STICKLINE(YJJJ=1,QSC,0,2.2,1),COLORRED;
STICKLINE(YKKK=1,QSC,0,2.2,1),COLORGREEN;
STICKLINE(YJZ>0,YJZ,0,2.2,0),COLORRED;
STICKLINE(YJZ<0,0,YJZ,2.2,0),COLORGREEN;





A1:=V<REF(V,1) AND V<REFX(V,1);
A2:=BARSLAST(A1);
A3:=FILTERX(V=HHV(V,A2),A2);
B1:=CONST(REF(BARSLAST(A1),1)+1)>=CURRBARSCOUNT-1 AND A1;
B2:=CONST(REF(BARSLAST(A3),1)+1)>=CURRBARSCOUNT-1 AND A3;
B3:=CONST(REF(SUMBARS(A1,2),1)+1)>=CURRBARSCOUNT-1 AND A1;
B4:=CONST(REF(SUMBARS(A3,2),1)+1)>=CURRBARSCOUNT-1 AND A3;

STICKLINE(B1 ,YJZ,V,0.2,0)COLORYELLOW;
STICKLINE(B2 ,YJZ,V,0.2,0)COLORMAGENTA;

技术009

不需要转换，直接用。这段代码里没有需要调整的地方。

稳诺

谢谢老师