3 boyutlu grafiğin daha uzun sürmesini sağlamanın kolay ve hızlı bir yolu.

Question

Bazı iyi paketlerin bile mevcut olduğunu biliyorum, ancak bu yöntemlerin benim için çoğunlukla çok karmaşık olduğunu düşünüyorum.

Peki, 3D arsa (aslında, RegionPlot3D tarafından oluşturulan bir arsa) daha uzun yapmak için basit bir hızlı yolu nedir?

Kod verimliliği umurumda değil.

Teşekkürler! :)

Answer 1

Kene uzunlukları Keneler seçeneğinden kontrol edebilirsiniz. Örneğin. İşte tek yönde 0.06 ayarlanır:

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

Sen Ticks için bir işlev kullanabilirsiniz. Bu özel fonksiyon Ticksdocumentation geliyor (Genellemelerinin ve Uzantıları tıklayın.)

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] 

Birincil ve ikincil kene (örneğin tamsayı değerler ve onda. Bu ayırt etmek bunun bir varyasyonunu kullanabilirsiniz fonksiyonu (uygulamalar altında) düz documentation üzerinden de.

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

Maalesef Dayanamadım:

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}]}] 

Bir kene, kene olan bir kene olduğunu ... Alexey için

Teşekkür AxesInFront öneri için.