Сижу и занимаюсь методом тыка.
Уже много чего протыкала.
И кажется, оно заработало!

Сначала запускаю функцию

{ffff(lena)=lena;

for( i=i1,i2,
 
  bp=i*period;
  for( n=1,lena, bpt=bp+a[n];
    if(  ispseudoprime  (bpt) &&
         ispseudoprime  (bpt+p[6]) &&
         ispseudoprime  (bpt+p[7] ) &&
         ispseudoprime  (bpt+p[8]) &&
         ispseudoprime  (bpt+p[9]) &&
         ispseudoprime  (bpt+p[10]) &&
         ispseudoprime  (bpt+p[11]) &&
         ispseudoprime  (bpt+p[12]) &&
         ispseudoprime  (bpt+p[13]) &&
         ispseudoprime  (bpt+p[14]) &&
         nextprime((bpt+p[6])+1) == (bpt+p[7]) &&
         nextprime((bpt+p[7])+1) == (bpt+p[8]) &&
         nextprime((bpt+p[8])+1) == (bpt+p[9]) &&
         nextprime((bpt+p[9])+1) == (bpt+p[10]) &&
         nextprime((bpt+p[10])+1) == (bpt+p[11]) &&
         nextprime((bpt+p[11])+1) == (bpt+p[12]) &&
         nextprime((bpt+p[12])+1) == (bpt+p[13]) &&
         nextprime((bpt+p[13])+1) == (bpt+p[14])
      , print1(bpt+p[6],", ");print1(bpt+p[7],", ");print1(bpt+p[8],", ");print1(bpt+p[9],", ");print1(bpt+p[10],", ");print1(bpt+p[11],", ");print1(bpt+p[12],", ");
      print1(bpt+p[13],", ");print1(bpt+p[14],", ");print();
      forprime(k=bpt, bpt+p[19], print(k,", "););print();
      print1(bpt,", ");print1(bpt+p[2],", ");print1(bpt+p[3],", ");print1(bpt+p[4],", ");print1(bpt+p[5],", ");print1(bpt+p[6],", ");print1(bpt+p[7],", ");
      print1(bpt+p[8],", ");print1(bpt+p[9],", ");print1(bpt+p[10],", ");print1(bpt+p[11],", ");print1(bpt+p[12],", ");print1(bpt+p[13],", ");print1(bpt+p[14],", ");
      print1(bpt+p[15],", ");print1(bpt+p[16],", ");print1(bpt+p[17],", ");print1(bpt+p[18],", ");print1(bpt+p[19],", ");print();        
    );
  );
);

return(lena);}

Это проходит без ошибок.

Дальше запускаю программу с вызовом функции

\l rez_d264_9ki.txt;
{period = 9699690; pl=19; dm=264; N=period; \\N=#19
print("range of search");
i1=500226000001; print(i1," (p=", i1*9699690," )");
i2=500226030000; print(i2," (p=", i2*9699690," )");

p=[0, 12, 24, 30, 42, 54, 84, 90, 114, 132, 150, 174, 180, 210, 222, 234, 240, 252, 264];
a=[19739,30827,103757,179339,234317,290009,307247,322339,373169,446099,473269,501077,528247,576659,601177,643439,649589,660677,676759,716369,771347,781577,846929,870589,919859,943519,954607,985067,1003019,1030189,1103119,1113689,1140859,1158097,1168327,1213789,1273289,1278997,1296949,1338497,1411427,1438597,1500439,1567219,1632427,1705357,1770709,1780939,1821539,1835917,1894469,1908847,1959677,2119277,2229947,2247899,2262277,2313107,2386037,2413207,2451389,2461619,2516597,2572289,2583377,2589527,2616697,2656307,2731889,2745319,2755549,2786867,2810527,2859797,2883457,2925719,2942957,2959039,2970127,2998649,3025819,3043057,3053627,3080797,3129209,3153727,3202139,3213227,3229309,3236887,3312469,3385399,3423139,3440377,3496069,3507157,3555569,3582739,3655669,3706499,3710647,3720877,3761477,3834407,3849499,3909989,4052989,4103819,4176749,4187837,4203919,4263419,4336349,4374089,4391327,4401557,4447019,4512227,4530179,4557349,4630279,4671827,4685257,4695487,4733669,4760839,4800449,4833769,4865657,4898977,4938587,4965757,5003939,5014169,5027599,5069147,5142077,5169247,5187199,5252407,5297869,5308099,5325337,5363077,5436007,5495507,5511589,5522677,5595607,5646437,5789437,5849927,5865019,5937949,5978549,5988779,5992927,6043757,6116687,6143857,6192269,6203357,6259049,6276287,6314027,6386957,6462539,6470117,6486199,6497287,6545699,6570217,6618629,6645799,6656369,6673607,6700777,6729299,6740387,6756469,6773707,6815969,6839629,6888899,6912559,6943877,6954107,6967537,7043119,7082729,7109899,7116049,7127137,7182829,7237807,7248037,7286219,7313389,7386319,7437149,7451527,7469479,7580149,7739749,7790579,7804957,7863509,7877887,7918487,7928717,7994069,8066999,8132207,8198987,8260829,8287999,8360929,8402477,8420429,8426137,8485637,8531099,8541329,8558567,8585737,8596307,8669237,8696407,8714359,8744819,8755907,8779567,8828837,8852497,8917849,8928079,8983057,9022667,9038749,9049837,9055987,9098249,9122767,9171179,9198349,9226157,9253327,9326257,9377087,9392179,9409417,9465109,9520087,9595669,9668599,9679687];
lena=#a;
ffff;

p=[0, 12, 24, 42, 54, 72, 84, 90, 114, 132, 150, 174, 180, 192, 210, 222, 240, 252, 264];
a=[1889,10937,72817,99949,113039,129797,156967,165157,178247,313057,331999,340189,353279,380449,397207,415159,499309,508357,583327,591517,610459,675667,823567,837647,850699,925669,939749,1102027,1116107,1179989,1264007,1291139,1348157,1356347,1366109,1431317,1450259,1458449,1542467,1606349,1626617,1633519,1690499,1761427,1774517,1782707,1801649,1809877,1863529,1866857,1876619,1884809,1911979,1928737,1941827,1968959,2039887,2052977,2103769,2116859,2144029,2152219,2271937,2280127,2293217,2320387,2355097,2374039,2382229,2395319,2422489,2439247,2550397,2614279,2662729,2790637,2865607,2879687,2892739,3054719,3103169,3119927,3222029,3231077,3306047,3333179,3390197,3398387,3546287,3565229,3573419,3573457,3600589,3613679,3630437,3648389,3675559,3732539,3741587,3803467,3816557,3824747,3843689,3851917,3908897,3915799,4026949,4043707,4056797,4083929,4083967,4092157,4111099,4145809,4158899,4186069,4194259,4313977,4322167,4335257,4362427,4426309,4537459,4554217,4602667,4656319,4704769,4832677,4866749,4994657,5043107,5096759,5145209,5161967,5273117,5336999,5364169,5377259,5385449,5505167,5513357,5540527,5553617,5588327,5607269,5615459,5615497,5642629,5655719,5672477,5783627,5790529,5847509,5855737,5874679,5882869,5895959,5957839,5966887,6023867,6051037,6068989,6085747,6098837,6125969,6126007,6134197,6153139,6301039,6309229,6366247,6393379,6468349,6477397,6579499,6596257,6644707,6806687,6819739,6833819,6908789,7036697,7085147,7149029,7260179,7276937,7304107,7317197,7325387,7344329,7379039,7406209,7419299,7427489,7547207,7555397,7582567,7595657,7646449,7659539,7730467,7757599,7770689,7787447,7814617,7822807,7832569,7835897,7889549,7897777,7916719,7924909,7937999,8008927,8065907,8072809,8093077,8156959,8240977,8249167,8268109,8333317,8343079,8351269,8408287,8435419,8519437,8583319,8597399,8759677,8773757,8848727,8861779,8875859,9023759,9088967,9107909,9116099,9191069,9200117,9284267,9302219,9318977,9346147,9359237,9367427,9386369,9521179,9534269,9542459,9569629,9586387,9599477,9626609,9688489,9697537];
lena=#a;
ffff;
}

