WH SelfInvest (Support) Forum

Code: Select all

//(c) KN
// Testscript für MP POC Visualisierung

Express KN_TestMP_V1_DE
vars

numeric ArrayIndex, MaxArrayGroesse, PriceRound, PriceMaxVolume;

// input (von,bis,Vorbelegung) Pit Session
input $TimeFrame (0,120,5); // Periodenlänge
numeric ticksize;

array AVol[100]; // Array Volume 
Series VolLineSeries;


calculation
Calculateateverytick(true);

if IsFirstBar() then 
  begin 
    //Arraygroesse festlegen
    ArrayIndex = Round(open, 0); // der Preis wird brachial um die Nachkommastellen gerundet um das Array klein zu bekommen (Die Ungenauigkeit wird bewusst in Kauf genommen)
    // Erhöhen der Arraygröße für alle Eventualitäten (1000 Punkte Kurssprünge nach oben)
    MaxArrayGroesse = ArrayIndex + 1000;
    SetArraySize(AVol, MaxArrayGroesse);  
  end

// Preis runden und Volumen aufaddieren
PriceRound = Round(open, 0); 
AVol[PriceRound] = AVol[PriceRound] + Volume;

// Preis mit dem Max Volumen im Array bestimmen

// Linie beim Preis mit dem höchsten Volumen einzeichen
//  VolLineSeries = PriceMaxVolume;





//=========================== Test zum Visualisieren von Variablen ================================================================
ShowTip(
    "\n\nArrayIndex: " + (NumericToString(ArrayIndex, "%6.4f")) +
    "\n\nMaxArrayGroessex: " + (NumericToString(MaxArrayGroesse, "%6.4f")) +
    "\n\nTimeOpen: " + (TimeToString(timeopen, "%H:%M:%S")) + 
    "\nTimeClose: " + (TimeToString(time, "%H:%M:%S")) +
    "\nPriceOpen: " + (NumericToString(open, "%f")) +
    "\nPriceClose: " + (PriceToString(close)) +
    "\nVolume: " + (NumericToString(volume, "%6.0f")) +
    "\nTickSize: " + (NumericToString(ticksize, "%f"))
    );

//=================================================================================================================================


interpretation 
  begin
  end

//Plot (VolLineSeries, "lightRed", 3);