Schroedinger's Cat example (simple)

[Frank Brübach]

How does Schrödinger's cat walk?

There is one in Schrödinger's thought experiment
 Cat and an unstable atomic nucleus in a closed box.
The atomic nucleus decays with a certain probability within a certain period of time. The decay dissolves by means of
A Geiger counter causes the release of poison gas, which kills the cat.

the cat has a state of superposition.
she is alive and dead until you make a closer
observation and look into the box.

original experiment showed a wave function 
 a lightpuls or a point shaped elcktron
 hits a fluorescent screen. but you cant say
where the lightwave electron exactly hits the screen

in same both status of superpisition  until you took an  exact measure where the lightpuls or
lightwave exists at that moment

I have Made this little example for the Cat Paradoxon true or false alive or dead ..

Code Select Expand

'uses corewin
uses console

' oxygen basic, simple example for schroedinger's cat experiment
' about physic and quantenmechanic, by frank bruebach, 25-09-2024
'

extern lib "kernel32.dll"
  ! GetTickCount
  ! GetTickCount64
  end extern

  int seed=0x12345678
  '
  function Rnd() as float
  =======================
  '
  Static As float f, d=1/0x7fffffff
  mov eax,seed
  inc eax
  rol eax,13
  xor eax,0xdab5ca3a
  mov seed,eax
  push eax
  fild dword [esp]
  pop eax
  fmul dword d
  fstp dword f
  return f
  end function

int i,a
string s

'Randomize TIMER
int seed=gettickcount()

Print "Quantum Condition Simulation"
Print "-----------------------------"
Print "Press any key to observe the condition..."

Do
    cls
    Print "Observing the condition..."

    FOR i = 1 TO 5
        Print "."
        SLEEP 500
    NEXT i

    IF Rnd() > 0.5 THEN
        Print "The condition is True."
    ELSE
        Print "The condition is False."
    END IF

    Print "Press any key to observe again or 'Q' to exit."
   
    a=getkey
    s=lcase Chr(a)
    if s="q" then
      exit do
    end if

  loop until inkey = CHR(27)

  print "press key to continue or q to exit"
  cls
End
wait