Это тоже отработало без ошибок.

Уф!
Неужели работает? Так всё просто!
Вместо постоянного блока всего одна строчка.
Вот это я и хотела: процедура и вызов процедуры.
Как долго не могла этого получить!
А gris замолчал, озадачила я его :)

Теперь надо потестировать на другом диаметре, где не два паттерна, а побольше.
Сейчас у меня на очереди формирование программы для паттернов с диаметром 384.
Буду формировать программу новым способом - с функцией.
Потом и протестирую эту программу.
В ней будет 190 паттернов.

Увы! Рано радовалась :(
Программа на 190 паттернов ничего не считает, сразу вылетает, хотя никаких ошибок не выдаёт

? \r procedura.txt
? \r d384_9ki_all.txt
   log = 1 (on)
   [logfile is "rezd384_9ki_all.txt"]
range of search
500232000001 (p=4852095328089699690 )
500232500000 (p=4852100177925000000 )
?

Интервал задан 500000.
Должна считать. паттернов довольно много.
Но она мгновенно вылетает.

Что-то опять не так.

Сначала у меня запущена функция, я назвала этот файл procedura.txt
Это прошло, никаких ошибок не выдалось.
Потом запустила программу, она имеет имя d384_9ki_all.txt
Ошибок тоже не выдалось, интервал программа вывела.
И на этом закруглилась.
Паттерны не обрабатываются!
Функция не работает.

Ах!
Кажется. поехала :)
Нашла неточность, исправила.
Программа не вылетела, считает.
Ждём результаты - центральные 9-ки.

Ой! А вставку-то сделала мгновенно!
В-о-о-о-т!
Девиз программиста помните?
НЕТ ПРЕДЕЛА ОПТИМИЗАЦИИ !

Demis
как насчёт штурма? :)

У меня на такое художество нет ни времени, ни ресурсов.

Код как составить список паттернов был показан ранее.
Код как работать с составленным списком тоже.

Вас это не устроило.

Приведу пример, с медленного ноутбука, 10-ти летней давности для короткого диаметра 312.
Если с генерацией все просто, уходит от 2 до 10 секунд на одну строку паттерна (2 или 10 зависит от изменений в коде генератора по оптимизации).
То непосредственно сам расчет будет всегда медленнее.
Если только грис не оптимизирует свой код.

Вставив в код замер затрат по времени на время теста, получаю:

time before open file: pattern-all-d312-2.txt) is :15 ms
time after open file: pattern-all-d312-2.txt) is :31 ms
time after read one string data N: 1 (from file: pattern-all-d312-2.txt) is :0 ms
p=[0, 6, 12, 30, 42, 72, 90, 102, 132, 156, 180, 210, 222, 240, 270, 282, 300, 306, 312]
time work cycle N: 1 is :2min, 42,258 ms, Goto next row read cycle data...

time after read one string data N: 2 (from file: pattern-all-d312-2.txt) is :0 ms
p=[0, 6, 12, 30, 72, 90, 96, 102, 132, 156, 180, 210, 216, 222, 240, 282, 300, 306, 312]
time work cycle N: 2 is :3min, 54,300 ms, Goto next row read cycle data...

time after read one string data N: 3 (from file: pattern-all-d312-2.txt) is :1 ms
p=[0, 6, 12, 42, 60, 72, 90, 102, 132, 156, 180, 210, 222, 240, 252, 270, 300, 306, 312]
time work cycle N: 3 is :1min, 22,016 ms, Goto next row read cycle data...

time after read one string data N: 4 (from file: pattern-all-d312-2.txt) is :1 ms
p=[0, 6, 12, 42, 72, 90, 96, 102, 132, 156, 180, 210, 216, 222, 240, 270, 300, 306, 312]
time work cycle N: 4 is :3min, 50,868 ms, Goto next row read cycle data...

time after read one string data N: 5 (from file: pattern-all-d312-2.txt) is :0 ms
p=[0, 6, 12, 42, 72, 90, 102, 126, 132, 156, 180, 186, 210, 222, 240, 270, 300, 306, 312]
time work cycle N: 5 is :1min, 55,362 ms, Goto next row read cycle data...

