Problems with rounding giving too many digits












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 51 mins ago









Alexey Popkov

38.5k4108263




38.5k4108263










asked 1 hour 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$





















    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$


















        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$
















          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























              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







                      -

                      Popular posts from this blog

                      ف. موراي أبراهام

                      Image
                      ف. موراي أبراهام F. Murray Abraham ف. موراي أبراهام في 2008 معلومات شخصية الاسم عند الولادة فريد مراد إبراهيم Fahrid Murray Abraham الميلاد 24 أكتوبر 1939 (العمر 79 سنة) شاكبيتسبرغ، بنسيلفانيا مواطنة الولايات المتحدة  أسماء أخرى فرانك موراي أبراهام Frank Murray Abraham الحياة العملية المدرسة الأم جامعة تكساس في أوستن  التلامذة المشهورين جون كيل [1]   المهنة ممثل تلفزيوني،  وممثل أفلام،  وممثل تعبيري،  وممثل مسرحي  سنوات النشاط 1971–الآن موظف في كلية بروكلين  الجوائز جائزة الأوسكار لأفضل ممثل  (عن عمل:أماديوس)   المواقع IMDB صفحته على IMDB  السينما.كوم صفحته على السينما.كوم  تعديل   ف. موراي أبراهام (بالإنجليزية: F. Murray Abraham ) ، ممثل أمريكي من اصل سوري أرثوذكسي من ناحية الاب وإيطالي من ناحية الام وهو ممثل أمريكي من مواليد 24 أكتوبر 1939، حاصل على جائزة الأوسكار 1984 كأفضل ممثل عن دوره في فيلم أماديوس كما حصل بنفس الدور على جائزة الغولدن غلوب 1985 كأفضل ممثل في فيلم د...
                      Read more

                      صرب

                      Image
                      صرب التعداد الكلي 11.5–12.5 مليون [a] مناطق الوجود المميزة يبلغ عدد سكانها أكثر 100,000 في يوغوسلافيا السابقة   صربيا (excl. كوسوفو) 5,988,150 (2011)   البوسنة والهرسك 1,086,733 (2013) [1]   الجبل الأسود b 178,110 (2011) [2]   كوسوفو 90–120,000 (2012 قالب:Estimation) a   سلوفينيا 38,964 (2002) [3]   جمهورية مقدونيا 35,939 (2002) [4] بقية أوروبا · ·   ألمانيا بحدود 500,000 (2014 قالب:Estimation)   النمسا بحدود 300,000 (2010 قالب:Estimation) [5]   سويسرا بحدود 71,260 (2015 قالب:Estimation) [6]   فرنسا بحدود 120,000 (2002 قالب:Estimation) [7]   السويد بحدود 110–120,000 (قالب:Estimation)   المملكة المتحدة بحدود 70,000 (2001 قالب:Estimation) [8]   رومانيا 18,076 (2011) [9] أمريكا الشمالية ·   الولايات المتحدة c 199,080 (2012) [10]   كندا c 80,320 (2011) [11] بقية العالم ·   أستراليا c 69,544 (2011) [12] ...
                      Read more

                      كأس إنترتوتو

                      Image
                      كأس إنترتوتو شعار كأس إنترتوتو معلومات عامة الرياضة كرة القدم انطلقت 1968 (1995 من قبل اليويفا) انتهت 2008 المنظم الاتحاد الأوروبي لكرة القدم عدد الطبعات 35 نسخة رسمية تواترها سنوية عدد المشاركين 50 فريق الموقع الرسمي الموقع الرسمي الأكثر تتويجا هامبورغ شتوتغارت شالكه 04 نادي فياريال (لقبين) التسلسل الزمني للمنافسة تعديل   كأس إنترتوتو (بالإنجليزية: UEFA Intertoto Cup ) هي مسابقة كرة قدم صيفية لأندية كرة القدم الأوروبية التي لم تأهل للبطولات الكبرى المختلفة التي تقام سنوياً تحت رعاية الاتحاد الأوروبي لكرة القدم؛ مثل دوري أبطال أوروبا وكأس الاتحاد الأوروبي سابقاً. وقد أنشئت المسابقة في موسم 1961–62 كبطولة ودية تضم عدة أندية كرة قدم أوروبية، قبل أن يقوم الاتحاد الأوروبي لكرة القدم بإضافتها لقائمة البطولات المعترفة بها في عام 1995. وفي عام 2008 قام الاتحاد الأوروبي لكرة القدم بدمج بطولة كأس إنترتوتو مع بطولة كأس الاتحاد الأوروبي، [1] وبهذا أصبحت كل من بطولة كأس الاتحاد الأوروبي و كأس إنترتوتو وكأس الكؤوس الأوروبية مدموج...
                      Read more