files/practicum/Kogelbaan.icl

   1 implementation module Kogelbaan
   2
   3 import StdEnv
   4
   5 :: T :== Real       // T staat voor tijd (s).
   6 :: V :== Real       // R staat voor snelheid (m/s).
   7 :: A :== Real       // A staat voor hoek (radialen).
   8 :: G :== Real       // G staat voor valversnelling (m/s^2).
   9 :: D :== Real       // M staat voor afstand (m).
  10
  11 // De valversnelling g is een 'echte' constante:
  12 g                   :: G
  13 g                   = 9.81
  14
  15 // De gevraagde functies:
  16 v_x                 :: // geef type van v_x
  17 v_x                 =  // geef functievoorschrift van v_x
  18
  19 v_y                 :: // geef type van v_y
  20 v_y                 =  // geef functievoorschrift van v_y
  21
  22 x_at                :: // geef type van x_at
  23 x_at                =  // geef functievoorschrift van x_at
  24
  25 y_at                :: // geef type van y_at
  26 y_at                =  // geef functievoorschrift van y_at
  27
  28 h                   :: // geef type van h
  29 h                   =  // geef functievoorschrift van h
  30
  31 // Het bepalen van de beste hoek uit {0.01*pi, 0.02*pi .. 0.5*pi}:
  32 Start               = beste_hoek 5.0
  33
  34 pi                  = 3.1415926
  35
  36 beste_hoek          :: V -> ...
  37 beste_hoek v_0      =