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)