cons@f_, k_, a_, b_D := ModuleB8

ani = ManipulateBcons@f, k, 0, If@b 0, b + 0.000001, bDD, 9f, 9Sin@xD, x2, Exp@xD, 3 x5 - 5 x3, Cos@xD==, 88k, 3>F

0bk fHxLx = k0bfHxLxf Sin@xD x2 x -5 x3 + 3 x5 Cos@xDk 3

b3

2

1 2 3 4

-3

-2

-1

1

2

3

03 2 3 sinHxL x = 3 0

3 2 sinHxL x

03 2 3 sinHxL x = 3

3 03 2 sinHxL x = 3

a b

SetDirectory@"D:\\"DD:\

Export@"animacion1.swf", aniDanimacion1.swf

2 Propiedad.nb