TrackingFunction
利用可能
Tracking callback option
TrackingFunction
Manipulate[x, {{x, 2}, 0, 100, 1, TrackingFunction -> (If[PrimeQ[#], x = #]&)}]
→ Manipulate[x, {{x, 2}, 0, 100, 1, TrackingFunction -> (If[PrimeQ[#1], x = #1] & )}]Manipulate[{x, y}, {x, 0, 1, TrackingFunction -> (x = #;y = (1 - #);&)}, {y, 0, 1}]
→ Manipulate[{x, y}, {x, 0, 1, TrackingFunction -> ((x = #1; y = 1 - #1; Null) & )}, {y, 0, 1}]Manipulate[Graphics[Circle[], PlotRange -> 2], {{pt, {0, 0}}, Locator, TrackingFunction -> (pt = # / Max[Norm[#], 1];&)}]
→ Manipulate[-Graphics-, {{pt, {0, 0}}, Locator, TrackingFunction -> ((pt = #1/Max[Norm[#1], 1]; Null) & )}] 全 6300 関数 ·
MCPクライアントから使う