Mathematica 9 is now available
Services & Resources / Wolfram Forums / MathGroup Archive
-----

MathGroup Archive 2009

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

Search the Archive

Re: Extract Integrate values

  • To: mathgroup at smc.vnet.net
  • Subject: [mg95527] Re: Extract Integrate values
  • From: Jens-Peer Kuska <kuska at informatik.uni-leipzig.de>
  • Date: Tue, 20 Jan 2009 07:01:32 -0500 (EST)
  • Organization: Uni Leipzig
  • References: <gl4a8g$gis$1@smc.vnet.net>
  • Reply-to: kuska at informatik.uni-leipzig.de

Hi,

copy the ASCII code below, add a "}" at the end
and

f = Piecewise[{
     {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]\)}}]

Plot[f, {t, 50, 300}]

Regards
   Jens

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: Debugging Mathematica Code (Mathematica 7)
  • Next by Date: Re: Map onto one column of a matrix
  • Previous by thread: Re: Multiple Shooting Method
  • Next by thread: Re: Extract Integrate values