Hello,

I want to write the results which I got out of NDSolve function into a table. Once I've managed that I'll write them into a file for further processing. Unfortunately, the results seem to be written within brackets in the following form: {{value}} My aim is to have the values written without the brackets.

The code is as follows, whereas x[t] is an InterpolatingFunction as a result from NDSolve:

q[t_] = Exp[-t/50];

s = NDSolve[{x'[t] == x[t]*(z[t] - q[t]) - x[t], z'[t] == -z[t]*x[t], x[0] == x0, z[0] == z0}, {z[t], 
   x[t]}, {t, 0, 5000}]

data = Table[{t, Evaluate[{x[t]} /. s]}, {t, 0, 2000, 0.5}];

Export["data_table.csv", data];

Best regards