Simple calculation of the velocity profiles for pulsatile flow in a blood vessel using mathematica