[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]

[amibroker] Please help me (question regarding Scnaning and exploring in AA)



PureBytes Links

Trading Reference Links




Before 
embarking on a reverse engineering journey, what are "very good" and "Robust" 
results?
<FONT face=Arial color=#0000ff 
size=2> 
Can 
you give some performance reports/stats?
<FONT face=Arial color=#0000ff 
size=2> 
best 
regards,
<FONT face=Arial color=#0000ff 
size=2>Herman.

  <FONT face=Tahoma 
  size=2>-----Original Message-----From: pwaget 
  [mailto:pwaget@xxxxxxxx]Sent: Monday, April 19, 2004 10:13 
  AMTo: amibroker@xxxxxxxxxxxxxxxSubject: [amibroker] 
  Gaussian Keltner trading system with good resultsThis 
  trading system in Wealth-lab code gives very good and robust results. Can 
  someone translate it in AFL ?{$I 'Gaussian'}var Bar, 
  GaussianKeltnerLong, TuneFactor, SelfTuneEndBar: integer;var BandFactor, 
  MaxEquity: float;const ProfitTarget = 12;const Days = 1;const 
  KeltnerHiLoPeriod = 30;const KeltnerAveragePeriod = 9;const 
  SelfTuneStartBar = 30;      SelfTuneEndBar := 
  BarCount-1;MaxEquity := -99999999;function LongFilter: 
  boolean;begin  Result :=   (PriceOpen(Bar) > 
  @GaussianKeltnerLong[Bar-1]);end;procedure Trade(StartBar, EndBar: 
  integer);begin  for Bar := StartBar to EndBar do   
  begin    if not LastPositionActive 
  then     begin      if 
  LongFilter then       BuyAtLimit(Bar+1, 
  @GaussianKeltnerLong[Bar], 'Long Entry');      
  end    else     if 
  PositionLong(LastPosition) then      
  begin       if not SellAtLimit(Bar+1, 
  PositionEntryPrice(LastPosition) * (1+ProfitTarget/100), LastPosition, 
  'ProfitTarget') then        if 
  Bar-PositionEntryBar(LastPosition) = Days-1 
  then         SellAtClose(Bar+1, 
  LastPosition, 'TimeOut');      
  end     else      
  end;end;for TuneFactor := 80 to 94 dobegin  
  GaussianKeltnerLong := 
  MultiplySeriesValue(SubtractSeries(GaussianSeries(#AverageC, 
  KeltnerAveragePeriod, 4), GaussianSeries(SubtractSeries(#High, #Low), 
  KeltnerHiLoPeriod, 4)), TuneFactor/100);    
  Trade(SelfTuneStartBar, SelfTuneEndBar);  if Equity(SelfTuneEndBar) 
  > MaxEquity then   begin    MaxEquity := 
  Equity(SelfTuneEndBar);    BandFactor := 
  TuneFactor/100;   end;  
  ClearPositions;end;GaussianKeltnerLong := 
  MultiplySeriesValue(SubtractSeries(GaussianSeries(#AverageC, 
  KeltnerAveragePeriod, 4), GaussianSeries(SubtractSeries(#High, #Low), 
  KeltnerHiLoPeriod, 4)), BandFactor);Trade(30, 
  BarCount-1);PlotSeries(OffsetSeries(GaussianKeltnerLong, -1), 0, #Red, 
  0);DrawLabel('BandFactor: ' + FloatToStr(BandFactor), 
  0)Send BUG REPORTS to bugs@xxxxxxxxxxxxxSend 
  SUGGESTIONS to 
  suggest@xxxxxxxxxxxxx-----------------------------------------Post 
  AmiQuote-related messages ONLY to: amiquote@xxxxxxxxxxxxxxx (Web page: <A 
  href="">http://groups.yahoo.com/group/amiquote/messages/)--------------------------------------------Check 
  group FAQ at: <A 
  href="">http://groups.yahoo.com/group/amibroker/files/groupfaq.html 
  


Send BUG REPORTS to bugs@xxxxxxxxxxxxx
Send SUGGESTIONS to suggest@xxxxxxxxxxxxx
-----------------------------------------
Post AmiQuote-related messages ONLY to: amiquote@xxxxxxxxxxxxxxx 
(Web page: http://groups.yahoo.com/group/amiquote/messages/)
--------------------------------------------
Check group FAQ at: http://groups.yahoo.com/group/amibroker/files/groupfaq.html








Yahoo! Groups Links
To visit your group on the web, go to:http://groups.yahoo.com/group/amibroker/ 
To unsubscribe from this group, send an email to:amibroker-unsubscribe@xxxxxxxxxxxxxxx 
Your use of Yahoo! Groups is subject to the Yahoo! Terms of Service.