简化多空线(大智慧)(飞狐)

{简化多空线}
INPUT:N(10,1,999);
a:=(3*c+l+o+h)/6;
b:0;
for i=0 to 19 do begin
b:=b+(20-i)*ref(a,i);
end;
b:=b/210;
D:ma(b,n);