Services & ResourcesWolfram ForumsMathGroup Archive

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

Get Distribution from Interpolated Function

• To: mathgroup at smc.vnet.net
• Subject: [mg128273] Get Distribution from Interpolated Function
• From: Murta <rodrigomurtax at gmail.com>
• Date: Wed, 3 Oct 2012 03:09:09 -0400 (EDT)
• Delivered-to: l-mathgroup@mail-archive0.wolfram.com
• Delivered-to: l-mathgroup@wolfram.com
• Delivered-to: mathgroup-newout@smc.vnet.net
• Delivered-to: mathgroup-newsend@smc.vnet.net

Hi All

    I'm trying to get a distribution from an interpolated function but with no success.

(*Creating Dist from interpolation*)
ff = Interpolation[Table[{i, 1 + RandomReal[1]}, {i, 0, 10, 1}], Method -> "Spline"];
dist = ProbabilityDistribution[ff[x], {x, 0, 10}];

 (*Plot Interpolation ok!*)
Plot[ff[x], {x, 0, 10}]

(*Plot Dist ok!*)
Plot[Evaluate@PDF[dist, x], {x, 0, 10}]

(*do not work as spected, the histogram don't have the curve format*)
randonData = RandomVariate[dist, 100000];
Histogram[randonData, {0.1}, "Probability",  PlotRange -> {{0, 10}, All}]

tks in advance
Murta

• Follow-Ups:
  • Re: Get Distribution from Interpolated Function
    • From: Tomas Garza <tgarza10@msn.com>
  • Re: Get Distribution from Interpolated Function
    • From: Bob Hanlon <hanlonr357@gmail.com>