variable:tr=0,up=0,dn=0;
TR1:=MAX(MAX((HIGH-LOW),ABS(REF(CLOSE,1)-HIGH)),ABS(REF(CLOSE,1)-LOW));
ATR:=MA(TR1,20);
median:= (high + low) / 2;
up:= median+atr * 3;
dn:= median-atr * 3;
tr:=if(c>ref(up,1),1,if(c<ref(dn,1),-1,tr));
flag:=tr<0 and ref(tr,1)>0;
flagh:=tr>0 and ref(tr,1)<0;
dn:=if(tr>0 and dn<ref(dn,1),ref(dn,1),dn);
up:=if(tr<0 and up>ref(up,1),ref(up,1),up);
up:=if(flag,median + atr * M,up);
dn:=if(flagh,median - atr * M,dn);
outtr:=tr;
outup:=up;
outdn:=dn;
supertren:if(outtr=1,outdn,outup);

逐句转换吧。
---------
MAX(MAX((HIGH-LOW),ABS(REF(CLOSE,1)-HIGH)),ABS(REF(CLOSE,1)-LOW));
这一句，需要二个自定义函数， 一个是 MAX ，一个是 REF 。
另外，这个标识符 CLOSE 与 VB 的关键字 重覆，需要修改

转换为：
MAX(MAX((HIGH-LOW),ABS(REF(CLOSE1,1)-HIGH)),ABS(REF(CLOSE1,1)-LOW))
------
variable:tr=0,up=0,dn=0;
dim tr as Single
tr=0
..
-----
median:= (high + low) / 2;
转换为：
median = (high + low) / 2
--------
if(outtr=1,outdn,outup);
转换为：
iif(outtr=1,outdn,outup)
----------

按照这个例子去转换，应该没什么问题。