time after read one string data N: 6 (from file: pattern-all-d312-2.txt) is :0 ms
p=[0, 6, 12, 60, 72, 90, 102, 126, 132, 156, 180, 186, 210, 222, 240, 252, 300, 306, 312]
time work cycle N: 6 is :1min, 17,147 ms, Goto next row read cycle data...

time after read one string data N: 7 (from file: pattern-all-d312-2.txt) is :0 ms
p=[0, 6, 30, 42, 60, 72, 96, 126, 132, 156, 180, 186, 216, 240, 252, 270, 282, 306, 312]
time work cycle N: 7 is :1min, 16,864 ms, Goto next row read cycle data...

time after read one string data N: 8 (from file: pattern-all-d312-2.txt) is :0 ms
p=[0, 6, 30, 60, 72, 90, 96, 126, 132, 156, 180, 186, 216, 222, 240, 252, 282, 306, 312]
time work cycle N: 8 is :38,754 ms, Goto next row read cycle data...

time after read one string data N: 9 (from file: pattern-all-d312-2.txt) is :0 ms
p=[0, 12, 30, 60, 90, 96, 102, 126, 132, 156, 180, 186, 210, 216, 222, 252, 282, 300, 312]
time work cycle N: 9 is :5min, 8,785 ms, Goto next row read cycle data...

time after read one string data N: 10 (from file: pattern-all-d312-2.txt) is :0 ms
p=[0, 30, 42, 60, 66, 72, 120, 126, 150, 156, 162, 186, 192, 240, 246, 252, 270, 282, 312]
time work cycle N: 10 is :1min, 16,697 ms, Goto next row read cycle data...

All Time work: 23min, 23,100 ms

понятно что время "time after open file" (время после открытия файла) = "31 ms" будет расти в зависимости от размера файла.
Однако время считывания строки "1 ms" изменяться практически не будет.

Учитывая, что время расчета существенно больше ("2min, 42,258 ms") - это не критично.
Впрочем об этом уже писалось ранее...

Так-же этот метод исключает необходимость использования ворда для вставки кода.
При использовании ворда, резко подскакивает проблема поиска некорретных данных по номеру строки...
При линейном написании кода (как Вы пытаетесь делать) возникнет, наверняка, проблема размещения всего этого кода в памяти компьютера. Молчу про то, сколько строк переживет Ваш ворд...
(А они и память, и ворд, не резиновые)

Но об этом никто, как правило, не помнит...

Вспомните, например, про 756 блок:

for tuple diameter=756 number of pretuples=7503945 after (%5,7,11) good:1833597

В автоматическом режиме генерации, если тратится 2 секунды на строку, потребуется:
1833597 * 2сек = 3667194 сек, или 3667194 / 60 / 60 / 24 = 42,44 суток.
Файл будет размером в несколько гигабайт.

А потом еще нужно сделать расчет, в среднем 3 минуты:
1833597 * 180сек = 330047460сек или 330047460 / 60 / 60 / 24 = 3819 дней.

Даже если составить программу таким образом, чтобы сгенерированное сразу считалось никуда не записывая (и не надо гигабайты хранить, о чем никто изначально не подумал), то все равно остается время на генерацию и потом расчет.
Таким образом при условии, что не будет сторонних факторов (в виде сбоя компьютера и т.п.), эти времена нужно суммировать.
Т.е. 42дня + 3819 дней = 3861 день.
Понимаете суть написанного?
И это не критика.

Но у Вас свой путь...
Не смею вмешиваться.

Даже если составить программу таким образом, чтобы сгенерированное сразу считалось никуда не записывая (и не надо гигабайты хранить, о чем никто изначально не подумал), то все равно остается время на генерацию и потом расчет.
Таким образом при условии, что не будет сторонних факторов (в виде сбоя компьютера и т.п.), эти времена нужно суммировать.
Т.е. 42дня + 3819 дней = 3861 день.

Ну, про миллионы лет я уже много раз читала на dxdy.ru, например.
Для подзадачи D(12,14) все эти миллионы просчитаны господином Петуховым, однако это не останавливает вас и Евгения от вычислений в данной подзадаче!
Так ведь?
Странно, почему не останавливает?!

Понимаете суть написанного?

Нет, не понимаю.

И это не критика.

А что это?

Но у Вас свой путь...
Не смею вмешиваться.

Да, у меня свой путь.
Вмешиваться я и не просила.
И просчитывать миллионы паттернов и миллионы лет тоже не просила.
К чему вы их (паттерны) просчитывали, старались?
Это мне и без вас давно известно: и про миллионы паттернов, и про миллионы лет.
Ничего нового вы не сказали.
Опять только нагнать туману.

PS. Небезызвестный вам cittera тоже старательно и очень давно просчитал миллионы лет для поиска всех ОДЛК 10-го порядка.
И что?
Меня это остановило?
Ну, со мной-то понятно!
А вас почему не остановило?
Вы зачем в двух BOINC-проектах считаете ОДЛК 10-го порядка?
Их ведь миллионы лет не посчитать!!! Их многие миллионы!
Зря технику бьёте!
Остановитесь!
Считайте что-нибудь полезное, например D(12,15) в проекте Hugo :)))
В этой задаче, говорят, тоже миллионы лет.
Господин Лецко категорично заявил, что решить задачу нереально.
Ну и что?
Зато задача полезная, потому что это не задача глупой Макаровой, а задача умного Hugo.
Приятно решать умные задачи! Я понимаю :)
Желаю удачи!

К тому же, участие в BOINC-проекте ODLK1 приносит вам кучу неудобств, о которых вы постоянно сообщаете на форуме проекта, начиная отсюда
https://boinc.multi-pool.info/latinsquares/forum_thread.php?id=182&postid=3655
Вашу критику, к сожалению, администратор проекта ice00 не видит и не слышит.
Какая там проблема, что такое, что вы видите, а администратор в упор не видит?
Он вам даже не отвечает.
Так лучше бросить это гнилое дело, где постоянные ошибки.
Вам же будет очень хорошо! Никаких проблем!
А проект посчитают те, кто с неизбежными ошибками мирится, а не кричит о них постоянно.

Новая центральная 9-ка в третьем диапазоне (паттерн с минимальным диаметром)

