求助：帮忙将以下公式改成通达信应用的公式

求助：帮忙将以下公式改成通达信应用的公式，原公式是大智慧检测通过的！公式是个朋友编的，不太懂谢谢各位了！

dc:=0;
kc:=0;
dcjl:=0;
kcjl:=0;
su:=0;
for i=9 to 1 do begin
if (ref(close,i)>ref(close,i+1) and ref(vol,i)>ref(vol,i+1)) or (ref(close,i)<ref(close,i+1) and ref(vol,i)<ref(vol,i+1))
then
dc:=dc+1;
dcjl:=dcjl+ref(vol,i);
if (ref(close,i)>ref(close,i+1) and ref(vol,i)<ref(vol,i+1)) or (ref(close,i)<ref(close,i+1) and ref(vol,i)>ref(vol,i+1))
then
kc:=kc+1;
kcjl:=kcjl+ref(vol,i);
end
su:=dc/kc/(dcjl/kcjl);
su<0.5;