//-------金魔方智能交易公式--------------
//例8_1 點(diǎn)數(shù)圖突破交易策略
{策略：
1.價(jià)格升破點(diǎn)數(shù)圖最近幾列的最高點(diǎn)時(shí)平空開(kāi)多
2.價(jià)格跌破點(diǎn)數(shù)圖最近幾列的最低點(diǎn)時(shí)平多開(kāi)空
***點(diǎn)數(shù)圖的算法和畫(huà)法請(qǐng)問(wèn)度娘***
}
input:
  格值(30),轉(zhuǎn)向格(5),突破列數(shù)(3),偏移量(1);
const: 最大列數(shù)(10); //突破列數(shù)應(yīng)小于此數(shù)
array: 極點(diǎn)值[最大列數(shù)](0); //上漲列為最高格值，下跌列為最低格值
variable: 轉(zhuǎn)向價(jià)(0),漲跌方向(0),
  突破買(mǎi)價(jià)(99999),突破賣(mài)價(jià)(0);//初始化
 
if BarPos <= 1 then begin
  轉(zhuǎn)向價(jià) := Round(Close);
  漲跌方向 := 0;  //初始化為無(wú)方向
  突破買(mǎi)價(jià) := High + 偏移量;
  突破賣(mài)價(jià) := Low - 偏移量;
end
 
else begin
  if 漲跌方向 = 0 then begin   //尚未確定方向
    if High >= 轉(zhuǎn)向價(jià) + 格值 * 轉(zhuǎn)向格 then begin
      極點(diǎn)值[0] := 轉(zhuǎn)向價(jià) + 格值 * 轉(zhuǎn)向格;
      漲跌方向 := 1;  //上漲
    end
    else if Low <= 轉(zhuǎn)向價(jià) - 格值 * 轉(zhuǎn)向格 then begin
      極點(diǎn)值[0] := 轉(zhuǎn)向價(jià) - 格值 * 轉(zhuǎn)向格;
      漲跌方向 := -1;  //下跌
    end;
  end
 
  else if 漲跌方向 = 1 then begin  //當(dāng)前列為上漲
    if High >= 極點(diǎn)值[0] + 格值 then begin //增加向上的X格子
      while High >= 極點(diǎn)值[0] + 格值 do begin
        極點(diǎn)值[0] := 極點(diǎn)值[0] + 格值;
        轉(zhuǎn)向價(jià) := 極點(diǎn)值[0] - 格值 * 轉(zhuǎn)向格;  //抬高轉(zhuǎn)向價(jià)
      end;
    end
    else if Low <= 轉(zhuǎn)向價(jià) then begin  //上漲轉(zhuǎn)為下跌
      for n = 0 to 最大列數(shù)-1 do begin  //數(shù)組移位
        極點(diǎn)值[最大列數(shù)-n] := 極點(diǎn)值[最大列數(shù)-n-1];
      end;
   //以下使點(diǎn)數(shù)圖新增下跌列
      極點(diǎn)值[0] := 轉(zhuǎn)向價(jià);
      漲跌方向 := -1;  //轉(zhuǎn)為下跌
      轉(zhuǎn)向價(jià) := 極點(diǎn)值[0] + 格值 * 轉(zhuǎn)向格;
      while Low <= 極點(diǎn)值[0] - 格值 do begin
        極點(diǎn)值[0] := 極點(diǎn)值[0] - 格值;
        轉(zhuǎn)向價(jià) := 極點(diǎn)值[0] + 格值 * 轉(zhuǎn)向格;
      end;
    end;
  end  //當(dāng)前列為上漲
 
  else begin //當(dāng)前列為下跌
    if Low <= 極點(diǎn)值[0] - 格值 then begin //增加向下的O格子
      while Low <= 極點(diǎn)值[0] - 格值 do begin
        極點(diǎn)值[0] := 極點(diǎn)值[0] - 格值;
        轉(zhuǎn)向價(jià) := 極點(diǎn)值[0] + 格值 * 轉(zhuǎn)向格;
      end;
    end
    else if High >= 轉(zhuǎn)向價(jià) then begin  //下跌轉(zhuǎn)為上漲
      for n = 0 to 最大列數(shù)-1 do begin
        極點(diǎn)值[最大列數(shù)-n] := 極點(diǎn)值[最大列數(shù)-n-1];
      end;
      極點(diǎn)值[0] := 轉(zhuǎn)向價(jià);
      漲跌方向 := 1;
      轉(zhuǎn)向價(jià) := 極點(diǎn)值[0] - 格值 * 轉(zhuǎn)向格;
      while High >= 極點(diǎn)值[0] + 格值 do begin
        極點(diǎn)值[0] := 極點(diǎn)值[0] + 格值;
        轉(zhuǎn)向價(jià) := 極點(diǎn)值[0] - 格值 * 轉(zhuǎn)向格;
      end;
    end;
  end; //當(dāng)前列為下跌   //根據(jù)最近若干列的極點(diǎn)值計(jì)算突破價(jià)位
  value1:= 0;
  value2:= 99999;
  for n = 1 to 突破列數(shù) do begin
    if 極點(diǎn)值[n] > value1 then value1 := 極點(diǎn)值[n];
    if 極點(diǎn)值[n] < value2 then value2 := 極點(diǎn)值[n];
  end;
  突破買(mǎi)價(jià) := value1 + 偏移量;
  突破賣(mài)價(jià) := value2 - 偏移量;
end; 
 
Buy('', DEFAULT, 突破買(mǎi)價(jià), -1, OT_STOP);
SellShort('', DEFAULT, 突破賣(mài)價(jià), -1, OT_STOP); 
  
買(mǎi)線: 突破買(mǎi)價(jià), Precision0;  
賣(mài)線: 突破賣(mài)價(jià), Precision0;
盈利因子: -GrossProfit/GrossLoss, Precision2, LineThick0;
盈虧比: -(GrossProfit/NumWinTrades)/(GrossLoss/NumLosTrades), Precision2, LineThick0;
勝率%: PercentProfit, Precision2, LineThick0;
凈利: NetProfit, Precision2,LineThick0;
當(dāng)前連虧次數(shù): NumConsecLosers, Precision0, LineThick0;
{注解：
1.用variable定義變量可增加可讀性，在本例其實(shí)可以省略
2.Precision指定輸出數(shù)值的小數(shù)位數(shù)
3.盈虧比=平均盈利/平均虧損，GrossLoss返回值為負(fù)數(shù)
}
 

點(diǎn)數(shù)圖算法的代碼比較復(fù)雜，如果每個(gè)涉及到點(diǎn)數(shù)圖的公式都包含那么多代碼會(huì)比較難看，我們是否可以把它做成公共代碼供其它公式調(diào)用呢？用傳統(tǒng)的調(diào)用指標(biāo)公式的方法不太好使，而且一次調(diào)用只能返回一個(gè)結(jié)果，本例的點(diǎn)數(shù)圖就需要返回“突破買(mǎi)價(jià)”和“突破賣(mài)價(jià)”兩個(gè)結(jié)果，用戶能否自編函數(shù)，并且讓這個(gè)函數(shù)能同時(shí)返回多個(gè)結(jié)果呢？

敬請(qǐng)關(guān)注本攻略！