32686986275115113697209, 32686986275115113697227, 32686986275115113697233, 32686986275115113697257,
32686986275115113697263, 32686986275115113697269, 32686986275115113697293, 32686986275115113697299,
32686986275115113697317,

32686986275115113697137,
32686986275115113697209,
32686986275115113697227,
32686986275115113697233,
32686986275115113697257,
32686986275115113697263,
32686986275115113697269,
32686986275115113697293,
32686986275115113697299,
32686986275115113697317,
32686986275115113697347,
32686986275115113697377,

32686986275115113697137, 32686986275115113697143, 32686986275115113697149, 32686986275115113697167,
32686986275115113697179, 32686986275115113697209, 32686986275115113697227, 32686986275115113697233,
32686986275115113697257, 32686986275115113697263, 32686986275115113697269, 32686986275115113697293,
32686986275115113697299, 32686986275115113697317, 32686986275115113697347, 32686986275115113697359,
32686986275115113697377, 32686986275115113697383, 32686986275115113697389,

9-ка продолжилась в одну сторону.
Вот 11-ка с одной «дыркой»

{32686986275115113697137,
32686986275115113697209,
32686986275115113697227,
32686986275115113697233,
32686986275115113697257,
32686986275115113697263,
32686986275115113697269,
32686986275115113697293,
32686986275115113697299,
32686986275115113697317,
32686986275115113697347}

Три вписанные 19-ки найдены в алгоритме №3 (512 формул).
Предварительные результаты показаны в сообщении
https://boinc.progger.info/odlk/forum_thread.php?id=237&postid=11192

10 «дырок»

{4854589736554166101, 4854589736554166113, 4854589736554166131, 4854589736554166143, 4854589736554166179,
4854589736554166209, 4854589736554166221, 4854589736554166263, 4854589736554166269, 4854589736554166281,
4854589736554166293, 4854589736554166299, 4854589736554166341, 4854589736554166353, 4854589736554166383,
4854589736554166419, 4854589736554166431, 4854589736554166449, 4854589736554166461}

4854589736554166101,
4854589736554166113,
4854589736554166143,
4854589736554166153,
4854589736554166171,
4854589736554166221,
4854589736554166261,
4854589736554166263,
4854589736554166269,
4854589736554166281,
4854589736554166293,
4854589736554166299,
4854589736554166339,
4854589736554166351,
4854589736554166369,
4854589736554166437,
4854589736554166447,
4854589736554166449,
4854589736554166461,

Паттерн с диаметром 360.

9 «дырок»

{4854592146042790817, 4854592146042790841, 4854592146042790847, 4854592146042790871, 4854592146042790883,
4854592146042790913, 4854592146042790937, 4854592146042790967, 4854592146042790973, 4854592146042790997,
4854592146042791021, 4854592146042791027, 4854592146042791057, 4854592146042791081, 4854592146042791111,
4854592146042791123, 4854592146042791147, 4854592146042791153, 4854592146042791177}

4854592146042790817,
4854592146042790841,
4854592146042790847,
4854592146042790891,
4854592146042790913,
4854592146042790951,
4854592146042790961,
4854592146042790967,
4854592146042790973,
4854592146042790997,
4854592146042791021,
4854592146042791027,
4854592146042791029,
4854592146042791051,
4854592146042791059,
4854592146042791099,
4854592146042791101,
4854592146042791153,
4854592146042791177,

Паттерн с диаметром 360.

9 «дырок»

{4854593522699068307, 4854593522699068319, 4854593522699068349, 4854593522699068373, 4854593522699068403,
4854593522699068427, 4854593522699068433, 4854593522699068457, 4854593522699068469, 4854593522699068493,
4854593522699068517, 4854593522699068529, 4854593522699068553, 4854593522699068559, 4854593522699068583,
4854593522699068613, 4854593522699068637, 4854593522699068667, 4854593522699068679}

4854593522699068307,
4854593522699068319,
4854593522699068321,
4854593522699068397,
4854593522699068403,
4854593522699068409,
4854593522699068441,
4854593522699068457,
4854593522699068469,
4854593522699068493,
4854593522699068517,
4854593522699068529,
4854593522699068549,
4854593522699068579,
4854593522699068597,
4854593522699068637,
4854593522699068639,
4854593522699068667,
4854593522699068679,

Паттерн с диаметром 372.
Добавилось популярности диаметрам 360 и 372.

Остановила эту программу.

Ещё одна или две программы поиска вписанных 19-ок работают.

Черепашка трудится в шестом диапазоне (паттерн с минимальным диаметром).
Задаю сейчас интервалы 3 миллиона

(05:04) gp > default(timer,1)
(05:04) gp > \r gris9_6.txt
   log = 1 (on)
   [logfile is "resgris9_6.txt"]
time = 3h, 38min, 37,672 ms.

на которые черепашка затрачивает примерно 3,5 часа.

Решений пока не найдено.

Итак, сделаны программы обработки всех теоретических паттернов для диаметров: 336 (116 паттернов), 348 (34 паттерна), 360 (226 паттернов), 372 (360 паттернов), 384 (190 паттернов), 396 (655 паттернов), 408 (621 паттерн).
Все программы в работе.

Программы формировались тремя способами:
1) постоянный блок вставлялся вручную;
2) постоянный блок вставлялся в Ворде;
3) постоянный блок оформлен как функция и вставлялся в Ворде.

Третий способ был применён пока только к паттернам с диаметром 384 (190 паттернов), программа тестируется.
Интервал задан 500000, работает на Ахиллесе-3.

Программы, сформированные первыми двумя способами, протестированы и продолжают работать дальше.

Программы для обработки части теоретических паттернов сделаны для следующих диаметров: 420, 432, 444, 456.
Для этих диаметров количество теоретических паттернов:
420 - 4302
432 - 3549
444 - 3401
456 - 4435

Собираюсь начать с диаметра 420, буду формировать программу третьим способом - с помощью функции.
В данный момент для этого диаметра работает программа для обработки 261 паттерна, полученная форумчанином с форума MHP.
Он сделал программу, вставляя постоянный блок в Матлабе.
Это единственная программа, полученная данным способом.

Для диаметра 468 я сгенерировала паттерны и соответствующие формулы, теоретически допустимых паттернов получилось 4272.
Но программу для этого диаметра ещё не делала даже для части паттернов.
Для диаметра 480 то же самое.
Для этого диаметра резкий скачок количества теоретических паттернов.

