Wolfram mathematica 你的大型演示会在之前进行操作。代码逻辑和任何复杂的显示功能应移到初始化部分。因此，最终的操作只包含基本逻辑和控件-可能带有一个小的初始化选项。例如当然在WRI中，审稿人强迫我把所有代码都放在初始化选项中，非常难看！西蒙，你知道Mathematica代码有什

---

你的大型演示会在之前进行操作。代码逻辑和任何复杂的显示功能应移到初始化部分。因此，最终的

操作

只包含基本逻辑和控件-可能带有一个小的初始化选项。例如当然在WRI中，审稿人强迫我把所有代码都放在初始化选项中，非常难看！西蒙，你知道Mathematica代码有什么漂亮的打印格式吗？我在代码中不使用任何特殊符号，所以它都是纯文本。i、 我可以把我的代码复制到任何文本编辑器，没有问题。如果我能找到一个可以格式化代码的编辑器，那么我就可以使用这个编辑器，并在我想要运行它时将代码复制回笔记本。对我来说，拥有格式良好的代码更重要。我为Mathematica尝试了2个emacs.el，但没有一个能够一次性打印出代码的格式。谢谢我在linux上试过了……相关问题：@Nasser那么，如果你要a）将所有连续的空格字符减少为单个字符b）在行尾不做任何事情，这会满足你的要求吗？因为这可以由正则表达式完成，我想我可以提供（如果没有其他人提供：这几乎不是我的专业领域，但这看起来很简单），我对你的具体问题没有答案，但是我要指出，代码样式和输入样式之间的主要区别在于代码具有以下设置：PageWidth->Infinity，AutoIndent->False，InitializationCell->True。如果我想在输入样式单元格中编辑代码样式，我经常在该单元格上设置PageWidth->Infinity，AutoIndent->False。@ACL，谢谢，我刚刚看到了你的评论。（这里很难看到更新的新项目，因为没有线程告诉新项目在哪里）。我不知道怎么做你的建议。但我想要的是，获取一些手工格式化的代码，并将其自动缩进，就好像它最初是以默认的“输入”单元格样式编写的一样，并使用所有正确的换行方式等等。。。。我发布了一个editsome函数作为示例。谢谢。纳赛尔：为了回应您的“下午6点”编辑：当您调用

Import[“aclFix.m”]

时，Mma将尝试猜测您的意思。如果您想显式地作为导入，您必须告诉它。尝试

Import[“aclFix.m”，“String”]

或

Import[“aclFix.m”，“Text”]

。当我进行上述导入时，除非我做得不对，否则我得到的只是屏幕上的操作！.m文件正确地位于磁盘上。看起来导入足够智能，可以在导入过程中“处理”该.m文件，并对其进行处理。请查看编辑，可能是我使用了错误的命令吗？@Nasser，你能把这个文件发布到某个地方让我来做吗？

If[Abs@omega <= $MachineEpsilon,
    (
      data = {{0, 0}};
      p    = ListPlot[data, Sequence@plotOptions]
     ),
    (
      driverPeriod            = 2. Pi/Abs@omega;
      valuesOfDriverAmplitude = 
    Range[aStart, aStart + aLen, aLen/aIntervals];
      timeValues              = 
    Range[initialDriverPeriod*driverPeriod, 
     finalDriverPeriod*driverPeriod, driverPeriod ];

      data  = 
    Table[0, {Length[valuesOfDriverAmplitude]}, {Length[timeValues ]}];
      total = Length[timeValues]*Length[valuesOfDriverAmplitude];
      bifurcationProgress = 0.;
      count = 0.;

      Do[
         (
           {x1, x2, x3} = 
      solve[q, valuesOfDriverAmplitude [[i]], omega, phase, 
       initialDriverPeriod*driverPeriod,
                                (finalDriverPeriod)*driverPeriod, x10,
        x20, isDamped, 4, 4];
           currentTorqueAmplitude = valuesOfDriverAmplitude[[i]];
           Do[
              (

       data[[i, j]] = {currentTorqueAmplitude, x2[timeValues[[j]]  ]};
                count      += 1;
                bifurcationProgress = count/total;
               ),
                {j, 1, Length[timeValues]}
              ]
          ),
         {i, 1, Length[valuesOfDriverAmplitude]}
         ];

     p = ListPlot[Flatten[data, 1], Sequence@plotOptions]
     )
  ];

str=Import["aclFix.m")

str=Get["aclFix.m"];

    StringReplace::strse: String or list of strings expected at position 1 in 
StringReplace[Manipulate[<<1>>,
{{aStart,0.9,},0,2,0.01,ImageSize->Tiny,ImagePadding->0,ControlPlacement->1},
{{aLen,0.2,},0.01,2,0.01,ImageSize->Tiny,ImagePadding->0,ControlPlacement->2},
<<45>>,SynchronousUpdating->False,ContinuousAction->False,<<6>>],
{(x_/;x==FromCharacterCode[32])..->,(x_/;x==<<17>>[9])..->}]. >>

str = Import["aclFix.m", "Text"];

code=StringReplace[str, {(x_ /; x == FromCharacterCode[32]) .. -> 
   "", (x_ /; x == FromCharacterCode[9]) .. -> ""}]

Export["fix.m", code]

(* Created by Wolfram Mathematica 8.0 for Students - Personal Use Only : www.wolfram.com *)

"If[Abs@omega<=$MachineEpsilon,\n(\ndata={{0,0}};\np=ListPlot[data,Sequence@p\

lotOptions]\n),\n(\ndriverPeriod=2.Pi/Abs@omega;\nvaluesOfDriverAmplitude=\nR\

ange[aStart,aStart+aLen,aLen/aIntervals];\ntimeValues=\nRange[initialDriverPe\

riod*driverPeriod,\nfinalDriverPeriod*driverPeriod,driverPeriod];\n\ndata=\nT\

able[0,{Length[valuesOfDriverAmplitude]},{Length[timeValues]}];\ntotal=Length\

[timeValues]*Length[valuesOfDriverAmplitude];\nbifurcationProgress=0.;\ncount\

=0.;\n\nDo[\n(\n{x1,x2,x3}=\nsolve[q,valuesOfDriverAmplitude[[i]],omega,phase\

,\ninitialDriverPeriod*driverPeriod,\n(finalDriverPeriod)*driverPeriod,x10,\n\

x20,isDamped,4,4];\ncurrentTorqueAmplitude=valuesOfDriverAmplitude[[i]];\nDo[\

\n(\n\ndata[[i,j]]={currentTorqueAmplitude,x2[timeValues[[j]]]};\ncount+=1;\n\

bifurcationProgress=count/total;\n),\n{j,1,Length[timeValues]}\n]\n),\n{i,1,L\

ength[valuesOfDriverAmplitude]}\n];\n\np=ListPlot[Flatten[data,1],Sequence@pl\

otOptions]\n)\n];"

nb = EvaluationNotebook[];
NotebookFind[nb, "Code", All, CellStyle]
FrontEndExecute[{FrontEndToken[nb, "Style", "Input"]}]
FrontEndExecute[{FrontEndToken[nb, "SelectionConvert", "StandardForm"]}]

StringReplace[str,
 {
  (x_ /; x == FromCharacterCode[32]) .. -> "",
  (x_ /; x == FromCharacterCode[9]) .. -> ""
  }
 ]

str =
 "f[
    g[
        u   ]]"

f[
g[
u]]