Dynamic Linkage of LocatorPane and InputFieldQuestion about collections of custom GUI controls for MathematicaInterdependent controls in ManipulateDynamically updating linked Manipulate variablesLocatorPane, Dynamic and deleting locatorsHow can I effectively performance-profile Dynamics?Restrict Sensitivity of Locators in LocatorPane“Masking” an InputFieldGUI and Dynamic update problemsInteracting Dynamic Components within LocatorPanePuzzled with InputFieldDynamic and TabView mayhemHow to create Dynamic InputField Grid for matrix variable?LocatorPane with transformed coordinates

Expressing logarithmic equations without logs

I can't die. Who am I?

Can't make sense of a paragraph from Lovecraft

What is better: yes / no radio, or simple checkbox?

What materials can be used to make a humanoid skin warm?

Damage bonus for different weapons

Doubts in understanding some concepts of potential energy

Does Christianity allow for believing on someone else's behalf?

Can I negotiate a patent idea for a raise, under French law?

Getting the || sign while using Kurier

I reported the illegal activity of my boss to his boss. My boss found out. Now I am being punished. What should I do?

Was it really inappropriate to write a pull request for the company I interviewed with?

Does a difference of tense count as a difference of meaning in a minimal pair?

What is Tony Stark injecting into himself in Iron Man 3?

Having the player face themselves after the mid-game

Why does cron require MTA for logging?

Is it a Cyclops number? "Nobody" knows!

From an axiomatic set theoric approach why can we take uncountable unions?

Which classes are needed to have access to every spell in the PHB?

This Alpine town?

Professor forcing me to attend a conference, I can't afford even with 50% funding

The meaning of ‘otherwise’

Confusion about Complex Continued Fraction

What are some noteworthy "mic-drop" moments in math?



Dynamic Linkage of LocatorPane and InputField


Question about collections of custom GUI controls for MathematicaInterdependent controls in ManipulateDynamically updating linked Manipulate variablesLocatorPane, Dynamic and deleting locatorsHow can I effectively performance-profile Dynamics?Restrict Sensitivity of Locators in LocatorPane“Masking” an InputFieldGUI and Dynamic update problemsInteracting Dynamic Components within LocatorPanePuzzled with InputFieldDynamic and TabView mayhemHow to create Dynamic InputField Grid for matrix variable?LocatorPane with transformed coordinates













3












$begingroup$


How do I get the InputField to coordinate with the LocatorPane so that a change in each control changes the other to be in agreement? It would be nice if the function was self-contained and was dynamically linked to a second similar control where the variable is radians. The angle control is based on this (see Applications). Related links do not address or solve this particular issue; links such as this this, and this



 fDeg[Dynamic[angleDeg_]] := 
