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

                    Mobil Contents History Mobil brands Former Mobil brands Lukoil transaction Mobil UK Mobil Australia Mobil New Zealand Mobil Greece Mobil in Japan Mobil in Canada Mobil Egypt See also References External links Navigation menuwww.mobil.com"Mobil Corporation"the original"Our Houston campus""Business & Finance: Socony-Vacuum Corp.""Popular Mechanics""Lubrite Technologies""Exxon Mobil campus 'clearly happening'""Toledo Blade - Google News Archive Search""The Lion and the Moose - How 2 Executives Pulled off the Biggest Merger Ever""ExxonMobil Press Release""Lubricants""Archived copy"the original"Mobil 1™ and Mobil Super™ motor oil and synthetic motor oil - Mobil™ Motor Oils""Mobil Delvac""Mobil Industrial website""The State of Competition in Gasoline Marketing: The Effects of Refiner Operations at Retail""Mobil Travel Guide to become Forbes Travel Guide""Hotel Rankings: Forbes Merges with Mobil"the original"Jamieson oil industry history""Mobil news""Caltex pumps for control""Watchdog blocks Caltex bid""Exxon Mobil sells service station network""Mobil Oil New Zealand Limited is New Zealand's oldest oil company, with predecessor companies having first established a presence in the country in 1896""ExxonMobil subsidiaries have a business history in New Zealand stretching back more than 120 years. We are involved in petroleum refining and distribution and the marketing of fuels, lubricants and chemical products""Archived copy"the original"Exxon Mobil to Sell Its Japanese Arm for $3.9 Billion""Gas station merger will end Esso and Mobil's long run in Japan""Esso moves to affiliate itself with PC Optimum, no longer Aeroplan, in loyalty point switch""Mobil brand of gas stations to launch in Canada after deal for 213 Loblaws-owned locations""Mobil Nears Completion of Rebranding 200 Loblaw Gas Stations""Learn about ExxonMobil's operations in Egypt""Petrol and Diesel Service Stations in Egypt - Mobil"Official websiteExxon Mobil corporate websiteMobil Industrial official websiteeeeeeeeDA04275022275790-40000 0001 0860 5061n82045453134887257134887257

                    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