Как создать ноутбук с правильно отформатированным выражением
Вопрос
У меня есть выражение математики, сгенерированное другой программой, которую я хотел бы открыть в ноутбуке, правильно отформатированном. Например, другая программа генерирует это:
Plot[{Exp[x],Interpolation[Table[{k/5,Exp[(k-1/2)/5]},{k,0,5}],
InterpolationOrder->0][x]},{x,0,1},Filling->{1->{{2},{Yellow,Orange}}},
PlotLabel->Style["Formatting",Blue,FontFamily->"Courier"]]
Текст записывается в файл, грубо суффикс ".nb" и запускается, и выражение открывается в ноутбуке без форматирования. Для достижения форматирования написание файла вручную с помощью BoxData кажется нецелесообразным.
Файл фактически запускается с .net с использованием process.start ("filename.nb"), но запуск командной строки кажется одинаково проблематичной.
Решение 4
Вот решение, которое я принял. Спасибо за помощь.
Основным шагом решения является форматирование команды через ядро:-
FullForm[ToBoxes[
Defer[Plot[{Exp[x],
Interpolation[Table[{k/5, Exp[(k - 1/2)/5]}, {k, 0, 5}],
InterpolationOrder -> 0][x]}, {x, 0, 1},
Filling -> {1 -> {{2}, {Yellow, Orange}}},
PlotLabel ->
Style["Formatting", Blue, FontFamily -> "Courier"]]]]]
Затем отформатированные данные инкапсулируются для создания ноутбука:-
Notebook[{Cell[BoxData[
... ( inserted box-formatted output ) ...
], "Input"]
},
WindowSize->{615, 750},
WindowMargins->{{328, Automatic}, {Automatic, 76}},
StyleDefinitions->"Default.nb"
]
Это записано в файл, суффикс ".nb". Все хорошо и денди.
Этот подход хорошо работает для блоков кода с несколькими установками, но некоторая дополнительная обработка была включена для форматирования одного вызова функции функции формы [выражение, параметры], чтобы добавить разрыв в линии перед каждой опцией. Вот код C#, используемый для создания оба типа вывода:-
public static class MathematicaHelpers
{
public static string CreateNotebook(string mathCommand, string fileLocation, MathKernel kernel, bool addNewLines)
{
if (addNewLines) {
mathCommand = string.Format("{0}{1}{2}", "Module[{boxoutput,b2},boxoutput=FullForm[ToBoxes[Defer[", mathCommand, "]]];b2=boxoutput[[1,1,3,1]];boxoutput[[1,1,3,1]]=Join[Flatten[Riffle[Partition[b2,2],\"\\[IndentingNewLine]\"],1],{\"\\[IndentingNewLine]\",Last[b2]}];boxoutput]");
} else {
mathCommand = string.Format("{0}{1}{2}", "FullForm[ToBoxes[Defer[", mathCommand, "]]]");
}
fileLocation = Path.ChangeExtension(fileLocation, ".nb");
mathCommand = ComputeMathCommand(mathCommand, kernel);
mathCommand = string.Format("{0}{1}{2}", "Notebook[{Cell[BoxData[", mathCommand,
"], \"Input\"]},WindowSize->{615, 750}, WindowMargins->{{328, Automatic}, {Automatic, 76}},StyleDefinitions->\"Default.nb\"]");
File.WriteAllText(fileLocation, mathCommand);
return fileLocation;
}
private static string ComputeMathCommand(string command, MathKernel kernel)
{
kernel.Compute(command);
return kernel.Result.ToString();
}
}
Другие советы
Как насчет этого:
Export["C:\\Temp\\formatTest1.nb",
ToExpression[Import["C:\\Temp\\formatTest.nb", "Text"], InputForm, MakeBoxes]]
Я проверил его, и, кажется, работает (импорт из простого файла, экспорт в тот, который вы затем откроете). Это создает явные коробки, но с очень небольшим усилием на стороне пользователя. Я не тестировал, но вы сможете запустить этот код в режиме сценария из командной строки.
РЕДАКТИРОВАТЬ
Чтобы проверить из математики, вы можете использовать например,
Export["C:\\Temp\\formatTest.nb",
ToString@HoldForm@FullForm@
Plot[{Exp[x],Interpolation[Table[{k/5, Exp[(k - 1/2)/5]}, {k, 0, 5}],
InterpolationOrder -> 0][x]}, {x, 0, 1},
Filling -> {1 -> {{2}, {Yellow, Orange}}},
PlotLabel -> Style["Formatting", Blue, FontFamily -> "Courier"]],
"Text"]
Перед запуском кода выше.
Вы можете использовать следующую упаковку:
nb = CreateWindow[
DocumentNotebook[{
Plot[{Exp[x],
Interpolation[Table[{k/5, Exp[(k - 1/2)/5]}, {k, 0, 5}],
InterpolationOrder -> 0][x]}, {x, 0, 1},
Filling -> {1 -> {{2}, {Yellow, Orange}}},
PlotLabel ->
Style["Formatting", Blue, FontFamily -> "Courier"]]
}]]
Затем команды ноутбука и ноутбук могут использоваться для сохранения и закрытия вещи;)
Если вы не создаете BoxData
Выражения явно невозможно отформатировать ваше выражение, фактически не вызывая, по крайней мере, на фронта Mathematica.
Самое близкое, о чем я могу придумать, это то, что вы добавляете следующее:
SelectionMove[EvaluationNotebook[], Next, EvaluationCell];
FrontEndExecute[{FrontEndToken[FrontEnd`InputNotebook[],
"SelectionConvert", "StandardForm"]}];
Plot[{Exp[x], Interpolation[Table[{k/5, Exp[(1/5)*(k - 1/2)]}, {k, 0, 5}],
InterpolationOrder -> 0][x]}, {x, 0, 1},
Filling -> {1 -> {{2}, {Yellow, Orange}}},
PlotLabel -> Style["Formatting", Blue, FontFamily -> "Courier"],
Evaluated -> True]
SelectionMove[EvaluationNotebook[], After, GeneratedCell];
который автоматически форматирует Plot
командование, когда ячейка оценивается. (Кстати: вы, вероятно, должны либо добавить Evaluate
перед списком или добавить (не так хорошо задокументировано) Evaluate->True
вариант.