Tag Info

Hot answers tagged

7

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 ...


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]


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]


3

SeedRandom[42]; m1 = .5; m2 = 0; m3 = 0; m4 = .5; n1 = .5; n2 = 0; n3 = 0; n4 = .5; k1 = .5; k2 = 0; k3 = 0; k4 = .5; F = {({{m1, m2}, {m3, m4}}.# + {0, 0}) &, {{n1, n2}, {n3, n4}}.# + {1/2, Sqrt[3]/2} &, {{k1, k2}, {k3, k4}}.# + {1, 0} &}; ListPlot@NestList[RandomChoice[F][#] &, {1, 1}, 1000]


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 ...


3

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


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, ...


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, ...


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`*"]



Only top voted, non community-wiki answers of a minimum length are eligible