Ryfujk

Do natural melee weapons (from racial traits) trigger Improved Divine Smite?

Create chunks from an array

If nine coins are tossed, what is the probability that the number of heads is even?

What is the meaning of option 'by' in TikZ Intersections

Why are special aircraft used for the carriers in the United States Navy?

Should we avoid writing fiction about historical events without extensive research?

PTIJ: Mouthful of Mitzvos

PTIJ: Aliyot for the deceased

Where do you go through passport control when transiting through another Schengen airport on your way out of the Schengen area?

Are small insurances worth it

Does the in-code argument passing conventions used on PDP-11's have a name?

Can you run a ground wire from stove directly to ground pole in the ground

What does "rhumatis" mean?

Practical reasons to have both a large police force and bounty hunting network?

Learning to quickly identify valid fingering for piano?

The need of reserving one's ability in job interviews

Can a Mimic (container form) actually hold loot?

Can a Mexican citizen living in US under DACA drive to Canada?

How to make sure I'm assertive enough in contact with subordinates?

Why would the IRS ask for birth certificates or even audit a small tax return?

How can friction do no work in case of pure rolling?

Does the US political system, in principle, allow for a no-party system?

Should I use HTTPS on a domain that will only be used for redirection?

Are angels creatures (Mark 16:15) and can they repent (Rev 2:5 and Rom 8:21)

Problems with rounding giving too many digits

Use only exponents (no radicals) in output expressionsRounding to the nearest decimal and pasting such output into an Input cellIs the divergence between Round and setting an explicit precision intentional or a bug?How to specify the square-bracket analogue of MatrixForm?Looking for PostScriptForm or ForthForm to print expressions as RPN codeHow to create a Text with certain size given in a specified way?Would like input and output printed on same line, w/o needing extra syntaxFormatting exported dataFormatting numbers in a GridFormatting a table to look nice

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

edited 46 mins ago

Alexey Popkov

38.5k4108263

asked 1 hour ago

WomblesWombles

584

$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
  

  
  
  
  

add a comment | 

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

edited 46 mins ago

Alexey Popkov

38.5k4108263

asked 1 hour ago

WomblesWombles

584

$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
  

  
  
  
  

add a comment | 

$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

edited 46 mins ago

Alexey Popkov

38.5k4108263

asked 1 hour ago

WomblesWombles

584

$endgroup$

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"]]

share|improve this question

edited 46 mins ago

Alexey Popkov

38.5k4108263

asked 1 hour ago

WomblesWombles

584

share|improve this question

edited 46 mins ago

Alexey Popkov

38.5k4108263

asked 1 hour ago

WomblesWombles

584

edited 46 mins ago

Alexey Popkov

38.5k4108263

edited 46 mins ago

Alexey Popkov

38.5k4108263

asked 1 hour ago

WomblesWombles

584

asked 1 hour ago

WomblesWombles

584

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

answered 1 hour ago

Carl WollCarl Woll

69.4k393179

$endgroup$

• 
  
  
  

  
  

  
  
  
  
  
  

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

  
  
  
  

add a comment | 

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

edited 1 hour ago

answered 1 hour ago

kglrkglr

187k10203421

$endgroup$

add a comment | 

1

$begingroup$

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

x = 5.8

share|improve this answer

answered 1 hour ago

mjwmjw

5228

$endgroup$

add a comment | 

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

Sign up or log in

StackExchange.ready(function () {
StackExchange.helpers.onClickDraftSave('#login-link');
});

Sign up using Google

Sign up using Facebook

Sign up using Email and Password

Post as a guest

Name

Email

Required, but never shown

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

Name

Email

Required, but never shown

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

answered 1 hour ago

Carl WollCarl Woll

69.4k393179

$endgroup$

• 
  
  
  

  
  

  
  
  
  
  
  

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

  
  
  
  

add a comment | 

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

answered 1 hour ago

Carl WollCarl Woll

69.4k393179

$endgroup$

• 
  
  
  

  
  

  
  
  
  
  
  

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

  
  
  
  

add a comment | 

$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

answered 1 hour ago

Carl WollCarl Woll

69.4k393179

$endgroup$

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

share|improve this answer

answered 1 hour ago

Carl WollCarl Woll

69.4k393179

answered 1 hour ago

Carl WollCarl Woll

69.4k393179

answered 1 hour ago

Carl WollCarl Woll

69.4k393179

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

edited 1 hour ago

answered 1 hour ago

kglrkglr

187k10203421

$endgroup$

add a comment | 

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

edited 1 hour ago

answered 1 hour ago

kglrkglr

187k10203421

$endgroup$

add a comment | 

$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

edited 1 hour ago

answered 1 hour ago

kglrkglr

187k10203421

$endgroup$

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

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

  "none"]]

share|improve this answer

edited 1 hour ago

answered 1 hour ago

kglrkglr

187k10203421

answered 1 hour ago

kglrkglr

187k10203421

answered 1 hour ago

kglrkglr

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

answered 1 hour ago

mjwmjw

5228

$endgroup$

add a comment | 

1

$begingroup$

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

x = 5.8

share|improve this answer

answered 1 hour ago

mjwmjw

5228

$endgroup$

add a comment | 

$begingroup$

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

x = 5.8

share|improve this answer

answered 1 hour ago

mjwmjw

5228

$endgroup$

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

share|improve this answer

answered 1 hour ago

mjwmjw

5228

answered 1 hour ago

mjwmjw

5228

answered 1 hour ago

mjwmjw

5228