 Political candidate's stances on specific issues?
 Data on minimum wage by country?
 Web8.5 CMS Connection Error: Attempt by security transparent method
 Having known vs Knowing
 “Your bonus will be prorated for your first year.”  Incorrect use of prorated?
 Happy to hear that!/ Great to hear that!/ Glad to hear that!
 While framing a sentence using a team,
 They had lost all hope. OR They lost all hope
 Is there a difference between “with time” and “over time”?
 Is there a word/phrase that means “first nature”?
 Magento 2 Echo level 3 category using Rest Api
 Add a custom button to Customers Grid
 Magento2 admin custom module throwing the error
 Magento 2 menu tablet break
 how to genrate customer password like megento 2 using php
 Is there a way to duplicate the language code of store view related to multiple Web sites and stores in Magento 2.2?
 How to Run magento 2 command without connect putty?
 Was Moffle based on Gonta from “Dekirukana” (aka. “Noppo and Gonta”)?
 How do I find the parents, DOB for a child born in Massachusetts in 1919?
 Amendment of objectionable or rejected claims?
Generating a table of solutions for an equation
I am trying to solve numerically an equation and generate some results. I use the following code
u[c_] := (c^(1  σ)  1)/(1  σ)
f[s_] := g s (1  s/sbar1)
h[s_] := (2 hbar)/(1 + Exp[η (s/sbar  1)])
co[a_] := ϕ (a^2)/2
ψ[k_] := wbar (ω + (1  ω) Exp[γ k])
The equation I try to solve is the following
adap[k_, s_] := (ρ + δ) u'[f[s]  priceadap δ k] co'[δ k] + ψ'[k] h[s]
I have the following constant parameter set
paramFinal2 = {σ > 1.7, ρ > 0.025, g > 0.05, sbar > 10, η > 11, hbar > 0.5, priceadap > 0.0006, γ > 0.6, χ > 1000, ϕ > 0.05, ω > 0.35, β > 0.8, δ > 0.065, sbar1 > 10, wbar > 1000};
So, for different values of $s$, I try to generate the corresponding values of $k$.
For this, I use the following code
tmax1 = 10;
solK[i_] := Solve[adap[k, i] == 0 /. paramFinal2, k];
Table[solK[i], {i, 1, tmax1}];
Unfortunately, this does not give any result. Mathematica is always on mode "Running...".
P.S I am using Mathematica 9.0
I always f

I always find it a good idea to plot the functions you are investigating. Thus
tmax1 = 10;
Column@Table[
Plot[Evaluate[adap[k, i] /. paramFinal2], {k, 0, 20}], {i, 1 tmax1}]
They all look fine except for the last one. The zero is at about k = 10 for most of the functions.
The equation is not a polynomial and thus may not be solvable using Solve. I don't know what range of equations Solve can deal with but some functions are just too complicated. The solution for this is to use FindRoot.
rts = Table[
FindRoot[adap[k, i] /. paramFinal2, {k, 10}], {i, 1, tmax1}]
which gives
{{k > 10.7363}, {k > 12.1674}, {k > 12.8497}, {k > 13.185}, {k >
13.2841}, {k > 13.169}, {k > 12.797}, {k > 12.0139}, {k >
10.3238}, {k > 3.43075*10^39  3.28305*10^36 I}}
The last root is clearly wrong and is complex which gives us a clue. If we do
adap[k, 10] /. paramFinal2 /. k > 1
We get
5269.92 + 7400.72 I
So this looks like a complex function. Thus
Plot[Evaluate[ReIm
20180313 18:08:04 
Neither Solve nor NSolve will handle your equation. As Hugh has shown, you can use FindRoot. You could also use FindInstance as follows.
solK[i_] := FindInstance[adap[k, i] == 0 /. paramFinal2, k, Reals]
With[{tmax1 = 10}, Flatten @ Table[solK[i], {i, tmax1}]]
{k > 10.7363, k > 12.1674, k > 12.8497, k > 13.185, k > 13.2841,
k > 13.169, k > 12.797, k > 12.0139, k > 10.3238}
20180313 19:31:22