```Date: Sep 15, 2013 7:01 AM
Author: David Park
Subject: Re: multiintegral and table

I don't know if your example is a simplified version of something moregeneral. In any case you can simplify things before you get to the plotting.Specifically you can evaluate the integrals and arrive at a simpleexpression that you can plot with the much easier Plot statement.f1 = Integrate[2*y + x^2, {x, 0, 1}, {y, 0, x}] 7/12f2[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 Parkdjmpark@comcast.net http://home.comcast.net/~djmpark/index.html From: Parada Hutauruk [mailto:phutauruk@gmail.com] Dear all,I have a functionf_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 withincrement 0.0025.I have defined bydataxx = Table[{Q,f_total[x,y,Q]}, {Q, 0,10, 0.0025}]And Plot the data on the table byListPlot[dataxx]But when I evaluate the function, it took a long time and the plot is notyielded. Could anyone help me please to find the bug? I really appreciatefor help.Thanks,PTPH
```