Timeline for Calling Correct Function for Plotting DiracDelta
Current License: CC BY-SA 3.0
6 events
| when toggle format | what | by | license | comment | |
|---|---|---|---|---|---|
| May 18, 2016 at 10:12 | comment | added | Ponkadoodle |
ArrowsDeltaFunction[eqn_, x_] := Module[{xsubs, listDeltas, coefDeltas, locationDeltas}, xsubs = (x /. Cases[eqn, DiracDelta[a__] :> Solve[a == 0, x], Infinity]) /. x -> {}; locationDeltas = Flatten[xsubs]; Arrow[Table[{{locationDeltas[[i]], 0}, {locationDeltas[[i]], (eqn/ DiracDelta[x - locationDeltas[[i]]]) /. x -> locationDeltas[[i]]}}, {i, 1, Length[locationDeltas]}]]]
|
|
| May 18, 2016 at 10:11 | comment | added | Ponkadoodle |
In the case of functions like eqn=DiracDelta[2x-2], the ArrowsDeltaFunction function attempts to extract the coefficient of DiracDelta[x-1], instead, even though no such term exists. This results in some arrows incorrectly having 0 height. I implemented a fix, which I'll post below.
|
|
| Oct 28, 2015 at 18:55 | history | edited | Francisco Rodríguez Fortuño | CC BY-SA 3.0 |
added 798 characters in body
|
| Oct 28, 2015 at 17:48 | review | Late answers | |||
| Oct 28, 2015 at 18:04 | |||||
| Oct 28, 2015 at 17:35 | review | First posts | |||
| Oct 28, 2015 at 17:38 | |||||
| Oct 28, 2015 at 17:33 | history | answered | Francisco Rodríguez Fortuño | CC BY-SA 3.0 |