Экспорт пользовательских форматированных выражений из Mathematica
Как я могу заставить Mathematica экспортировать / сохранять / записывать текстовый файл с правильным форматированием Fortan77, то есть 72 столбца и маркер продолжения в шестом столбце?
Я использую Mathematica для генерации больших и сложных аналитических выражений, которые затем мне нужно вставить в уже существующий код Fortran77. У меня все работает правильно в передней части Mathematica сFortranForm[]
а также
SetOptions[$Output, PageWidth -> 72]
Тем не менее, я могуt выяснить, как заставить Mathematica правильно выводить текстовые файлы. Я хочу что-то вроде этого:
MM11 = mH1**2 + (g2**2*v1**2)/2. -
- (g2**2*(v1**2/2. -
- ((v2*Cos(phi2) - (0,1)*v2*Sin(phi2))*
- (v2*Cos(phi2) + (0,1)*v2*Sin(phi2)))/2.))/2.
...
но получите либо это:
MM11 = FortranForm[mH1^2 + (g2^2*v1^2)/2 - ...
или это:
MM11 = mH1**2 + (g2**2*v1**2)/2. - (g2**2*
(v1**2/2. - ((v2*Cos(phi2) - (0,1)*v2*Sin(phi2))*
...