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

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(c