Text this: Solution of one dimensional infinite string using mathematica