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

                    Frič See also Navigation menuinternal link

                    Identify plant with long narrow paired leaves and reddish stems Planned maintenance scheduled April 17/18, 2019 at 00:00UTC (8:00pm US/Eastern) Announcing the arrival of Valued Associate #679: Cesar Manara Unicorn Meta Zoo #1: Why another podcast?What is this plant with long sharp leaves? Is it a weed?What is this 3ft high, stalky plant, with mid sized narrow leaves?What is this young shrub with opposite ovate, crenate leaves and reddish stems?What is this plant with large broad serrated leaves?Identify this upright branching weed with long leaves and reddish stemsPlease help me identify this bulbous plant with long, broad leaves and white flowersWhat is this small annual with narrow gray/green leaves and rust colored daisy-type flowers?What is this chilli plant?Does anyone know what type of chilli plant this is?Help identify this plant

                    fontconfig warning: “/etc/fonts/fonts.conf”, line 100: unknown “element blank” The 2019 Stack Overflow Developer Survey Results Are In“tar: unrecognized option --warning” during 'apt-get install'How to fix Fontconfig errorHow do I figure out which font file is chosen for a system generic font alias?Why are some apt-get-installed fonts being ignored by fc-list, xfontsel, etc?Reload settings in /etc/fonts/conf.dTaking 30 seconds longer to boot after upgrade from jessie to stretchHow to match multiple font names with a single <match> element?Adding a custom font to fontconfigRemoving fonts from fontconfig <match> resultsBroken fonts after upgrading Firefox ESR to latest Firefox