鼓捣了几天，都没有弄好，请版主帮忙转换金字塔的公式！

tangfang

input:N(5,0,999),N1(1,1,999);
VARIABLE: aspect=0; //初始化假定做多头
VARIABLE: stopprice=0;//止损价格变量
VARIABLE:STOPNUM=n2*mindiff;
B:=VALUEWHEN(DATE<>REF(DATE,1),OPEN);
if barpos = 0 then
  stopprice :=L - stopnum;
if aspect = 0 then
begin
//多头处理  
if (h+c+l)/3+n <= stopprice then
begin
  //多反空
  aspect:= 1;
  stopprice := h+stopnum;
end
//处理移动的底部
if l - stopnum > stopprice then
  stopprice := o-stopnum;
end
  //画线
PARTLINE( aspect = 0, stopprice , colorrgb(255,0,0),VTSOLID)LINETHICK3;
  
为什么我 转换的 总是有问题，请教论坛里的高手们！怎么转换TB的 才对。
Params
  Numeric N(5);
  Numeric N1(1);
  Numeric N2(10);
Vars
  Numeric aspect;
  Numeric stopprice;
  Numeric stopnum;
  Numeric B;
  Numeric hx;//画线
Begin
  stopnum=N2*MinMove;

  If(BarCount==0)
    {stopprice=l-stopnum;} Else
  If(aspect==0)
   if((h+c+l)/3+N <=stopprice)
    {
         stopprice==h+stopnum;
        }Else
     {if(l-stopnum>stopprice)
          {
          stopprice=Open-stopnum;
          }
         }
   PlotNumeric("stopprice", (h+c+l)/3+N,Red );  
End