Problems with rounding giving too many digits

Multi tool use
Multi tool use












1












$begingroup$


My current code is:



round = .1;

f[x_] := x + 4 - Sqrt[3 x^2 - 5]

xx = Solve[f[x] == 0, Reals];

StringForm["x=`1`", 

If[Length[xx] >= 1, Round[Max[xx[[All, 1, 2]]], round], 

"none"]]



x=5.800000000000001`




which i want to give me an output of "x = 5.8" instead.



Any advice would be appreciated.






formatting round







share|improve this question











$endgroup$












  • $begingroup$
    StringForm["x=1", If[Length[xx] >= 1, Round[Max[xx[[All, 1, 2]]], round // Rationalize] // N, "none"]]
    $endgroup$
    – Bob Hanlon
    1 hour ago










  • $begingroup$
    Could round exactly and then use N: N[Round[Max[xx[[All, 1, 2]]], 1/10]]
    $endgroup$
    – Daniel Lichtblau
    1 hour ago
















1












$begingroup$


My current code is:



round = .1;

f[x_] := x + 4 - Sqrt[3 x^2 - 5]

xx = Solve[f[x] == 0, Reals];

StringForm["x=`1`", 

If[Length[xx] >= 1, Round[Max[xx[[All, 1, 2]]], round], 

"none"]]



x=5.800000000000001`




which i want to give me an output of "x = 5.8" instead.



Any advice would be appreciated.






formatting round







share|improve this question











