I have been Mathematica user for a considerably short while. I have learned some of its functionality using wolfram how-to resources and the documentation. I am having difficulties constructing something similar as shown above.
I was wondering if anyone could give me pointers to resources that would allow me to achieve visuals as presented in the image attached with this question.
My objective is to use a slider to manipulate triangles height and as the slider moves text appears, color changes and values at milestones become visible.
Many thanks in advance!
Manipulate[ Graphics[{{EdgeForm@Thick, FaceForm[], Polygon[{{0, 0}, {1, 1}, {-1, 1}}], FaceForm[Orange], Polygon[{{0, 0}, {a, a}, {-a, a}}]}}, PlotRange -> {0, 1}], {a, 0, 1}]
? $\endgroup$ – Kuba♦ Jun 27 '14 at 10:58FaceForm[Hue[a]]
instead ofFaceForm[Orange]
. I mean, you must set the values you need but it is only a matter of writting it withIf
for example. $\endgroup$ – Kuba♦ Jun 27 '14 at 11:06