I have this expression:
testsprog = DSolve[{feq, y[1] == 1}, y[x], x]
That, upon evaluation, produces:
{{y[x] -> 1/2 x Tan[2 (ArcTan[2]/2 + Log[x])]}}
When I try to plot it using the command:
Plot[testsprog, {x, 1, 4}]
I see only a coordinate axis, and not my equation. Why?