Tag Info

New answers tagged

4

To create a closed notebook called demo.nb containing an expression :- content = ToString[FullForm[ToBoxes[Defer[ Plot[Sin[x], {x, 0, 2 Pi}] ]]]]; Export[FileNameJoin[{$TemporaryDirectory, "demo.nb"}], StringJoin["Notebook[{Cell[BoxData[", content, " ],\"Input\"] },WindowSize->{615,750}, ...


4

Although @halirutan has already provided an answer using CreateWindow, for completeness you can also use CreateDocument (see the Examples/Options section of the documentation). You have to provide an initial expression for the notebook: nb = CreateDocument[{}, Visible -> False] creates an invisible empty notebook. Then use the same formulation to ...


7

I'm not sure whether this fits your needs, but what about: nb = CreateWindow[Visible -> False] which creates an invisible window here on Linux. You can even work with the notebook through the kernel, e.g. NotebookWrite[nb, "Plot[x,{x,0,1}]"] And when you need the window you do SetOptions[nb, Visible -> True]


9

There are several ways to do that. Perhaps, the simplest is to do something like this: ClearAll[color]; SetAttributes[color, HoldAll]; color[_Export | _Import] := LightGreen; color[_Set] := LightBlue; color[_] := None; and then $Pre = Function[ code , SetOptions[ EvaluationCell[], Background -> color[code]]; code , ...


1

some time ago I had a similar problem and the old code still seems to work: rolf@merkur /cygdrive/c/nbfiles $ "/cygdrive/c/Program Files/Wolfram Research/Mathematica/10.0/math" < nb2pdftest.m > nb2pdftest.out where nb2pdftest.m is (* Author: Rolf Mertig *) (* Organization: GluonVision GmbH *) (* Copyright: GluonVision GmbH *) (* Date: 2006-06-06 ...


7

My reading of this page is that you are free to create and share your CDFs for as long as you are willing to license them under the Creative Commons Attribution-ShareAlike License (FreeCDF). This means that you'd allow anyone to do anything with your CDFs for as long as derivative works give you credit and do not change the license. This also means that if ...


4

Contacts: Bradley Harden (good guy) North American Commercial Sales Manager Wolfram Research bradley_hardenATwolfram.com (800) 965-3726 (ext 3482) Kelvin Mischo Academic Sales Manager Wolfram Research kevin_MischoATwolfram.com (800) 965-3726 They can give you complete information on licenses and options.


3

This is exactly the automatic behavior when using .m ("package") files, rather than .nb (notebook) files, in the Mathematica front end. You can enter and evaluate input cells (which are Code-style cells in .m files rather than Input-style cells) as usual, and the output cells display in the .m file, as for a notebook file. The output cells never save with ...


1

sol = Solve[{x == -(1/3) + 4/3 Cos[1/3 Pi (-t1 - 2 t2)] Cos[1/3 Pi (-t1 + t2)] Cos[ 1/3 Pi (2 t1 + t2)], y == 4/3 Sin[1/3 Pi (-t1 - 2 t2)] Sin[1/3 Pi (-t1 + t2)] Sin[ 1/3 Pi (2 t1 + t2)]} // TrigToExp, {t1, t2}]; // AbsoluteTiming or {a == Cos[1/3 Pi (-t1 - 2 t2)] Cos[1/3 Pi (-t1 + t2)] Cos[1/3 Pi (2 t1 + t2)], b == Sin[1/3 Pi (-t1 ...


3

For OS X Mathematica v10, one can edit /Applications/Mathematica.app/FontMap.tr to enable writing Greek letters in any font supporting them. In my case, I wanted ยต (\[Micro]) to display with my preferred font (CMU Bright Roman) rather than the Mathematica font. The solution was to open FontMap.tr, copy the string within CompressedData[str], paste it into ...



Top 50 recent answers are included