這是小唐我最近在測試的程式
這是利用在一分鐘線的交易程式自動買及平倉
這程式的缺點目前在於下殺的情況下還無法判斷
所以如果有高手願意賜教我會非常歡迎您唷
歡迎加入論壇一起討論
//+------------------------------------------------------------------+
//||
//|無傭致贏外匯交易MT4智能交易系統|
//|測試版V1.0小唐歡迎大家一起研究|
//+------------------------------------------------------------------+
#propertycopyright"Copyright2006、OKwh"
#propertylink""
#defineMAGICMA200610011231
//+------------------------------------------------------------------+
//|注意沒有指標檔案那些property|
//+------------------------------------------------------------------+
externintwhichmethod=3;//1~4種下單方式
externdoubleTakeProfit=3;//賺三點就平倉
externdoubleStopLoss=20;//止損20
externdoubleMaximumRisk=0.05;//根據可用保證金計算首筆開倉手數，0.05代表5%的保證金風險；0.3
externdoubleTrailingStop=25;//追蹤止損
externintmaxOpen=3;//最多持倉限制3
externdoublemaxLots=0.1;//最多單倉限制5
externintbb=0;//非零就跟蹤止贏
externdoubleMATrendPeriod=26;//使用26均線
inti,p2,xxx,p1,res;
doubleLots;
datetimelasttime;
intinit（）//初始化
{
Lots=1;
lasttime=NULL;
return（0）;
}
intdeinit（）{return（0）;}//反初始化
//主程序
intstart（）
{
CheckForOpen（）;
if（bb>0）CTP（）;//跟蹤止贏
return（0）;
}
//+------下面是各子程序--------------------------------------------+
doubleLotsOptimized（）//確定下單量，開倉調用
{
doublelot=Lots;
intorders=HistoryTotal（）;//historyorderstotal
intlosses=0;//numberoflossesorderswithoutabreak
//MarketInfo（Symbol（）,MODE_MINLOT）;
//MarketInfo（Symbol（）,MODE_MAXLOT）;
//MarketInfo（Symbol（）,MODE_LOTSTEP）;
lot=NormalizeDouble（MaximumRisk*AccountBalance（）/AccountLeverage（）,1）;
if（lot<0.1）lot=0.1;
if（lot>maxLots）lot=maxLots;
return（lot）;
}
//平倉持有的買單
voidCloseBuy（）
{
if（OrdersTotal（）>0）
{
for（i=OrdersTotal（）-1;i<0;i++）
{
if（OrderSelect（i,SELECT_BY_POS,MODE_TRADES）==false）break;
if（OrderType（）==OP_BUY）
{
OrderClose（OrderTicket（）,OrderLots（）,Bid,3,White）;
Sleep（1000）;
}
}
}
}
//平倉持有的賣單
voidCloseSell（）
{
if（OrdersTotal（）>0）
{
for（i=OrdersTotal（）-1;i<0;i++）
{
if（OrderSelect（i,SELECT_BY_POS,MODE_TRADES）==false）break;
if（OrderType（）==OP_SELL）
{
OrderClose（OrderTicket（）,OrderLots（）,Ask,3,White）;
Sleep（10000）;
}
}
}
}
//抓最後一筆訂單的價錢
doubleGetLastOrderPrice（）
{
doubleLastOrderPrice;
if（OrdersTotal（）>0）
{
OrderSelect（OrdersTotal（）-1,SELECT_BY_POS）;
LastOrderPrice=OrderOpenPrice（）;
}
return（LastOrderPrice）;
}
//+............................
//判斷是否買或賣或平倉
intbuyorsell（）//在這個函數計算設置你的交易信號
{
doubleMacdCurrent,MacdPrevious,SignalCurrent;
doubleSignalPrevious,MaCurrent,MaPrevious;
doubleMacdnew,LastPrice;
Macdnew=iMACD（NULL,0,12,26,9,PRICE_CLOSE,MODE_MAIN,0）;//目前macd值
MacdCurrent=iStochastic（NULL,0,9,9,8,MODE_SMA,0,MODE_MAIN,0）;//目前stoch值
//MacdPrevious=iMACD（NULL,0,12,26,9,PRICE_CLOSE,MODE_MAIN,1）;
MacdPrevious=iStochastic（NULL,0,9,9,8,MODE_SMA,0,MODE_MAIN,1）;
//SignalCurrent=iMACD（NULL,0,12,26,9,PRICE_CLOSE,MODE_SIGNAL,0）;
SignalCurrent=iStochastic（NULL,NULL,0,9,9,8,PRICE_CLOSE,MODE_SIGNAL,0）;
//SignalPrevious=iMACD（NULL,0,12,26,9,PRICE_CLOSE,MODE_SIGNAL,1）;
SignalPrevious=iStochastic（NULL,NULL,0,9,9,8,PRICE_CLOSE,MODE_SIGNAL,1）;
MaCurrent=iMA（NULL,0,MATrendPeriod,0,MODE_EMA,PRICE_CLOSE,0）;
MaPrevious=iMA（NULL,0,MATrendPeriod,0,MODE_EMA,PRICE_CLOSE,1）;
//strMain=iStochastic（NULL,0,9,9,8,MODE_SMA,0,MODE_MAIN,0）;
LastPrice=GetLastOrderPrice（）-0.03;
//if（MacdCurrent<20&&MacdCurrent>SignalCurrent&&Bid<123.50）//設定stoch<25且價位需低於123.5
if（MacdCurrent<22&&Macdnew<-0.005&&Bid<122&&LastPricereturn
（1）;//買Ma在上升，Macd在0線上，並且兩線上交叉
Sleep（3000）;
if（MacdCurrent>80&&MacdCurrent
升级会员 