Experiments in undergraduate mathematics :a Mathematica-based approach