sMatrix

//+------------------------------------------------------------------+
//|                                                      sMatrix.mq4 |
//|                                                                * |
//|                                                                * |
//+------------------------------------------------------------------+

#property copyright "Integer"
#property link      "http://www.mql4.com/ru/users/Integer"

#include <incMatrix.mqh>

//+------------------------------------------------------------------+
//| script program start function                                    |
//+------------------------------------------------------------------+
int start(){

   /*

      Ðåøåíèå ñèñòåìû óðàâíåíèé

      3*x0  + 2*x1  - 5*x2  = -1
      2*x0  - 1*x1  + 3*x2  = 13
      1*x0  + 2*x1  - 1*x2  = 9
   
   
   */   

   double k[]={
                  3, 2, -5,
                  2, -1, 3,
                  1, 2, -1, 
                  3, 3 // ïîñëåäíèå äâà ýëåìåíòà ýòî ðàçìåð ìàòðèöû, êîëè÷åñòâî ñòðîê è êîëè÷åñòâî êîëîíîê
               };
   double y[]={   
                  -1,
                  13,
                  9, 
                  3, 1 // ðàçìåð
                  };       
                     

      switch(MxSystemCheck(k,y)){
         case -1:
            Alert("Ñèñòåìà íå èìååò ðåøåíèé");
            return(0);
         break;
         case 0:
            Alert("Ñèñòåìà èìååò îäíî ðåøåíèå");
         break;
         case 1:
            Alert("Ñèñòåìà èìååò ìíîæåñòâî ðåøåíèé");
            return(0);
         break;
      }
                     
   double x[]; // ìàññèâ äëÿ ðåçóëüòàòîâ
      
      if(MxSystemKramer(k,y,x)){
         MxAlert2(x,8,"Ðåøåíèå ìåòîäîì Êðàìåðà");
      }
      else{
         Alert("Íåò ðåøåíèÿ èëè ìíîæåñòâî ðåøåíèé (ìåòîä Êðàìåðà)");
      }
      
      if(MxSystemInverse(k,y,x)){
         MxAlert2(x,8,"Ðåøåíèå ÷åðåç îáðàòíóþ ìàòðèöó");
      }
      else{
         Alert("Íåò ðåøåíèÿ èëè ìíîæåñòâî ðåøåíèé (îáðàòíàÿ ìàòðèöà)");
      }
      
      if(MxSystemGauss(k,y,x)){
         MxAlert2(x,8,"Ðåøåíèå ìåòîäîì Ãàóññà");
      }
      else{
         Alert("Íåò ðåøåíèÿ èëè ìíîæåñòâî ðåøåíèé (ìåòîä Ãàóññà)");
      }      
 
   return(0);
}
//+------------------------------------------------------------------+