TableFormat.java

/*
 * Class:        TableFormat
 * Description:  Provides methods to format arrays into String's
 * Environment:  Java
 * Software:     SSJ
 * Copyright (C) 2001  Pierre L'Ecuyer and Universite de Montreal
 * Organization: DIRO, Universite de Montreal
 * @author
 * @since
 *
 *
 * Licensed under the Apache License, Version 2.0 (the "License");
 * you may not use this file except in compliance with the License.
 * You may obtain a copy of the License at
 *
 *     http://www.apache.org/licenses/LICENSE-2.0
 *
 * Unless required by applicable law or agreed to in writing, software
 * distributed under the License is distributed on an "AS IS" BASIS,
 * WITHOUT WARRANTIES OR CONDITIONS OF ANY KIND, either express or implied.
 * See the License for the specific language governing permissions and
 * limitations under the License.
 *
 */
package umontreal.ssj.util;

public class TableFormat {
   private TableFormat() {
   }


   public static final int PLAIN = 0;

   public static final int MATHEMATICA = 1;

   public static final int MATLAB = 2;



   public static String format(int V[], int n1, int n2, int k, int p) {
      int i;
      StringBuffer sb = new StringBuffer();
      if (k > 1) {
         sb.append("Elements  " + n1 + "  to  " + n2 + PrintfFormat.NEWLINE + PrintfFormat.NEWLINE);
         for (i = n1; i <= n2; i++) {
            sb.append(PrintfFormat.d(p, V[i]));
            if (((i + 1 - n1) % k) == 0)
               sb.append(PrintfFormat.NEWLINE);
         }
         sb.append(PrintfFormat.NEWLINE);
      } else {
         sb.append(PrintfFormat.NEWLINE + " Index        Element" + PrintfFormat.NEWLINE);
         for (i = n1; i <= n2; i++)
            sb.append(PrintfFormat.d(6, i) + "   " + PrintfFormat.d(12, V[i]) + PrintfFormat.NEWLINE);
      }
      sb.append(PrintfFormat.NEWLINE);
      return sb.toString();
   }

   public static String format(double V[], int n1, int n2, int k, int p1, int p2, int p3) {
      int i;
      StringBuffer sb = new StringBuffer();
      if (k > 1) {
         sb.append("Elements  " + n1 + "  to  " + n2 + PrintfFormat.NEWLINE + PrintfFormat.NEWLINE);
         for (i = n1; i <= n2; i++) {
            sb.append(PrintfFormat.format(p1, p2, p3, V[i]));
            if (((i + 1 - n1) % k) == 0)
               sb.append(PrintfFormat.NEWLINE);
         }
         sb.append(PrintfFormat.NEWLINE);
 
      } else {
         sb.append(PrintfFormat.NEWLINE + " Index            Element" + PrintfFormat.NEWLINE);
         for (i = n1; i <= n2; i++)
            sb.append(PrintfFormat.d(6, i) + "   " + PrintfFormat.format(p1, p2, p3, V[i]) + PrintfFormat.NEWLINE);
      }
      sb.append(PrintfFormat.NEWLINE);
      return sb.toString();
   }
 
   private static int Style = PLAIN;
 
   private static char OuvrantMat = ' '; // Matrix delimitors
   private static char FermantMat = ' ';
 
   private static char OuvrantVec = ' '; // Vector delimitors
   private static char FermantVec = ' ';
 
   private static char SepareVec = ' '; // Element separators
   private static char SepareElem = ' ';
 
   private static void fixeDelim(int style) {
      /*
       * Fixe les delimiteurs pour imprimer une matrice selon un format approprie
       */
      Style = style;
      switch (style) {
      case MATHEMATICA:
         OuvrantMat = '{';
         FermantMat = '}';
         OuvrantVec = '{';
         FermantVec = '}';
         SepareVec = ',';
         SepareElem = ',';
         break;
      case MATLAB:
         OuvrantMat = '[';
         FermantMat = ']';
         OuvrantVec = ' ';
         FermantVec = ' ';
         SepareVec = ' ';
         SepareElem = ' ';
         break;
      default:
         OuvrantMat = ' ';
         FermantMat = ' ';
         OuvrantVec = ' ';
         FermantVec = ' ';
         SepareVec = ' ';
         SepareElem = ' ';
         break;
      }
   }
 
   @Deprecated
   public static String format(int[][] Mat, int i1, int i2, int j1, int j2, int w, int p, int style, String Name) {
      return format(Mat, i1, i2, j1, j2, w, style, Name);
   }

   public static String format(double[][] Mat, int i1, int i2, int j1, int j2, int w, int p, int style, String Name) {
      int k;
      int j;
      int i;
      double x;
      String S;
 
      fixeDelim(style);
      StringBuffer sb = new StringBuffer();
      if (Name.length() > 0)
         sb.append(Name + " = ");
 
      double prec = Math.pow(10.0, (double) p);
      sb.append(OuvrantMat + PrintfFormat.NEWLINE);
      for (i = i1; i <= i2; i++) {
         sb.append(OuvrantVec);
         for (j = j1; j <= j2; j++) {
            sb.append(' ');
            switch (style) {
            case MATHEMATICA:
               x = Mat[i][j];
               if (((x != 0.0) && (Math.abs(x) < 0.1)) || (Math.abs(x) > prec)) {
                  S = PrintfFormat.G(0, p, x);
                  int exppos = S.indexOf('E');
                  if (exppos != -1)
                     S = S.substring(0, exppos) + "*10^(" + S.substring(exppos + 1) + ")";
               } else
                  S = PrintfFormat.f(0, p, x);
               S = PrintfFormat.s(w, S);
               break;
            default:
               // MATLAB, Default */
               sb.append(PrintfFormat.G(w, p, Mat[i][j]));
               break;
            }
            if (j < j2)
               sb.append(SepareElem);
         }
         sb.append(FermantVec);
         if (i < i2)
            sb.append(SepareVec + PrintfFormat.NEWLINE);
      }
      sb.append(FermantMat + PrintfFormat.NEWLINE);
      return sb.toString();
   }

   public static String format(int[][] Mat, int i1, int i2, int j1, int j2, int w, int style, String Name) {
      int i;
      int j;
 
      fixeDelim(style);
      StringBuffer sb = new StringBuffer();
      if (Name.length() > 0)
         sb.append(Name + " = ");
 
      sb.append(OuvrantMat + PrintfFormat.NEWLINE);
      for (i = i1; i <= i2; i++) {
         sb.append(OuvrantVec);
         for (j = j1; j <= j2; j++) {
            sb.append(PrintfFormat.d(w, Mat[i][j]));
            if (j < j2)
               sb.append(SepareElem);
         }
         sb.append(FermantVec);
         if (i < i2)
            sb.append(SepareVec + PrintfFormat.NEWLINE);
      }
      sb.append(FermantMat + PrintfFormat.NEWLINE + PrintfFormat.NEWLINE);
      return sb.toString();
   }
}