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