| Author |
Comment/Response |
Bill Simpson
|
 12/05/12 8:40pm
I am not certain I understand what you are trying to do.
Will this do what you need?
In[1]:= A[a]+B[b]F[f]K[a]-F[b]F[f]/K[k]/.{A[Except[a]]->1, B[Except[b]]->1, F[Except[f]]->1, K[Except[k]]->1}
Out[1]= A[a] + B[b]*F[f] - F[f]/K[k]
C, D, E, I, N, O and some other upper case single character names are defined for use by Mathematica. If you use those you will probably find problems or errors.
URL: , |
|
