Почему это определение функции Mathematica возвращает ошибку?

Question

Я пытаюсь добавить в Mathematica довольно большую функцию: ( http://i.imgur.com/BqBYxfp.png)

Я хочу получить это, чтобы я мог вычислить глобальные максимумы, но я продолжаю получать ошибку, когда я пытаюсь определить функцию. Кто-нибудь знает, почему это происходит?

Кроме того, U(C) - это U (C), а не U(N), потому что это редукция по Куну Такеру из более раннего уравнения, но функция должна быть функцией n в математике, поскольку это все, что будет разрешено варьировать.

Все остальные переменные являются фиксированными значениями.

In[1]:= f(n) :=
        ((A*n^a)^(1/s) + 
        c*(B*(a*c*(B/A)^(1/s)*n^(1 - (a/s)))^(-(a*s)/(a - s)))^(1/s))^s +
        b*log (1 - n - ((a*c*(B/A)^(1/s)*n^(1 - (a/s)))^(-(a*s)/(a - s))))

        SetDelayed::write: Tag Times in f n is Protected. >>
Out[1]= $Failed

Answer 1

Использование f[n_]:= (n с подчеркиванием _) при объявлении функции, а не f(n):=