Ttykuu

How to type a long/em dash `—`

Inverse Relationship Between Precision and Recall

Button changing its text & action. Good or terrible?

Kerning for subscripts of sigma?

Falsification in Math vs Science

Does adding complexity mean a more secure cipher?

A word that means fill it to the required quantity

Correct punctuation for showing a character's confusion

What is preventing me from simply constructing a hash that's lower than the current target?

Is there a way to generate a point on a sphere from a fixed amount of random real numbers?

Is it okay to consider publishing in my first year of PhD?

Old scifi movie from the 50s or 60s with men in solid red uniforms who interrogate a spy from the past

Cooking pasta in a water boiler

Is it ok to offer lower paid work as a trial period before negotiating for a full-time job?

Why couldn't they take pictures of a closer black hole?

Is it a good practice to use a static variable in a Test Class and use that in the actual class instead of Test.isRunningTest()?

Why is the maximum length of OpenWrt’s root password 8 characters?

Are there any other methods to apply to solving simultaneous equations?

Why does the nucleus not repel itself?

If my opponent casts Ultimate Price on my Phantasmal Bear, can I save it by casting Snap or Curfew?

Are spiders unable to hurt humans, especially very small spiders?

Can you cast a spell on someone in the Ethereal Plane, if you are on the Material Plane and have the True Seeing spell active?

What does もの mean in this sentence?

Does HR tell a hiring manager about salary negotiations?

Finding the area between two curves with Integrate

2

$begingroup$

I'm trying to solve and approximate the area between the two graphs. Right now, my functions are stored as

f[x_] := 3 Sin[x]
g[x_] := x - 1

and then I tried to integrate by evaluating

Integrate[Abs[f[x] - g[x]], x]

Instead of getting an answer, I just get the exact same thing I inputted

Integrate[Abs[f[x] - g[x]], x]

How do I fix this?

calculus-and-analysis

share|improve this question

edited 17 mins ago

m_goldberg

88.6k873200

asked 53 mins ago

RyanRyan

111

New contributor

Ryan is a new contributor to this site. Take care in asking for clarification, commenting, and answering.
Check out our Code of Conduct.

$endgroup$

• 
  
  
  

  
  

  
  
  
  
  
  

  
  $begingroup$
  You can format inline code and code blocks by selecting the code and clicking the button above the edit window. The edit window help button ? is useful for learning how to format your questions and answers. You may also find this meta Q&A helpful
  $endgroup$
  – Michael E2
  35 mins ago
  

  
  
  
  

add a comment | 

2

$begingroup$

I'm trying to solve and approximate the area between the two graphs. Right now, my functions are stored as

f[x_] := 3 Sin[x]
g[x_] := x - 1

and then I tried to integrate by evaluating

Integrate[Abs[f[x] - g[x]], x]

Instead of getting an answer, I just get the exact same thing I inputted

Integrate[Abs[f[x] - g[x]], x]

How do I fix this?

calculus-and-analysis

share|improve this question

edited 17 mins ago

m_goldberg

88.6k873200

asked 53 mins ago

RyanRyan

111

New contributor

Ryan is a new contributor to this site. Take care in asking for clarification, commenting, and answering.
Check out our Code of Conduct.

$endgroup$

• 
  
  
  

  
  

  
  
  
  
  
  

  
  $begingroup$
  You can format inline code and code blocks by selecting the code and clicking the button above the edit window. The edit window help button ? is useful for learning how to format your questions and answers. You may also find this meta Q&A helpful
  $endgroup$
  – Michael E2
  35 mins ago
  

  
  
  
  

add a comment | 

$begingroup$

I'm trying to solve and approximate the area between the two graphs. Right now, my functions are stored as

f[x_] := 3 Sin[x]
g[x_] := x - 1

and then I tried to integrate by evaluating

Integrate[Abs[f[x] - g[x]], x]

Instead of getting an answer, I just get the exact same thing I inputted

Integrate[Abs[f[x] - g[x]], x]

How do I fix this?

calculus-and-analysis

share|improve this question

edited 17 mins ago

m_goldberg

88.6k873200

asked 53 mins ago

RyanRyan

111

New contributor

Ryan is a new contributor to this site. Take care in asking for clarification, commenting, and answering.
Check out our Code of Conduct.

$endgroup$

f[x_] := 3 Sin[x]
g[x_] := x - 1

Integrate[Abs[f[x] - g[x]], x]

Integrate[Abs[f[x] - g[x]], x]

share|improve this question

edited 17 mins ago

m_goldberg

88.6k873200

asked 53 mins ago

RyanRyan

111

New contributor

Ryan is a new contributor to this site. Take care in asking for clarification, commenting, and answering.
Check out our Code of Conduct.

