Re: Problems naming files with equation names

*To*: mathgroup at smc.vnet.net*Subject*: [mg80156] Re: Problems naming files with equation names*From*: Albert <awnl at arcor.net>*Date*: Tue, 14 Aug 2007 06:54:00 -0400 (EDT)*References*: <f9p4mt$qj1$1@smc.vnet.net>

Hi chuck, > My work with Mathematica usually is focused on studying functions and I'd like to organize my notebooks under these functions such as: > > f[z]=Sqrt[z]/(1+z^2) > > g[z]=Sqrt[z]/(1+z^5} > > f[z]=Log[1+1/(Exp[z]Sqrt[z]) > > g[z]=(1+2z)/(1+Exp[z]Sqrt[z]) > > P[z]=z^{s-1}/(Exp[z-]-1) > > f[z]=1/(z^2-z^3)^{1/3} > > I got tons more. I'd like a GUI interface to the File/Open/Save menu that displays my directories and file names as Mathematica Cells that I can edit to depict the equations contained in them. I bet a whole dollar there's a way to do that. o.k., I understand. I think that the advise of Jens-Peer will probably be your best bet: Use some simple scheme to generate unique filenames, either by just numbers or probably something that has more meaning in case you look at the filenames without your customized GUI inteface. Then create a look-up-table which gives you a connection form filename to formula, either as just a list or probably even better in the form: {filename -> formula, filename->formula} then you can construct a custom Open/Save Dialog with the new feature which displays the formula, but opens the corresponding filename. I don't think there is a way to "overwrite" the menu item File/Save or File/Open, but you could make a palette which makes your custom menus available almost just as easy. Here is a simple approach for a file-opener dialog which you probably can build on. It defines a directory where you could put all your notebooks and needs a rule as described abouve: filenamerules={ "function1.nb"->Sqrt[z]/(1+z^2), "funciton2.nb"->Sqrt[z]/(1+z^5), "function3.nb"->Log[1+1/(Exp[z]Sqrt[z])] }; functiondirectory=ToFileName[{$UserDocumentsDirectory,"Functions"}] CreateDialog[ DynamicModule[{fn=filenamerules[[1,1]]}, Column[{ PopupMenu[Dynamic[fn],filenamerules], Button["Open",NotebookOpen[ToFileName[{functiondirectory},fn]]] }]] ] Once you have this working you could think about all kind of extensions, like generating the lookup-table automatically from the contents of the files so you wouldn't have to fill that list manually. This could be done by searching for e.g. Title-cells and display the expression which is containd within those as the label for each file... hth, albert