' - - File: VII_FieldA3.txt

' Given (x,y) --> <F, H>, construct the directed field.
k = .2                                  '  k = multiplier for this animation.
F{x,y} =y
H{x,y} = Cos[k*x]

a = -6  :  b = 6  :  n = 20
c = -6  :  d = 6  :  m = 20

PlotDirField[F, H, {a,b,n}{c,d,m}]




