New answers tagged

1

I suggest With[{n = 8}, Do[Subscript[ω, i] = Sqrt[2], {i, n - 1}]] DownValues @ Subscript


0

The error is in: fun1[p_] := p^2 + p - 1; fun2[p_] := p^3 - p^2 + p + 1 The separator doesn't ";" , is ",".


1

If both definitions of sys3 are intended to be equivalent, you made a sign error. xmax = 2; sys31 = {y'[x] == 2 y[x]/(1 + y[x]^2) - Exp[y[x]]/(1 + Exp[y[x]]), y [0] == 1} (* {Derivative[1][y][x] == -(E^y[x]/(1 + E^y[x])) + (2*y[x])/(1 + y[x]^2), y[0] == 1} *) soln1 = NDSolve[sys31, y, {x, 0, xmax}][[1]]; sys32 = {y'[x] - 2 ...



Top 50 recent answers are included