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.2 * sin(x) - 0.2 * cos(x) * x - 0.3 * cos(x)); 
end;