Problems with rounding giving too many digits












3












$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.










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
    yesterday






  • 1




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
















3












$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.










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
    yesterday






  • 1




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














3












3








3





$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.










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






share|improve this question















share|improve this question













share|improve this question




share|improve this question








edited yesterday









Alexey Popkov

38.5k4108263




38.5k4108263










asked yesterday









WomblesWombles

684




684












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






  • 1




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


















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






  • 1




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
















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




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




1




1




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




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










3 Answers
3






active

oldest

votes


















5












$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
    yesterday



















4












$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
    yesterday



















2












$begingroup$

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



x = 5.8




Round[q*10] rounds 10q to the nearest integeger.



Round[q*10]/10 rounds q to the nearest tenth.



ToString turns an expression into a string and StringJoin joins strings, both aptly named ...






share|improve this answer











$endgroup$













  • $begingroup$
    Just fixed a typo (was missing a right bracket (])).
    $endgroup$
    – mjw
    21 hours ago













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









5












$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
    yesterday
















5












$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
    yesterday














5












5








5





$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 yesterday









Carl WollCarl Woll

69.6k394180




69.6k394180












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


















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
















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




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











4












$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
    yesterday
















4












$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
    yesterday














4












4








4





$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 yesterday

























answered yesterday









kglrkglr

187k10203421




187k10203421












  • $begingroup$
    Thank you, this worked great
    $endgroup$
    – Wombles
    yesterday


















  • $begingroup$
    Thank you, this worked great
    $endgroup$
    – Wombles
    yesterday
















$begingroup$
Thank you, this worked great
$endgroup$
– Wombles
yesterday




$begingroup$
Thank you, this worked great
$endgroup$
– Wombles
yesterday











2












$begingroup$

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



x = 5.8




Round[q*10] rounds 10q to the nearest integeger.



Round[q*10]/10 rounds q to the nearest tenth.



ToString turns an expression into a string and StringJoin joins strings, both aptly named ...






share|improve this answer











$endgroup$













  • $begingroup$
    Just fixed a typo (was missing a right bracket (])).
    $endgroup$
    – mjw
    21 hours ago


















2












$begingroup$

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



x = 5.8




Round[q*10] rounds 10q to the nearest integeger.



Round[q*10]/10 rounds q to the nearest tenth.



ToString turns an expression into a string and StringJoin joins strings, both aptly named ...






share|improve this answer











$endgroup$













  • $begingroup$
    Just fixed a typo (was missing a right bracket (])).
    $endgroup$
    – mjw
    21 hours ago
















2












2








2





$begingroup$

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



x = 5.8




Round[q*10] rounds 10q to the nearest integeger.



Round[q*10]/10 rounds q to the nearest tenth.



ToString turns an expression into a string and StringJoin joins strings, both aptly named ...






share|improve this answer











$endgroup$



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



x = 5.8




Round[q*10] rounds 10q to the nearest integeger.



Round[q*10]/10 rounds q to the nearest tenth.



ToString turns an expression into a string and StringJoin joins strings, both aptly named ...







share|improve this answer














share|improve this answer



share|improve this answer








edited 20 hours ago

























answered yesterday









mjwmjw

5429




5429












  • $begingroup$
    Just fixed a typo (was missing a right bracket (])).
    $endgroup$
    – mjw
    21 hours ago




















  • $begingroup$
    Just fixed a typo (was missing a right bracket (])).
    $endgroup$
    – mjw
    21 hours ago


















$begingroup$
Just fixed a typo (was missing a right bracket (])).
$endgroup$
– mjw
21 hours ago






$begingroup$
Just fixed a typo (was missing a right bracket (])).
$endgroup$
– mjw
21 hours ago




















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

How to label and detect the document text images

Vallis Paradisi

Tabula Rosettana