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

386

    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. Mitä yhteistä on sulla ja kaivatulla?

      Onko teillä samantyyppinen olemus tai luonne? Vai muistuttaako vartalonne toisiaan? Tai kasvot? Entä pukeutuminen? Onko
      Ikävä
      99
      1516
    2. Ozzy Osbourne on kuollut

      Kevyet mullat ja R.I.P. Ei soi enää Paranoid.
      Maailman menoa
      223
      1136
    3. Kerran oltiin mekin kahdestaan

      Saanko sanoa, että minua kyllä vähän huvitti jälkeenpäin? Olit kuin vapiseva jänis ketun vieressä valmis loikkimaan paik
      Ikävä
      13
      1136
    4. Oikeasti, voitais mennä kahville

      ja jutella niin kuin normi-ihmiset. Kyllä toivon sitä. En pelkää kohdata enkä istua sun kanssa samassa pöydässä. Miten o
      Ikävä
      81
      949
    5. Persut yritti estää somalinaista väittelemästä lääketieteen tohtoriksi

      Yrittivät saada hänet lähihoitajakouluun, vaikka pärjäsi hyvin koulussa. Nyt hän on yliopistossa väitellyt lääketieteen
      Maailman menoa
      240
      941
    6. Naiset, naiset

      Älkää antako painonne nousta. Naisella ylipaino ei ole hyvä.💝
      Ikävä
      141
      920
    7. Jos nainen harrastaa seksiä

      Useiden kanssa, miten se eroaa miesten mielestä siitä, jos miehellä on ollut useita s kumppaneita? Oletan että kaikki mi
      Ikävä
      179
      903
    8. Pihlaja-puulle

      Illat on mulle pahimpia. En tiiä miks se olis vaan parasta yöstä toiseen nukkua sun kanssa ja herätä sun kasvoihin. Jos
      Ikävä
      15
      819
    9. No mitä nyt

      Ollaanko vaiko eikö olla? Miehelle.
      Ikävä
      71
      757
    10. Yritin keväällä unohtaa sinut nainen

      mutta siinä kävi niin, että ikävä tuli korkoineen takaisin. Niin että mikä taikavoima sinulla on minuun, sitä joutuu mie
      Ikävä
      31
      713
    Aihe