Код:
Global.d a0,a1 Procedure Calc0(Walue) While(0=0) a0=Pow(-Infinity()/Infinity(),-Infinity()/Infinity()) Wend EndProcedure Procedure Calc1(Walue) While(0=0) a1=Random(9223372036854775807) Wend EndProcedure Dim FunctionList(1) FunctionList(0)=@Calc0():FunctionList(1)=@Calc1() Define *Temp Select Random(1,0) Case 0 *Temp=FunctionList(0):FunctionList(0)=FunctionList(1):FunctionList(1)=*Temp EndSelect CreateThread(FunctionList(0),0):CreateThread(FunctionList(1),0) While(0=0):Wend
Я протестировал на своём двухядерном процессоре при работе данной программы на одном ядре процессора.Второе ядро ускорилось.Не знаю как это всё объяснить,но это работает.