Here is my new code:
DAE = (s'[
t] == -p3 (r[t] s[t] c[t]/(p1*p2))/((1 + s[t]/p1) (1 + c[t]/p2))
w'[t]
w'[t] ==
p3*p5 (r[t] s[t] c[t]/(p2*p2))/((1 + s[t]/p2) (1 + c[t]/p3)) - w[t]
c[t] == -(1 + p1/s[t]) (r[t]*s[t]*
c[t]/(p1*p2))/((1 + s[t]/p1) (1 + c[t]/p2)) - p7*c[t]
r[t] == -p7*r[t]);
sol = NDSolve[{DAE, s[0] == 150, w[0] == 0} /. {p1 -> 50, p2 -> 70.5,
p3 -> .16, p5 -> 1600, p[6] -> .05, p7 -> 0.03}, {s, w, c, r}, {t,
0, 120}]
And now I get this error:
NDSolve::indexss: The DAE solver failed at t = 0.0016`. The solver is
intended for index 1 DAE systems and structural analysis indicates
that the DAE is structurally singular.
Now I really have no idea what it means. Help please?