Stochastic K returning constant value and Terminal stuck

[geodepe]

Hello,
Here is my hello world test with ForexTester 2.
Two problems found:
1) Stochastic K always returns 105.0000
2) Terminal output does not update correctly (need to physically move mouse over row output for it to change).

Please help ... code below.

Thanks

Code: Select all

#include <windows.h>
#include "StrategyInterfaceUnit.h"
#include "TechnicalFunctions.h"
#include <string.h>

PChar Currency = NULL;
int Timeframe;

EXPORT void __stdcall InitStrategy()
{
  StrategyShortName("DemoStrategy Stochastic 1");
  StrategyDescription("Demo Strategy Stochastic 1");
   
}

EXPORT void __stdcall DoneStrategy()
{
  //free(Currency);
}


int IndStochastic;


EXPORT void __stdcall  ResetStrategy()
{
IndStochastic = CreateIndicator("EURUSD",PERIOD_M15,"Stochastic","5;3;3;High/Low");
}

EXPORT void __stdcall GetSingleTick()
{
   double StoK,StoKSlow,StoD;
   double StoKPrev,StoKSlowPrev,StoDPrev;
   int OrderHandle=0;
   char    WorkText[100];

    if (strcmp("EURUSD", Symbol()) != 0) return;

   sprintf(WorkText, "Running Symbol=%s", Symbol());
    Print(WorkText);

   //Current Values
   StoK =      GetIndicatorValue(IndStochastic, 1, 0);
   StoKSlow =   GetIndicatorValue(IndStochastic, 1, 1);
   StoD =      GetIndicatorValue(IndStochastic, 1, 2);
   //Previous Values
   StoKPrev =      GetIndicatorValue(IndStochastic, 2, 0);
   StoKSlowPrev =   GetIndicatorValue(IndStochastic, 2, 1);
   StoDPrev =      GetIndicatorValue(IndStochastic, 2, 2);
   
   
     sprintf(WorkText, "StoK=%f  StoD=%f StoKPrev=%f  StoDPrev=%f", StoK,StoD,StoKPrev,StoDPrev);
     Print(WorkText);


   if(StoK>StoD && StoKPrev<StoDPrev)
   {
      if(OrdersTotal()==0)
         SendInstantOrder("EURUSD", op_Buy, 0.1,Bid()- 0.0015, Bid()+0.003, "Howdy BUY", 0, OrderHandle);
   }   
}



[FT Support]

Can you please send us the screenshot of the output which you see (Journal tab of the terminal window)?

[geodepe]

Here is screenshot.

[geodepe]

Has anybody looked at this yet?

[Phil_Trade]

Has anybody looked at this yet?

there's a mistake in help. I'm using thsi buffer to have good result

Const
Stoch_Slow_Buffer = 2;
Stoch_Fast_Buffer = 1;

[geodepe]

Thanks Philippe ... but I don't understand what you are saying about those constants or the help.

[Phil_Trade]

Thanks Philippe ... but I don't understand what you are saying about those constants or the help.

just use 2 for SlowLine Buffer and 1 for FastLine Buffer for stoch indicator

[alicerite]

Has anyone looked at just this but?

[KelvinHand]

Has anyone looked at just this but?

This should be workable

Code: Select all

#include <windows.h>
#include "StrategyInterfaceUnit.h"
#include "TechnicalFunctions.h"
#include <string.h>

PChar Currency = NULL;
int Timeframe;


EXPORT void __stdcall InitStrategy()
{
  StrategyShortName("DemoStrategy Stochastic 1");
  StrategyDescription("Demo Strategy Stochastic 1");
   
}

EXPORT void __stdcall DoneStrategy()
{
  //free(Currency);
}


int IndStochastic;


EXPORT void __stdcall  ResetStrategy()
{
IndStochastic = CreateIndicator("EURUSD",PERIOD_M15,"Stochastic","5;3;3;Low/High");
}

EXPORT void __stdcall GetSingleTick()
{
   double StoK, StoKPrev, StoD, StoDPrev;
   int OrderHandle=0;
   char    WorkText[100];

    if (strcmp("EURUSD", Symbol()) != 0) return;

   sprintf(WorkText, "Running Symbol=%s", Symbol());
    Print(WorkText);

   //Current Values

   StoK =      GetIndicatorValue(IndStochastic, 0, 1);
   StoKPrev =  GetIndicatorValue(IndStochastic, 1, 1);

   StoD =      GetIndicatorValue(IndStochastic, 0, 2);
   StoDPrev =  GetIndicatorValue(IndStochastic, 1, 2);

   
     sprintf(WorkText, "StoK=%f, StoKPrev=%f, StoD=%f, StoDPrev=%f", StoK,StoKPrev,StoD,StoDPrev);
     Print(WorkText);


   if(StoK>StoD && StoKPrev<StoDPrev)
   {
      if(OrdersTotal()==0)
         SendInstantOrder("EURUSD", op_Buy, 0.1,Bid()- 0.0015, Bid()+0.003, "Howdy BUY", 0, OrderHandle);
   }   
}



== STRATEGY.DEF ==

Code: Select all

LIBRARY

EXPORTS
  InitStrategy
  DoneStrategy
  ResetStrategy
  GetSingleTick
  ReplaceStr
  IntrfProcsRec



It seen to be some error in the help guide of the functions for stochastic:
1. CreateIndicator() - should be "Low/High" not "High/Low";
during testing, the parameter will give "illigal value"

2. GetIndicatorValue()
- used buffer index 1 => %K slow buffer
- used buffer index 2 => D line buffer

The reason likely in the stochastic indicator coding:

Code: Select all


  SetEmptyValue(105);      //-- This 105 was to output Empty value

// create buffers
  Kfast := CreateIndexBuffer;     //----Buffer index 0
  Kslow := CreateIndexBuffer;    //----Buffer index 1
  Dline := CreateIndexBuffer;     //----Buffer index 2

  IndicatorBuffers(2);
  SetIndexBuffer(0, Kslow);       //----Buffer index 1 output to screen
  SetIndexBuffer(1, Dline);        //----Buffer index 2 output to screen

  SetIndexStyle(0, ds_line, psSolid, 1, clRed);
  SetIndexLabel(0, 'K Line');

  SetIndexStyle(1, ds_Line, psSolid, 1, RGB($1E, $90, $FF));
  SetIndexLabel(1, 'D Line');



Buffer index 0 may result to output 105 to tell you empty value

[Coretta]

Complex things feel good, I have not encountered such a problem