老大帮忙编编这个系统吧
iPG交易系统介绍之一： 一个简单有效的短线系统
一个简单有效的短线系统...
每日17点，找到今日13点到17点的最高价和最低价，下单BuyStop和SellStop。
每日21点，找到今日17点到21点的最高价和最低价，下单BuyStop和SellStop。投
EUR/USD：
Buy Stop = 最高价 + 5；
止盈 = Buy Stop + 80；*B
止损 = Buy Stop - 50；
Sell Stop = 最低价 - 5；『火线外汇论
止盈 = Sell Stop - 80；
止损 = Sell Stop + 50；
有30点浮动利润时将止损移至开仓价位。
GBP/USD：
Buy Stop = 最高价 + 5；
止盈 = Buy Stop + 120；
止损 = Buy Stop - 70；
Sell Stop = 最低价 - 5；
止盈 = Sell Stop - 120；
止损 = Sell Stop + 70；
有40点浮动利润时将止损移至开仓价位。
每日早7点，平掉手上所有单子。
韬客社区www.talkfx.co
发表于：2006-03-25 06:52只看该作者
2楼
好象很高级的样子,
韬客社区www.talkfx.co
发表于：2006-03-27 05:25只看该作者
3楼
顶，我也想要......
发表于：2006-03-27 07:38只看该作者
4楼
网上找到的：
//+------------------------------------------------------------------+
//| Hans123MV |
//| Copyright ?2005, Milan Volf |
//+------------------------------------------------------------------+
//---- input parameters
extern int Start1=10;
extern int Start2=14;
extern int FirstSessionOnly=0;
extern int Length=4;
extern int EOD=24;
extern int Pips=5;
extern int StopLoss=50;
extern int BreakEven=30;
extern int TrailingStopStep=0;
extern int TakeProfit=80;
extern double Lots=1.0;
//+------------------------------------------------------------------+
//| expert start function |
//+------------------------------------------------------------------+
int start()
{
//----
int i,Ticket,LastOrderTime,StartTime,StartTime1,StartTime2,EODTime,MN;
//Settings
if (!IsTesting()){
if (Symbol()=="EURUSD"){
Start1=10;
Start2=14;
Length=4;
EOD=24;
Pips=5;
StopLoss=50;
BreakEven=30;
TakeProfit=80;
}
else if (Symbol()=="GBPUSD"){
Start1=10;
Start2=14;
Length=4;
EOD=24;
Pips=5;
StopLoss=70;
BreakEven=40;
TakeProfit=120;
}
else {
Start1=10;
Start2=14;
Length=4;
EOD=24;
Pips=5;
StopLoss=50;
BreakEven=30;
TakeProfit=80;
}
}
//Count time
if(CurTime()>=StrToTime(Start1+":00")-60){
StartTime1=StrToTime(Start1+":00");
StartTime2=StrToTime(Start2+":00");
if(DayOfWeek()==5) EODTime=MathMin(StrToTime("22:55"),StrToTime(EOD+":00"));
else if (EOD==24) EODTime=StrToTime("23:59");
else EODTime=StrToTime(EOD+":00")-60;
}
//Set orders
if(CurTime()>=StartTime1 && CurTime()=StartTime2 && CurTime()=EODTime){ //close open positions at EOD
if(OrderSymbol()==Symbol() && OrderType()==OP_BUY) OrderClose(OrderTicket(),OrderLots(),Bid,3,Red);
if(OrderSymbol()==Symbol() && OrderType()==OP_SELL) OrderClose(OrderTicket(),OrderLots(),Ask,3,Red);
if(OrderSymbol()==Symbol() && OrderType()==OP_BUYSTOP) OrderDelete(OrderTicket());
if(OrderSymbol()==Symbol() && OrderType()==OP_SELLSTOP) OrderDelete(OrderTicket());
GlobalVariableSet("LastOrderTime",CurTime());
}
else {
if(TrailingStopStep==0){ //move at BE if profit>BE
if(OrderSymbol()==Symbol() && OrderType()==OP_BUY){
if(High[0]-OrderOpenPrice()>=BreakEven*Point && OrderStopLoss()!=OrderOpenPrice()){
OrderModify(OrderTicket(),OrderOpenPrice(),OrderOpenPrice(),OrderTakeProfit(),0,Green);
GlobalVariableSet("LastOrderTime",CurTime());
}
}
if(OrderSymbol()==Symbol() && OrderType()==OP_SELL){
if(OrderOpenPrice()-Low[0]>=BreakEven*Point && OrderStopLoss()!=OrderOpenPrice()){
OrderModify(OrderTicket(),OrderOpenPrice(),OrderOpenPrice(),OrderTakeProfit(),0,Green);
GlobalVariableSet("LastOrderTime",CurTime());
}
}
}
else { //use trailing stop
if(OrderSymbol()==Symbol() && OrderType()==OP_BUY){
if(High[0]-OrderStopLoss()>=(StopLoss+TrailingStopStep)*Point){
OrderModify(OrderTicket(),OrderOpenPrice(),OrderStopLoss()+TrailingStopStep*Point,OrderTakeProfit(),0,Green);
GlobalVariableSet("LastOrderTime",CurTime());
}
}
if(OrderSymbol()==Symbol() && OrderType()==OP_SELL){
if(OrderStopLoss()-Low[0]>=(StopLoss+TrailingStopStep)*Point){
OrderModify(OrderTicket(),OrderOpenPrice(),OrderStopLoss()-TrailingStopStep*Point,OrderTakeProfit(),0,Green);
GlobalVariableSet("LastOrderTime",CurTime());
}
}
}
}
}
//Reset global variables at EOD
if(CurTime()>=EODTime) GlobalVariablesDeleteAll();
return(0);
}
//+------------------------------------------------------------------+
int SetOrders(int MN,int StartTime){
int i,Ticket,LastOrderTime,Bought=0,Sold=0,ShiftToStart,ShiftToBeginOfRange;
double EntryLong,EntryShort,SLLong,SLShort,TPLong,TPShort;
//Determine range
ShiftToStart=iBarShift(NULL,0,StartTime)+1;
ShiftToBeginOfRange=iBarShift(NULL,0,StartTime-Length*3600);
EntryLong =High[Highest(NULL,0,MODE_HIGH,ShiftToBeginOfRange,ShiftToStart)]+(Pips/*+MarketInfo(Symbol(),MODE_SPREAD)*/)*Point;
EntryShort =Low [Lowest (NULL,0,MODE_LOW, ShiftToBeginOfRange,ShiftToStart)]-Pips*Point;
SLLong =MathMax(EntryLong-StopLoss*Point,EntryShort);
SLShort =MathMin(EntryShort+StopLoss*Point,EntryLong);
TPLong =EntryLong+TakeProfit*Point;
TPShort =EntryShort-TakeProfit*Point;
//Check Orders
for (i=0;i1){ //more than 1 buy order
if(CurTime()<=GlobalVariableGet("LastOrderTime")+10) Sleep(10000);
if(OrderSymbol()==Symbol() && OrderType()==OP_BUY) OrderClose(OrderTicket(),OrderLots(),Bid,3,Red);
if(OrderSymbol()==Symbol() && OrderType()==OP_BUYSTOP) OrderDelete(OrderTicket());
}
if(OrderSymbol()==Symbol() && (OrderType()==OP_SELLSTOP || OrderType()==OP_SELL) && OrderMagicNumber()==MN) Sold++;
if(Sold>1){ //more than 1 sell order
if(CurTime()<=GlobalVariableGet("LastOrderTime")+10) Sleep(10000);
if(OrderSymbol()==Symbol() && OrderType()==OP_SELL) OrderClose(OrderTicket(),OrderLots(),Ask,3,Red);
if(OrderSymbol()==Symbol() && OrderType()==OP_SELLSTOP) OrderDelete(OrderTicket());
}
}
if(Bought==0){ //no buy order
if(CurTime()<=GlobalVariableGet("LastOrderTime")+10) Sleep(10000);
Ticket=OrderSend(Symbol(),OP_BUYSTOP,Lots,EntryLong,3,SLLong,TPLong,NULL,MN,0,Green);
if(Ticket<0 && GetLastError()==130)
Ticket=OrderSend(Symbol(),OP_BUY,Lots,Ask,3,SLLong,TPLong,NULL,MN,0,Green);
GlobalVariableSet("LastOrderTime",OrderOpenTime());
}
if(Sold==0){ //no sell order
if(CurTime()<=GlobalVariableGet("LastOrderTime")+10) Sleep(10000);
Ticket=OrderSend(Symbol(),OP_SELLSTOP,Lots,EntryShort,3,SLShort,TPShort,NULL,MN,0,Green);
if(Ticket<0 && GetLastError()==130)
Ticket=OrderSend(Symbol(),OP_SELL,Lots,Bid,3,SLShort,TPShort,NULL,MN,0,Green);
GlobalVariableSet("LastOrderTime",OrderOpenTime());
}
}
