Sfrgttk

Who is at the mall?

PTIJ: Mouthful of Mitzvos

Iron deposits mined from under the city

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

Is there a way to find out the age of climbing ropes?

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

Calculate total length of edges in select Voronoi diagram

Drawing the Möbius band and the Klein bottle

Learning to quickly identify valid fingering for piano?

ESPP--any reason not to go all in?

Is divide-by-zero a security vulnerability?

Is "cogitate" an appropriate word for this?

Dukha vs legitimate need

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

Why doesn't "adolescent" take any articles in "listen to adolescent agonising"?

I've given my players a lot of magic items. Is it reasonable for me to give them harder encounters?

Paper published similar to PhD thesis

Remove object from array based on array of some property of that object

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

Professor forcing me to attend a conference

Are small insurances worth it

Was it really inappropriate to write a pull request for the company I interviewed with?

Why won't the strings command stop?

Align equations with text before one of them

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 1 hour ago

Alexey Popkov

38.5k4108263

asked 2 hours 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 1 hour ago

Alexey Popkov

38.5k4108263

asked 2 hours 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 1 hour ago

Alexey Popkov

38.5k4108263

asked 2 hours 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 1 hour ago

Alexey Popkov

38.5k4108263

asked 2 hours ago

WomblesWombles

584

share|improve this question

edited 1 hour ago

Alexey Popkov

38.5k4108263

asked 2 hours ago

WomblesWombles

584

edited 1 hour ago

Alexey Popkov

38.5k4108263

edited 1 hour ago

Alexey Popkov

38.5k4108263

asked 2 hours ago

WomblesWombles

584

asked 2 hours 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$

• 
  
  
  

  
  

  
  
  
  
  
  

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

  
  
  
  

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$

• 
  
  
  

  
  

  
  
  
  
  
  

  
  $begingroup$
  Thank you, this worked great
  $endgroup$
  – Wombles
  13 mins 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$

• 
  
  
  

  
  

  
  
  
  
  
  

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

  
  
  
  

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