Question: Peak function with interpolation

Dear Friends,

anyone outside here can help me in making this Mathematica function into a Maple fn?

Please Wait...