点石成金公式中PXDN30

点石成金公式中PXDN30

编写要求：

解答：

网友求助：

{======= 点石成金 =======}
P:=SYSPARAM(1); P1:=SYSPARAM(2); P2:=SYSPARAM(3); P3:=SYSPARAM(4); P4:=SYSPARAM(5);
Cj_Z:=barslast(P=barpos)+1;
Cj_H:=IF(c>100,SUM(h*V,Cj_z)/SUM(V,Cj_z),sum(AMOUNT,Cj_z)/sum(v,Cj_z)/100*SUM(H,Cj_z)/SUM(C,Cj_z));//点石成金H
Cj_L:=IF(c>100,SUM(l*V,Cj_z)/SUM(V,Cj_z),sum(AMOUNT,Cj_z)/sum(v,Cj_z)/100*SUM(L,Cj_z)/SUM(C,Cj_z));//点石成金L
点石成金:=if(ref(h,Cj_z-1)>ref(h,Cj_z) and ref(h,Cj_z-1)>ref(h,Cj_z-2),Cj_h,Cj_l);//点石成金
偏离:=(C-点石成金)/点石成金*100;
PARTLINE(显示=0,点石成金),COLORCYAN;//点石成金线
bc:=barslast(P=barpos)+1;
DRAWTEXT(BARPOS=P2&&显示=0,点石成金[DATACOUNT],' 点石成金 /n '+NUMTOSTR(点石成金[DATACOUNT],2)+' 元'),PXUP26,Color009A00;
DRAWTEXT(ISLASTBAR&&显示=0,点石成金,'偏离 /n'+NUMTOSTR(偏离[DATACOUNT],1)+'%'),SHIFT1,PXDN30,Color00DBD9;