Group Abstract

Message Boards

WOLFRAM COMMUNITY

2.8K Views

3 Replies

2 Total Likes

View groups...

Follow this post

Share this post:

GROUPS:

Mathematics Calculus Equation Solving Wolfram Language

How to solve an equations with online Mathematica

Colin Beaton

Posted 3 years ago

Hello my people! I am new to Mathematica. ( Probably in a notebook)... Please demonstrate how you solve this equation, and do an integration, and evaluate. First I need to find what x equals in this equation of mine: -1/4 Sqrt[ 2 - 2/Sqrt5 ] + Sqrt[ 1 - [ x + 1/4 ( 1 +Sqrt5 ) ]^2 ] = x Sqrt[ 1 + 2/Sqrt5 ] Then integrate: -1/4 Sqrt[ 2 - 2/Sqrt5 ] + Sqrt[ 1 - [ x + 1/4 ( 1 +Sqrt5 ) ]^2 ] - x Sqrt[ 1 + 2/Sqrt5 ] Then evaluate from x=0 to the solved x-value. I would appreciate it.

POSTED BY: Colin Beaton

3 Replies

Sort By:

Rohit Namjoshi

Posted 3 years ago

As I said Please make sure I have fixed them correctly. Did you verify that the expressions are correctly parenthesized and `Sqrt5` should be `Sqrt[5]`? I did find something interesting. If I first evaluate Integrate[lhs, {x, -2, 2}] and then evaluate Integrate[lhs, {x, 0, xSol}] The result is a simpler expression that is numerically equivalent (* 1/240 (-3 Sqrt[5 (35 - 13 Sqrt[5] + Sqrt[30 (65 - 29 Sqrt[5])])] + 8 π) *) This odd behavior is reproducible (at least for me on "12.3.1 for Mac OS X x86 (64-bit) (June 19, 2021)"). I will report it to Wolfram support.

POSTED BY: Rohit Namjoshi

Rohit Namjoshi

Posted 3 years ago

There are some misplaced parenthesis and missing `[ ]`. Please make sure I have fixed them correctly. lhs = -1/4 Sqrt[2 - 2/Sqrt[5]] + Sqrt[1 - (x + 1/4 (1 + Sqrt[5]))^2] rhs = x Sqrt[1 + 2/Sqrt[5]] eqn = lhs == rhs sol = Solve[eqn, x] xSol = x /. First@sol // Simplify (* 1/32 (-4 Sqrt[5] + Sqrt[2 (3 + Sqrt[5])] - Sqrt[10 (3 + Sqrt[5])] + 2 Sqrt[2 (60 - 16 Sqrt[5] + 5 Sqrt[2 (3 + Sqrt[5])] - Sqrt[10 (3 + Sqrt[5])])]) ) Integrate[lhs, {x, 0, xSol}] ( 1/32 Sqrt[10 - 2 Sqrt[5]] - 1/32 Sqrt[10 - 2 Sqrt[5]] (1 + Sqrt[5]) - 1/32 Sqrt[1/10 (5 + Sqrt[5])] + 1/32 Sqrt[1/2 (5 + Sqrt[5])] - 1/( 16 Sqrt[-( 2/(-38 + 14 Sqrt[5] - 3 Sqrt[2 (3 + Sqrt[5])] + Sqrt[ 10 (3 + Sqrt[5])]))]) + (1/2048)(8 + 4 Sqrt[5] + Sqrt[ 2 (3 + Sqrt[5])] - Sqrt[10 (3 + Sqrt[5])] + 2 Sqrt[ 2 (60 - 16 Sqrt[5] + 5 Sqrt[2 (3 + Sqrt[5])] - Sqrt[ 10 (3 + Sqrt[5])])]) \[Sqrt]((24 - 4 Sqrt[5] - Sqrt[ 2 (3 + Sqrt[5])] + Sqrt[10 (3 + Sqrt[5])] - 2 Sqrt[ 2 (60 - 16 Sqrt[5] + 5 Sqrt[2 (3 + Sqrt[5])] - Sqrt[ 10 (3 + Sqrt[5])])]) (40 + 4 Sqrt[5] + Sqrt[ 2 (3 + Sqrt[5])] - Sqrt[10 (3 + Sqrt[5])] + 2 Sqrt[2 (60 - 16 Sqrt[5] + 5 Sqrt[2 (3 + Sqrt[5])] - Sqrt[10 (3 + Sqrt[5])])])) - 1/2 I Log[8] - 1/2 I Log[1 + Sqrt[5] + I Sqrt[10 - 2 Sqrt[5]]] + 1/2 I Log[ 8 + 4 Sqrt[5] + Sqrt[2 (3 + Sqrt[5])] - Sqrt[10 (3 + Sqrt[5])] + 2 Sqrt[ 2 (60 - 16 Sqrt[5] + 5 Sqrt[2 (3 + Sqrt[5])] - Sqrt[10 (3 + Sqrt[5])])] + 2 I \[Sqrt](2 (48 + 8 Sqrt[5] - 2 Sqrt[2 (3 + Sqrt[5])] + 2 Sqrt[10 (3 + Sqrt[5])] - 4 Sqrt[2 (60 - 16 Sqrt[5] + 5 Sqrt[2 (3 + Sqrt[5])] - Sqrt[10 (3 + Sqrt[5])])] - 2 Sqrt[10 (60 - 16 Sqrt[5] + 5 Sqrt[2 (3 + Sqrt[5])] - Sqrt[ 10 (3 + Sqrt[5])])] - Sqrt[2 (50 + 6 Sqrt[5] + 5 Sqrt[2 (3 + Sqrt[5])] + Sqrt[ 10 (3 + Sqrt[5])])] + Sqrt[10 (50 + 6 Sqrt[5] + 5 Sqrt[2 (3 + Sqrt[5])] + Sqrt[ 10 (3 + Sqrt[5])])]))] *)

