Traditional Ordering of Equations
- To: mathgroup at smc.vnet.net
- Subject: [mg88766] Traditional Ordering of Equations
- From: Joost Keuskamp <joost at averechts.nl>
- Date: Fri, 16 May 2008 05:30:33 -0400 (EDT)
As a beginner in Mathematica I am using Mathematica 6.0 for integration and simplification of a number of functions which I subsequently use in a Fortran program. Now I have two questions which I cannot find the answer to in the documentation or forums:
- Is there a way to prevent Mathematica from reordering a function to its standard order upon evaluation?
- I want to list all resulting functions in one cell, as can be done using the Print and Fortranform commands. I want the list to look like this:
FunctionName1 = Function1
FunctionName2 = Function2
FunctionName3 = Function3
etc.
All these functions were defined earlier in the notebook using the following syntax:
FunctionName1 = Function1
I tried writing a new Mathematica function to do this:
FortranFormulas[ff_] :=
Print[HoldForm[ff] "=" FortranForm[ff]]
FunctionNameList = {NO3inYt, NO3outYt}
Scan[FortranFormulas, FunctionNameList]
However, this generates an output like:
= Function1inFortranForm Function1
= Function2inFortranForm Function2
The alternative:
FortranFormulas[ff_] :=
Print[ff] "=" FortranForm[Release[ff]]]
FunctionNameList = {HoldForm[NO3inYt], HoldForm[NO3outYt]}
Scan[FortranFormulas, FunctionNameList]
generates an output like:
= FunctionName1 FunctionName1
= FunctionName2 FunctionName2
Both are incorrect and in the wrong order.
I don't know what to do now and was hoping that anyone had a suggestion.. ..many thanks in advance!