以文本方式查看主题

-  金字塔客服中心 - 专业程序化交易软件提供商  (http://weistock.com/bbs/index.asp)
--  公式模型编写问题提交  (http://weistock.com/bbs/list.asp?boardid=4)
----  图表代码这段如何改成后台的 请指教  (http://weistock.com/bbs/dispbbs.asp?boardid=4&id=49534)
--  作者：just
--  发布时间：2013/3/11 15:35:05
--  图表代码这段如何改成后台的 请指教
 win:=0;
if holding > 0 and enterbars > 0 then
begin
 win:=(high-enterprice); //记录当前最大盈利
 if win > maxprofit then
  maxprofit:=win; 
end

if holding < 0 and enterbars > 0 then
begin
 win:=(enterprice-low); //记录当前最大盈利
 if win > maxprofit then
  maxprofit:=win;
end
这段语句，移植到后台
怎么改呢
其中 maxprofit  是全局变量 
--  作者：jinzhe
--  发布时间：2013/3/11 15:57:55
--  
这个win和maxprofit都得是全局变量吧
--  作者：fly
--  发布时间：2013/3/12 11:31:52
--  

//注意红色标识

//只列出多头部分

//序列模式

 

MA1:MA(CLOSE,5);
MA2:MA(CLOSE,30);

//开仓
IF CROSS(MA1,MA2) and islastbar THEN
BEGIN
 tBUY(1,1);
 EXTGBDATASET(\'maxprofit\',0);
END

 

//平仓
tSELL(CROSS(MA2,MA1),0);

 

//判断当前持仓状态下的最大盈利
win:=0;
win2:=0;

if tholding2 > 0 and tenterbars > 0 then
begin
 win:=(c-tenterprice)/tenterprice*100; //记录最大盈利

 if win>EXTGBDATA(\'maxprofit\') then
  begin
  EXTGBDATASET(\'maxprofit\',win); 
  end
 
 win2:=(EXTGBDATA(\'maxprofit\')-win)/EXTGBDATA(\'maxprofit\')*100; //最大盈利后的回调
end