There are some misplaced parenthesis and missing [ ]. Please make sure I have fixed them correctly.

lhs = -1/4 Sqrt[2 - 2/Sqrt[5]] + Sqrt[1 - (x + 1/4 (1 + Sqrt[5]))^2]
rhs = x Sqrt[1 + 2/Sqrt[5]]
eqn = lhs == rhs

sol = Solve[eqn, x]
xSol = x /. First@sol // Simplify
(* 1/32 (-4 Sqrt[5] + Sqrt[2 (3 + Sqrt[5])] - Sqrt[10 (3 + Sqrt[5])] + 
   2 Sqrt[2 (60 - 16 Sqrt[5] + 5 Sqrt[2 (3 + Sqrt[5])] - Sqrt[10 (3 + Sqrt[5])])]) *)

Integrate[lhs, {x, 0, xSol}]
(* 1/32 Sqrt[10 - 2 Sqrt[5]] - 1/32 Sqrt[10 - 2 Sqrt[5]] (1 + Sqrt[5]) - 
 1/32 Sqrt[1/10 (5 + Sqrt[5])] + 1/32 Sqrt[1/2 (5 + Sqrt[5])] - 1/(
 16 Sqrt[-(
   2/(-38 + 14 Sqrt[5] - 3 Sqrt[2 (3 + Sqrt[5])] + Sqrt[
    10 (3 + Sqrt[5])]))]) + (1/2048)(8 + 4 Sqrt[5] + Sqrt[
    2 (3 + Sqrt[5])] - Sqrt[10 (3 + Sqrt[5])] + 
    2 Sqrt[
     2 (60 - 16 Sqrt[5] + 5 Sqrt[2 (3 + Sqrt[5])] - Sqrt[
        10 (3 + Sqrt[5])])]) \[Sqrt]((24 - 4 Sqrt[5] - Sqrt[
       2 (3 + Sqrt[5])] + Sqrt[10 (3 + Sqrt[5])] - 
       2 Sqrt[
        2 (60 - 16 Sqrt[5] + 5 Sqrt[2 (3 + Sqrt[5])] - Sqrt[
           10 (3 + Sqrt[5])])]) (40 + 4 Sqrt[5] + Sqrt[
       2 (3 + Sqrt[5])] - Sqrt[10 (3 + Sqrt[5])] + 
       2 Sqrt[2 (60 - 16 Sqrt[5] + 5 Sqrt[2 (3 + Sqrt[5])] - Sqrt[10 (3 + Sqrt[5])])])) - 1/2 I Log[8] - 
 1/2 I Log[1 + Sqrt[5] + I Sqrt[10 - 2 Sqrt[5]]] + 
 1/2 I Log[
   8 + 4 Sqrt[5] + Sqrt[2 (3 + Sqrt[5])] - Sqrt[10 (3 + Sqrt[5])] + 
    2 Sqrt[
     2 (60 - 16 Sqrt[5] + 5 Sqrt[2 (3 + Sqrt[5])] - Sqrt[10 (3 + Sqrt[5])])] + 
    2 I \[Sqrt](2 (48 + 8 Sqrt[5] - 2 Sqrt[2 (3 + Sqrt[5])] + 
          2 Sqrt[10 (3 + Sqrt[5])] - 
          4 Sqrt[2 (60 - 16 Sqrt[5] + 5 Sqrt[2 (3 + Sqrt[5])] - Sqrt[10 (3 + Sqrt[5])])] - 
          2 Sqrt[10 (60 - 16 Sqrt[5] + 5 Sqrt[2 (3 + Sqrt[5])] - Sqrt[
              10 (3 + Sqrt[5])])] - Sqrt[2 (50 + 6 Sqrt[5] + 5 Sqrt[2 (3 + Sqrt[5])] + Sqrt[
             10 (3 + Sqrt[5])])] + Sqrt[10 (50 + 6 Sqrt[5] + 5 Sqrt[2 (3 + Sqrt[5])] + Sqrt[
             10 (3 + Sqrt[5])])]))] *)

POSTED BY: Rohit Namjoshi

Colin Beaton

Posted 3 years ago

Thank you. I think the real answer is in terms of Pi. Not to diss your work, but this seems either wrong or not simplified. Please help more.

POSTED BY: Colin Beaton

Reply to this discussion

Reply Preview

Attachments

Remove Add a file to this post

Follow this discussion

or Discard

Feedback