share|improve this question

edited 17 mins ago

m_goldberg

88.6k873200

asked 53 mins ago

RyanRyan

111

New contributor

Ryan is a new contributor to this site. Take care in asking for clarification, commenting, and answering.
Check out our Code of Conduct.

edited 17 mins ago

m_goldberg

88.6k873200

edited 17 mins ago

m_goldberg

88.6k873200

asked 53 mins ago

RyanRyan

111

New contributor

Ryan is a new contributor to this site. Take care in asking for clarification, commenting, and answering.
Check out our Code of Conduct.

asked 53 mins ago

RyanRyan

111

3 Answers
3

active

oldest

votes

2

$begingroup$

Use Assumptions:

Integrate[Abs[f[x] - g[x]], x, Assumptions -> x [Element] Reals]

Or try RealAbs instead of Abs:

Integrate[RealAbs[f[x] - g[x]], x]

(They are equivalent antiderivatives.)

To get the area between the graphs, you need also to solve for the points of intersection.

area = Integrate[
 Abs[f[x] - g[x]], x, Sequence @@ MinMax[x /. Solve[f[x] == g[x], x, Reals]]]

The area is approximately:

N[area]
(* 5.57475 *)

share|improve this answer

edited 27 mins ago

answered 31 mins ago

Michael E2Michael E2

150k12203482

$endgroup$

• 
  
  
  

  
  

  
  
  
  
  
  

  
  $begingroup$
  RealAbs is awesome to know about! :O
  $endgroup$
  – Kagaratsch
  30 mins ago
  

  
  
  
  

add a comment | 

1

$begingroup$

You need to add assumptions, like this

 Integrate[Abs[f[x] - g[x]], x, Assumptions :> Element[x, Reals]]

share|improve this answer

answered 31 mins ago

NasserNasser

58.7k490206

$endgroup$

add a comment | 

0

$begingroup$

Assuming your functions

f[x_] := 3 Sin[x] 
g[x_] := x - 1

are real valued, you can use square root of square to parametrize the absolute value. This then gives:

Integrate[Sqrt[(f[x] - g[x])^2], x]

(((-2 + x) x + 6 Cos[x]) Sqrt[(-1 + x - 3 Sin[x])^2])/(2 (-1 + x -
3 Sin[x]))

share|improve this answer

answered 32 mins ago

KagaratschKagaratsch

4,83831348

$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
);



);

Ryan is a new contributor. Be nice, and check out our Code of Conduct.

draft saved

draft discarded

Sign up or log in

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

var $window = $(window),
onScroll = function(e)
var $elem = $('.new-login-left'),
docViewTop = $window.scrollTop(),
docViewBottom = docViewTop + $window.height(),
elemTop = $elem.offset().top,
elemBottom = elemTop + $elem.height();
if ((docViewTop elemBottom))
StackExchange.using('gps', function() StackExchange.gps.track('embedded_signup_form.view', location: 'question_page' ); );
$window.unbind('scroll', onScroll);

;
$window.on('scroll', onScroll);

);

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%2f195049%2ffinding-the-area-between-two-curves-with-integrate%23new-answer', 'question_page');

);

Post as a guest

Name

Email

Required, but never shown

2

$begingroup$

Use Assumptions:

Integrate[Abs[f[x] - g[x]], x, Assumptions -> x [Element] Reals]

Or try RealAbs instead of Abs:

Integrate[RealAbs[f[x] - g[x]], x]

(They are equivalent antiderivatives.)

To get the area between the graphs, you need also to solve for the points of intersection.

area = Integrate[
 Abs[f[x] - g[x]], x, Sequence @@ MinMax[x /. Solve[f[x] == g[x], x, Reals]]]

The area is approximately:

N[area]
(* 5.57475 *)

share|improve this answer

edited 27 mins ago

answered 31 mins ago

Michael E2Michael E2

150k12203482

$endgroup$

• 
  
  
  

  
  

  
  
  
  
  
  

  
  $begingroup$
  RealAbs is awesome to know about! :O
  $endgroup$
  – Kagaratsch
  30 mins ago
  

  
  
  
  

add a comment | 

2

$begingroup$

Use Assumptions:

Integrate[Abs[f[x] - g[x]], x, Assumptions -> x [Element] Reals]

Or try RealAbs instead of Abs:

Integrate[RealAbs[f[x] - g[x]], x]

(They are equivalent antiderivatives.)

To get the area between the graphs, you need also to solve for the points of intersection.

area = Integrate[
 Abs[f[x] - g[x]], x, Sequence @@ MinMax[x /. Solve[f[x] == g[x], x, Reals]]]

The area is approximately:

N[area]
(* 5.57475 *)

share|improve this answer

