下面是FxOverEasy的自动交易程序，代入Metatrader4.0智能交易即可，具体方法可以参考www.520fx.com的相关指南。

#property copyright“Copyright？2009，Dina”

#define LONGCOLOR DodgerBlue

#define SHORTCOLOR OrangeRed

extern bool UseAscTrend=0；

extern int StopLoss=15，

TrailingStopTrigger=15，

TrailingStop=10，

MinChannelWidth=40，

TakeProfit=150，

PauseToReEntryMinutes=15，

Lagueπe ValidityMinutes=45；

extern bool DebugTrace=1；

in LastSignalTime，

LaguerreSignal，

LaguerreSignaltime；

int init（）{return（0）；}

int deinit （）{return（0）；}

int start（）

{

double UL，DL；

int res=0；

if（Bars<20）return（0）；

int currenttrades=0；

for（intx=0；x < OrdersTotal（）；x++）{

OrderSelect（x，SELECT_BY_POS，MODE_TRADES）；

if（OrderSymbol（）==Symbol（））{

currenttrades++；

}

}

if（currenttrades==0）{

if（AccountFreeMargin（）<1000）

return；

iCustom.（NULL，0，“SHI_Channel”，0，0；

double MIDL2=ObjectGet（“MIDL”，OBJPROP PRICE2）；

double MIDL1=ObjectGet（“MIDL”，OBJPROP PRICE1）；

double TL1=ObjectGet（“TL1”，OBJPROP_PRICE2）；

double TL2=ObjectGet（“TL2”，OBJPROP_PRICE2）；

if（TL1 > TL2）{UL=TL1；DL=TL2；}else {UL=TL2；DL=TL1；}

double i_Trend1=iCustom（NULL，0，“i_Trend”，0，0）；

double i_Trend2=iCustom（NULL，0，“i_Trend”，1，0）；

double Juice1=iCustom（NULL，0，“Juice”，0，0）；

double PAsctrnd 1=0，

PAsctrnd2=0；

if（UseAscTrend）{

PAsctrnd1=iCustom（NULL，0，“PerkyAsctrend1”，0，0）；

PAsctrnd2=iCustom（NULL，0，“Perky Asctrend1”，1，0）；

else {

PAsctrnd1=1； //not taken into account（make it irrelevant，i.e. set always true）

PAsctrnd2=1；

//must be checked after AscTrend（！）

double Laguerre1=iCustom（NULL，0，“Laguerre”，0，0）；

double Laguerre2=iCustom（NULL，0，“Laguerre”，0，1）；

if（Laguerre2 < 0.15 && Laguerrel>=0.15）{

LaguerreSignal=1；//LONG

LaguerreSignaltime=Time[0];

}

else

if（Laguerre2 > 0.75 && Laguerrel <= 0.75）{

LaguerreSignal = 1； //SHORT

LaguerreSignaltime = Time[0]；

}

if（LaguerreSignal!=0 &&

（Time[0]-LaguerreSignaltime）>LaguerreValidityMinutes*60）{

LaguerreSignal=0；//expire laguerre crossing signal after n mintues

}

res= 0；

if（Juice1 > 0.0 && UL-DL>MinChannelWidth*Point &&

（Time[0]-LastSignalTime）> PauseToReEntryMinutes*60） {

if（MIDI2 > MIDL1 && Ask

DL && i_Trend1>i_Trend2 && LaguerreSignal==1 && PAsctrnd1 >0.0） {

 

res=OrderSend（Symbol（），OP_BUY，1，Ask，5，Ask-Stoploss*Point，Ask+TakeProfit*Point，“”，0，0，LONGCOLOR）；

}

if（MIDI2 < MIDL1 && Bid < UL && Bid > DL && i_Trend1 > i_Trend2 && LaguerreSignal==1 && PAsctrnd2>0.0）{

res=OrderSend（Symbol（），OP_SELL，1，Bid，5，Bid+StopLoss*Point，BidTakeProfit*Point，“”，0，0，SHORTCOLOR）；

}

if（res!=0）{

LastSignalTime=Time[0]；

Print（“****TRADE****”）；

}

}

if（res!=0 || DebugTrace）{

Print（Symbol（），“”，Bid，“/”，Ask，“--Laguerre2/1/sig=”，Laguerre2，“/”，Laguerre1，“/”，LaguerreSignal，“，Juice=”，Juice1）；

Print（“SHI=”，MIDI2-MIDL1，“，ITrend=”，i_Trend1，“/”，i_Trend2，“，AscTrend=”，PAsctrnd1，“/”，PAsctmd2）；

}

}

else

{

for（int i=0；i<OrdersTotal（）；i++）{

if（OrderSelect（i，SELECT_BY_POS，MODE_TRADES）==false）break；

if（OrderSymbol（）!=Symbol（）） continue；

double trailstop = TrailingStop*Point，

trailstoptrigger=TrailingStopTrigger*Point，

unrealisedprofit；

switch（OrderType（））{

case OP_BUY：

unrealisedprofit=Bid-OrderOpenPrice（）；

if（TrailingStop && unrealisedprofit > trailstoptrigger && （！OrderStopLoss（）|| OrderStoplρss（） < Bid-trailstop））

OrderModify（OrderTicket（），0，Bid-trailstop，OrderTakeProfit（），0，LONGCOLOR）；

break；

case OP_SELL：

unrealisedprofit=OrderOpenPrice（）-Ask；

if（TrailingStop && unrealisedprofit > trailstoptrigger &&

（!OrderStopLoss（）||OrderStopLoss（）> Ask+trailstop））

OrderModify（OrderTicket（），0，Ask+trailstop，OrderTakeProfit（），0，SHORTCOLOR）；

break；

}

}

}

}

• 共8页:
• 上一页
• 1
• 2
• 3
• 4
• 5
• 6
• 7
• 8
• 下一页