'~' approximate format

[compsystems]

Sometimes it is necessary to display solutions in approximate format.

To avoid having to use nested commands, I propose, a '~' as an approximate alias.

csolve([(x^2+(y-3)^2) = 4,y = (-x-4)],[x,y],'=') [enter] returns

set[[x = ((-1/2)*(i*sqrt(41)-1)-4),y = ((1/2)*(i*sqrt(41)-1))],
[x = ((-1/2)*((−i)*sqrt(41)-1)-4),y = ((1/2)*((−i)*sqrt(41)-1))]]

csolve([(x^2+(y-3)^2) = 4,y = (-x-4)],[x,y],'=~') [enter] returns

set[[x = (−3.5-3.20156211872*i),y = (−0.5+3.20156211872*i)],
[x = (−3.5+3.20156211872*i),y = (−0.5-3.20156211872*i)]]


csolve([(x^2+(y-3)^2) = 4,y = (-x-4)],[x,y],'~') [enter] returns

set[[(−3.5-3.20156211872*i), (−0.5+3.20156211872*i)],
[(−3.5+3.20156211872*i),(−0.5-3.20156211872*i)]]