User raw input

// calculate the area of a SCALED y-wave
// after prompting user for x-start and x-end limits

Function CalcArea(ywave)
    wave ywave
   
    // define the start and end variables
   
    variable xs, xe
   
    // define the prompt phrases for the start and end variables
   
    prompt xs, "Start:"
    prompt xe, "End:"
   
    // put up the prompt to get the variables
   
    DoPrompt "Integration Limits", xs, xe
   
    // check the variables are not out of bounds
   
    // is xs less than the starting value of the wave?
   
    if (xs < pnt2x(ywave,0))
        xs = pnt2x(ywave,0)
    endif
   
    // is xe greater than the end value of the wave?
   
    if (xe > pnt2x(ywave,numpnts(ywave)-1))
        xe = pnt2x(ywave,numpnts(ywave)-1)
    endif
   
    // return the area of the wave between the given bounds
   
    return area(ywave,xs,xe)
end

make/o/n=100 test
SetScale/P x 21,0.5,"", test
test=1000-20*x+10*x^2
display test
print CalcArea(test)