A0:=BARSCOUNT(C);A3:=SYSPARAM(3);A2:=SYSPARAM(2);
A4:=SYSPARAM(4);A5:=SYSPARAM(5);
NN0:=A3-A2;NN:=A0-A2;HH1:=(A4-A5)/10;
Y0:=A0>=A2;VV0:=IF(Y0=1 AND SYSPARAM(1)>=A0,V,0);
C1:=IF(BETWEEN(C,A4-0*HH1,A4-1*HH1),VV0,0);
C2:=IF(BETWEEN(C,A4-1*HH1,A4-2*HH1),VV0,0);
C3:=IF(BETWEEN(C,A4-2*HH1,A4-3*HH1),VV0,0);
C4:=IF(BETWEEN(C,A4-3*HH1,A4-4*HH1),VV0,0);
C5:=IF(BETWEEN(C,A4-4*HH1,A4-5*HH1),VV0,0);
C6:=IF(BETWEEN(C,A4-5*HH1,A4-6*HH1),VV0,0);
C7:=IF(BETWEEN(C,A4-6*HH1,A4-7*HH1),VV0,0);
C8:=IF(BETWEEN(C,A4-7*HH1,A4-8*HH1),VV0,0);
C9:=IF(BETWEEN(C,A4-8*HH1,A4-9*HH1),VV0,0);
C10:=IF(BETWEEN(C,A4-9*HH1,A4-10*HH1),VV0,0);
V1:=STRTONUM(NUMTOSTR(IF(ISLASTBAR,SUM(C1,NN0),0),2));
V2:=STRTONUM(NUMTOSTR(IF(ISLASTBAR,SUM(C2,NN0),0),2));
V3:=STRTONUM(NUMTOSTR(IF(ISLASTBAR,SUM(C3,NN0),0),2));
V4:=STRTONUM(NUMTOSTR(IF(ISLASTBAR,SUM(C4,NN0),0),2));
V5:=STRTONUM(NUMTOSTR(IF(ISLASTBAR,SUM(C5,NN0),0),2));
V6:=STRTONUM(NUMTOSTR(IF(ISLASTBAR,SUM(C6,NN0),0),2));
V7:=STRTONUM(NUMTOSTR(IF(ISLASTBAR,SUM(C7,NN0),0),2));
V8:=STRTONUM(NUMTOSTR(IF(ISLASTBAR,SUM(C8,NN0),0),2));
V9:=STRTONUM(NUMTOSTR(IF(ISLASTBAR,SUM(C9,NN0),0),2));
V10:=STRTONUM(NUMTOSTR(IF(ISLASTBAR,SUM(C10,NN0),0),2));
AV0:=MAX(V1,MAX(V2,MAX(V3,MAX(V4,MAX(V5,MAX(V6,MAX(V7,MAX(V8,MAX(V9,V10)))))))));
FILLRGN(V1/AV0>=NN/NN0 AND NN>=0,A4-0*HH1,A4-1*HH1+0.05),COLORGRAY;
FILLRGN(V2/AV0>=NN/NN0 AND NN>=0,A4-1*HH1,A4-2*HH1+0.05),COLORGRAY;
FILLRGN(V3/AV0>=NN/NN0 AND NN>=0,A4-2*HH1,A4-3*HH1+0.05),COLORGRAY;
FILLRGN(V4/AV0>=NN/NN0 AND NN>=0,A4-3*HH1,A4-4*HH1+0.05),COLORGRAY;
FILLRGN(V5/AV0>=NN/NN0 AND NN>=0,A4-4*HH1,A4-5*HH1+0.05),COLORGRAY;
FILLRGN(V6/AV0>=NN/NN0 AND NN>=0,A4-5*HH1,A4-6*HH1+0.05),COLORGRAY;
FILLRGN(V7/AV0>=NN/NN0 AND NN>=0,A4-6*HH1,A4-7*HH1+0.05),COLORGRAY;
FILLRGN(V8/AV0>=NN/NN0 AND NN>=0,A4-7*HH1,A4-8*HH1+0.05),COLORGRAY;
FILLRGN(V9/AV0>=NN/NN0 AND NN>=0,A4-8*HH1,A4-9*HH1+0.05),COLORGRAY;
FILLRGN(V10/AV0>=NN/NN0 AND NN>=0,A4-9*HH1,A4-10*HH1+0.05),COLORGRAY;
STICKLINE(C>=O,C,O,9,1),COLORRED;
STICKLINE(C>=O,L,O,0.1,0),COLORRED;
STICKLINE(C>=O,C,H,0.1,0),COLORRED;
STICKLINE(C<O,C,O,9,0),COLORFFFF00;
STICKLINE(C<O,H,L,0.1,0),COLORFFFF00;
|
