Services & Resources / Wolfram Forums
-----
 /
MathGroup Archive
1996
*January
*February
*March
*April
*May
*June
*July
*August
*September
*October
*November
*December
*Archive Index
*Ask about this page
*Print this page
*Give us feedback
*Sign up for the Wolfram Insider

MathGroup Archive 1996

[Date Index] [Thread Index] [Author Index]

Search the Archive

Thanks for Rearrangement & Format

  • To: mathgroup at smc.vnet.net
  • Subject: [mg5438] Thanks for Rearrangement & Format
  • From: Susan Rempe <rempe at euclid.chem.washington.edu>
  • Date: Sat, 7 Dec 1996 00:26:13 -0500
  • Sender: owner-wri-mathgroup at wolfram.com

Thanks to all who responded to my 2 questions.
The answers I liked best are the following:

1).  To replace a term in a function without
     letting rearrangement occur, clear the
     attributes of the operator(s) and make
     orderless.  Explicitly order terms with Sort.

      In[195]:= t=a+b+c+d;  
      In[196]:= ClearAttributes[Plus,Orderless]
      In[197]:= t[[3]]=x 
      In[198]:= t 
      Out[198]= a + b + x + d 
      In[199]:= Sort[%] 
      Out[199]= a + b + d + x

2).  To write a string and an expression to file,

      In[210]:= gm=Cos[theta];  
      In[211]:= OpenWrite["foo.m",FormatType->FortranForm];  
      In[212]:= WriteString["foo.m", "gm(",12,",",12,")="];   
      In[213]:= Write["foo.m",gm];  
      In[214]:= !!foo.m 
                gm(12,12)=Cos(theta)

Thanks again to everyone for helping me out.

Susan Rempe


  • Prev by Date: UTM-Lat/Long conversion
  • Next by Date: Q:Nicer than: Function[x,MapAt[Im,x,2]]/@data
  • Previous by thread: UTM-Lat/Long conversion
  • Next by thread: Re: Thanks for Rearrangement & Format