# Animate picture 2D on Moodle

Posted 9 years ago
7533 Views
|
2 Replies
|
1 Total Likes
|
 How can I put a picture taken withe the Animate function on my page Moodle eloctricics of my school, as it is appended?  Animate[  xmin = -5; xmax = 5; ymin = -a; ymax = 5 a;  AA = {a Sin[2 t], a - a Cos[2 t]}; NN = {0, 2 a};   MM = {(2 a Sin[2 t])/(1 - Cos[2 t]), 2 a};   PP = {(2 a Sin[2 t])/(1 - Cos[2 t]), a - a Cos[2 t]};  f[x_] := (2 a)^3/((2 a)^2 + x^2);  tx = {Text["\!$$\* StyleBox[\"x\",\nFontFamily->\"Times New Roman\",\nFontSize->14,\n\FontWeight->\"Plain\",\nFontSlant->\"Italic\",\n\FontColor->RGBColor[0., 0., 0.]]$$", {xmax - 0.2, -0.2}], Text["\!$$\*StyleBox[\"y\",\nFontFamily->\"Times New Roman\",\nFontSize->14,\n\FontWeight->\"Plain\",\nFontSlant->\"Italic\",\n\FontColor->RGBColor[0., 0., 0.]]$$", {-0.2, ymax - 0.2}], Text["\!$$\*StyleBox[\"O\",\nFontFamily->\"Times New Roman\",\nFontSize->14,\n\FontWeight->\"Plain\",\nFontSlant->\"Italic\",\n\FontColor->RGBColor[0., 0., 0.]]$$", {-0.2, -0.3}], Text["\!$$\*StyleBox[\"A\",\nFontFamily->\"Times New Roman\",\nFontSize->14,\n\FontWeight->\"Plain\",\nFontSlant->\"Italic\",\n\FontColor->RGBColor[0., 0., 0.]]$$", AA + {0.2, -0.2}], Text["\!$$\*StyleBox[\"N\",\nFontFamily->\"Times New Roman\",\nFontSize->14,\n\FontWeight->\"Plain\",\nFontSlant->\"Italic\",\n\FontColor->RGBColor[0., 0., 0.]]$$", NN + {0.2, 0.2}], Text["\!$$\*StyleBox[\"M\",\nFontFamily->\"Times New Roman\",\nFontSize->14,\n\FontWeight->\"Plain\",\nFontSlant->\"Italic\",\n\FontColor->RGBColor[0., 0., 0.]]$$", MM + {0, 0.2}], Text["\!$$\*StyleBox[\"P\",\nFontFamily->\"Times New Roman\",\nFontSize->14,\n\FontWeight->\"Plain\",\nFontSlant->\"Italic\",\n\FontColor->RGBColor[0, 0, 1]]$$", PP + {0.2, 0.2}], Text["\!$$\*StyleBox[\"curva\",\nFontFamily->\"Times New Roman\",\nFontSize->16,\n\FontSlant->\"Italic\",\nFontColor->RGBColor[0, 0, 1]]$$\!$$\*StyleBox[\" \",\nFontFamily->\"Times New Roman\",\nFontSize->16,\n\FontSlant->\"Italic\",\nFontColor->RGBColor[0, 0, 1]]$$\!$$\*StyleBox[\"de\",\nFontFamily->\"Times New Roman\",\nFontSize->16,\n\FontSlant->\"Italic\",\nFontColor->RGBColor[0, 0, 1]]$$\!$$\*StyleBox[\" \",\nFontFamily->\"Times New Roman\",\nFontSize->16,\n\FontSlant->\"Italic\",\nFontColor->RGBColor[0, 0, 1]]$$\!$$\*StyleBox[\"Agnesi\",\nFontFamily->\"Times New Roman\",\nFontSize->16,\\nFontSlant->\"Italic\",\nFontColor->RGBColor[0, 0, 1]]$$\!$$\*StyleBox[\":\",\nFontFamily->\"Times New Roman\",\nFontSize->16,\n\FontColor->RGBColor[0, 0, 1]]$$", {-3.5 a, 4 a}], Text["\!$$\*StyleBox[\"y\",\nFontFamily->\"Times New Roman\",\nFontSize->14,\n\FontSlant->\"Italic\",\nFontColor->RGBColor[0, 0, 1]]$$\!$$\*StyleBox[\" \",\nFontFamily->\"Times New Roman\",\nFontSize->14,\n\FontSlant->\"Italic\",\nFontColor->RGBColor[0, 0, 1]]$$\!$$\*StyleBox[\"=\",\nFontFamily->\"Times New Roman\",\nFontSize->14,\n\FontColor->RGBColor[0, 0, 1]]$$\!$$\*StyleBox[\" \",\nFontFamily->\"Times New Roman\",\nFontSize->14,\n\FontSlant->\"Italic\",\nFontColor->RGBColor[0, 0, 1]]$$\!$$\*StyleBox[FractionBox[RowBox[{SuperscriptBox[RowBox[{RowBox[{\"(\", RowBox[{\"2\", \"a\"}], \")\"}], \" \"}], StyleBox[\"3\",\nFontSlant->\"Plain\"]], StyleBox[\" \",\nFontFamily->\"Times New Roman\",\nFontSize->16,\n\FontSlant->\"Italic\",\nFontColor->RGBColor[0, 0, 1]]}], RowBox[{SuperscriptBox[RowBox[{RowBox[{\"(\", RowBox[{\"2\", \"a\"}], \")\"}], \" \"}], \"2\"], \"+\", \SuperscriptBox[RowBox[{StyleBox[\"x\",\nFontSlant->\"Italic\"], \" \"}], StyleBox[\"2\",\nFontSlant->\"Plain\"]]}]],\nFontFamily->\"Times New \Roman\",\nFontSize->14,\nFontColor->RGBColor[0, 0, 1]]$$", {1.5 a,      4 a}, Left]}; li1 = {Line[{{xmin, 2 a}, {xmax, 2 a }}]}; li2 = {Thickness[0.001], Line[{{0, 0}, MM}]}; ci = {Circle[{0, a}, a]}; pt = {{PointSize[0.012], Point[{{0, 0}, AA, NN, MM}]}, {Blue,     PointSize[0.015], Point[{PP}]}}; Plot[f[x], {x, xmin, xmax - a/3}, PlotStyle -> Blue,   Epilog -> {tx, ci, li1, li2, pt}, AxesStyle -> Arrowheads[0.03],   AspectRatio -> Automatic, PlotRange -> {{xmin, xmax}, {ymin, ymax}},   Ticks -> None, ImageSize -> 400], {{t, 0, "inclinação"}, 0.0001,   Pi - 0.00001, AnimationDirection -> Backward,   Exclusions -> {0, Pi}}, {{a, 1/2, "raio"}, 1/2, 1, 1/2,   AnimationRunning -> False}, AnimationRunning -> True] Attachments:
2 Replies
Sort By:
Posted 9 years ago
 Another exemple that I would like to put on my Moodel page so that anyone can change value of "abcissa de P".  How to do this? Thanks for the help! Attachments:
Posted 9 years ago
 Hi Jorge,your attached file does open form me and it works - very nice code. You can use CDF probably to embed it to Moodle? Also wait for coming release of Wolfram Cloud that suppose to make such things easy. Or you can just make an animated GIF (or use LICEcap)