Reputation
26,266
Next tag badge:
99/100 score
32/20 answers
Badges
5 29 81
Newest
 dynamic
Impact
~321k people reached

2h
answered Want to add a legend to 3D plot made by combining three plots with Show
2h
revised Want to add a legend to 3D plot made by combining three plots with Show
Routine clean-up
2h
comment Setting up two ordinary differential equations
No intent of telling you off. Just suggesting that you edit your answer to reflect the current state of the question.
2h
revised How can I make plot show the intermediate recursion steps?
Minor clean-up
3h
comment Setting up two ordinary differential equations
"... I have assumed arbitrarily that n=1,k1=k2=1 and A[0]=0, B[0]=0." doesn't seem to be the case. It appears that you substituted the OP values for the parameters. And the OP specified A[0]=0, B[0]=0. You should reconsider that remark.
3h
revised Setting up two ordinary differential equations
Improved formatting
3h
revised Setting up two ordinary differential equations
Improved formatting
18h
revised Function works only after printing variables inside
more code cleaning
18h
comment Function works only after printing variables inside
@Pickett. +1 -- but it does work in 10.1 even without the fix you suggest. I made the change.
18h
revised Function works only after printing variables inside
more code cleaning
18h
answered Function works only after printing variables inside
19h
reviewed Leave Open How to find max difference with the same x between two functions?
19h
revised Swing of the pendulum
Improved formatting
1d
reviewed Close Eigenvalues of the nonlinear Schrödinger equation
1d
comment Eigenvalues of the nonlinear Schrödinger equation
Your equation is not a valid Mathematica expression and doesn't look right even if taken a math expression.
1d
revised How to write a function that returns the combined output of several built-in functions
added 50 characters in body
1d
revised How to write a function that returns the combined output of several built-in functions
Routine clean-up
1d
answered How to write a function that returns the combined output of several built-in functions
1d
reviewed No Action Needed How to write a function that returns the combined output of several built-in functions
1d
comment Swing of the pendulum
Since this question may not get reopened, I'll give my version of your code here. With[{min = .4}, vspring[a0_, y10_, y20_] := Module[{a = a0, y1 = y10 + min, y2 = y20, n = 100}, h = (y2 - y1)/n; yvalues = Table[k, {k, y1, y2, h}]; xvalues = Table[a Sin[(m π)/2], {m, 0, n}]; Line[Transpose[{xvalues, yvalues}]]]] and With[{size = .2}, Animate[Graphics[{vspring[0.2, 0, 2 Sin[y]], Red, Thickness[5 size], Line[{{-.5 size, 2 Sin[y]}, {.5 size, 2 Sin[y]}}]}, PlotRange -> {{-size, size}, {-2.2 , 2 size}}], {y, -π, 0, 0.1}]]. Will post as answer if this gets reopened