Ошибка Mathematica «не целое»

Question

Я запускаю некоторые моделирования с помощью Mathematica с NDSolve, и мне нужно ввести эффект температуры. Я определяю таблицу случайных чисел, а затем сделать функцию из нее, таким образом:

randomtablex = 
     Table[RandomVariate[NormalDistribution[]], {i, 1, 
     IntegerPart[3 tspacer/deltats] + 1}]; 
    randomtabley = 
     Table[RandomVariate[NormalDistribution[]], {i, 1, 
     IntegerPart[3 tspacer/deltats] + 1}]; 
    randomtablez = 
     Table[RandomVariate[NormalDistribution[]], {i, 1, 
     IntegerPart[3 tspacer/deltats] + 1}]; 
    Bterp[t_] := 
     {randomtablex[[IntegerPart[t/deltats] + 1]], 
     randomtabley[[IntegerPart[t/deltats] + 1]], 
     randomtablez[[IntegerPart[t/deltats] + 1]]}; 

Где 3tspacer время интеграции и deltats время, когда изменения теплового поля. Моделирование работает нормально, и результаты верны, но каждый раз я получаю это сообщение об ошибке:

Часть :: pspec: «Спецификация детали 1 + IntegerPart [1000000000000 t] не является ни целым числом, ни целым числом».

Как я уже сказал, это не проблема, но мне кажется, что она продолжает появляться ... Есть ли способ узнать, откуда она взялась, или мне просто отключить ее?

Спасибо заранее

Answer 1

это будет происходить, если доступ к Bterp[] с символическим аргументом t

Попробуйте это:

ClearAll[Bterp] 
Bterp[t_?NumericQ] := .... 

http://support.wolfram.com/kb/3820

в сторону, IntegerPart[x]+1 такое же, как Ceiling[x] (при условии, что x> 0 ...)