Voici un exemple amusant, si vous aimez les mathématiques. Vous avez probablement entendu parler de fractales. Il existe aujourd'hui de nombreux ensembles fractals. L'un de ces ensembles est appelé fractales curlicue . Vous pouvez en apprendre plus à leur sujet dans ce Article de MathWorld . L'article utilise Mathematica et Wolfram Language, qui ont de nombreuses fonctions dédiées à de nombreuses mathématiques, mais vous pouvez créer votre propre démonstration fractale dans un tableau de données JMP:
le θ et φ les colonnes de données utilisent des formules pour générer les angles fractals récursifs. Les formules dépendent d'une constante s , qui est définie comme une variable de table afin que vous puissiez facilement la visualiser et la modifier. La constante s est initialement égal à π, mais vous pouvez le changer en d'autres constantes mathématiques et physiques célèbres ou n'importe quelle valeur que vous aimez.
La distance entre les points est toujours de 1.
le X et y les colonnes de données effectuent la conversion des coordonnées polaires en coordonnées rectangulaires et appliquent la relation de récursivité. Cette version, comme l'article, utilise 10 000 récursions, mais vous pouvez utiliser plus ou moins de récursions pour changer la forme.
Utilisez le Fractale Curlicue script de table pour lancer Graph Builder et visualiser la fractale.
Notez que si vous modifiez la valeur de la variable de table, les formules s'exécutent pour mettre à jour les colonnes de données. Cette modification est automatiquement transmise à Graph Builder pour créer un nouveau tracé.
Agréable! Cela permet de changer plus facilement la valeur de la variable de table et de voir l'effet:
NamesDefaultToHere(1);
dt = DataTable("Curlicue Fractal.jmp");
sVal = dt << getTableVariable("s");
NewWindow("Curlicue Fractal Control",
PanelBox("Move the slider to update the fractal",
SliderBox(pi() - 0.3, pi() + 0.3, sVal, sliderScript);
);
);
sliderScript =
Expr(
STV = Expr(dt << setTableVariable("s", sValTBD));
SubstituteInto(STV, Expr(sValTBD), sVal);
STV;
);
