Runge (yprime' Access, t_arr, y_arr, dt ) Put ( " Error:" ) Put (calc_err (t (i ),y (i ) ), Aft=> 5 ) įunction yprime (t, y : Floaty ) return Floaty is beginįunction calc_err (t, calc : Floaty ) return Floaty isĪctual : constant Floaty := (t** 2 + 4.0 )** 2 / 16.0 Procedure Print (t, y : Floaty_Array modnum : Positive ) is begin Generic_Elementary_Functions (Floaty ) įunction calc_err (t, calc : Floaty ) return Floaty Type Derivative is access function (t, y : Floaty ) return Floaty Type Floaty_Array is array (Natural range ) of Floaty You are encouraged to solve this task according to the task description, using any language you may know.
0 Comments
Leave a Reply. |
AuthorWrite something about yourself. No need to be fancy, just an overview. ArchivesCategories |