cdo/ham
1
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

Tweak ham() function to return results in nested list

Browse Source
This commit is contained in:
Camden Dixie O'Brien
2025-05-29 01:14:30 +01:00
parent b471f7f70b
commit 8aff3754e0
1 changed files with 4 additions and 4 deletions
Download Patch File Download Diff File Expand all files Collapse all files

8
ham.mac
View File

@@ -9,7 +9,7 @@ ham(L, qs) := block([ps, qdots, H],
H: subst(solve(maplist(lambda([p,qdot], p = diff(L, qdot)), ps, qdots), H: subst(solve(maplist(lambda([p,qdot], p = diff(L, qdot)), ps, qdots),
qdots), qdots),
apply("+", maplist("*", ps, qdots)) - L), apply("+", maplist("*", ps, qdots)) - L),
maplist(trigsimp, flatten(maplist(lambda([q], [ maplist(trigsimp, maplist(lambda([q], [
'diff(q,t) = diff(H, concat(p_, q)), diff(H, concat(p_, q)),
'diff(concat(p_, q),t) = -diff(H, q) -diff(H, q)
]), qs)))); ]), qs)));