$endgroup$












  • $begingroup$
    StringForm["x=1", If[Length[xx] >= 1, Round[Max[xx[[All, 1, 2]]], round // Rationalize] // N, "none"]]
    $endgroup$
    – Bob Hanlon
    1 hour ago










  • $begingroup$
    Could round exactly and then use N: N[Round[Max[xx[[All, 1, 2]]], 1/10]]
    $endgroup$
    – Daniel Lichtblau
    1 hour ago














1












1








1





$begingroup$


My current code is:



round = .1;

f[x_] := x + 4 - Sqrt[3 x^2 - 5]

xx = Solve[f[x] == 0, Reals];

StringForm["x=`1`", 

If[Length[xx] >= 1, Round[Max[xx[[All, 1, 2]]], round], 

"none"]]



x=5.800000000000001`




which i want to give me an output of "x = 5.8" instead.



Any advice would be appreciated.






formatting round







share|improve this question











$endgroup$




My current code is:



round = .1;

f[x_] := x + 4 - Sqrt[3 x^2 - 5]

xx = Solve[f[x] == 0, Reals];

StringForm["x=`1`", 

If[Length[xx] >= 1, Round[Max[xx[[All, 1, 2]]], round], 

"none"]]



x=5.800000000000001`




which i want to give me an output of "x = 5.8" instead.



Any advice would be appreciated.






formatting round




formatting round






share|improve this question















share|improve this question













share|improve this question




share|improve this question








edited 1 hour ago









Alexey Popkov

38.5k4108263




38.5k4108263










asked 2 hours ago









WomblesWombles

584




584












  • $begingroup$
    StringForm["x=1", If[Length[xx] >= 1, Round[Max[xx[[All, 1, 2]]], round // Rationalize] // N, "none"]]
    $endgroup$
    – Bob Hanlon
    1 hour ago










  • $begingroup$
    Could round exactly and then use N: N[Round[Max[xx[[All, 1, 2]]], 1/10]]
    $endgroup$
    – Daniel Lichtblau
    1 hour ago


















  • $begingroup$
    StringForm["x=1", If[Length[xx] >= 1, Round[Max[xx[[All, 1, 2]]], round // Rationalize] // N, "none"]]
    $endgroup$
    – Bob Hanlon
    1 hour ago










  • $begingroup$
    Could round exactly and then use N: N[Round[Max[xx[[All, 1, 2]]], 1/10]]
    $endgroup$
    – Daniel Lichtblau
    1 hour ago
















$begingroup$
StringForm["x=1", If[Length[xx] >= 1, Round[Max[xx[[All, 1, 2]]], round // Rationalize] // N, "none"]]
$endgroup$
– Bob Hanlon
1 hour ago




$begingroup$
StringForm["x=1", If[Length[xx] >= 1, Round[Max[xx[[All, 1, 2]]], round // Rationalize] // N, "none"]]
$endgroup$
– Bob Hanlon
1 hour ago












$begingroup$
Could round exactly and then use N: N[Round[Max[xx[[All, 1, 2]]], 1/10]]
$endgroup$
– Daniel Lichtblau
1 hour ago




$begingroup$
Could round exactly and then use N: N[Round[Max[xx[[All, 1, 2]]], 1/10]]
$endgroup$
– Daniel Lichtblau
1 hour ago










3 Answers
3






active

oldest

votes


















3












$begingroup$

You could add a StandardForm wrapper:



StringForm["x=`1`",StandardForm @ If[Length[xx]>=1,Round[Max[xx[[All,1,2]]],round],"none"]]



x=5.8







share|improve this answer









$endgroup$













  • $begingroup$
    Thank you! that worked and i have no idea why, i'll read the documentation for standardForm
    $endgroup$
    – Wombles
    1 hour ago



















2












$begingroup$

StringForm["x=`1`", If[Length[xx] >= 1, 

  DecimalForm[Round[Max[xx[[All, 1, 2]]], round], DefaultPrintPrecision -> 2], 

  "none"]]



x = 5.8




Same result with NumberForm in place of DecimalForm.






share|improve this answer











$endgroup$













  • $begingroup$
    Thank you, this worked great
    $endgroup$
    – Wombles
    14 mins ago



















1












$begingroup$

StringJoin["x=",If[Length[xx] >= 1, ToString[Round[Max[xx[[All, 1, 2]]]*10]/10.]]



x = 5.8







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%2f192843%2fproblems-with-rounding-giving-too-many-digits%23new-answer', 'question_page');
    }
    );

    Post as a guest















    Required, but never shown

























    3 Answers
    3






    active

    oldest

    votes








    3 Answers
    3






    active

    oldest

    votes









    active

    oldest

    votes






    active

    oldest

    votes









    3












    $begingroup$

    You could add a StandardForm wrapper:



    StringForm["x=`1`",StandardForm @ If[Length[xx]>=1,Round[Max[xx[[All,1,2]]],round],"none"]]



    x=5.8







    share|improve this answer









    $endgroup$













    • $begingroup$
      Thank you! that worked and i have no idea why, i'll read the documentation for standardForm
      $endgroup$
      – Wombles
      1 hour ago
















    3












    $begingroup$

    You could add a StandardForm wrapper:



    StringForm["x=`1`",StandardForm @ If[Length[xx]>=1,Round[Max[xx[[All,1,2]]],round],"none"]]



    x=5.8







    share|improve this answer









    $endgroup$













    • $begingroup$
      Thank you! that worked and i have no idea why, i'll read the documentation for standardForm
      $endgroup$
      – Wombles
      1 hour ago














    3












    3








    3





    $begingroup$

    You could add a StandardForm wrapper:



    StringForm["x=`1`",StandardForm @ If[Length[xx]>=1,Round[Max[xx[[All,1,2]]],round],"none"]]



    x=5.8







    share|improve this answer









    $endgroup$



    You could add a StandardForm wrapper:



    StringForm["x=`1`",StandardForm @ If[Length[xx]>=1,Round[Max[xx[[All,1,2]]],round],"none"]]



    x=5.8








    share|improve this answer












    share|improve this answer



    share|improve this answer










    answered 1 hour ago









    Carl WollCarl Woll

    69.4k393179




    69.4k393179












    • $begingroup$
      Thank you! that worked and i have no idea why, i'll read the documentation for standardForm
      $endgroup$
      – Wombles
      1 hour ago


















    • $begingroup$
      Thank you! that worked and i have no idea why, i'll read the documentation for standardForm
      $endgroup$
      – Wombles
      1 hour ago
















    $begingroup$
    Thank you! that worked and i have no idea why, i'll read the documentation for standardForm
    $endgroup$
    – Wombles
    1 hour ago




    $begingroup$
    Thank you! that worked and i have no idea why, i'll read the documentation for standardForm
    $endgroup$
    – Wombles
    1 hour ago











    2












    $begingroup$

    StringForm["x=`1`", If[Length[xx] >= 1, 
    
  DecimalForm[Round[Max[xx[[All, 1, 2]]], round], DefaultPrintPrecision -> 2], 
    
  "none"]]



    x = 5.8




    Same result with NumberForm in place of DecimalForm.






    share|improve this answer











    $endgroup$













    • $begingroup$
      Thank you, this worked great
      $endgroup$
      – Wombles
      14 mins ago
















    2












    $begingroup$

    StringForm["x=`1`", If[Length[xx] >= 1, 
    
  DecimalForm[Round[Max[xx[[All, 1, 2]]], round], DefaultPrintPrecision -> 2], 
    
  "none"]]



    x = 5.8




    Same result with NumberForm in place of DecimalForm.






    share|improve this answer











    $endgroup$













    • $begingroup$
      Thank you, this worked great
      $endgroup$
      – Wombles
      14 mins ago














    2












    2








    2





    $begingroup$

    StringForm["x=`1`", If[Length[xx] >= 1, 
    
  DecimalForm[Round[Max[xx[[All, 1, 2]]], round], DefaultPrintPrecision -> 2], 
    
  "none"]]



    x = 5.8




    Same result with NumberForm in place of DecimalForm.






    share|improve this answer











    $endgroup$



    StringForm["x=`1`", If[Length[xx] >= 1, 
    
  DecimalForm[Round[Max[xx[[All, 1, 2]]], round], DefaultPrintPrecision -> 2], 
    
  "none"]]



    x = 5.8




    Same result with NumberForm in place of DecimalForm.







    share|improve this answer














    share|improve this answer



    share|improve this answer








    edited 1 hour ago

























    answered 1 hour ago









    kglrkglr

    187k10203421




    187k10203421












    • $begingroup$
      Thank you, this worked great
      $endgroup$
      – Wombles
      14 mins ago


















    • $begingroup$
      Thank you, this worked great
      $endgroup$
      – Wombles
      14 mins ago
















    $begingroup$
    Thank you, this worked great
    $endgroup$
    – Wombles
    14 mins ago




    $begingroup$
    Thank you, this worked great
    $endgroup$
    – Wombles
    14 mins ago











    1












    $begingroup$

    StringJoin["x=",If[Length[xx] >= 1, ToString[Round[Max[xx[[All, 1, 2]]]*10]/10.]]



    x = 5.8







    share|improve this answer









    $endgroup$


















      1












      $begingroup$

      StringJoin["x=",If[Length[xx] >= 1, ToString[Round[Max[xx[[All, 1, 2]]]*10]/10.]]



      x = 5.8







      share|improve this answer









      $endgroup$
















        1












        1








        1





        $begingroup$

        StringJoin["x=",If[Length[xx] >= 1, ToString[Round[Max[xx[[All, 1, 2]]]*10]/10.]]



        x = 5.8







        share|improve this answer









        $endgroup$



        StringJoin["x=",If[Length[xx] >= 1, ToString[Round[Max[xx[[All, 1, 2]]]*10]/10.]]



        x = 5.8








        share|improve this answer












        share|improve this answer



        share|improve this answer










        answered 1 hour ago









        mjwmjw

        5228




        5228






























            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%2f192843%2fproblems-with-rounding-giving-too-many-digits%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







            0Ea Y62Fpnd8uwv3UhhgeEPrET5DHBlmaYy5fdlNRtG,jmwlydi m,7V22FQSXu,jd,iu
            -
            5rvFYi,AOQo,Z3 Zwcgbm8uE0P5w29k15Gi 7Bct,VoUwIXl 4U

            Popular posts from this blog

            Olav Thon

            Image
            Olav Thon Fødd 29. juni 1923 Ål Yrke forretningsdrivande Olav Thon på Commons Olav Thon (fødd 29. juni 1923) er ein norsk, stort sett sjølvlært forretningsmann, fødd i Ål i Hallingdal, som har gjort store pengar på særleg kjøp, bygging og utvikling av fast eigedom, mellom anna kjøpesentre, hotell og restaurantar, i både Noreg og somme andre land. Han vart Ridder av 1. klasse av St. Olavs Orden i 2003, og er som ivrig friluftsmann æresmedlem i Den Norske Turistforening etter å ha ytt store økonomiske bidrag til foreininga sine hytter og ruter i fjellet. Han er kjend for alltid å gå med ei karakteristisk strikkelue. Olav Thon i samtale med Trond Helleland på sentralbanksjefens årstale i februar 2016 I ung alder reiste Olav Thon til Newcastle for å lære seg engelsk, og han var seinare ei tid i Sveits, der han gjorde forretningar i import og eksport. Deretter tok han til å kjøpe faste eigedomar i Noreg med stor økonomisk suksess, verksemda voks snøgt og v...
            Read more

            Waikiki

            Image
            Denne artikkelen kan ha godt av ein språkvask , som reinskar opp målføringa og/eller innfører same språkstilen overalt. Denne artikkelen kan ha godt av ei opprydding for å nå ein høgare standard og/eller for å verta i tråd med standardoppsettet. Sjå korleis du redigerer ei side og stilmanualen for hjelp. Waikiki Land   USA Stat Hawaii Stad Honolulu Wikimedia Commons: Waikiki Utsyn over Waikiki Waikīkī er ein bydel i Honolulu, sør på øya Oahu, som er ei av Hawaii-øyane. Waikīkīstranda er ein av dei meste berømte strendene i verda. Waikīkī strekkjer seg langs stillehavskysten og har ei rekkje velrenommerte hotell. Bydelen er Hawaii-turismens høyborg. På Waikīkī Beach står ei statue av den lokale sportsstjerna Duka Kahanamoku. Kjelder | Denne artikkelen bygger på «Waikiki» frå Wikipedia på bokmål, den 4. november 2018. Denne artikkelen manglar kjelder eller referansar . Hjelp Wikipedia med å finna truverdige kjelder...
            Read more

            Zirkonium

            Image
            40 Yttrium ← Zirkonium → Niob Ti ↑ Zr ↓ Hf Heile tabellen Generelle eigenskapar Namn, kjemisk symbol, atomnummer Zirkonium, Zr, 40 Kjemisk serie Transisjonsmetall Gruppe, periode, blokk 4, 5, d Tettleik, hardleik 6510 kg/m 3 , 5 (ikkje SI) Utsjånad Sølvkvit Atomeigenskapar Atommasse 91,224 u (ikkje SI) Atomradius (berekna) 155 (206) pm Kovalent radius 148 pm Ioneradius 72 pm (ladning: +4) van der Waals radius (?) pm Elektronkonfigurasjon [Kr]4d 2 5s 2 Elektron per energinivå 2, 8, 18, 10, 2 Oksidasjonstrinn (oksid) +4 (amfotært) Krystallstruktur Heksagonal Fysiske eigenskapar Tilstandsform Fast stoff Smeltepunkt 2125 K (1852°C) Kokepunkt 4650 K (4377°C) Molart volum 14,02 cm 3 /mol Fordampingsvarme 58,2 kJ/mol Smeltevarme 16,9 kJ/mol Damptrykk 0,00168 Pa ved 2125 K Ljodfart 3800 m/s ved 20 °C D...
            Read more