Interactive mechanical systems using mathematica Academic Article in Scopus uri icon