https://drive.google.com/open?id=0BwsgM ... Ug4X05sVzg
If you increase the precision to 1000 or so it works a lot faster. I've just started experimenting with it.

Thanks for the info. I will keep clear of windows 10.

I need to find some interesting visual problems to test this code. I also have to check some things like load/save. ' http://xoroshiro.di.unimi.it/ namespace Xor128 const as ulongint PHI= &h9E3779B97F4A7C15 dim as ulongint a,b function rand() as ulongint var result=a+b b xor=a a=((a shl 55) or (...

Neat. I'll look up the links you gave too.

Levi function over the -10 to 10 domain. getkey cls dim as single x,y,cost=levi(10*x,10*y) 'cost at (0,0) for i as ulong=0 to 10000 var cx=x+mutateSymP127() var cy=y+mutateSymP127() if cx>1! or cx<-1! then cx=x if cy>1! or cy<-1! then cy=y var mcost=levi(10*cx,10*cy) if mcost<cost then x=cx y=cy cos...

' http://xoroshiro.di.unimi.it/ namespace xor128 const as ulongint PHI= &h9E3779B97F4A7C15 dim as ulongint a,b function rand() as ulongint var result=a+b b xor=a a=((a shl 55) or (a shr (64-55))) xor b xor (b shl 14) b=(b shl 36) or (b shr (64-36)) return result end function sub init() construc...

mov eax,edi -move the lower 32 bits of parameter k into eax, upper 32 bits of rax get zeroed by this move bswapq rdi - move the highest 32 bits of rdi (parameter k) to the lower 32 bits of rdi, it doesn't matter that they get permuted because k is supposed to be random imul rax,rsi - the lower 32 bi...

More scale free numeric optimization for Linux AMD64 namespace EvoRnd dim as long ffile sub init() if ffile<>0 then return ffile=freefile() Open "/dev/urandom" For Input As #ffile end sub sub finish() close #ffile ffile=0 end sub function rand() as ulongint dim as ulongint k get #ffile,,k ...

The other idea for heating the threads was to embed platinum particles into them and then allow methanol vapor to flow over the threads when heating was required. Surely some of the vapor is going to be wasted if you do that. However the energy density would be far in excess of what a rechargeable l...

Thanks. I'll do the code in FB then.

It seems my cheap laptop only allows 8 bit audio through arecord. That is probably a hardware limitation. screenres 512,256,32 dim as ubyte s,v(511) dim as ulong i var ff=freefile() Open Pipe "arecord -q -f U8" For Input As #ff Do While Not EOF(ff) and inkey()<>chr(27) get #ff,, s pset (i,...

I want to write some ham radio software to decode PSK31. I kinda want to write it in Java for portability. However that would mean spending a considerable amount of time doing a JavaFX GUI. The other option is a quick piece of code using FB. Unfortunately /dev/dsp is being removed from the Linux ker...

It could reduce the cost of mechatronics down to a very low level. A few cent per actuator. I'll definitely give it a try at some stage. There are a number of options for heating the twisted thread besides electrical resistance heating. I guess you could incorporate ferromagnetic particles in the th...

I guess a few people use FB for robotics and would be interested in the latest work on artificial muscles:
http://movie-usa.glencoesoftware.com/vi ... 13/video-1
http://www.pnas.org/content/early/2016/ ... 3.abstract

Same algorithm but hopefully you can run it on windows etc as well. ' Autoencoder 90 namespace xor128 'http://xoroshiro.di.unimi.it/ const as ulongint PHI= &h9E3779B97F4A7C15 dim as ulongint a,b function rand() as ulongint var result=a+b b xor=a a=((a shl 55) or (a shr (64-55))) xor b xor (b shl...