Так что пока попытаюсь справиться с диаметрами 420, 432, 444, 456, 468.

Кстати, ещё одна оптимизация поступила от gris :)

Кстати, в программе формирования формул можно вставить строчку "ПРИНТ"(ФФФФ") и ворда не нужно.

Действительно!

У меня сейчас работает программа генерирования теоретических паттернов и соответствующих формул для диаметра 420, в которую уже вставила эту оптимизацию.
На выходе получается готовая программа поиска центральных 9-ок, ничего уже и вставлять не нужно, даже одну строчку

ffff(lena);

в которую превратился постоянный блок (процедура).

Цитата

Третий способ был применён пока только к паттернам с диаметром 384 (190 паттернов), программа тестируется.
Интервал задан 500000, работает на Ахиллесе-3.

Почти сутки тестируется программа.
Вот и центральная девяточка нашлась

? \r procedura.txt
? \r d384_9ki_all.txt
   log = 1 (on)
   [logfile is "rezd384_9ki_all.txt"]
range of search
500232000001 (p=4852095328089699690 )
500232500000 (p=4852100177925000000 )
? \r procedura.txt
? \r d384_9ki_all.txt
   logfile = "rez_d384_9ki.txt"
range of search
500232000001 (p=4852095328089699690 )
500232500000 (p=4852100177925000000 )
4852097096444354539, 4852097096444354551, 4852097096444354569, 4852097096444354587, 4852097096444354629,
4852097096444354671, 4852097096444354689, 4852097096444354707, 4852097096444354719,

4852097096444354437,
4852097096444354479,
4852097096444354539,
4852097096444354551,
4852097096444354569,
4852097096444354587,
4852097096444354629,
4852097096444354671,
4852097096444354689,
4852097096444354707,
4852097096444354719,
4852097096444354759,

4852097096444354437, 4852097096444354461, 4852097096444354467, 4852097096444354509, 4852097096444354521,
4852097096444354539, 4852097096444354551, 4852097096444354569, 4852097096444354587, 4852097096444354629,
4852097096444354671, 4852097096444354689, 4852097096444354707, 4852097096444354719, 4852097096444354737,
4852097096444354749, 4852097096444354791, 4852097096444354797, 4852097096444354821,

9-ка не продолжается даже до 11-ки ни в какую сторону.

Главное - она найдена!
Процедура (функция), написанная gris, работает!
Обратите внимание, вот запуск процедуры (функции)

\r procedura.txt

А в тексте программы эта процедура (функция) просто вызывается после каждого переменного блока.

В общем, поставленная мной давно цель (использование процедуры), наконец-то, достигнута.
Спасибо gris!
Память прошлой программистской жизни меня не подвела.
Использовала же процедуры в Паскале в прошлой жизни!
Так что, память не всегда "злой властелин", который "всё будит минувшее вновь" :)

Черепашка сегодня так трудилась в шестом диапазоне

(05:04) gp > default(timer,1)
(05:04) gp > \r gris9_6.txt
   log = 1 (on)
   [logfile is "resgris9_6.txt"]
time = 3h, 38min, 37,672 ms.
(08:44) gp > \r gris9_6.txt
   logfile = "resgris9_6.txt"
time = 3h, 40min, 4,659 ms.
(13:26) gp > \r gris9_6.txt
   logfile = "resgris9_6.txt"
time = 3h, 40min, 46,732 ms.
(17:33) gp > \r gris9_6.txt
   logfile = "resgris9_6.txt"
time = 2h, 26min, 26,976 ms.
(21:12) gp > \r gris9_6.txt
   logfile = "resgris9_6.txt"
time = 1h, 13min, 27,730 ms.

Сначала три интервала по 3 миллиона, потом интервал 2 миллиона и последний интервал - один миллион.
Итого за рабочий день черепашка обработала интервал 12 миллионов.

Центральные 9-ки черепашке пока не встретились.

Программа работает стабильно, время обработки одинаковых интервалов примерно одинаково с точностью до 1-2 минут.
Эх, хороши вушки!

Ахиллес справился с генерацией теоретических паттернов и соответствующих формул для диаметра 420.

Показываю начало выходного файла

   [logfile is "d420_formulae_new.txt"]
  ***   Warning: new stack size = 536870912 (512.000 Mbytes).
p=[0, 6, 24, 36, 60, 66, 84, 120, 126, 210, 294, 300, 336, 354, 360, 384, 396, 414, 420];
a=[9907,18097,26567,84163,221723,250147,251473,258617,266807,293977,332873,394753,498857,500183,526027,528607,562063,617657,673213,691913,777317,804487,839197,857897,905263,913453,923963,969047,1044727,1136357,1145503,1201097,1202423,1237133,1264303,1368407,1423963,1442663,1479557,1504543,1513013,1541437,1615693,1719797,1746967,1753253,1781677,1783003,1790147,1847743,1864403,1995677,2015053,2030387,2031713,2057557,2060137,2096453,2126203,2263763,2292187,2308847,2336017,2366443,2374913,2436793,2455493,2540897,2568067,2576257,2615153,2642323,2677033,2732627,2733953,2808307,2899937,2919457,2955493,2966003,2974193,3011087,3086767,3187543,3206243,3243137,3251327,3278497,3317393,3379273,3483377,3484703,3510547,3527207,3546583,3627983,3657733,3759257,3761837,3789007,3795293,3823717,3889783,3897973,3906443,4029247,4037717,4072427,4099597,4130023,4138493,4146683,4173853,4277957,4339837,4378733,4405903,4408483,4450987,4497533,4618297,4657193,4683037,4684363,4719073,4737773,4774667,4848923,4850347,4924603,4961497,4980197,5014907,5016233,5042077,5080973,5201737,5248283,5290787,5293367,5320537,5359433,5421313,5525417,5552587,5560777,5569247,5599673,5626843,5661553,5670023,5792827,5801297,5809487,5875553,5903977,5910263,5937433,5940013,6041537,6071287,6152687,6172063,6188723,6214567,6215893,6319997,6381877,6420773,6447943,6456133,6493027,6511727,6612503,6688183,6725077,6733267,6743777,6779813,6799333,6890963,6965317,6966643,7022237,7056947,7084117,7123013,7131203,7158373,7243777,7262477,7324357,7332827,7363253,7390423,7407083,7435507,7573067,7602817,7639133,7641713,7667557,7668883,7684217,7703593,7834867,7851527,7909123,7916267,7917593,7946017,7952303,7979473,8083577,8157833,8186257,8194727,8219713,8256607,8275307,8330863,8434967,8462137,8496847,8498173,8553767,8562913,8654543,8730223,8775307,8785817,8794007,8841373,8860073,8894783,8921953,9007357,9026057,9081613,9137207,9170663,9173243,9199087,9200413,9304517,9366397,9405293,9432463,9440653,9447797,9449123,9477547,9615107,9672703,9681173,9689363];
lena=#a;
ffff(lena);
. . . . . . . . . . 

