FindDivisions [] belirtildiği şekilde çalışmaz

Question

FindDivisions[ ], Mma v7'de eklenmiştir ve çizimler için esnek keneler elde etmenin güzel bir yolu gibi görünmektedir. Örneğin, this question ve cevaplarına bakınız.

Kullanım örneği:

f[fd_] := Join[ 
    {#, #, {.07, 0}, Directive[Black, Thickness[.01]]} & /@ fd[[1]], 
    {#, #, {.05, 0}, Directive[Black, Thin]}   & /@ Flatten[fd[[2]]]]; 
plot[pr_List] := 
    Plot[Sin[x], Evaluate@Join[{x}, pr], Ticks -> {f[FindDivisions[pr, {2,5}]]}] 

plot[{0, 10}] 

Ve her şey doğru görünüyor.
Ama bir aksaklık olduğunu: Gördüğünüz gibi, kırmızı ve siyah kene

f[fd_] := Join[ 
    {#, #, {.03, 0}, Directive[Red, Thickness[.01]]} & /@ fd[[1]], 
    {#, #, {.05, 0}, Directive[Black, Thin]}   & /@ Flatten[fd[[2]]]]; 
plot[pr_List] := 
    Plot[Sin[x], Evaluate@Join[{x}, pr], Ticks -> {f[FindDivisions[pr, {2,5}]]}] 
plot[{0, 10}] 

bindirilmiş. Bunun nedeni

FindDivisions[{0, 2}, {2, 4}] 
(* 
-> {{0, 1, 2}, {{0, 1/4, 1/2, 3/4, 1}, {1, 5/4, 3/2, 7/4, 2}}} 
*) 

olduğunu ve ilk listede numaralar (ana keneler) ikinci listede tekrarlanan olduğunu görebilirsiniz.
Ancak FindDivisions [] belgelerine durumları:

Yani, iki soru:

1. Bu bir hata mı, yoksa yanlış (veya anlayış) bir şey yapıyorum?
2. Herhangi bir kolay çok katmanlı bir yapıda tekrarlanan keneleri silmek için bir yol mu?

Answer 1

Yinelenen değerler zaman zaman yararlı olabilse de, muhtemelen uygulamada bir hatadır. (Kesinlikle bölünmeler farklı düzeylerde inşa için yararlıdır.) Kene için

, muhtemelen benzer bir kod kullanılmasıdır ediyorum: çiftleri hiyerarşi düzleştirmek ve kaldırmak için

{major, minor} = FindDivisions[{0, 2}, {2, 4}]; 
minor = Complement[Flatten[minor], major]; 

. Sadece iki daha düzeyleri için Genelleştirilmiş

---

:

divs = Flatten /@ FindDivisions[{0, 2}, {2, 4, 2}]; 
Complement[#2, #1] & @@@ Partition[divs, 2, 1, -1, {{}}]