2014-04-24 5 views
0
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)))) 
     d/dn (f (n)) 
     d/dn (f[n]) 
     D[f[n], n] 
     solve (D[f[n], n] = 0) 
     0 
     Solve[D[f[n], n] = 0, n] 
     Solve[0, n] 
     Maximize[f[n], n] 
     Maximize[b log (1 - n - (a (B/A)^(1/s) c n^(1 - a/s))^(-((a s)/(a - s)))) + ((A n^a)^(1/s) 
        + c (B (a (B/A)^(1/s) c n^(1 - a/s))^(-((a s)/(a - s))))^(1/s))^s, n] 

나는이 기능들에 대해 어떠한 것도 반환하지 않습니다. 왜 그런가? 매스 매 티카 스크립트의 사진을 부착왜이 Mathematica 코드가 최대화되지 않습니까?

: 모든

enter image description here

+1

다른 질문에 대한 답변을 읽지 않으셨습니까? 또는'log' 변수를 가지고 있습니까? – agentp

답변

2

첫째, 당신은 정의되지 않은 변수 소문자로 해결 사용하고 있습니다. Solve 함수를 사용하려면 대문자로 작성해야합니다. 마찬가지로, 내장 함수이기 때문에 소문자가 아닌 대문자로 Log을 써야합니다.

두 번째로, 여는 괄호는 대괄호가 아닙니다. Mathematica의 함수는 Solve()이 아닌 Solve[ ... ]과 같은 대괄호를 필요로합니다.

셋째, == 대신 =을 사용하고 있습니다. 단일 값이 =이면 변수를 저장하는 데 사용되며 double 값이 ==이면 평등을 나타냅니다.

이러한 오류를 수정 한 후에 작동하는지 확인하십시오.

관련 문제