Модуль Mathematica Не Возвращает Значение

в середине вашего блока у вас есть:

If[Length[bounce1x] > 0,
  bounce1x = bounce1x[[1]];,
  bounce1x = offset;
  ]

формат If следующим образом: If[Condition, ValueIfTrue, ValueIfFalse]

так If[True, 3, 2] возвращает 3, а If[False, 3, 2] возвращает 2. Ваши точки с запятой здесь не нужны, но вам нужен один в конце оператора if:

If[Length[bounce1x] > 0,
  bounce1x = bounce1x[[1]],
  bounce1x = offset
  ];

в противном случае, Mathematica будет интерпретировать это как умножение этого утверждения раз независимо от того, что следующий появится. В этом случае вы возвращаетесь null от этого If оператор, и он умножается на возвращаемое значение следующего If заявление, которое появляется.

на Module синтаксис: Module[{localvars}, ReturnValue]

что означает, что любое последнее утверждение, которое появляется без точки с запятой, является ReturnValue. Так например следующий модуль:

Module[{y},
   y = x * x;
   If[x < 0, -y, +y]
]

возвратит-y когда x Return показывает вверх. Как и в большинстве языков, вы можете вернуться рано из функция с помощью Return:

Module[{y},
   y = x * x;
   If[x < 0, 
      Return[-y],
      Return[+y]];
 (* We never reach this point to return null *)
 ];

в отношении Module, Я думаю, что это может быть то, что вы пытаетесь достичь:

getAngleAttack[offset_] := 
 Module[{bounce1x, l1a, lightSlope, panelSlope}, 
  light[x_] = light'[x] (x - offset) + panel[interval];
  DumpVar[offset];

  lightSlope = N[light'[offset]];
  u1S = light'[offset];
  u1[x_] = (u1S (x - offset)) + panel[interval];

  bounce1x = 
   x /. N[NSolve[u1[x] == panel[x] && x < interval && x > -interval, 
      x]];

  u1r[x_] = panel'[bounce1x] (x - bounce1x) + panel[bounce1x];

  If[Length[bounce1x] > 0,
   bounce1x = bounce1x[[1]],
   bounce1x = offset];

   If[bounce1x > -interval && bounce1x < interval,

   lightSlope = N[u1'[bounce1x]];

   If[x <= 0,
    panelSlope := N[panelCoeff],
    panelSlope := -N[panelCoeff]];

   DumpVar[lightSlope];
   DumpVar[panelSlope];

   l1a = N[
     ArcTan[(lightSlope - panelSlope)/(1 + (panelSlope lightSlope))]];

   DumpVar[l1a];
   Return[l1a]
  ];
  l1a]

еще одна вещь, которую вы должны следить за любыми переменными, которые вы используете внутри Module. Если вы запустите следующий фрагмент кода, Вы получите 4, -113/5, 32 в качестве выходных значений:

d = 4 (* d was 4 *)
Module[{a, b, c},
   a = 3;
   b = 2;
   c = 5;
   d = 32; (* Uh oh! I just overwrite whatever d was *)
   a^2 + b / c - d]
d (* d is now 32 *)

чтобы избежать этого, определите любые переменные, которые вы используете в качестве локальных переменных в начале Module: Module[{a, b, c, d}, ...]