Теперь мы имеем переменный блок и вслед за ним вызов функции.
Всё! Ничего вставлять уже не надо.
Осталось добавить "шапку" программы и программа обработки всех 4302 теоретических паттернов с диаметром 420 готова.

Правда, пока у меня не решена проблема с недопустимыми паттернами, вот с такими

p=[0, 6, 24, 36, 60, 66, 84, 120, 144, 210, 276, 300, 336, 354, 360, 384, 396, 414, 420];
a=[];
lena=#a;
ffff(lena);

Тут я поступаю просто: удаляю в Ворде три строки

a=[];
lena=#a;
ffff(lena);

Строка, содержащая вектор р, остаётся, но она не мешает: задан вектор р, но этот паттерн не будет обрабатываться.

Сейчас попробую запустить эту программу на тестирование, интервал задам поменьше.

Всё оформила, запустила программу на тестирование на Ахиллесе-3

? \r procedura.txt
? \r d420_9ki_all.txt
   log = 1 (on)
   [logfile is "rez_d420_9ki_all.txt"]
  ***   Warning: new stack size = 536870912 (512.000 Mbytes).
range of search
500230000001 (p=4852075928709699690 )
500230030000 (p=4852076219690700000 )

Программа работает, на старте ошибок не выдала.
Интервал задала маленький - 30000.

На очереди у меня паттерны с диаметром 432, их поменьше - 3549.
Сейчас запущу на Ахиллесе программу генерации паттернов и соответствующих формул для этого диаметра.

Перед запуском программы на тестирование для диаметра 420 прервала программу, которая у меня работала для этого диаметра, в этой программе обрабатывались 261 паттерн (программа, полученная форумчанином с форума MHP).

Вот найденная этой программой центральная 9-ка

4852128661853854669, 4852128661853854687, 4852128661853854753, 4852128661853854789, 4852128661853854813,
4852128661853854837, 4852128661853854873, 4852128661853854939, 4852128661853854957,

4852128661853854603,
4852128661853854613,
4852128661853854627,
4852128661853854669,
4852128661853854687,
4852128661853854753,
4852128661853854789,
4852128661853854813,
4852128661853854837,
4852128661853854873,
4852128661853854939,
4852128661853854957,
4852128661853854967,
4852128661853854999,
4852128661853855023,

4852128661853854603, 4852128661853854609, 4852128661853854627, 4852128661853854639, 4852128661853854663,
4852128661853854669, 4852128661853854687, 4852128661853854753, 4852128661853854789, 4852128661853854813,
4852128661853854837, 4852128661853854873, 4852128661853854939, 4852128661853854957, 4852128661853854963,
4852128661853854987, 4852128661853854999, 4852128661853855017, 4852128661853855023,

15 вписанных последовательных простых чисел и... 15-ка с 3 "дырками"

{4852128661853854603,
4852128661853854613,
4852128661853854627,
4852128661853854669,
4852128661853854687,
4852128661853854753,
4852128661853854789,
4852128661853854813,
4852128661853854837,
4852128661853854873,
4852128661853854939,
4852128661853854957,
4852128661853854967,
4852128661853854999,
4852128661853855023}

Очень симпатичная 15-ка, всего три числа не легли в паттерн, при этом они очень близки к правильным.

Хорошо идёт тестирование программы для диаметра 420, вот уже центральная 9-ка найдена

? \r procedura.txt
? \r d420_9ki_all.txt
   log = 1 (on)
   [logfile is "rez_d420_9ki_all.txt"]
  ***   Warning: new stack size = 536870912 (512.000 Mbytes).
range of search
500230000001 (p=4852075928709699690 )
500230030000 (p=4852076219690700000 )
4852075968042910267, 4852075968042910273, 4852075968042910333, 4852075968042910351, 4852075968042910357,
4852075968042910363, 4852075968042910381, 4852075968042910441, 4852075968042910447,

4852075968042910147,
4852075968042910151,
4852075968042910163,
4852075968042910213,
4852075968042910267,
4852075968042910273,
4852075968042910333,
4852075968042910351,
4852075968042910357,
4852075968042910363,
4852075968042910381,
4852075968042910441,
4852075968042910447,

4852075968042910147, 4852075968042910153, 4852075968042910171, 4852075968042910183, 4852075968042910207,
4852075968042910267, 4852075968042910273, 4852075968042910333, 4852075968042910351, 4852075968042910357,
4852075968042910363, 4852075968042910381, 4852075968042910441, 4852075968042910447, 4852075968042910507,
4852075968042910531, 4852075968042910543, 4852075968042910561, 4852075968042910567,

9-ка не продолжается.
Главное - она найдена!
Да, 4302 паттерна - это уже похоже на штурм.
Это у меня первый такой опыт - с самым большим количеством паттернов.

Конечно, миллионы паттернов мне не осилить.
Demis нарисовал мрачную картину такого штурма

Даже если составить программу таким образом, чтобы сгенерированное сразу считалось никуда не записывая (и не надо гигабайты хранить, о чем никто изначально не подумал), то все равно остается время на генерацию и потом расчет.

Меня мрачные картины с миллионами лет не пугают.
Надо просто спокойно и методично двигаться вперёд, насколько это будет возможно с моими ресурсами.
Гигабайты генерировать и хранить, разумеется, не буду.
С мегабайтами пока справляюсь.
Интересно прокладывать неведомый доселе путь.
Да, скорее всего 19-ку я не найду.
Но... скажите так:
"Она не увидела эту звезду, но видела её свет."
Свет звезды указывает мне путь к ней, я этот путь прокладываю.
В этом смысл моих скромных трудов.

