# Tag Info

5

The answer is, indeed, no. – John Fultz

0

Making a matrix calculator with the FreeCDF options will be very challenging, since data input via fields such as InputField apparently are not allowed. The following code works with PlayerPro (the enterprise edition) Clear[r1, r2, r3]; Manipulate[Column[{ InputField[Dynamic[r1], String], InputField[Dynamic[r2], String], InputField[Dynamic[r3], ...

0

webMathematica is one option, but I think CDF would be the easiest way to do this. Check out http://education.wolfram.com/ and http://demonstrations.wolfram.com/ for examples. For instructions see this similar question on stackexchange How can I embed a Manipulate (or other interactive graphics) in my website using CDF?

4

Not quite tested embeddedNotebookForm/: MakeBoxes[embeddedNotebookForm[nb:Notebook[cells_List,___]],StandardForm]:= MakeBoxes@DocumentNotebook[{TextCell@"tag"}]/.{ {{Cell["tag"]}}:>Block[{},List/@ Replace[cells, Cell[CellGroupData[{cs__Cell},_]]:>cs, {1}] /;True], ...

1

I find pasting $\frac{1}{2}$ works but pasting \frac{1}{2} does not. So the dollar signs seems necessary, although I realize that doesn't fix your problem it may be a useful hint to other users.

5

This works : SelectionMove[SelectedNotebook[], All, EvaluationCell]; SelectionMove[SelectedNotebook[], Previous, CellGroup]; FrontEndTokenExecute["SelectionOpenAllGroups"] The problem was that in SelectionMove[SelectedNotebook[], Previous, CellGroup], Previous refers to the current selection which is not well defined when you do the initialization. I ...

5

Using the menu item Preferences / Advanced / Option Inspector you can easily do that, or from within the notebook evaluate: SetOptions[InputNotebook[], Saveable -> False] will do what you want. However, notice that Save As still works (not sure if it has to or if this is an intelligent design decision).

4

It appears that it only works once because it messes up the cell expressions it modifies the first time it is evaluated. I started with a notebook with several kinds of cells but only one text cell, which had the cell expresion Cell["Some text", "Text"] I evaluated nb = EvaluationNotebook[]; Scan[(CurrentValue[#, StyleNames] = "Section") &, ...

0

I think the coding you are seeing is the pdf encoding of the image, not a property of the cell. If you take an image (like a png) and do a "Save Image As" to the pdf format, then when you drag it back in, it can be moved with the mouse. I guessed this by looking at the FullForm of one of the images in the tutorial page, which starts out: ...

6

LaunchKernels launches subkernels used for parallel calculations. These are not meant to and cannot be set to as the evaluator for a notebook. To set the evaluator for a notebook, use Evaluation -> Kernel Configuration Options to set up a new kernel, then use Evaluation -> Notebook's Kernel to assign it to the current notebook.

1

On other browsers/platforms, you may see this: and if you click on (preview) you'll see this: although you can't copy this, because it's a GIF...

4

Usually you can scroll down the cdf and find a "Download Source Code" button: Clicking this button downloads another notebook where the code is explicitly visible.

0

Here's a start: nb = EvaluationNotebook[] (* or NotebookOpen["file.nb"] or whatever *) SetOptions[#, CellChangeTimes -> {}] & /@ Cells[nb] This nixes all the times. Of course one could do the following SetOptions[#, CellChangeTimes -> f[#]] & /@ Cells[nb] where f computes the cell change times you wish to keep, perhaps using ...

9

Use : NotebookWrite[nb, ToBoxes[ptemp]] With NotebookWrite[], you must use boxes ("low-level-box-language"), not Graphics (which belongs to normal Mathematica language, like nearly everything). The "box-language" is what you see when you type ctrl-shift-E on a cell. ToBoxes transforms pTemp to a box. NotebookWrite[] inserts automatically the data (the ...

Top 50 recent answers are included