diff ( y , x , 1 ) = m1 * 2.0 / ( x - 6.0 ) / ( x - 6.0 ) / ( x - 6.0) ;
!
Digits := 64;
max_terms := 40;
!
x_start := 2.0;
x_end := 3.0;
diff(y,0,exact_soln_y(x_start));
glob_look_poles := true;
glob_max_iter := 100;
# Not Given = 0
# No Pole = 3
# Pole = 4
glob_type_given_pole = 4;
array_given_rad_poles[1][1] = 6.0; # Real Part
array_given_rad_poles[1][2] = 0.0; # Imag Part
array_given_ord_poles[1][1] = 3.0; # Order
array_given_ord_poles[1][2] = 0.0; # Not Used
!
exact_soln_y := proc(x)
return(1.0/ ( x - 6.0 ) / ( x - 6.0 ));
end;