sFormulaTest

ÿþ//+------------------------------------------------------------------+

//|                                                 sFormulaTest.mq4 |

//|                                          Copyright 2019, Integer |

//|                            https://www.mql5.com/ru/users/integer |

//+------------------------------------------------------------------+

#property copyright "Integer"

#property link      "https://www.mql5.com/ru/users/integer"

#property version   "1.00"

#property strict



#import "Market//Formula Calculation.ex4"

   int AddFormula(string Formula);

   void FormulaSetArgument(int FormulaIndex,int ArgumentIndex,double ArgumentValue);

   bool FormulaSolve(int FormulaIndex,double & Result);

   void FormulaFreeAll();

#import



//+------------------------------------------------------------------+

//| Script program start function                                    |

//+------------------------------------------------------------------+

void OnStart(){



   double r=0;



   int f01=AddFormula("sqrt(a1*log10(a0))*a2+10.5");

   

   if(f01==-1){

      Alert("H81:0 D>@<C;K");

      return;

   }

 

   FormulaSetArgument(f01,0,10000);

   FormulaSetArgument(f01,1,25);

   FormulaSetArgument(f01,2,2);

   

   if(!FormulaSolve(f01,r)){

      Alert("H81:0 @0AG5B0");

      return;      

   }

   

   Alert(" 57C;LB0B1: "+(string)r);

   

   FormulaSetArgument(f01,0,20);

   FormulaSetArgument(f01,1,30);

   FormulaSetArgument(f01,2,40);

   

   if(!FormulaSolve(f01,r)){

      Alert("H81:0 @0AG5B0");

      return;      

   }

   

   Alert(" 57C;LB0B2: "+(string)r);   

   

    

   FormulaFreeAll();

 

}

//+------------------------------------------------------------------+