
!if $[randint(2)]=0
 ra=$[-2*($rp)+($AA)]
 rb=$[($rp)^2+($BB)]
 f=x^2 + a*x + b
 y=t^2 + a*t + b
 dery=2*t + a
!else
 ra=$[2*($rp)+($AA)]
 rb=$[-($rp)^2+($BB)]
 f=-x^2 + a*x + b
 y=-t^2 + a*t + b
 dery=-2*t + a
!endif
x=t
derx=1

var=x

