3

I would like to export in .swf a "Manipulation" output. I am using

 Export["Pi.swf", Manipulate[SeedRandom[n];
  data = RandomReal[{-1, 1}, {m, 2}];
  insidepts = Cases[data, {x_, y_} /; x^2 + y^2 < 1];
  inside = Length[insidepts];
  Text@Style[
    Column[{Graphics[{PointSize[0.0001], Red, Disk[{0, 0}, 1], Blue, 
        GeometricTransformation[
         Line[{{Offset[{-2, 2}, {0, 0}], 
            Offset[{2, -2}, {0, 0}]}, {Offset[{-2, -2}, {0, 0}], 
            Offset[{2, 2}, {0, 0}]}}], Dynamic[data]]}, 
       ImageSize -> If[format, 500, 350]], 
      Row[{"inside: ", inside, "\toutside: ", m - inside, "\ttotal: ",
         m}], Row[{"π=4 x ", inside, "/", m, " = ", 4. inside/m}]}], 
    "Label"], {{n, 1, "random seed"}, 1, 1000, 1, 
   Appearance -> "Labeled"}, {{m, 1, "sample size"}, 1, 5000, 1, 
   Appearance -> "Labeled"}, {{format, False, "large format"}, {True, 
    False}}, AutorunSequencing -> {1, 2}]]

I think it is too fast... Is there a way to modify speed?

Szabolcs
  • 234,956
  • 30
  • 623
  • 1,263
Thanos
  • 1,003
  • 1
  • 12
  • 21

2 Answers2

6

The reference page for "SWF" indicates that there is a "FrameRate" option. Larger values of "FrameRate" takes longer to generate and creates a larger file, but should make the animation run more slowly.

Mark McClure
  • 32,469
  • 3
  • 103
  • 161
  • 1
    Thank you very much for your answer. The thing is that I tried that, first thing but I cannot see any difference no matter what speed I choose. The syntax I am using is Export["Pi.swf",Manipulate[...],"FrameRate"->5]. – Thanos Dec 12 '12 at 08:53
2

As stated in the Mathematica help on AutorunSequencing, a solution would be to set AutorunSequencing -> {{1, x1}, {2, x2}} as an option in your Manipulate, where x1 and x2 are numbers indicating how long in seconds the sequence is to run.

m_goldberg
  • 107,779
  • 16
  • 103
  • 257
Marcel
  • 36
  • 1