-- -*- M2-comint -*- hash: 1966121746490846541

i1 : R = QQ[t]

o1 = R

o1 : PolynomialRing

i2 : f = (t - 5)*(t - 3)^2*(t - 1)*(t + 1)

      5      4      3      2
o2 = t  - 11t  + 38t  - 34t  - 39t + 45

o2 : R

i3 : roots f

o3 = {-1, 1, 3, 3, 5}

o3 : List

i4 : sturmCount(f)

o4 = 4

i5 : sturmCount(f,0,5)

o5 = 3

i6 : sturmCount(f,-2,2)

o6 = 2

i7 : sturmCount(f,-1,5)	       

o7 = 3

i8 : sturmCount(f,Multiplicity => true)

o8 = 5

i9 : sturmCount(f,0,5,Multiplicity => true)

o9 = 4

i10 : sturmCount(f,0,3,Multiplicity => true)

o10 = 3

i11 : sturmCount(f,-infinity, 0)

o11 = 1

i12 : sturmCount(f,0,infinity)

o12 = 3

i13 : sturmCount(f,-infinity,infinity)

o13 = 4

i14 : 
