| Original Message (ID '157672') By Bill Simpson: |
| 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. |
|
