# Tag Info

3

materials = {"Aluminum", "Brass", "Bronze", "Copper", "Electrum", "Gold", "Iron", "Pewter", "Silver", "Clay", "Foil", "Glazed", "Plastic", "Rubber", "Satin", "Velvet"}; objects = ExampleData["...

4

Clear["Global*"] A brute force approach is to just nest two Manipulates. SetOptions[Graphics3D, Boxed -> False, Lighting -> "ThreePoint"]; Manipulate[ If[(material === "Plastic" || material === "Glazed"), Manipulate[ Graphics3D[{ MaterialShading[{material, color}], ExampleData[{"...

5

timesXpressed = 0; SetOptions[EvaluationNotebook[], NotebookEventActions -> {{"KeyDown", "x"} :> (timesXpressed++; FrontEndExecute[NotebookWrite[InputNotebook[], "x"]])}] Dynamic[timesXpressed]

1

FWIW, my take on the big problem. I'm not particularly interested in parsing strings, so I can delete if this is unhelpful. (*" * Calculator "*) CellPrint@ ExpressionCell[ Manipulate[ Column[{ (* displays some data for inspection *) Dynamic@{var, formula}, Dynamic@Quiet[ (* TBD:check input/output of Solve *) ...

1

Here's a quick and dirty version that I think should come close to what you're asking for. The handling of the variables and their localisation is not very sophisticated, but it should work for simple formulas: Clear[a, b, c] eq = c^2 == a^2 + b^2; vars = ReduceFreeVariables[eq] sol = ""; Manipulate[ Evaluate@Column@{HoldForm[Evaluate@eq], eq, ...

1

Clear["Global*"] \$Version (* "12.3.1 for Mac OS X x86 (64-bit) (June 19, 2021)" *) Enter equation to be used (equation must use Equal (==) rather than Set (=)) eqn = (Voltage == Current*Resistance); vars = Variables[Level[eqn, {-1}]]; Manipulate[ Column[{ StringForm["Equation: `", eqn], "", Reduce[eqn, ...

Top 50 recent answers are included