Look at the currently undocumented MutableSet object. 

kernelopts(opaquemodules=false):

showstat(MutableSet:-ModuleDeconstruct);

The expression returned by ModuleDeconstruct should typically be an unevaluated call to the module constructor.

@Mac Dude Thanks for the report; I'm not surprised it works on Emacs 22. I removed the abbrevlist stuff on my current (unreleased) version to avoid that nag. I added abbreviation stuff as a feature a long time ago but never use them. 

There are other issues with the hightlighting of procedure names---it doesn't work when the name is indented.  Am working on resolving.

Could you upload your model; use the green arrow.  Using the default component parameters and shifting the pulses, the model simulates here.

Could you provide a bit more detail.  Are you trying to assign parameters (fixed joint angles), initial values, or are you attempting to control the operation via external code?

@mimidbe Thank you, that makes it much easier. 

There is nothing useful in the mw file you uploaded. It is hopeless. 

@mimidbe could you upload the msim file?

It would be helpful if you uploaded your msim file.  Use the green arrow.

@Christopher2222 what parameters did you use for that?

Whatever 'this' is, it isn't showing up in my browser (chrome on linux).  Uploading the Maple worksheet (use the green arrow) would clarify that. 

@jockoflocko While you apparently have this working without events, you can use create an event that combines both a root expression with a condition by using a two-element list as the trigger, e.g. [x(t), x(t)<0]. See ?dsolve,numeric,Events for details

@Bendesarts Connect an xyz-translational joint to a fixed frame. On the other end attach a revolute joint and connect its other end to the point you are measuring. It needs to be oriented so that the rotation axis aligns with the rotation of whatever you are measuring. Then sense the rotation at the 1D connection of the revolute joint.  This will only work if the orientation of the angle you are measuring doesn't change, otherwise it gets more difficult. There are better ways; I'll think about this.

What model are you referring to?  The one under Examples -> Physical Domains -> 1-D Mechanical does not have an explicit coefficient of restitution parameter.

@Alejandro Jakubi For clarity and efficiency I'd use add(x*ln(x), x = X).  The first method I showed creates an additional list, so uses more memory. I prefer x = X rather than x in X to specify the iteration mainly because, in the debugger the latter is rendered as `in`(x,X) which is not so nice.  I believe the help page for add (and mul) shows the one-argument version. Be aware that add(a*b) returns a+b.  It makes sense once you realize what is going on.

@Kitonum In Maple 2015 Acer's method can be shortened a bit, though it's less clear:

add(X*~ln~(X));

Actually, making some assumptions, one can shorten this with a transformation

ln(mul(X^~X));

I'd stick with Acer's original.