FreeBASIC's PRNG #2
Re: FreeBASIC's PRNG #2
says i need MSVCP120, and my system drive is full. haha..
Re: FreeBASIC's PRNG #2
Dafhi, that's just a run-time (a .dll). I doubt that you don't have space to install at least one more of those =Ddafhi wrote:says i need MSVCP120, and my system drive is full. haha..
Here:
https://www.dllme.com/dll/files/msvcp120_dll.html
Re: FreeBASIC's PRNG #2
Do what I would do.
Ebay
Ebay
Re: FreeBASIC's PRNG #2
you know what's weird. i plopped the dll from the link to the pipe folder. still got the message
went to put it in system32 and it said there's already 1 in there!
but literally I have 512K free on C:
my projects folder is D: drive and i have 300G left. I have a less full windows image if i ever need to restore. I've honestly been running with c being this full for at least 2 weeks. I have had no problems up till now
went to put it in system32 and it said there's already 1 in there!
but literally I have 512K free on C:
my projects folder is D: drive and i have 300G left. I have a less full windows image if i ever need to restore. I've honestly been running with c being this full for at least 2 weeks. I have had no problems up till now
-
- Posts: 4292
- Joined: Jan 02, 2017 0:34
- Location: UK
- Contact:
Re: FreeBASIC's PRNG #2
I have an internal drive F:
I created a folder F:\PR64 and dropped RNG_test.exe into it.
I now drop all my pipefile programs into that folder: 10 so far.
With paul doe's approach, which dafhi is using, I just execute the pipefile program.
I don't find Paul's last code very readable compared to mine. They are effectively the same.
Here I use Paul's 'Open pipe cmd ..." but with my 'Do/Loop.
I created a folder F:\PR64 and dropped RNG_test.exe into it.
I now drop all my pipefile programs into that folder: 10 so far.
With paul doe's approach, which dafhi is using, I just execute the pipefile program.
I don't find Paul's last code very readable compared to mine. They are effectively the same.
Here I use Paul's 'Open pipe cmd ..." but with my 'Do/Loop.
Code: Select all
Dim Shared As Ulongint x = 12, w = 0
Dim As String cmd = "RNG_test stdin32 -multithreaded"
Dim As Long fileHandle = Freefile()
Dim Shared S As String * 1048576
Dim As Ulong Ptr SPtr, BasePtr
Dim As Long j
Function msws() As Ulong
x *= x
w += &H5851F42D4C957F2D ' 64-bit prime as used by PCG32II
x += w
x = ( x Shr 32 ) Or ( x Shl 32 )
Return( x )
End Function
SPtr = Cptr(Ulong Ptr, Strptr( S ))
BasePtr = SPtr
Open pipe cmd For Binary Access Write As fileHandle
Do
For j = 1 To 262144
*SPtr = msws ' Your 32-bit generator here
SPtr += 1
Next
Print #fileHandle, S;
SPtr = BasePtr
Loop
Close( fileHandle )
Re: FreeBASIC's PRNG #2
20 seconds, blank console. my cpu isn't weak by most standards
Re: FreeBASIC's PRNG #2
I ran mine from
PractRand_0.94\PractRand_094\bin\msvc12_64bit
I didn't detatch rng_test.exe from it's location.
Who knows, it maybe does a call from there.
I didn't look closely at the c++ source code.
PractRand_0.94\PractRand_094\bin\msvc12_64bit
I didn't detatch rng_test.exe from it's location.
Who knows, it maybe does a call from there.
I didn't look closely at the c++ source code.
Re: FreeBASIC's PRNG #2
still nothing
-
- Posts: 4292
- Joined: Jan 02, 2017 0:34
- Location: UK
- Contact:
Re: FreeBASIC's PRNG #2
@dafhi
A pound to a penny you are not following our instructions to the letter.
I remember an email exchange I had with a friend a few years back. After about 10 exchanges I asked him to write down exactly what he was doing and let me know.
There were about 7 steps to my instructions. He missed one out. "Oh, I didn't see that.", he wrote. <laugh>
A pound to a penny you are not following our instructions to the letter.
I remember an email exchange I had with a friend a few years back. After about 10 exchanges I asked him to write down exactly what he was doing and let me know.
There were about 7 steps to my instructions. He missed one out. "Oh, I didn't see that.", he wrote. <laugh>
Re: FreeBASIC's PRNG #2
don't know what to tell ya. i'm using PractRand 0.94
I need "chdir exepath" on a lot of my .bas files to get bitmaps and other things to load.
I am .. EXCEPTIONAL man!
I need "chdir exepath" on a lot of my .bas files to get bitmaps and other things to load.
I am .. EXCEPTIONAL man!
Re: FreeBASIC's PRNG #2
Wait. Which IDE are you using?dafhi wrote:I need "chdir exepath" on a lot of my .bas files to get bitmaps and other things to load.
Re: FreeBASIC's PRNG #2
wxFBE viewtopic.php?f=8&t=20284&hilit=wxFBE#p177990paul doe wrote:Wait. Which IDE are you using?
-
- Posts: 4292
- Joined: Jan 02, 2017 0:34
- Location: UK
- Contact:
Re: FreeBASIC's PRNG #2
@dafhi
Create a folder somewhere called, say, PR64.
Now drop RNG_test.exe into that folder.
Now compile the following as MT.exe and drop that into PR64.
Execute MT.exe - I got to 8GBs and pulled out.
MT.exe is testing FB's generator #3.
Create a folder somewhere called, say, PR64.
Now drop RNG_test.exe into that folder.
Now compile the following as MT.exe and drop that into PR64.
Execute MT.exe - I got to 8GBs and pulled out.
MT.exe is testing FB's generator #3.
Code: Select all
Dim As String cmd = "RNG_test stdin32 -multithreaded"
Dim As Long fileHandle = Freefile()
Dim Shared S As String * 1048576
Dim As Ulong Ptr SPtr, BasePtr
Dim As Long i
Randomize , 3
SPtr = Cptr(Ulong Ptr, Strptr( S ))
BasePtr = SPtr
Open pipe cmd For Binary Access Write As fileHandle
Do
For i = 1 To 262144
*SPtr = Rnd*2^32
SPtr += 1
Next
Print #fileHandle, S;
SPtr = BasePtr
Loop
Close( fileHandle )
Re: FreeBASIC's PRNG #2
I see. I'm using FBEdit, and it creates the temporary exe (the one that gets compiled when you use 'QuickRun') in the folder where it is saved. So:dafhi wrote:wxFBE viewtopic.php?f=8&t=20284&hilit=wxFBE#p177990paul doe wrote:Wait. Which IDE are you using?
- Save the file you want to test in the folder where RNG_test.exe is located.
- Add 'chdir exepath' to the code.
- And now QuickRun it. You shouldn't have any more troubles.
Re: FreeBASIC's PRNG #2
This is the path returned by exePath() if a QuickRun is issued when I didn't saved the file yet:
And, this is the path returned by exePath() when I save the file on the proper folder:
Code: Select all
C:\Programming\FbEdit
Code: Select all
C:\Programming\C++\PractRand_0.94\PractRand_094\bin\msvc12_64bit