Zener Test (blitz code)

[Matty]

Greetings folks.....I thought I'd share with you something amusing....

See link below - it is a post on my web page about a Zener test run in blitz3d....explanation of the Zener test:

You remember the card scene with Bill Murray at the beginning with the parapsychology test he runs...that's a Zener test.....

A bit of harmless fun to try...

http://concavetales.com/exercises/?page=7457

[3DzForMe]

Interesting Matty - can you post the code here in a codebox - I'll use my own images and let you know how I fare....

[Rick Nasher]

Oh my. Interesting. 

Had this been coded in AGK2(aka Classic now) you could actually export it to HTML5 and run it from your site.

[Matty]

Thanks.  Ive been away from pc so cant post the code in a codebox, but the image is Pretty simple less than a couple of dozen lines.

[Matty]

Greetings again...here is the code and a zip file....for you...since you asked..

blitzplus/blitz3d code....very simple....while running escape, 'a' and 's' keys are used....no instructions but simple enough to work out.

Code Select Expand


Graphics 800,600,0,2
Dim img(5)
AutoMidHandle True
For i=0 To 5
img(i) = LoadImage("card0"+i+".png")
Next
SeedRnd MilliSecs()
SetBuffer BackBuffer()
ClsColor 64,64,64
frame = 0
i = 0
c = 0
d = 0
Repeat
Cls
Text 0,0,"Count:"+c
Text 0,30,"Correct:"+d
Text 0,60,"Expected Correct:"+(c/5)
Text 0,90,"Difference:"+Str(Abs(d - (c/5)))
If KeyHit(31) Then d = d + 1
If KeyHit(30) Then
i = Rand(1,5)
frame = 1 - frame
If frame = 1 Then c = c + 1
EndIf
If frame = 0
DrawImage img(0),400,300
Else
DrawImage img(i),400,300
EndIf
Flip
Until KeyDown(1)
End


[Matty]

Very interesting....new result...second test...

http://concavetales.com/exercises/?page=7472

[Matty]

Test results from over 250 card reveals....

258 reveals, 70 correct.

Average expected from 250 tests = 50.






The test with 65% success rate was done at a very early time of the morning (4am)

(next two tests done at same time (10am 24-Sep-2019) both basically 'average' results)


A-B significance test result

[Rick Nasher]

Very interesting project/ piece of code.
Converted to AGK it looks like this:

Code Select Expand



// Project: ESP by Matty
// Created: 19-09-26

// show all errors

SetErrorMode(2)

// set window properties
SetWindowTitle( "ESP by Matty" )
//SetWindowSize( 1024, 768, 0 )
SetWindowSize( 800, 600, 0 )
SetWindowAllowResize( 1 ) // allow the user to resize the window

// set display properties
SetVirtualResolution( 1024, 768 ) // doesn't have to match the window
SetOrientationAllowed( 1, 1, 1, 1 ) // allow both portrait and landscape on mobile devices
SetSyncRate( 30, 0 ) // 30fps instead of 60 to save battery
SetScissor( 0,0,0,0 ) // use the maximum available screen space, no black borders
UseNewDefaultFonts( 1 )


Dim img[6]
For i=0 To 5

img[i] = LoadImage("card0"+str(i)+".png")

Next

SpriteHandle = CreateSprite( img[0])
SetSpritePosition(SpriteHandle,400,300)

SetRandomSeed2( timer() )
SetClearColor( 64,64,64)

frame = 0
i = 0
c = 0
d = 0


CreateText(1, "Count:"+str(c))
SetTextSize(1,32)
SetTextPosition(1,GetScreenBoundsLeft()+2,GetScreenBoundsTop()+2+30)

CreateText(2, "Correct:"+str(d))
SetTextPosition(2,GetScreenBoundsLeft()+2,GetScreenBoundsTop()+2+60)
SetTextSize(2,32)

