       Re: Extract Integrate values

• To: mathgroup at smc.vnet.net
• Subject: [mg95564] Re: Extract Integrate values
• From: dh <dh at metrohm.com>
• Date: Wed, 21 Jan 2009 06:49:44 -0500 (EST)
• References: <gl4a8g\$gis\$1@smc.vnet.net>

```
Hi,

here is a small function that changes your output to a piecewise function:

ex2piec[ex_] := Piecewise@ Most[ex];

Note that plotting a piecewise function often needs an increase of the

option "PlotPoints".

hope this helps, Daniel

Ktota wrote:

> Hello there,

>

> does anyone has an idea how i can extract integral output (i have

> several line of output for different conditions) and automatically

> make an expression which i can plot on a graph.

>

> Integrate output:

> {

>  {0., t <= 87.5},

>  {2679.69- 61.25 t + 0.35 t^2, 87.5 < t <= 137.5},

>  {-10554.7 + 131.25 t - 0.35 t^2, 137.5 < t <= 155.},

>  {-6950.94 + 84.75 t - 0.2 t^2, 155. < t <= 187.5},

>  {5353.75- 46.5 t + 0.15 t^2, 187.5 < t <= 205.},

>  {-7253.75 + 76.5 t - 0.15 t^2, 205. < t <= 255.},

>  {2500., \!\(\*

>     TagBox["True",

>      "PiecewiseDefault",

>      AutoDelete->False,

>      DeletionWarning->True]\)}

>

> Manual typing of the above information to get it ploted:

>

> }

> If[t <= 87.5, 0,

>   If[t <= 137.5, 2679.6874999999995- 61.24999999999999 t + 0.35 t^2,

>    If[t <= 155, -10554.6875 + 131.25 t - 0.35 t^2,

>     If[t <= 187.5, -6950.937500000001 + 84.75 t -

>       0.19999999999999996 t^2,

>      If[t <= 205,

>       5353.750000000001 - 46.50000000000001 t +

>        0.15000000000000002 t^2,

>       If[t <= 255, -7253.750000000001 + 76.50000000000001 t -

>         0.15000000000000002 t^2, 2500

>        ]]]]]]/31200

>

```

• Prev by Date: Re: Re: Using Coefficient on an equation
• Next by Date: Re: What is QGamma[q,z]
• Previous by thread: Re: Extract Integrate values
• Next by thread: Re: Map onto one column of a matrix