I'm trying to draw a figure as shown below and make it rotate around the vertical axis (z-axis) automatically.
This is how I generate the figure and make it rotate:
Δϕ = π 14.0/13.0;
p1 =
Show[
Table[
RegionPlot3D[
x^2 + y^2 + (z - j)^2 < 0.5^2 &&
(x - 0.4 Cos[j ...
Create a file temp.txt with the following content:
test1
;;;
test2
;;;
test3
;;;
Treating the semicolon sequence as terminator, try to repeatedly read to the first terminator.
Table[ReadString["temp.txt", "\n;;;"], 6]
Contrary to my intent, this does not create a list holding "test1" 6 time...
@Ozera Nobody that I know of likes working with an image of code rather than the code itself. I think you should post a Question, but include a complete example that others can evaluate.
@psimeson You could autosave the notebook at intervals. Feel free to ask a question or ping me. The trickiest part would be deciding when a new autosave should be made. Word lists multiple revisions not to mention autosaving after every document change isn't ideal.
I desperately wish Mathematica had better table support at least we have undo I guess.
First time I've seen someone swimming not only with a waterproof camera on a selfie stick, but they also had a drone automatically following them taking even more pictures.
No fun advent of code happening during this vacation.
I need to make sure that the compiled binaries work on every system. I am especially interested in Linux, Windows 7, and OS X 10.9-10.10. It also works on Raspberry Pi ;-)
Simple testing would be: install package (i.e. put in $UserBaseDirectory/Applications), load it and run IGVersion[]. Complete testing would be running the test suite.
I already received a response that it works on Ubuntu 14.04 (previously it didn't, but solved that). So all is good :) Now only waiting for a Raspberry Pi response, but that's a very uniform platform, no problem expected.
Hello everybody. Why does HoldComplete[+0] evaluate to itself (HoldComplete[+0]), but HoldComplete[-0] evaluate to HoldComplete[0] (the unary minus is dropped)?
Although Mathematica is intended to allow you to hold expressions and replace them there are a lot of Mathematical simplifications that are baked into the language. HoldComplete[1-0] does something similar. You have probably concluded this. BoxForm is the only way to really get around this. RowBox[{"-", "0"}]
@VladimirReshetnikov
I don't know your intents but if you are trying to reassign core functionality it likely won't work.
I'm trying to draw a figure as shown below and make it rotate around the vertical axis (z-axis) automatically.
This is how I generate the figure and make it rotate:
Δϕ = π 14.0/13.0;
p1 =
Show[
Table[
RegionPlot3D[
x^2 + y^2 + (z - j)^2 < 0.5^2 &&
(x - 0.4 Cos[j ...
Create a file temp.txt with the following content:
test1
;;;
test2
;;;
test3
;;;
Treating the semicolon sequence as terminator, try to repeatedly read to the first terminator.
Table[ReadString["temp.txt", "\n;;;"], 6]
Contrary to my intent, this does not create a list holding "test1" 6 time...
Minimal example:
Let's establish a notebook's stylesheet with additional TestStyle which has a FormatType->"CellExpression":
SetOptions[
EvaluationNotebook[],
StyleDefinitions -> Notebook[{
Cell[StyleData[StyleDefinitions -> "Default.nb"]],
Cell[StyleData["Notebook"], Background -> Li...
