MaTECmatica
  • Member for 9 years, 3 months
  • Last seen more than a week ago
Cloud-based random question generator
2 votes

I have modified the code of one of my own posts on Wolfram Community in order to obtain a multiple-choice online quiz that selects a random question and keeps the same question until the right answer ...

View answer
Using CloudDeploy to build a website for diagrams for Physics/Math teachers
3 votes

Here is the link to the CloudDeploy of a FormFunction that generates a diagram, where you can change the mass values, and this is the code I used to generate it: fofu = FormFunction[ {{"mass1", "...

View answer
CloudDeploy not working for a Manipulate expression
Accepted answer
1 votes

Here is a version using FormFunction[] instead of Manipulate[]. It is not perfect (the numbers are not shown in the output) but I guess is a good starting point ff1 = FormFunction[ {{"n", "Value ...

View answer
Creating hexahedral finite elements in Mathematica
5 votes

The free Imtek Mathematica Supplement IMS (available here or here) does include hexahedron elements for FEM. As far as I know it has Not been updated in several years, therefore I do not expect all of ...

View answer
Programming a numerical method in the functional style
3 votes

If you use NestWhileList together with Function in order to implement numerical methods, the first argument of NestWhileList is the numerical method, the second argument is the initial point, and the ...

View answer
Not getting smooth motion when animating a 3D plot (with jumps in rotation)
2 votes

You need to use the Plot3D option AxesEdge->{{-1,-1},{-1,-1},{-1,-1}} with the Plot3D option SphericalRegion->True, next one has no jumpling nor rescaling: Animate[Plot3D[Sin[x*y^2], {x, -2, 2}, {y,...

View answer
How to correctly implement in a new function the scoping behavior of Table, Sum and other commands that use Block to localize iterators?
1 votes

After one week of constant trial and error, I discovered that I only have to use the attribute HoldAllComplete instead of HoldAll: SetAttributes[mySum, HoldAllComplete]; mySum[arg_, {index_Symbol, ...

View answer
How to approximate a given WAV file with trigonometric series?
5 votes

This two-years-old question encouraged me to create a Mathematica activity for my Acoustics students, but it became so interesting, that I created SIX Mathematica activities, that start from manually ...

View answer
Combine InputAlias with InputString to parse expressions from a string
3 votes

Success! Please evaluate the following code in a new notebook: Clear[eval]; eval[cmd_] := Module[{nb}, nb = InputNotebook[]; NotebookWrite[nb, cmd, All]; SelectionMove[nb, Previous, ...

View answer
Functions that creates symbol in a specific context
4 votes

I believe this is what you want: f[symname_String, value_, context_] := (Begin[context]; With[{s = Symbol[symname]}, Set[s, value]]; End[]) Then use it like this: f["myvar", 4, "MyContext`"] ...

View answer
Examples of (well coded) packages using custom notation
4 votes

I suggest those two tutorials for writing Mathematica packages, unfortunately the first one is in Spanish, yet I do believe it will be useful for anyone because the step-by-step images; the second ...

View answer