DynamicModule[p, angleRad, angleCalc, dtr = Degree,

angleCalc[newp_,
oldp_] := (angleRad =
angleRad + ArcCos[newp.oldp] Sign[Cross[newp].(newp - oldp)];
If[0 < angleRad, angleRad = Mod[angleRad, +2*Pi]];
If[0 > angleRad, angleRad = Mod[angleRad, -2*Pi]];
angleDeg = angleRad/dtr;
f[angleDeg];
p = Cos[angleRad], Sin[angleRad]);

angleRad = angleDeg*dtr;
p = Cos[angleRad], Sin[angleRad];

LocatorPane[Dynamic[p, (angleCalc @@ Normalize /@ #, p) &],
Dynamic@Show[
Graphics[Circle[], Arrowheads[0.15],
Arrow[Dynamic[0, 0, p]], ImageSize -> Tiny],
Graphics[Dynamic[Text[
NumberForm[angleDeg, 3, 2], 0, 0]]]],
Appearance -> None]];

aDeg = 45;

Column[
"Degrees:",
fDeg[Dynamic[aDeg]],
"aDeg: ",
InputField[Dynamic[aDeg],
FieldSize -> 6]
, Alignment -> Center]









share|improve this question









$endgroup$
















    3












    $begingroup$


    How do I get the InputField to coordinate with the LocatorPane so that a change in each control changes the other to be in agreement? It would be nice if the function was self-contained and was dynamically linked to a second similar control where the variable is radians. The angle control is based on this (see Applications). Related links do not address or solve this particular issue; links such as this this, and this



     fDeg[Dynamic[angleDeg_]] := 
    DynamicModule[p, angleRad, angleCalc, dtr = Degree,

    angleCalc[newp_,
    oldp_] := (angleRad =
    angleRad + ArcCos[newp.oldp] Sign[Cross[newp].(newp - oldp)];
    If[0 < angleRad, angleRad = Mod[angleRad, +2*Pi]];
    If[0 > angleRad, angleRad = Mod[angleRad, -2*Pi]];
    angleDeg = angleRad/dtr;
    f[angleDeg];
    p = Cos[angleRad], Sin[angleRad]);

    angleRad = angleDeg*dtr;
    p = Cos[angleRad], Sin[angleRad];

    LocatorPane[Dynamic[p, (angleCalc @@ Normalize /@ #, p) &],
    Dynamic@Show[
    Graphics[Circle[], Arrowheads[0.15],
    Arrow[Dynamic[0, 0, p]], ImageSize -> Tiny],
    Graphics[Dynamic[Text[
    NumberForm[angleDeg, 3, 2], 0, 0]]]],
    Appearance -> None]];

    aDeg = 45;

    Column[
    "Degrees:",
    fDeg[Dynamic[aDeg]],
    "aDeg: ",
    InputField[Dynamic[aDeg],
    FieldSize -> 6]
    , Alignment -> Center]









    share|improve this question









    $endgroup$














      3












      3








      3


      1



      $begingroup$


      How do I get the InputField to coordinate with the LocatorPane so that a change in each control changes the other to be in agreement? It would be nice if the function was self-contained and was dynamically linked to a second similar control where the variable is radians. The angle control is based on this (see Applications). Related links do not address or solve this particular issue; links such as this this, and this



       fDeg[Dynamic[angleDeg_]] := 
      DynamicModule[p, angleRad, angleCalc, dtr = Degree,

      angleCalc[newp_,
      oldp_] := (angleRad =
      angleRad + ArcCos[newp.oldp] Sign[Cross[newp].(newp - oldp)];
      If[0 < angleRad, angleRad = Mod[angleRad, +2*Pi]];
      If[0 > angleRad, angleRad = Mod[angleRad, -2*Pi]];
      angleDeg = angleRad/dtr;
      f[angleDeg];
      p = Cos[angleRad], Sin[angleRad]);

      angleRad = angleDeg*dtr;
      p = Cos[angleRad], Sin[angleRad];

      LocatorPane[Dynamic[p, (angleCalc @@ Normalize /@ #, p) &],
      Dynamic@Show[
      Graphics[Circle[], Arrowheads[0.15],
      Arrow[Dynamic[0, 0, p]], ImageSize -> Tiny],
      Graphics[Dynamic[Text[
      NumberForm[angleDeg, 3, 2], 0, 0]]]],
      Appearance -> None]];

      aDeg = 45;

      Column[
      "Degrees:",
      fDeg[Dynamic[aDeg]],
      "aDeg: ",
      InputField[Dynamic[aDeg],
      FieldSize -> 6]
      , Alignment -> Center]









      share|improve this question









      $endgroup$




      How do I get the InputField to coordinate with the LocatorPane so that a change in each control changes the other to be in agreement? It would be nice if the function was self-contained and was dynamically linked to a second similar control where the variable is radians. The angle control is based on this (see Applications). Related links do not address or solve this particular issue; links such as this this, and this



       fDeg[Dynamic[angleDeg_]] := 
      DynamicModule[p, angleRad, angleCalc, dtr = Degree,

      angleCalc[newp_,
      oldp_] := (angleRad =
      angleRad + ArcCos[newp.oldp] Sign[Cross[newp].(newp - oldp)];
      If[0 < angleRad, angleRad = Mod[angleRad, +2*Pi]];
      If[0 > angleRad, angleRad = Mod[angleRad, -2*Pi]];
      angleDeg = angleRad/dtr;
      f[angleDeg];
      p = Cos[angleRad], Sin[angleRad]);

      angleRad = angleDeg*dtr;
      p = Cos[angleRad], Sin[angleRad];

      LocatorPane[Dynamic[p, (angleCalc @@ Normalize /@ #, p) &],
      Dynamic@Show[
      Graphics[Circle[], Arrowheads[0.15],
      Arrow[Dynamic[0, 0, p]], ImageSize -> Tiny],
      Graphics[Dynamic[Text[
      NumberForm[angleDeg, 3, 2], 0, 0]]]],
      Appearance -> None]];

      aDeg = 45;

      Column[
      "Degrees:",
      fDeg[Dynamic[aDeg]],
      "aDeg: ",
      InputField[Dynamic[aDeg],
      FieldSize -> 6]
      , Alignment -> Center]






      dynamic gui-construction interactive






      share|improve this question













      share|improve this question











      share|improve this question




      share|improve this question










      asked 4 hours ago









      kmutinykmutiny

      213




      213




















          1 Answer
          1






          active

          oldest

          votes


















          3












          $begingroup$

          Consider the following refactoring of your code



          First, the locator pane is used to set a point location constrained on a circle with unit radius (this part borrowed heavily from an example in the documentation for LocatorPane). A degree value is then calculated from the coordinates of tha tpoint.



          Secondly, the input field is used to read in a degree value, which is then used to update the position of the dynamic point pt using the second argument of Dynamic.



          DynamicModule[
          pt = 0, 1.,
          Column[
          "Degrees:", Dynamic[(ArcTan @@ pt)/Degree],
          LocatorPane[
          Dynamic[pt],
          Graphics[
          Circle[],
          PointSize[Large],
          Dynamic[Arrow[0, 0, pt/Norm[pt]]]
          ],
          Appearance -> None
          ],
          InputField[
          Dynamic[(ArcTan @@ pt)/Degree, (pt = N@Cos[#1 Degree], Sin[#1 Degree]) &],
          FieldSize -> Tiny
          ]
          , Alignment -> Center
          ]
          ]


          This keeps both fields in sync with each other:



          animation shows the locator and input field working together






          share|improve this answer









          $endgroup$












            Your Answer





            StackExchange.ifUsing("editor", function ()
            return StackExchange.using("mathjaxEditing", function ()
            StackExchange.MarkdownEditor.creationCallbacks.add(function (editor, postfix)
            StackExchange.mathjaxEditing.prepareWmdForMathJax(editor, postfix, [["$", "$"], ["\\(","\\)"]]);
            );
            );
            , "mathjax-editing");

            StackExchange.ready(function()
            var channelOptions =
            tags: "".split(" "),
            id: "387"
            ;
            initTagRenderer("".split(" "), "".split(" "), channelOptions);

            StackExchange.using("externalEditor", function()
            // Have to fire editor after snippets, if snippets enabled
            if (StackExchange.settings.snippets.snippetsEnabled)
            StackExchange.using("snippets", function()
            createEditor();
            );

            else
            createEditor();

            );

            function createEditor()
            StackExchange.prepareEditor(
            heartbeatType: 'answer',
            autoActivateHeartbeat: false,
            convertImagesToLinks: false,
            noModals: true,
            showLowRepImageUploadWarning: true,
            reputationToPostImages: null,
            bindNavPrevention: true,
            postfix: "",
            imageUploader:
            brandingHtml: "Powered by u003ca class="icon-imgur-white" href="https://imgur.com/"u003eu003c/au003e",
            contentPolicyHtml: "User contributions licensed under u003ca href="https://creativecommons.org/licenses/by-sa/3.0/"u003ecc by-sa 3.0 with attribution requiredu003c/au003e u003ca href="https://stackoverflow.com/legal/content-policy"u003e(content policy)u003c/au003e",
            allowUrls: true
            ,
            onDemand: true,
            discardSelector: ".discard-answer"
            ,immediatelyShowMarkdownHelp:true
            );



            );













            draft saved

            draft discarded


















            StackExchange.ready(
            function ()
            StackExchange.openid.initPostLogin('.new-post-login', 'https%3a%2f%2fmathematica.stackexchange.com%2fquestions%2f193000%2fdynamic-linkage-of-locatorpane-and-inputfield%23new-answer', 'question_page');

            );

            Post as a guest















            Required, but never shown

























            1 Answer
            1






            active

            oldest

            votes








            1 Answer
            1






            active

            oldest

            votes









            active

            oldest

            votes






            active

            oldest

            votes









            3












            $begingroup$

            Consider the following refactoring of your code



            First, the locator pane is used to set a point location constrained on a circle with unit radius (this part borrowed heavily from an example in the documentation for LocatorPane). A degree value is then calculated from the coordinates of tha tpoint.



            Secondly, the input field is used to read in a degree value, which is then used to update the position of the dynamic point pt using the second argument of Dynamic.



            DynamicModule[
            pt = 0, 1.,
            Column[
            "Degrees:", Dynamic[(ArcTan @@ pt)/Degree],
            LocatorPane[
            Dynamic[pt],
            Graphics[
            Circle[],
            PointSize[Large],
            Dynamic[Arrow[0, 0, pt/Norm[pt]]]
            ],
            Appearance -> None
            ],
            InputField[
            Dynamic[(ArcTan @@ pt)/Degree, (pt = N@Cos[#1 Degree], Sin[#1 Degree]) &],
            FieldSize -> Tiny
            ]
            , Alignment -> Center
            ]
            ]


            This keeps both fields in sync with each other:



            animation shows the locator and input field working together






            share|improve this answer









            $endgroup$

















              3












              $begingroup$

              Consider the following refactoring of your code



              First, the locator pane is used to set a point location constrained on a circle with unit radius (this part borrowed heavily from an example in the documentation for LocatorPane). A degree value is then calculated from the coordinates of tha tpoint.



              Secondly, the input field is used to read in a degree value, which is then used to update the position of the dynamic point pt using the second argument of Dynamic.



              DynamicModule[
              pt = 0, 1.,
              Column[
              "Degrees:", Dynamic[(ArcTan @@ pt)/Degree],
              LocatorPane[
              Dynamic[pt],
              Graphics[
              Circle[],
              PointSize[Large],
              Dynamic[Arrow[0, 0, pt/Norm[pt]]]
              ],
              Appearance -> None
              ],
              InputField[
              Dynamic[(ArcTan @@ pt)/Degree, (pt = N@Cos[#1 Degree], Sin[#1 Degree]) &],
              FieldSize -> Tiny
              ]
              , Alignment -> Center
              ]
              ]


              This keeps both fields in sync with each other:



              animation shows the locator and input field working together






              share|improve this answer









              $endgroup$















                3












                3








                3





                $begingroup$

                Consider the following refactoring of your code



                First, the locator pane is used to set a point location constrained on a circle with unit radius (this part borrowed heavily from an example in the documentation for LocatorPane). A degree value is then calculated from the coordinates of tha tpoint.



                Secondly, the input field is used to read in a degree value, which is then used to update the position of the dynamic point pt using the second argument of Dynamic.



                DynamicModule[
                pt = 0, 1.,
                Column[
                "Degrees:", Dynamic[(ArcTan @@ pt)/Degree],
                LocatorPane[
                Dynamic[pt],
                Graphics[
                Circle[],
                PointSize[Large],
                Dynamic[Arrow[0, 0, pt/Norm[pt]]]
                ],
                Appearance -> None
                ],
                InputField[
                Dynamic[(ArcTan @@ pt)/Degree, (pt = N@Cos[#1 Degree], Sin[#1 Degree]) &],
                FieldSize -> Tiny
                ]
                , Alignment -> Center
                ]
                ]


                This keeps both fields in sync with each other:



                animation shows the locator and input field working together






                share|improve this answer









                $endgroup$



                Consider the following refactoring of your code



                First, the locator pane is used to set a point location constrained on a circle with unit radius (this part borrowed heavily from an example in the documentation for LocatorPane). A degree value is then calculated from the coordinates of tha tpoint.



                Secondly, the input field is used to read in a degree value, which is then used to update the position of the dynamic point pt using the second argument of Dynamic.



                DynamicModule[
                pt = 0, 1.,
                Column[
                "Degrees:", Dynamic[(ArcTan @@ pt)/Degree],
                LocatorPane[
                Dynamic[pt],
                Graphics[
                Circle[],
                PointSize[Large],
                Dynamic[Arrow[0, 0, pt/Norm[pt]]]
                ],
                Appearance -> None
                ],
                InputField[
                Dynamic[(ArcTan @@ pt)/Degree, (pt = N@Cos[#1 Degree], Sin[#1 Degree]) &],
                FieldSize -> Tiny
                ]
                , Alignment -> Center
                ]
                ]


                This keeps both fields in sync with each other:



                animation shows the locator and input field working together







                share|improve this answer












                share|improve this answer



                share|improve this answer










                answered 3 hours ago









                MarcoBMarcoB

                37.4k556113




                37.4k556113



























                    draft saved

                    draft discarded
















































                    Thanks for contributing an answer to Mathematica Stack Exchange!


                    • Please be sure to answer the question. Provide details and share your research!

                    But avoid


                    • Asking for help, clarification, or responding to other answers.

                    • Making statements based on opinion; back them up with references or personal experience.

                    Use MathJax to format equations. MathJax reference.


                    To learn more, see our tips on writing great answers.




                    draft saved


                    draft discarded














                    StackExchange.ready(
                    function ()
                    StackExchange.openid.initPostLogin('.new-post-login', 'https%3a%2f%2fmathematica.stackexchange.com%2fquestions%2f193000%2fdynamic-linkage-of-locatorpane-and-inputfield%23new-answer', 'question_page');

                    );

                    Post as a guest















                    Required, but never shown





















































                    Required, but never shown














                    Required, but never shown












                    Required, but never shown







                    Required, but never shown

































                    Required, but never shown














                    Required, but never shown












                    Required, but never shown







                    Required, but never shown







                    -dynamic, gui-construction, interactive

                    Popular posts from this blog

                    Word for a person who has no opinion about whether god existsWord for having a definite opinion while simultaneously withholding judgment?What's the opposite of “newcomer? Is ”veteran" OK?What do you call an “atheist” who might believe in an afterlife?What's a word for someone who wants to voice opinions but not have them challenged?Word for someone who dismisses contrary opinions as irrational?Somone who thinks they are overly special/out of the ordinaryIs there a word, phrase or idiom for “a person who is incapable of thinking about the future”?The belief that a god is human-likeA word for a non-famous person/thing you have heard a lot aboutAdjective for a person who enjoys taking care of their appearance

                    What was this official D&D 3.5e Lovecraft-flavored rulebook?What was this set of RPG tools called?As a first-time DM should I let my players play complex character classes and roles?Nymph's Kiss and the RelationshipWhat was the name of this Cleric Prestige Class that shapes metal with its bare hands?Are the 3.5e Dragonlance books third party or official works?What's up with the domain Vile Darkness?What was this 80s book about RPGs?What was the name of this Werewolf band?What book had Rituals to “upgrade” animal companions to keep them viable at higher levels?What was this RPG that had rules for player-owned businesses?

                    2017 IndyCar Series Contents Series news Teams and drivers Schedule Season summary Footnotes References External links Navigation menu"INDYCAR: Initial 2018 bodywork concepts unveiled"the original"IndyCar confirms switch to Performance Friction brakes in 2017""AJ Foyt Racing will switch to Chevy"the original"Carlos Munoz, Conor Daly will drive for AJ Foyt Racing""Zach Veach's Indy 500 Debut Confirmed with Foyt""No mass exodus from Honda after Ganassi switch""Ex-F1 driver Sato joins Andretti Autosport for 2017 IndyCar season""IndyCar's Ryan Hunter-Reay, sponsor DHL paired through 2020""hhgregg and Andretti Autosport announce partnership for key races in 2016""INDYCAR: Rossi re-signs with Andretti"the original"McLaren Formula 1 - Fernando Alonso to race at Indy 500 with McLaren, Honda and Andretti Autosport""Shank will finally take part in Indy 500 with Harvey, Andretti | MotorSportsTalk""Andretti adds Jack Harvey to Indy 500 field""Ganassi switches to Honda power for 2017""INDYCAR: Chilton returns to Ganassi"the original"IndyCar silly season: Who's going where in 2017?""INDYCAR: Kanaan, NTT Data return to Ganassi"the original"Kimball to remain at Ganassi for 2017""Coyne confirms Bourdais for 2017 IndyCar season""Davison to sub for Bourdais in Indy 500"the original"Gutierrez confirmed for Detroit IndyCar debut""Gutierrez returns with Coyne for rest of 2017 season""Vautier to drive for Coyne at Texas"the original"INDYCAR: Coyne confirms Jones for 2017"the original"Pippa Mann returns to Coyne for Indy 500""Karam, Dreyer & Reinbold teaming up again for Indianapolis 500""Pigot to return to Ed Carpenter Racing""Hildebrand confirmed as full-time Ed Carpenter driver""Veach to replace injured Hildebrand at Barber"the originalNew Team Harding Racing Enters Chaves for 101st Indianapolis 500"Juncos Racing Announces Entry in 101st Running of the Indianapolis 500 :: Juncos Racing""Juncos confirms Pigot for Indy 500""Saavedra confirmed in Juncos' second 500 entry"the original"Lazier confirms Indy 500 run after son's USF2000 debut"the original"Claman DeMelo to race for RLLR at Sonoma"the original"Rahal signs Servia and ace engineer for 2017""IndyCar: Aleshin returns with Schmidt"the original"Aleshin replaced by Saavedra for Toronto""Jack Harvey will pilot SPM No. 7 car at Watkins Glen, Sonoma""Jay Howard confirmed in Tony Stewart's supported SPM Indy entry""INDYCAR: Newgarden to wave the flag at Penske"the original"Pagenaud opts for No. 1 in 2017"the original"Penske confirms Newgarden for 2017""Montoya to stay with Team Penske in 2017""Target leaving IndyCar after 27 seasons with Chip Ganassi""Cavin: IndyCar could see complete driver/team shakeup in 2017""End of the road for KV Racing?""KV Racing confirms closure, equipment sold to Juncos""Juncos confirms IndyCar Series entry"the original"Juncos readies IndyCar program, aims for '17 500"the original"Harding Racing to add Texas, Pocono to schedule"the original"Sato signs with Andretti Autosport for 2017""INDYCAR: Aleshin in Doubt at SPM"the original"Long Beach notebook: JR Hildebrand breaks hand""Hildebrand cleared to return at Phoenix"the original"Bourdais to undergo surgery on multiple fractures""Aleshin loses Schmidt Peterson IndyCar ride""Saavedra in at SPM for Pocono, Gateway"the original"Bourdais to make return at Gateway"the original"The IndyCar Grand Prix no longer is sponsored by Angie's List""2017 IndyCar Series rulebook""2017 Verizon IndyCar Series Official Rulebook"Official websiteeeeee