VARIABLE:PWR:=0;
VARIABLE:N:=1;
M:=2;
STEP:=2;
MVALUE:=20;
STEP1:=STEP/100;
MVALUE1:=MVALUE/100;
SARLINE:SAR(M,STEP1,MVALUE);
IF BARPOS=3 THEN
BEGIN
N:=2;
PWR:((H-L)/L+(C-O)/O)*50*SGN(SARLINE);
END
IF BARPOS>3 THEN
BEGIN
N:=REF(N,1)+1;
PWR..(N-2)/N*REF(PWR,1)+2/N*PWR,LINETHICK6,COLORWHITE;
END
说明您的编写有逻辑上问题,不清楚您需要实现什么样的效果
可以具体说明一下,我们帮您分析修改
参考:
VARIABLE:PWR:=0;
VARIABLE:N:=1;
M:=2;
STEP:=2;
MVALUE:=20;
STEP1:=STEP/100;
MVALUE1:=MVALUE/100;
SARLINE:SAR(M,STEP1,MVALUE);
IF BARPOS=3 THEN
BEGIN
N:=3;
PWR:=((H-L)/L*0.5+(C-O)/O*0.5)+ABS(SARLINE);
END
IF BARPOS>3 THEN
BEGIN
N:BARPOS;
PWR1:=((H-L)/L*0.5+(C-O)/O*0.5)+ABS(SARLINE);
PWR..(N-2)/N*REF(PWR1,1)+2/N*PWR1,LINETHICK6,CIRCLEDOT;
END