Tag Info

New answers tagged

0

Cases[Plot[Sin[x], {x, 0, 10}], _[PlotRange, x_] :> x, -1][[1]] (*{{0, 10}, {-0.999999, 1.}})*


8

Also PlotRange[plot] PlotRange /. AbsoluteOptions[plot] Last @@ AbsoluteOptions[plot, PlotRange] PlotRange /. plot[[2]] all give (* {{0.,10.},{-0.999999,1.}} *) Note: Regarding usage of PlotRange as a function, it is undocumented, and the earliest reference I could find on this site is this answer dated Oct 11, 2012: The same range on each plot in a ...


2

Anyway, while I wait for my flight, here's some code that'll give you everything there is to know about a plot. GetGeometry[g_Graphics] := Module[{ q, dim, plotrange=PlotRange/.AbsoluteOptions[g,PlotRange], }, q=Rasterize[Show[g, ...


3

FilterRules[AbsoluteOptions[plot], PlotRange] does the trick (*{PlotRange -> {{0., 10.}, {-0.999999, 1.}}} *) Not sure if this is an exhaustive answer.


2

You can use val -> lbl syntax for SetterBar: SetterBar[Dynamic[vAwG], Thread[# -> MatrixForm /@ #] & @ vAwGOptns, FrameMargins -> 15]


1

Your posted code cleaned up: equ1 = {Derivative[4][v1][t] == (12 L^3 (q - ((2 - 2 a)^2 b h1^3 (a (L - 2 t) + 2 t) Young Derivative[2][v1][t])/(2 L^3) - ((2 - 2 a) b h1^3 (a (L - 2 t) + 2 t)^2 Young Derivative[3][v1][t])/(2 L^3)))/(b h1^3 (a (L - 2 t) + 2 t)^3 Young), Derivative[4][v2][t] == (12 q)/(b h1^3 Young), v1[0] == 0, ...


3

"That's just how it is." The documentation page Wolfram System Sessions explains this: Any formatting wrapper will be stripped before the expression is assigned to Out. This includes MatrixForm which is such a wrapper. As Mr. Wizard notes in a comment and as it is written in other answers, the list of formatting wrappers treated in this way is given by ...


1

The official list of defined Symbols is here: http://reference.wolfram.com/language/guide/AlphabeticalListing.html You can find the usage message for all System` Symbols that have one with: msg = MakeExpression@# /. _[x_] :> MessageName[x, "usage"] &; Cases[msg /@ Names["System`*"], _String] Warning: it is slow.


1

If you want a list of all built-in commands, just type: Names["System`*"] If you want all the information of them: Information/@Names["System`*"]


0

Flatten @ Names[#] & /@ (StringJoin[#, "*"] & /@ CharacterRange["A", "Z"])


4

listed = {{3, 2, 1, 5, 3, 2, 1}, {2, 3, 1, 4, 2, 1, 1}, {5, 1, 7, 5, 2, 1, 1}}; Graphics3D[Cylinder[{#[[1 ;; 3]], #[[4 ;; 6]]}, #[[7]]] & /@ listed]


5

Graphics3D[Cylinder[{{#1, #2, #3}, {#4, #5, #6}}, #7] & @@@ listed] Or Graphics3D[Cylinder[ArrayReshape[{##}, {2, 3}], #7] & @@@ listed] Or MapThread[Cylinder[ArrayReshape[{##}, {2, 3}], #7] &, Transpose@listed] // Graphics3D Or Graphics3D[Cylinder[ArrayReshape[#, {2, 3}], #[[-1]]] & /@ listed]


0

Just rewriting rasher's terse comment above. You should use the == (Equal) operator and not = (Set) ,because the last one is used only for assigning values to symbols. Like this: RecurrenceTable[ {s[n + 1] == s[n] - (3*s[n]*i[n])/(E^(0.05*n)*100), i[n + 1] == (3*s[n]*i[n])/(E^(0.05*n)*100), s[0] == 99, i[0] == 1}, {s, i}, {n, 1, 30}] (* ...



Top 50 recent answers are included