¿Quieres una manera simple y rápida de hacer tics de una trama en 3D más tiempo?

Question

Sé que hay muchas formas, incluso algunos buenos paquetes disponibles, pero me parece que estos métodos son en su mayoría demasiado complejos para mí.

Entonces, ¿qué es una forma simple y rápida de hacer tics de una trama 3D (en realidad, una trama generada por RegionPlot3D)?

No me importa el código effiency.

Gracias! :)

Answer 1

Puede controlar las longitudes de las marcas en la opción Garrapatas. P.ej. Aquí se ponen a 0,06 en una dirección:

ticks = {#, #, {0, 0.06}} & /@ (Range[11] - 6); 

RegionPlot3D[x y z < 1, {x, -5, 5}, {y, -5, 5}, {z, -5, 5}, 
PlotStyle -> Directive[Yellow, Opacity[0.5]], Mesh -> None, 
Ticks -> Table[ticks, {3}], AxesEdge -> {{-1, -1}, None, None}] 

Answer 2

Usted puede utilizar una función para Ticks. Esta función en particular proviene de la Ticksdocumentation, (Haga clic en generalizaciones y extensiones.)

ticks[min_, max_] := Table[If[EvenQ[i], {i, i, .06, Red}, {i, i, .02, Blue}], 
    {i, Ceiling[min], Floor[max], 1}] 

Plot3D[Sin[x + y^2], {x, -3, 3}, {y, -2, 2}, Ticks -> ticks] 

se puede utilizar una variación de la misma para distinguir marcas mayores y menores (por ejemplo, valores enteros y décimas. Este función es también directamente de la documentation (En Aplicaciones).

ticks[min_, max_] := 
Join[Table[{i, Style[i, 12], {.04, 0}}, {i, Ceiling[min], 
    Floor[max]}], 
    Table[{j + .5, , {.02, 0}}, {j, Round[min], Round[max - 1], 1}]] 

Answer 3

Lo siento, no pude resistir:

tick = Import["http://www.salamatvet.com/images/tick-1.jpg"]; 
Plot[ Sin[x], {x, 0, 10}, Method -> {"AxesInFront" -> False}, 
     Ticks -> {Table[{i, Labeled[i, Image[tick, ImageSize -> 30]]}, 
         {i, 2, 10, 2}]}] 

Una marca es una marca, es una garrapata ...

Gracias a Alexey para la AxesInFront sugerencia.