CreateText(3, "Expected Correct:"+str((c/5)))
SetTextPosition(3,GetScreenBoundsLeft()+2,GetScreenBoundsTop()+2+90)
SetTextSize(3,32)

CreateText(4, "Difference:"+Str(Abs(d - (c/5))))
SetTextPosition(4,GetScreenBoundsLeft()+2,GetScreenBoundsTop()+2+120)
SetTextSize(4,32)

Repeat

ClearScreen() //Cls

SetTextString(1, "Count:"+str(c))

SetTextString(2, "Correct:"+str(d))

SetTextString(3, "Expected Correct:"+str((c/5)))


If GetRawKeyPressed(38) Then d = d + 1

If GetRawKeyPressed(40) 
i = Random(1,5)
frame = 1 - frame
If frame = 1 Then c = c + 1
EndIf
If frame = 0

SetSpriteImage(SpriteHandle,img[0])

Else

SetSpriteImage(SpriteHandle,img[i])
EndIf


    Print( ScreenFPS() )
    Sync()
Until GetRawKeyPressed(27)
end



Hope you like.
Took like 25mins to convert for didn't know all the commands by heart.   
I've also generated an executable and HTML5 variant, for which I've sent the link to you to download via MediaFire. Can also convert to iOS or Android if you want it. Might make a nice little app to put out there.

[Matty]

Ta

[DaiHard]

Interesting. So in this case, since YOU visualise the card first, and then the computer has to "guess it", you are actually testing the computer's ability to read YOUR mind, and then influence the random number generator?

I'm afraid, as a sceptic, what this shows me is that "impressive" results on the test in real life are probably flukes, since I don't believe that you imagining a star can alter the computer's random number generator...



D

[Derron]

It just shows that humans think that "if 2 times square was choosen, chances for third time a square are very small". They think of the whole thing like in lotteries instead of tossing a coin.


@ computer guesses
To avoid that the computer could generate 25 cards in advance - so it is up to you to proof you can see what the computer has chosen.


bye
Ron

[Matty]

Actually not quite DaiHard.....

My conception was not so much about reading minds with this approach but - if it were possible to do so then alternative answers are:

"Time/Future Seeing" - so it is not about visualising what you want to come up but seeing what is already going to come up.....

And there is another concept as well......

Perhaps the individual (not necessarily me) who does a test and succeeds does so not because of any psychic ability on their part but because of invisible otherworldly entities that have a will of their own and can therefore choose when to 'reveal' a result to the user and when not to.

Eg...in many, many cases schizophrenics often claim to have some kind of paranormal activity (I'm not claiming that for myself) however although anecdotally they often do experience bizarre semi paranormal events according to themselves - when tested in a lab it always comes back false.

Now...obviously if there is no such paranormal activity then of course it will come back false. But...if there is paranormal activity - and it involves the intervention of otherworldly invisible entities with a will of their own - then they can easily 'switch off' the process during 'lab tests' and switch it back on when outside of these......

Anyway...all conjecture and a bit of fun regardless.

ADDITIONAL/EDIT:

I actually agree the first two tests were flukes...as further testing over the last few days has given this result from 1100 tests:

[Rick Nasher]

Hmm, well...
One could also use the sw to have one person stare at the screen and try to 'transmit' the outcome to another person, not looking at the screen and upon the answer givin, calculate the results.

Which is I think in most of these tests is how they would approach.

The other possibilities are lined out already by Matty. It would in those cases be:
- future seeing/predicting, for instance by tapping into another dimension.
- influencing matter (telekinesis) by visualizing energy that comes into existence as matter.
- any external force influencing this 'reality', it being a creature, the creator or actual force of nature/physics.
- we're in a sim and anything goes.
- also possible: a fabrication of our own mind, wishful thinking, but I reject that one for now.

[Amon]

I got them all correct before even starting the app. ^.^

[Rick Nasher]

@Amon.
You Sir are a fraud! (or a magician..)