mcs/class/Microsoft.VisualBasic/Microsoft.VisualBasic/VBMath.cs

   1 //
   2 // VBMath.cs
   3 //
   4 // Author:
   5 //   Chris J Breisch (cjbreisch@altavista.net)
   6 //   Francesco Delfino (pluto@tipic.com)
   7 //
   8 // (C) 2002 Chris J Breisch
   9 // (C) 2002 Tipic Inc
  10 //
  11
  12 //
  13 // Copyright (C) 2004 Novell, Inc (http://www.novell.com)
  14 //
  15 // Permission is hereby granted, free of charge, to any person obtaining
  16 // a copy of this software and associated documentation files (the
  17 // "Software"), to deal in the Software without restriction, including
  18 // without limitation the rights to use, copy, modify, merge, publish,
  19 // distribute, sublicense, and/or sell copies of the Software, and to
  20 // permit persons to whom the Software is furnished to do so, subject to
  21 // the following conditions:
  22 //
  23 // The above copyright notice and this permission notice shall be
  24 // included in all copies or substantial portions of the Software.
  25 //
  26 // THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND,
  27 // EXPRESS OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF
  28 // MERCHANTABILITY, FITNESS FOR A PARTICULAR PURPOSE AND
  29 // NONINFRINGEMENT. IN NO EVENT SHALL THE AUTHORS OR COPYRIGHT HOLDERS BE
  30 // LIABLE FOR ANY CLAIM, DAMAGES OR OTHER LIABILITY, WHETHER IN AN ACTION
  31 // OF CONTRACT, TORT OR OTHERWISE, ARISING FROM, OUT OF OR IN CONNECTION
  32 // WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN THE SOFTWARE.
  33 //
  34
  35 using System;
  36
  37 namespace Microsoft.VisualBasic {
  38         [Microsoft.VisualBasic.CompilerServices.StandardModuleAttribute]
  39         sealed public class VBMath {
  40
  41                 private VBMath ()
  42                 {
  43                         //Nobody should see constructor
  44                 }
  45
  46                 // Declarations
  47                 // Constructors
  48                 // Properties
  49                 static Random rnd = new Random();
  50                 static float last = (float)rnd.NextDouble();
  51                 // Methods
  52                 public static float Rnd () {
  53                         last =  (float)rnd.NextDouble();
  54                         return last;
  55                 }
  56                 public static float Rnd (float Number)
  57                 {\r
  58                         if (Number == 0.0)
  59                         {
  60                                 return last;
  61                         } \r
  62                         else if (Number < 0.0 )\r
  63                         {
  64                                 //fd: What does this mean?
  65                                 //fd: ms-help://MS.VSCC/MS.MSDNVS/script56/html/vsstmRandomize
  66                                 //fd: ms-help://MS.VSCC/MS.MSDNVS/script56/html/vsfctrnd.htm
  67                                 Randomize(Number);
  68                                 return Rnd();
  69                         }
  70                         return Rnd();
  71                 }
  72                 public static void Randomize () {
  73                         rnd = new Random();
  74                 }
  75                 [MonoTODO("Rethink the double => int conversion")]
  76                 public static void Randomize (double Number)
  77                 {
  78                         rnd = new Random((int)Number);
  79                 }
  80                 // Events
  81         };
  82 }