Mersenne Twister

mertwi

Voisiko joku neuvoa, miten saan tehtyä mersenne twisteristä exe tiedoston? En ole ohjelmoinut c:llä paljoa. Latasin tuossa dev- c ohjelman ja yritin kaikkia mersenne twisterin mukana tulevia c-tiedostoja kääntää ja ajaa. Valitti kaikkien kohdalla että " file not compiled".

Kiitos jo etukäteen.. Olisi kova tarve satunnaislukuheneraattorille ja tuosta nähtävästi saisi muokattua ihan kelpo ohjelman jos edes ensin saisi käännettyä..

1

381

    Vastaukset

    Anonyymi (Kirjaudu / Rekisteröidy)
    5000
    • KOODIOODI

      Tässä:

      MersenneTwisterInt32.h
      ------------------------------------
      #ifndef MERSENNETWISTERINT32_H
      #define MERSENNETWISTERINT32_H

      #pragma once

      class MersenneTwisterInt32
      {
      public:
      MersenneTwisterInt32();
      MersenneTwisterInt32(unsigned long seed);
      MersenneTwisterInt32(const unsigned long* pArray, int size);
      virtual ~MersenneTwisterInt32();

      void Seed(unsigned long seed);
      void Seed(const unsigned long* pArray, int size);

      unsigned long operator()();

      protected:
      unsigned long GetRandomInt32();

      private:
      unsigned long Twiddle(unsigned long u, unsigned long v);
      void GenerateState();

      private:
      static const int n = 624;
      static const int m = 397;
      static unsigned long state[n];
      static int p;
      static bool init;
      };

      inline unsigned long MersenneTwisterInt32::GetRandomInt32()
      {
      if (p == n)
      {
      GenerateState();
      }

      unsigned long x = state[p ];

      x ^= (x >> 11);
      x ^= (x 18);
      }

      inline unsigned long MersenneTwisterInt32::Twiddle(unsigned long u, unsigned long v)
      {
      return (((u & 0x80000000UL) | (v & 0x7FFFFFFFUL)) >> 1) ^ ((v & 1UL) ? 0x9908B0DFUL : 0x0UL);
      }

      #endif
      ----------------------------------------

      MersenneTwisterInt32.cpp
      ----------------------------------------
      #include "MersenneTwisterInt32.h"

      unsigned long MersenneTwisterInt32::state[n] = {0x0UL};
      int MersenneTwisterInt32::p = 0;
      bool MersenneTwisterInt32::init = false;

      MersenneTwisterInt32::MersenneTwisterInt32()
      {
      if (!init)
      {
      Seed(5489UL);
      }

      init = true;
      }

      MersenneTwisterInt32::MersenneTwisterInt32(unsigned long s)
      {
      Seed(s);

      init = true;
      }

      MersenneTwisterInt32::MersenneTwisterInt32(const unsigned long* pArray, int size)
      {
      Seed(pArray, size);
      }

      MersenneTwisterInt32::~MersenneTwisterInt32()
      {
      }

      void MersenneTwisterInt32::Seed(unsigned long s)
      {
      state[0] = s & 0xFFFFFFFFUL;

      for (int i = 1; i < n; i)
      {
      state[i] = 1812433253UL * (state[i - 1] ^ (state[i - 1] >> 30)) i;
      state[i] &= 0xFFFFFFFFUL;
      }

      p = n;
      }

      void MersenneTwisterInt32::Seed(const unsigned long* pArray, int size)
      {
      int i = 1, j = 0;

      Seed(19650218UL);

      for (int k = ((n > size) ? n : size); k; --k)
      {
      state[i] = (state[i] ^ ((state[i - 1] ^ (state[i - 1] >> 30)) * 1664525UL)) pArray[j] j;
      state[i] &= 0xFFFFFFFFUL;

      j;

      j %= size;

      if (( i) == n)
      {
      state[0] = state[n - 1];
      i = 1;
      }
      }

      for (int k = n - 1; k; --k)
      {
      state[i] = (state[i] ^ ((state[i - 1] ^ (state[i - 1] >> 30)) * 1566083941UL)) - i;
      state[i] &= 0xFFFFFFFFUL;

      if (( i) == n)
      {
      state[0] = state[n - 1];
      i = 1;
      }
      }

      state[0] = 0x80000000UL;
      p = n;
      }

      unsigned long MersenneTwisterInt32::operator()()
      {
      return GetRandomInt32();
      }

      void MersenneTwisterInt32::GenerateState()
      {
      for (int i = 0; i < (n - m); i)
      {
      state[i] = state[i m] ^ Twiddle(state[i], state[i 1]);
      }

      for (int i = n - m; i < (n - 1); i)
      {
      state[i] = state[i m - n] ^ Twiddle(state[i], state[i 1]);
      }

      state[n - 1] = state[m - 1] ^ Twiddle(state[n - 1], state[0]);

      p = 0;
      }
      -----------------------------------

      Ja jos haluat esim. gaussiaaneja:
      -----------------------------------
      #ifndef MERSENNETWISTERGAUSSIAN_H
      #define MERSENNETWISTERGAUSSIAN_H

      #pragma once

      #include "MersenneTwisterInt32.h"
      #include

      class MersenneTwisterGaussian: public MersenneTwisterInt32
      {
      public:
      MersenneTwisterGaussian(): MersenneTwisterInt32() {};
      MersenneTwisterGaussian(unsigned long seed): MersenneTwisterInt32(seed) {};
      MersenneTwisterGaussian(const unsigned long* pArray, int size): MersenneTwisterInt32(pArray, size) {};
      virtual ~MersenneTwisterGaussian() {};

      double operator()();
      };

      inline double MersenneTwisterGaussian::operator()()
      {
      return std::sqrt(-2. * std::log(1. - static_cast(GetRandomInt32())
      * (1. / 4294967296.))) * std::cos(static_cast(GetRandomInt32()) *
      (2. * 3.14159265358979323846 / 4294967296.));
      }


      #endif

    Ketjusta on poistettu 0 sääntöjenvastaista viestiä.

    Luetuimmat keskustelut

    1. Mistä puhuitte viimeksi kun näitte

      Kerro yksi aiheista
      Ikävä
      107
      7793
    2. 113
      6064
    3. Se on hyvästi

      Toivottavasti ei tavata.
      Ikävä
      83
      5197
    4. Olenko saanut sinut koukkuun?

      Hyvä. Rakastan sua.
      Ikävä
      139
      4556
    5. Alavuden sairaala

      Säästääkö Alavuden sairaala sähkössä. Kävin Sunnuntaina vast. otolla. Odotushuone ja käytävä jolla lääkäri otti vastaan
      Ähtäri
      11
      3230
    6. Sisäsiittosuus

      Tämän kevään ylioppilaista 90% oli sama sukunimi?
      Suomussalmi
      62
      3024
    7. Miksi sä valitsit

      Juuri minut sieltä?
      Ikävä
      58
      2948
    8. Törkeää toimintaa

      Todella törkeitä kaheleita niitä on Ylivieskassakin. https://www.ess.fi/uutissuomalainen/8570818
      Ylivieska
      10
      2454
    9. Kerro nyt rehellisesti fiilikset?

      Rehellinem fiilis
      Suhteet
      61
      2437
    10. Hei........

      Pelkkä sun näkeminen saa mut hymyilemään pitkin iltaa. Oot niin 🤩😘 Edellinen poistettiin.
      Ikävä
      56
      2066
    Aihe