edited 27 mins ago

answered 31 mins ago

Michael E2Michael E2

150k12203482

$endgroup$

• 
  
  
  

  
  

  
  
  
  
  
  

  
  $begingroup$
  RealAbs is awesome to know about! :O
  $endgroup$
  – Kagaratsch
  30 mins ago
  

  
  
  
  

add a comment | 

$begingroup$

Use Assumptions:

Integrate[Abs[f[x] - g[x]], x, Assumptions -> x [Element] Reals]

Or try RealAbs instead of Abs:

Integrate[RealAbs[f[x] - g[x]], x]

(They are equivalent antiderivatives.)

To get the area between the graphs, you need also to solve for the points of intersection.

area = Integrate[
 Abs[f[x] - g[x]], x, Sequence @@ MinMax[x /. Solve[f[x] == g[x], x, Reals]]]

The area is approximately:

N[area]
(* 5.57475 *)

share|improve this answer

edited 27 mins ago

answered 31 mins ago

Michael E2Michael E2

150k12203482

$endgroup$

Integrate[Abs[f[x] - g[x]], x, Assumptions -> x [Element] Reals]

Integrate[RealAbs[f[x] - g[x]], x]

area = Integrate[
 Abs[f[x] - g[x]], x, Sequence @@ MinMax[x /. Solve[f[x] == g[x], x, Reals]]]

N[area]
(* 5.57475 *)

share|improve this answer

edited 27 mins ago

answered 31 mins ago

Michael E2Michael E2

150k12203482

answered 31 mins ago

Michael E2Michael E2

150k12203482

answered 31 mins ago

Michael E2Michael E2

150k12203482

1

$begingroup$

You need to add assumptions, like this

 Integrate[Abs[f[x] - g[x]], x, Assumptions :> Element[x, Reals]]

share|improve this answer

answered 31 mins ago

NasserNasser

58.7k490206

$endgroup$

add a comment | 

1

$begingroup$

You need to add assumptions, like this

 Integrate[Abs[f[x] - g[x]], x, Assumptions :> Element[x, Reals]]

share|improve this answer

answered 31 mins ago

NasserNasser

58.7k490206

$endgroup$

add a comment | 

$begingroup$

You need to add assumptions, like this

 Integrate[Abs[f[x] - g[x]], x, Assumptions :> Element[x, Reals]]

share|improve this answer

answered 31 mins ago

NasserNasser

58.7k490206

$endgroup$

 Integrate[Abs[f[x] - g[x]], x, Assumptions :> Element[x, Reals]]

share|improve this answer

answered 31 mins ago

NasserNasser

58.7k490206

answered 31 mins ago

NasserNasser

58.7k490206

answered 31 mins ago

NasserNasser

58.7k490206

0

$begingroup$

Assuming your functions

f[x_] := 3 Sin[x] 
g[x_] := x - 1

are real valued, you can use square root of square to parametrize the absolute value. This then gives:

Integrate[Sqrt[(f[x] - g[x])^2], x]

(((-2 + x) x + 6 Cos[x]) Sqrt[(-1 + x - 3 Sin[x])^2])/(2 (-1 + x -
3 Sin[x]))

share|improve this answer

answered 32 mins ago

KagaratschKagaratsch

4,83831348

$endgroup$

add a comment | 

0

$begingroup$

Assuming your functions

f[x_] := 3 Sin[x] 
g[x_] := x - 1

are real valued, you can use square root of square to parametrize the absolute value. This then gives:

Integrate[Sqrt[(f[x] - g[x])^2], x]

(((-2 + x) x + 6 Cos[x]) Sqrt[(-1 + x - 3 Sin[x])^2])/(2 (-1 + x -
3 Sin[x]))

share|improve this answer

answered 32 mins ago

KagaratschKagaratsch

4,83831348

$endgroup$

add a comment | 

$begingroup$

Assuming your functions

f[x_] := 3 Sin[x] 
g[x_] := x - 1

are real valued, you can use square root of square to parametrize the absolute value. This then gives:

Integrate[Sqrt[(f[x] - g[x])^2], x]

(((-2 + x) x + 6 Cos[x]) Sqrt[(-1 + x - 3 Sin[x])^2])/(2 (-1 + x -
3 Sin[x]))

share|improve this answer

answered 32 mins ago

KagaratschKagaratsch

4,83831348

$endgroup$

f[x_] := 3 Sin[x] 
g[x_] := x - 1

Integrate[Sqrt[(f[x] - g[x])^2], x]

share|improve this answer

answered 32 mins ago

KagaratschKagaratsch

4,83831348

answered 32 mins ago

KagaratschKagaratsch

4,83831348

answered 32 mins ago

KagaratschKagaratsch

4,83831348