Kdtyjb

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

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

3.5% Interest Student Loan or use all of my savings on Tuition?

Convert an array of objects to array of the objects' values

Computing the volume of a simplex-like object with constraints

What is the oldest European royal house?

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

The past tense for the quoting particle って

A bug in Excel? Conditional formatting for marking duplicates also highlights unique value

Why do we call complex numbers “numbers” but we don’t consider 2 vectors numbers?

How spaceships determine each other's mass in space?

Naming Characters after Friends/Family

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

How do you make a gun that shoots melee weapons and/or swords?

The (Easy) Road to Code

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

Named nets not connected in Eagle board design

“I had a flat in the centre of town, but I didn’t like living there, so …”

What is Tony Stark injecting into himself in Iron Man 3?

Why aren't there more gauls like Obelix?

When to use the term transposed instead of modulation?

An Undercover Army

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

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

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
  2 hours ago
  

  
  
  
  


• 
  
  
  

  
  1
  

  
  
  
  
  
  

  
  $begingroup$
  Could round exactly and then use N: N[Round[Max[xx[[All, 1, 2]]], 1/10]]
  $endgroup$
  – Daniel Lichtblau
  2 hours 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
  2 hours ago
  

  
  
  
  


• 
  
  
  

  
  1
  

  
  
  
  
  
  

  
  $begingroup$
  Could round exactly and then use N: N[Round[Max[xx[[All, 1, 2]]], 1/10]]
  $endgroup$
  – Daniel Lichtblau
  2 hours 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 2 hours 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
  2 hours 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 2 hours ago

answered 2 hours ago

kglrkglr

187k10203421

$endgroup$

• 
  
  
  

  
  

  
  
  
  
  
  

  
  $begingroup$
  Thank you, this worked great
  $endgroup$
  – Wombles
  33 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 2 hours 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 2 hours 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
  2 hours 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 2 hours 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
  2 hours 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 2 hours 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 2 hours ago

Carl WollCarl Woll

69.4k393179

answered 2 hours ago

Carl WollCarl Woll

69.4k393179

answered 2 hours 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 2 hours ago

answered 2 hours ago

kglrkglr

187k10203421

$endgroup$

• 
  
  
  

  
  

  
  
  
  
  
  

  
  $begingroup$
  Thank you, this worked great
  $endgroup$
  – Wombles
  33 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 2 hours ago

answered 2 hours ago

kglrkglr

187k10203421

$endgroup$

• 
  
  
  

  
  

  
  
  
  
  
  

  
  $begingroup$
  Thank you, this worked great
  $endgroup$
  – Wombles
  33 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 2 hours ago

answered 2 hours 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 2 hours ago

answered 2 hours ago

kglrkglr

187k10203421

answered 2 hours ago

kglrkglr

187k10203421

answered 2 hours 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 2 hours 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 2 hours 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 2 hours ago

mjwmjw

5228

$endgroup$

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

share|improve this answer

answered 2 hours ago

mjwmjw

5228

answered 2 hours ago

mjwmjw

5228

answered 2 hours ago

mjwmjw

5228