Ttyjukl

Can a Mimic (container form) actually hold loot?

Drawing the Möbius band and the Klein bottle

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

PTIJ: Mouthful of Mitzvos

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

School performs periodic password audits. Is my password compromised?

Is there a math equivalent to the conditional ternary operator?

Ultrafilters as a double dual

Problems with rounding giving too many digits

I can't die. Who am I?

Is divide-by-zero a security vulnerability?

What is better: yes / no radio, or simple checkbox?

Naming Characters after Friends/Family

Quitting employee has privileged access to critical information

What is the purpose of a disclaimer like "this is not legal advice"?

Why can't we use freedom of speech and expression to incite people to rebel against government in India?

How do we objectively assess if a dialogue sounds unnatural or cringy?

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

Is being socially reclusive okay for a graduate student?

Is every open circuit a capacitor?

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

Is "cogitate" an appropriate word for this?

What's the best tool for cutting holes into duct work?

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

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

Alexey Popkov

38.5k4108263

asked 1 hour ago

WomblesWombles

584

share|improve this question

edited 32 mins ago

Alexey Popkov

38.5k4108263

asked 1 hour ago

WomblesWombles

584

edited 32 mins ago

Alexey Popkov

38.5k4108263

edited 32 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