diff ( y , x , 1 ) =  sin(x) / (0.2 * x + 0.3);
!
Digits := 32;
max_terms := 30;
!
x_start := 0.1;
x_end := 5.0 ;
diff(y,0,exact_soln_y(x_start));
glob_h :=    0.05;
glob_look_poles := true;
glob_max_iter := 1000000;
!
exact_soln_y := proc(x)
return(0.35368600833851455044094925717134 * Si(x + 1.5000000000000000000000000000000)

   - 4.9874749330202721547086168557074 * Ci(x

   + 1.5000000000000000000000000000000));

end;