Özel biçimlendirilmiş ifadeleri Mathematica 'dan dışa aktarma

Question

Mathematica'yı uygun bir Fortan77 biçimlendirmesi olan bir metin dosyasına dışa aktarma/kaydetme/yazma, yani altıncı sütundaki 72 sütun ve bir devam işaretini nasıl alabilirim?

Önceden var olan Fortran77 koduna eklemem gereken büyük ve karmaşık analitik ifadeler oluşturmak için Mathematica kullanıyorum. Her şeyin Ancak, bir metin dosyasına doğru çıkışa Mathematica'yı nasıl bilemiyorum FortranForm[] ve

SetOptions[$Output, PageWidth -> 72]

ile Mathematica'nın ön ucuna doğru çalışma var. Böyle bir şey istiyorum:

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. 
... 

ama ya bu olsun:

MM11 = FortranForm[mH1^2 + (g2^2*v1^2)/2 - ... 

veya bu:

MM11 = mH1**2 + (g2**2*v1**2)/2. - (g2**2* 
(v1**2/2. - ((v2*Cos(phi2) - (0,1)*v2*Sin(phi2))* 
... 

Answer 1

Bu şaşırtıcı az bilinen Splice fonksiyon için bir iştir. Öncelikle, bu yüzden gibi uzantılı ".mf" ile, bir şablon dosyasını olun:

file = "test.mf"; 

out = OpenWrite[file]; 

WriteString[out, "MH1 = <* form *>"]; 

Close[out]; 

Şimdi Splice kullandığınızda, Mathematica otomatik olarak değerlendirdi formu ile <* ve *> ayraçları arasındaki her şeyi değiştirecektir. Eğer

form = 4 + b9^2 + c1^5 + c4^5 + h10^4 + j2 + k10^4 + p10^4 + q5^5 + 
     q8 + s3^3 + s7^2 + t6^3 + u3^2 + u9^3 + x8^4 + z2^3; 

ayarlamak ve çağrı Yani

Splice["test.mf", PageWidth -> 72]; 

otomatik dosya uzantısından FortranForm çıkışını istediğiniz anlaması edecek olan ve bir seçenek olarak PageWidth ayarlamak için izin veren bir oldukça iyi alacak (yeni uzantı unutmayın) otomatik olarak oluşturulan dosyada "test.f" neden:için docs de

MH1 =   4 + b9**2 + c1**5 + c4**5 + h10**4 + j2 + k10**4 + p10**4 + 
    - q5**5 + q8 + s3**3 + s7**2 + t6**3 + u3**2 + u9**3 + x8**4 + 
    - z2**3 

Bak Daha fazla seçenek için(çıktı dosyasının ve benzerinin değiştirilmesi).