Откройте Америку!

Число сложений в основном цикле выбиралось так, чтобы 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.