I prepared a code in which some numerical data can be produced. I want to export the data in terms of counter of loop but I don't know how I can do it. It my please if someone who knows, helps me. Here is my code.
Clear["Global`*"]
m0 = 1;
ω = 1;
m = 1;
For[γ = 0.1, γ <= 1, γ = γ + 0.1,
ψ[x_] = Sqrt[m0/(1 + γ x^2)^2] E^((-ω m0 )/(2 γ) ArcTan[x Sqrt[γ]]^2) HermiteH[m, Sqrt[(ω m0)/γ] ArcTan[x Sqrt[γ]]];
A = NIntegrate[ψ[x]^2, {x, -∞, ∞}];
n = 1/Sqrt[A];
Ψ[x_] = n ψ[x];
Subscript[S, x] = NIntegrate[Ψ[x]^2 Log[Ψ[x]^2], {x, -∞, ∞}];
Print[γ, " ", Subscript[S, x]]]
0.1 -1.43033
0.2 -1.49253
0.3 -1.53077
0.4 -1.54978
0.5 -1.55519
0.6 -1.55161
0.7 -1.54224
0.8 -1.52921
0.9 -1.51391
1. -1.49725