MathGroup Archive 2013

[Date Index] [Thread Index] [Author Index]

Search the Archive

Re: multiintegral and table

  • To: mathgroup at smc.vnet.net
  • Subject: [mg131653] Re: multiintegral and table
  • From: "djmpark" <djmpark at comcast.net>
  • Date: Sun, 15 Sep 2013 07:10:47 -0400 (EDT)
  • Delivered-to: l-mathgroup@mail-archive0.wolfram.com
  • Delivered-to: l-mathgroup@wolfram.com
  • Delivered-to: mathgroup-outx@smc.vnet.net
  • Delivered-to: mathgroup-newsendx@smc.vnet.net
  • References: <23415788.249880.1379153301017.JavaMail.root@m06>

I don't know if your example is a simplified version of something more
general. In any case you can simplify things before you get to the plotting.
Specifically you can evaluate the integrals and arrive at a simple
expression that you can plot with the much easier Plot statement.

f1 = Integrate[2*y + x^2, {x, 0, 1}, {y, 0, x}] 
7/12

f2[q_] = Integrate[2*y + x^2*q, {x, 0, 1}, {y, 0, x}] 
1/3 + q/4 

ftotal[q_] = f1 + f2[q] 
11/12 + q/4 

Plot[ftotal[q], {q, 0, 10}]


David Park
djmpark at comcast.net 
http://home.comcast.net/~djmpark/index.html 




From: Parada Hutauruk [mailto:phutauruk at gmail.com] 

Dear all,

I have a function

f_1 [x_,y_] = Integrate[2*y + x^2, {x,0,1},{y,0,x}]

f_2 [x_,y_,Q_] = Integrate[2*y +x^2*Q, {x,0,1},{y,0,x}]

f_total [x_,y_,Q_] = f_1[x,y] + f_2[x,y,Q]

Then I want to plot the f total using table with Q start from 0 to 10 with
increment 0.0025.

I have defined by

dataxx = Table[{Q,f_total[x,y,Q]}, {Q, 0,10, 0.0025}]

And Plot the data on the table by

ListPlot[dataxx]

But when I evaluate the function, it took a long time and the plot is not
yielded. Could anyone help me please to find the bug? I really appreciate
for help.

Thanks,
PTPH




  • Prev by Date: Re: multiintegral and table
  • Next by Date: Re: very odd failure of Solve
  • Previous by thread: Re: multiintegral and table
  • Next by thread: Re: Finding a function within an arbitrary expression