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

                    Creating 100m^2 grid automatically using QGIS?Creating grid constrained within polygon in QGIS?Createing polygon layer from point data using QGIS?Creating vector grid using QGIS?Creating grid polygons from coordinates using R or PythonCreating grid from spatio temporal point data?Creating fields in attributes table using other layers using QGISCreate .shp vector grid in QGISQGIS Creating 4km point grid within polygonsCreate a vector grid over a raster layerVector Grid Creates just one grid

                    Nikolai Prilezhaev Bibliography References External links Navigation menuEarly Russian Organic Chemists and Their Legacy092774english translationRussian Biography

                    How to link a C library to an Assembly library on Mac with clangHow do you set, clear, and toggle a single bit?Find (and kill) process locking port 3000 on MacWho is listening on a given TCP port on Mac OS X?How to start PostgreSQL server on Mac OS X?Compile assembler in nasm on mac osHow do I install pip on macOS or OS X?AFNetworking 2.0 “_NSURLSessionTransferSizeUnknown” linking error on Mac OS X 10.8C++ code for testing the Collatz conjecture faster than hand-written assembly - why?How to link a NASM code and GCC in Mac OS X?How to run x86 .asm on macOS Sierra