Приложение

                ПРИЛОЖЕНИЕ
                Программа для Electronic Ipsedixit ( Самсказала )
ПРЕДУПРЕЖДЕНИЕ: Эту программу нельзя использовать успешно,
                не дочитав до конца  и не поняв романа.


  Идея эксперимента  состояла в том,  чтобы найти корреляцию  между  быстродейстием  компютера  и будущим  созданием и заполнением файла,  связанного  с внешним событием ( результатом ставки на рулетке ),  и чтобы это сделать,  нужно было представить  флуктуации  времени операции  на экране компьютера  в простом  легко воспринимаемом  и запоминаемом виде, в целых коротких числах,  поскольку я должен был  посмотреть на экран  и быстро решить,  делать  или не делать  мне ставку на другом компьютере.  С этой целью программа для " EI " ( см. текст её ниже )  производила  заданное количество сложений в основном  цикле,  вызывая  в начале  и  в конце  этого  процесса  TIMER,  и  затем  вычисляла  разницу  двух  его  показаний,  замечая,  равна  она  нулю  или  нет,  и  печатая  n%,  число  циклов  между  теми,  в которых  показания  TIMER'а  изменялись.   (См.  строку  30  программы.  Она  написана  на  языке  Qbasic,  и  %  или !  после  имени  переменной  определяет  её  тип - целая  или  с плавающей точкой. )

  Число  сложений  в основном  цикле  выбиралось  так,  чтобы  n%  равнялось 5  или  6,  и в распределении их  существовали участки  сплошных " пятёрок ",  отражавших периоды,  когда  время операции  возрастало.  Такие  периоды  служили концами попыток  выработки  предсказания,  и  когда  программа  обнаруживала  больше  одиннадцати  последовательных  " пятёрок ", она печатала  nс%,  полное число  изменений показаний  TIMER'а  в попытке ( строка  36 ),  и ожидала  ввода в неё результата предполагаемой  ставки на рулетке.

  Оказалось,  предсказание  попыткой  выигрыша  надёжно, если она  достаточно  длинна ( nc% > 50 )  и предыдущая попытка была короткой  ( nc% < 30 ).  Когда  оба критерия  выполнялись,  я делал  ставку  на  другом  компютере,  и  если  выигрывал,  отдавал программе  команду  создать  новый файл  и поместить в него  30 записей ( см. строки 37 - 72 ),  а затем  закрыть его и сразу же стереть,  а если проигрывал,  то останавливал программу и запускал её сначала,  так как выянил,  что эта процедура,  проводимая после каждой попытки,  улучшает производительность программы.

  И,  как сказано  в основном  тексте,  для получения  надёжных  предсказаний  я должен  был  играть 5-минутными  сессиями с 8-часовыми  паузами  и поддерживать  температуру  в комнате 76,0 - 76,5 градусов  по Фаренгейту  ( 24,4 - 24,7  Цельсия ).


                ПРОГРАММА  ДЛЯ  " EI "

Оператор или метка                Комментарий ( номер строки  и примечание )

CLS                'Line1. Clears the screen
add% = 5550                'Line2. Number of additions in the main cycle
mf% = 11                'Line3. Number of consecutive "fives" to end trial
nf% = 0                'Line4. Counter of consecutive "fives"
nc% = 0                'Line5. Counter of changes of TIMER readings
1                'Line6. Lines 6-16 is the main cycle
t1! = TIMER                'Line7.
y% = 1                'Line8.
2                'Line9.
IF y% < add% THEN GOTO 3 ELSE GOTO 4                'Line10.
3                'Line11.
y% = y% + 1                'Line12.
GOTO 2                'Line13.
4                'Line14.
t2! = TIMER - t1!                'Line15.
IF t2! = 0! THEN GOTO 1                'Line16.
n% = 0                'Line17. Counter of cycles between changes
5                'Line18. Lines 18-29 is the main cycle
n% = n% + 1                'Line19.
t1! = TIMER                'Line20.
y% = 1                'Line21.
6                'Line22.
IF y% < add% THEN GOTO 7 ELSE GOTO 8                'Line23.
7                'Line24.
y% = y% + 1                'Line25.
GOTO 6                'Line26.
8                'Line27.
t2! = TIMER - t1!                'Line28.
IF t2! = 0! THEN GOTO 5                'Line29.
PRINT n%                'Line30. Prints number of cycles between changes
nc% = nc% + 1                'Line31.
IF nf% > mf% AND n% > 5 GOTO 9                'Line32.
IF n% = 5 THEN GOTO 13 ELSE GOTO 12                'Line33.
GOTO 1                'Line34.
9                'Line35.
PRINT "NChanges=";nc%                'Line36. Prints number of changes in trial
INPUT "result";res%                'Line37. Input of the result of the bet
IF res% = 9 THEN GOTO 10 ELSE GOTO 11                'Line38.
10                'Line39.
OPEN "new" FOR RANDOM AS #1                'Line40. Opens new file
PUT #1,1,k%                'Line41.

PUT #1,30,k%                'Line70. Lines 41-70 put 30 records in new file
CLOSE                'Line71.
KILL "new"                'Line72.
11                'Line73.
PRINT "Press Ctrl + Pause to start over"                'Line74.
INPUT "Start over";start%                'Line75.
12                'Line76.
nf% = 0                'Line77. Counter of consecutive "fives"
GOTO 1                'Line78.
13                'Line79.
nf% = nf% + 1                'Line80. Counter of consecutive "fives"
GOTO 1                'Line81.


ПРИМЕЧАНИЕ.  Программа  была модифицирована  для  второй  части  демонстрации,  в которой  она работала  непрерывно при температуре 62 градуса по Фаренгейту ( 16,7 Цельсия ).
  Число сложений в основном цикле ( add%,  Line2 ) было изменено на  5461,
и критерии предсказания были:
1) для последней попытки  nc% > 45;
2) для предыдущей попытки  nc% < 19.


Рецензии