//Programming Example 8.11
//evaluate the function y=x* cos(x)
        //third File

function[sol]= curve(x)
    sol  = x* cos(x);
    return;
endfunction