Services & Resources / Wolfram Forums / MathGroup Archive
-----

MathGroup Archive 2011

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

Search the Archive

Re: How to eliminate noises?

  • To: mathgroup at smc.vnet.net
  • Subject: [mg122712] Re: How to eliminate noises?
  • From: Bob Hanlon <hanlonr357 at gmail.com>
  • Date: Mon, 7 Nov 2011 05:52:45 -0500 (EST)
  • Delivered-to: l-mathgroup@mail-archive0.wolfram.com
  • References: <201111021121.GAA03503@smc.vnet.net>

I used try and error.


Bob Hanlon

On Sun, Nov 6, 2011 at 7:46 PM, Barrie Stokes
<Barrie.Stokes at newcastle.edu.au> wrote:
> Hi Bob
>
> Values of WorkingPrecision of 20 and less give interesting plots in this 
case. Does one settle on 25 (22 or more seems to work here) by trial and error? (Which very often isn't hard in Mathematica.)
>
> Barrie
>
>>>> On 03/11/2011 at 7:49 pm, in message <201111030849.DAA15344 at smc.vnet.net>, Bob
> Hanlon <hanlonr357 at gmail.com> wrote:
>> Use higher precision.
>>
>> Plot[(-1 + 2 n)^2 (-5077311495040 + 256771815840909 n -
>>     6285087811295946 n^2 + 99108751736880828 n^3 -
>>     1130572436430176064 n^4 + 9932051583279890496 n^5 -
>>     69845429986320295296 n^6 + 403489321408322272512 n^7 -
>>     1949815250878086761472 n^8 + 7985109816575584026624 n^9 -
>>     27976513439837284724736 n^10 + 84423827219928959287296 n^11 -
>>     220448430557212109488128 n^12 + 499528909151513065046016 n^13 -
>>     983522463480512590086144 n^14 + 1682263859668487045185536 n^15 -
>>     2495534893540205641334784 n^16 + 3200240859272788875411456 n^17 -
>>     3529950418080000008257536 n^18 + 3325177849291516859645952 n^19 -
>>     2648782194444972790382592 n^20 + 1760454182292395183308800 n^21 -
>>     958285503480825479430144 n^22 + 416134125894081039040512 n^23 -
>>     138626084433937223909376 n^24 + 33263436995017750609920 n^25 -
>>     5117451845387346247680 n^26 + 379070507065729351680 n^27), {n,
>>   0.35, 0.53}, WorkingPrecision -> 25]
>>
>>
>> Bob Hanlon
>>
>>
>> On Wed, Nov 2, 2011 at 7:21 AM, Artur <grafix at csl.pl> wrote:
>>> Plot[ (-1 + 2 n)^2 (-5077311495040 + 256771815840909 n -
>>>     6285087811295946 n^2 + 99108751736880828 n^3 -
>>>     1130572436430176064 n^4 + 9932051583279890496 n^5 -
>>>     69845429986320295296 n^6 + 403489321408322272512 n^7 -
>>>     1949815250878086761472 n^8 + 7985109816575584026624 n^9 -
>>>     27976513439837284724736 n^10 + 84423827219928959287296 n^11 -
>>>     220448430557212109488128 n^12 + 499528909151513065046016 n^13 -
>>>     983522463480512590086144 n^14 + 1682263859668487045185536 n^15 -
>>>     2495534893540205641334784 n^16 + 3200240859272788875411456 n^17 -
>>>     3529950418080000008257536 n^18 + 3325177849291516859645952 n^19 -
>>>     2648782194444972790382592 n^20 + 1760454182292395183308800 n^21 -
>>>     958285503480825479430144 n^22 + 416134125894081039040512 n^23 -
>>>     138626084433937223909376 n^24 + 33263436995017750609920 n^25 -
>>>     5117451845387346247680 n^26 + 379070507065729351680 n^27), {n,
>>>   0.35, 0.53}]
>



  • Prev by Date: Re: How to eliminate noises?
  • Next by Date: Re: Constraint evaluation in NMinimize
  • Previous by thread: Re: How to eliminate noises?
  • Next by thread: Re: How to eliminate noises? A better way perhaps.