Как писать быстрые программы

[Yadryara]

wrest в сообщении #1712442 писал(а):

Я понял так: у вас запущено четыре окна с сессиями WSL с Ubuntu, во всех окнах работает pari/gp,

Да.

wrest в сообщении #1712442 писал(а):

в трёх окнах в pari/gp работает какой-то for(),

Нет просто множитель при потоке указан. Это в самом верху .gp-файла:

/*
GP;default(parisizemax, 2^27);
GP;init_Rab_113_118_1();
*/

{t0=getwalltime();print;

potok = 0;

А в двух других окнах potok = 7; и potok = 8; соответственно.

wrest в сообщении #1712442 писал(а):

а в четвёртом работает parfor(i=1,6,...

Здесь вот так:

/*
GP;default(threadsize,128M);
GP;default(debugmem,0);
GP;init_Rab_113_118_2();
*/

funall ( potok:small ) = {

t0=getwalltime();print;

И уже в самом низу:

return(k48);
}

{parfor(potok = 1, 6, funall(potok));

print;print(strtime(getwalltime()-t0));print;
}quit 

Или необязательно, чтоб функция хоть что-то возвращала?

[Yadryara]

Ну вот так-то. Юниты в отдельных окнах посчитались быстрее. Не сильно, но быстрее. 455 минут против 465. Буду ещё отдельно запускать 12 потоков в одном окне.

[wrest]

Yadryara
Советую убедиться, что время считается верно, т.е. проследить как меняется переменная t0.
В функции em3 с 29-й страницы переменная t0 объявлена как локальная
my(t0=getwalltime());
Соответственно глобальная переменная с именем t0 если и есть, то не изменяется внутри функции em3.

[Yadryara]

wrest в сообщении #1712462 писал(а):

Советую убедиться, что время считается верно, т.е. проследить как меняется переменная t0.

Я смотрел по времени записи в лог. Старт многопоточной программы был в 21:37 и к новому юниту она перешла в 5:22. Старт очередного юнита в потоке 8 был в 21:46 и к новому юниту он перешёл в 5:21. То есть опережение на 10 минут.

wrest в сообщении #1712462 писал(а):

Соответственно глобальная переменная с именем t0 если и есть, то не изменяется внутри функции em3.

Да, в курсе. Но я здесь не использовал функцию em3, а объявил грубо говоря, всю программу funall.

[wrest]

Yadryara в сообщении #1712465 писал(а):

Но я здесь не использовал функцию em3, а объявил грубо говоря, всю программу funall.

Я поэтому и посоветовал убедиться, т.к. в параллельном цикле вы вызываете funall
parfor(potok = 1, 6, funall(potok));
А в funall переменная t0 не объявлена через my() как локальная.
funall ( potok:small ) = {

t0=getwalltime();print;
Поскольку вы смотрите на абсолютное время, то всё Ок.