Хорошо идёт и тестирование программы для диаметра 384 (все 190 теоретических паттернов).
Выше была показана первая центральная 9-ка, найденная этой программой.
Вот ещё две найдены

4852097327019722623, 4852097327019722641, 4852097327019722653, 4852097327019722683, 4852097327019722701,
4852097327019722719, 4852097327019722749, 4852097327019722761, 4852097327019722779,

4852097327019722509,
4852097327019722597,
4852097327019722623,
4852097327019722641,
4852097327019722653,
4852097327019722683,
4852097327019722701,
4852097327019722719,
4852097327019722749,
4852097327019722761,
4852097327019722779,
4852097327019722783,
4852097327019722833,
4852097327019722839,
4852097327019722891,

4852097327019722509, 4852097327019722539, 4852097327019722551, 4852097327019722569, 4852097327019722581,
4852097327019722623, 4852097327019722641, 4852097327019722653, 4852097327019722683, 4852097327019722701,
4852097327019722719, 4852097327019722749, 4852097327019722761, 4852097327019722779, 4852097327019722821,
4852097327019722833, 4852097327019722851, 4852097327019722863, 4852097327019722893,

4852099356129303307, 4852099356129303349, 4852099356129303361, 4852099356129303367, 4852099356129303409,
4852099356129303451, 4852099356129303457, 4852099356129303469, 4852099356129303511,

4852099356129303217,
4852099356129303241,
4852099356129303251,
4852099356129303263,
4852099356129303307,
4852099356129303349,
4852099356129303361,
4852099356129303367,
4852099356129303409,
4852099356129303451,
4852099356129303457,
4852099356129303469,
4852099356129303511,
4852099356129303563,

4852099356129303217, 4852099356129303247, 4852099356129303259, 4852099356129303277, 4852099356129303301,
4852099356129303307, 4852099356129303349, 4852099356129303361, 4852099356129303367, 4852099356129303409,
4852099356129303451, 4852099356129303457, 4852099356129303469, 4852099356129303511, 4852099356129303517,
4852099356129303541, 4852099356129303559, 4852099356129303571, 4852099356129303601,

9-ки не продолжаются.

Тестирование продолжается.
Это у меня первая программа с использованием процедуры (функции).
Замечательно работает!

Вторая такая программа (для диаметра 420, все 4302 теоретических паттерна) тоже уже тестируется.
Идёт подготовка такой программы для диаметра 432.

Ещё раз цитирую Demis

Даже если составить программу таким образом, чтобы сгенерированное сразу считалось никуда не записывая (и не надо гигабайты хранить, о чем никто изначально не подумал), то все равно остается время на генерацию и потом расчет.

Ну, почему же никто не подумал?! :))
Плохо вы знаете историю проблемы, Demis.
Об этом подумал, например, господин Петухов ещё в 2015 году.
У него всё формировалось и считалось "на лету"!!!
До 300 миллионов формул одновременно формировалось и считалось.
И всё работало "для любого диаметра".
В-о-о-о-т!
Правда, 19-ка так и не найдена.
Пороху не хватило или запал промок :)

Программа для всех 3549 теоретических паттернов с диаметром 432 сформирована и запущена на тестирование на Ахиллесе

(17:26) gp > default(timer,1)
(17:26) gp > \r procedura.txt
(17:28) gp > \r d432_9ki_all.txt
   log = 1 (on)
   [logfile is "rez_d432_9ki_all.txt"]
  ***   Warning: new stack size = 536870912 (512.000 Mbytes).
range of search
500247000001 (p=4852240823439699690 )
500247030000 (p=4852241114420700000 )

На старте ошибок не выдано.
Интервал задала 30000.
Включила таймер.

На очереди у меня диаметр 444, для этого диаметра 3401 теоретический паттерн, не сильно много, осилим :)
Сейчас запущу программу генерации паттернов и соответствующих формул на Ахиллесе.

Готово!
Программа поехала.
Ахиллес трудится.

Завершился ещё один проход программы поиска вписанных 19-ок для паттернов с 128 формулами.
Показываю результаты.

9 «дырок»

{4851332768006766037, 4851332768006766049, 4851332768006766061, 4851332768006766121, 4851332768006766127,
4851332768006766169, 4851332768006766187, 4851332768006766199, 4851332768006766211, 4851332768006766229,
4851332768006766247, 4851332768006766259, 4851332768006766271, 4851332768006766289, 4851332768006766331,
4851332768006766337, 4851332768006766397, 4851332768006766409, 4851332768006766421}

4851332768006766037, 
4851332768006766049, 
4851332768006766053, 
4851332768006766071, 
4851332768006766133, 
4851332768006766137, 
4851332768006766149, 
4851332768006766199, 
4851332768006766211, 
4851332768006766229, 
4851332768006766247, 
4851332768006766259, 
4851332768006766263, 
4851332768006766287, 
4851332768006766331, 
4851332768006766359, 
4851332768006766403, 
4851332768006766409, 
4851332768006766421,

Паттерн с диаметром 384.

9 «дырок»

{4851339899008139393, 4851339899008139399, 4851339899008139423, 4851339899008139441, 4851339899008139483,
4851339899008139489, 4851339899008139513, 4851339899008139531, 4851339899008139549, 4851339899008139561,
4851339899008139573, 4851339899008139591, 4851339899008139609, 4851339899008139633, 4851339899008139639,
4851339899008139681, 4851339899008139699, 4851339899008139723, 4851339899008139729}

4851339899008139393, 
4851339899008139399, 
4851339899008139441, 
4851339899008139473, 
4851339899008139479, 
4851339899008139497, 
4851339899008139519, 
4851339899008139531, 
4851339899008139549, 
4851339899008139561, 
4851339899008139573, 
4851339899008139591, 
4851339899008139597, 
4851339899008139599, 
4851339899008139639, 
4851339899008139701, 
4851339899008139707, 
4851339899008139723, 
4851339899008139729,

Паттерн с диаметром 336.

10 «дырок»

