求老师帮忙转码成文华8.2　[文华财经]

手数:=ss;
n:=barslast(date<>ref(date,1));
昨高:=callstock(stklabel,vthigh,6,-1);//昨高
昨低:=callstock(stklabel,vtlow,6,-1);//昨低
昨收:=callstock(stklabel,vtclose,6,-1);//昨收
a:=hhv(h,n+1);
b:=llv(l,n+1);
if N>=1 then begin
今高:=a;//今高
今低:=b;//今低
end
观察卖出价:昨高+0.35*(昨收-昨低);//ssetup
反转卖出价:(1.07/2)*(昨高+昨低)-0.07*昨低;//senter
反转买入价:(1.07/2)*(昨高+昨低)-0.07*昨高;//benter

观察买入价:昨低-0.35*(昨高-昨收);//bsetup
突破买入价:(观察卖出价+0.25*(观察卖出价-观察买入价));//bbreeak
突破卖出价:观察买入价-0.25*(观察卖出价-观察买入价);//sbreak

//条件

空仓做多条件:=c>突破买入价 and holding=0;
空仓做空条件:=c<突破卖出价 and holding=0;
多单反转条件:=holding>0 and 今高>观察卖出价 and c<反转卖出价;
空单反转条件:=holding<0 and 今低<观察买入价 and c>反转买入价;
//交易系统
if time>=092000 and time<151000 then begin
 空仓开多:buy(空仓做多条件,手数,market);
 空仓开空:buyshort(空仓做空条件,手数,market);
//多单反转:
 if 多单反转条件 then begin
  平多:sell(1,手数,market);
  翻空:buyshort(1,手数,market);
  end
 //空单反转:
 if 空单反转条件 then begin
 平空:sellshort(1,手数,market);
 翻多:buy(1,手数,market);
 end
end

//日内平仓
if time>=151000 then begin
 收盘平多:sell(1,手数,market);
 收盘平空:sellshort(1,手数,market);
end

 请查看下面的链接。

http://help.shwebstock.com.cn/dispbbs.asp?boardid=14&id=372614&page=&star=2