Làm thế nào để duy trì các giá trị số nguyên trong thanh trượt động liên kết?

Question

Tôi muốn sử dụng một cặp thanh trượt để thiết lập các giá trị nguyên cho hai biến NLO và Nhi, mỗi trong số đó cá nhân có thể dao động từ 1 đến 100, nhưng chịu sự hạn chế đó Nhi> = NLO. Vì vậy, tôi thiết lập một thanh trượt cho mỗi biến có một phạm vi mà phụ thuộc động trên biến khác:

nLo = 1; nHi = 100; 
Column[ 
{ 
    Labeled[Slider[Dynamic[nLo], {1, Dynamic[nHi], 1}, 
      Appearance -> "Labeled"], "nLo", Left 
    ], 
    Labeled[Slider[Dynamic[nHi], {Dynamic[nLo], 100, 1}, 
      Appearance -> "Labeled"], "nHi", Left 
    ], 
    Dynamic[{nLo, nHi}] 
} 
] 

Vấn đề là ngay sau khi tôi điều chỉnh Nhi, giá trị của nó trở nên thực tế (hiển thị với một số thập phân điểm) thay vì số nguyên. Tôi đoán rằng điều này là do thanh trượt cho nHi không thể cho biết đối số phạm vi đầu tiên Động [nLo] thực sự là một số nguyên và do đó mặc định là giá trị thực. Bất kỳ đề xuất nào về cách buộc nHi giữ nguyên giá trị? (Linux Mathematica v8.0.1)

Answer 1

Hoặc là tôi không hiểu các yêu cầu của giải pháp, hoặc mã này chỉ có thể hoạt động tốt trong Mathematica 7.

---

Thú vị vấn đề. Điều này dường như làm việc:

nLo = 1; nHi = 100; 
Column[{Labeled[ 
    Slider[Dynamic[nLo], {1, Dynamic[nHi], 1}, 
    Appearance -> "Labeled"], "nLo", Left], 
    Labeled[Slider[ 
    Dynamic[nHi], {Dynamic[Unevaluated@Round@nLo], 100, 1}, 
    Appearance -> "Labeled"], "nHi", Left], 
    Dynamic[{nLo, nHi}]}] 

Answer 2

Hoặc bạn có thể làm điều gì đó như

nLo = 1; nHi = 100; 
Column[{Labeled[ 
    Slider[Dynamic[nLo], {1, Dynamic[nHi], 1}, 
    Appearance -> "Labeled"], "nLo", Left], 
    Labeled[Slider[ 
    Dynamic[nHi, (nHi = Round[#]) &], {Dynamic[nLo], 100, 1}, 
    Appearance -> "Labeled"], "nHi", Left], 
    {Dynamic[nLo], Dynamic[nHi]}}]