{4851375148860783589, 4851375148860783607, 4851375148860783619, 4851375148860783643, 4851375148860783649,
4851375148860783667, 4851375148860783727, 4851375148860783769, 4851375148860783787, 4851375148860783793,
4851375148860783799, 4851375148860783817, 4851375148860783859, 4851375148860783919, 4851375148860783937,
4851375148860783943, 4851375148860783967, 4851375148860783979, 4851375148860783997}

4851375148860783589, 
4851375148860783607, 
4851375148860783623, 
4851375148860783629, 
4851375148860783691, 
4851375148860783733, 
4851375148860783761, 
4851375148860783769, 
4851375148860783787, 
4851375148860783793, 
4851375148860783799, 
4851375148860783817, 
4851375148860783821, 
4851375148860783839, 
4851375148860783877, 
4851375148860783929, 
4851375148860783971, 
4851375148860783979, 
4851375148860783997,

Паттерн с диаметром 408.

9 «дырок»

{4851465148535421469, 4851465148535421487, 4851465148535421517, 4851465148535421523, 4851465148535421547,
4851465148535421553, 4851465148535421589, 4851465148535421607, 4851465148535421613, 4851465148535421643,
4851465148535421673, 4851465148535421679, 4851465148535421697, 4851465148535421733, 4851465148535421739,
4851465148535421763, 4851465148535421769, 4851465148535421799, 4851465148535421817}

4851465148535421469, 
4851465148535421487, 
4851465148535421497, 
4851465148535421511, 
4851465148535421553, 
4851465148535421587, 
4851465148535421593, 
4851465148535421607, 
4851465148535421613, 
4851465148535421643, 
4851465148535421673, 
4851465148535421679, 
4851465148535421683, 
4851465148535421697, 
4851465148535421751, 
4851465148535421763, 
4851465148535421797, 
4851465148535421799, 
4851465148535421817,

Паттерн с диаметром 348.

Самый маленький диаметр в этой порции решений 336.

Остановила эту программу.

Завершился второй проход программы обработки части паттернов (не помню, сколько конкретно, примерно третья часть от 4435 паттернов) с диаметром 456.

Показываю логи

  ***   Warning: new stack size = 536870912 (512.000 Mbytes).
range of search
500224100001 (p=4852018700538699690 )
500224200000 (p=4852019670498000000 )
4852019466266118829, 4852019466266118889, 4852019466266118901, 4852019466266118919, 4852019466266118931, 4852019466266118943, 4852019466266118961, 4852019466266118973, 4852019466266119033, 
4852019466266118703, 
4852019466266118719, 
4852019466266118829, 
4852019466266118889, 
4852019466266118901, 
4852019466266118919, 
4852019466266118931, 
4852019466266118943, 
4852019466266118961, 
4852019466266118973, 
4852019466266119033, 
4852019466266119039, 
4852019466266119057, 
4852019466266119093, 
4852019466266119097, 
4852019466266119109, 

4852019466266118703, 4852019466266118709, 4852019466266118733, 4852019466266118739, 4852019466266118823, 4852019466266118829, 4852019466266118889, 4852019466266118901, 4852019466266118919, 4852019466266118931, 4852019466266118943, 4852019466266118961, 4852019466266118973, 4852019466266119033, 4852019466266119039, 4852019466266119123, 4852019466266119129, 4852019466266119153, 4852019466266119159, 
4852019081977699237, 4852019081977699249, 4852019081977699279, 4852019081977699297, 4852019081977699309, 4852019081977699321, 4852019081977699339, 4852019081977699369, 4852019081977699381, 
4852019081977699081, 
4852019081977699147, 
4852019081977699237, 
4852019081977699249, 
4852019081977699279, 
4852019081977699297, 
4852019081977699309, 
4852019081977699321, 
4852019081977699339, 
4852019081977699369, 
4852019081977699381, 
4852019081977699427, 
4852019081977699519, 
4852019081977699523, 
4852019081977699537, 

4852019081977699081, 4852019081977699087, 4852019081977699111, 4852019081977699117, 4852019081977699201, 4852019081977699237, 4852019081977699249, 4852019081977699279, 4852019081977699297, 4852019081977699309, 4852019081977699321, 4852019081977699339, 4852019081977699369, 4852019081977699381, 4852019081977699417, 4852019081977699501, 4852019081977699507, 4852019081977699531, 4852019081977699537, 
4852019056875293557, 4852019056875293587, 4852019056875293629, 4852019056875293647, 4852019056875293659, 4852019056875293671, 4852019056875293689, 4852019056875293731, 4852019056875293761, 
4852019056875293431, 
4852019056875293483, 
4852019056875293521, 
4852019056875293533, 
4852019056875293557, 
4852019056875293587, 
4852019056875293629, 
4852019056875293647, 
4852019056875293659, 
4852019056875293671, 
4852019056875293689, 
4852019056875293731, 
4852019056875293761, 
4852019056875293813, 

4852019056875293431, 4852019056875293449, 4852019056875293461, 4852019056875293467, 4852019056875293491, 4852019056875293557, 4852019056875293587, 4852019056875293629, 4852019056875293647, 4852019056875293659, 4852019056875293671, 4852019056875293689, 4852019056875293731, 4852019056875293761, 4852019056875293827, 4852019056875293851, 4852019056875293857, 4852019056875293869, 4852019056875293887, 
time = 96h, 59min, 33,265 ms.

Центральные 9-ки ещё не проверяла, сейчас проверю.
Интервал здесь был задан 100000.
Интересно время: 96h, 59min, 33,265 ms.

PS. Может быть, я в процессе уже показала какие-то из найденных 9-ок. Не помню.
Пусть будут все вместе, их всего здесь три.
Эту программу я формировала с помощью вставок в Ворде, ещё до написания функции gris.
Впереди формирование этой программы с помощью функции; тогда уже программа будет на обработку всех 4435 теоретических паттернов.

Из трёх центральных 9-ок, показанных выше, только первая продолжается до 11-ки в одну сторону.
Вот полученная 11-ка с одной "дыркой"

{4852019466266118719,
4852019466266118829,
4852019466266118889,
4852019466266118901,
4852019466266118919,
4852019466266118931,
4852019466266118943,
4852019466266118961,
4852019466266118973,
4852019466266119033,
4852019466266119039}