MathGroup Archive 2013

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

Search the Archive

Re: How to remove a singularity

  • To: mathgroup at
  • Subject: [mg130536] Re: How to remove a singularity
  • From: "Ralph and Dominique Crenshaw" <raldom at>
  • Date: Fri, 19 Apr 2013 01:18:07 -0400 (EDT)
  • Delivered-to:
  • Delivered-to:
  • Delivered-to:
  • Delivered-to:
  • References: <>

William, maybe one of the approaches below would be useful.

The first approach uses DownValues to define a singularity and the second
uses a condition to cover a range of values.

I would appreciate knowing if either of these approaches works for your

Best regards,


-----Original Message-----
From: William Duhe [mailto:williamduhe at] 
Sent: Thursday, April 18, 2013 5:35 AM
To: mathgroup at
Subject: [mg130536] How to remove a singularity

Bellow I have a differential equation which hits a singularity at low values
of t. What I want to do is somehow utilize the WhenEvent command in order to
replace the last factor of the equation (2/t a'[t]) with 0 at low values of
t in order to avoid getting errors. Is there a way to do this?

Here is an example of the equation and how I attempted to use the Whenevent

q = NDSolve[{a''[t] == 1/2 a[t]^2 + 1/6 a[t]^6 - 1/4 a[t]^4 - 2/t a'[t],
a[0] == 1, a'[0] == 0, WhenEvent[t < .1, a'[t] -> 0]}, a, {t, 0, 1}];

any help would be appreciated!

  • Prev by Date: Re: Converting a magnified image of a line to a single
  • Next by Date: Re: Easy to get the audio out of sync with the graphics (Repost)
  • Previous by thread: How to remove a singularity
  • Next by thread: Re: How to remove a singularity