Чему равны внутренние парамеры процедуры

Форум пользователей пакета Mathematica

Модератор: Admin

Konstantin_78
Сообщения: 3
Зарегистрирован: Вт авг 13, 2013 2:15 am

Чему равны внутренние парамеры процедуры

Сообщение Konstantin_78 » Вт авг 13, 2013 2:22 am

Доброе время суток форумчане (по Wolfram mathematica),
Есть рабочая процедура:


Код: Выделить всё

Interpol2[Lp_, Tzfp_, Hzfp_, Ltp_, Tdp_, tz_, noz_] :=
  Module[{Nmp, tn, tt, i, kt, kta,
    ktb, \[Rho]0, \[Rho]1, \[Rho]2, \[Rho]3, \[Rho]4, \[Alpha]1, \
\[Alpha]0, \[Alpha]\[Alpha], \[Beta]1, \[Beta]0, \[Beta]\[Beta], c0,
    c1, c2, k0, xt, Tw, Hw, k},
   Nmp = 2*Ltp + 1; tn = tz - Ltp*Tdp;
   Tw = {}; Hw = {};
   For[i = 1, i <= Nmp, i++, tt = tn + Tdp*(i - 1);
    kt = 1; While[(Tzfp[[kt]] < tt), kt++]; kta = kt - noz;
    ktb = kt + noz - 1;
    If[kta < 1, kta = 1; ktb = 2*noz];
    If[ktb > Lp, kta = Lp - 2*noz + 1; ktb = Lp];
    \[Rho]4 = Sum[(Tzfp[[k]] - tt)^4, {k, kta, ktb}]; \[Rho]3 =
     Sum[(Tzfp[[k]] - tt)^3, {k, kta, ktb}];
    \[Rho]2 = Sum[(Tzfp[[k]] - tt)^2, {k, kta, ktb}]; \[Rho]1 =
     Sum[Tzfp[[k]] - tt, {k, kta, ktb}]; \[Rho]0 = 2*noz;
    c2 = Sum[Hzfp[[k]]*(Tzfp[[k]] - tt)^2, {k, kta, ktb}];
    c1 = Sum[Hzfp[[k]]*(Tzfp[[k]] - tt), {k, kta, ktb}];
    c0 = Sum[Hzfp[[k]], {k, kta, ktb}];
    \[Alpha]1 = (\[Rho]3^2 - \[Rho]2*\[Rho]4); \[Alpha]0 = (\[Rho]2*\
\[Rho]3 - \[Rho]1*\[Rho]4); \[Alpha]\[Alpha] = c2*\[Rho]3 - c1*\[Rho]4;
    \[Beta]1 = (\[Rho]2^2 - \[Rho]1*\[Rho]3); \[Beta]0 = (\[Rho]1*\
\[Rho]2 - \[Rho]0*\[Rho]3); \[Beta]\[Beta] = c1*\[Rho]2 - c0*\[Rho]3;
    xt = (\[Alpha]\[Alpha]*\[Beta]1 - \[Beta]\[Beta]*\[Alpha]1)/(\
\[Alpha]0*\[Beta]1 - \[Beta]0*\[Alpha]1);
    AppendTo[Tw, tt]; AppendTo[Hw, xt]
    ]; {Tw, Hw}];


она формирует 2 массива (Tw, Hw).
Возник такой вопрос:
как посмотреть, чему будут равнятся внутренние параметры процедуры, например: "kta", "ktb" и т.п.?

Заранее спасибо

P.S.
Я ее перевел на Delphi, и мне нужно ее протестировать, т.е. сравнить значения параметров в mathematica и delphi

PhD
Сообщения: 14
Зарегистрирован: Чт июн 13, 2013 7:09 pm
Откуда: Киев

Сообщение PhD » Вт авг 13, 2013 2:33 pm

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