Migliorando il tiro del post precedente, dove abbiamo contemplato una rosa matematica a 4 foglie. Non è facile, ma facilissimo modificare la routine in ambiente Mathematica per creare un generatore di foglie matematiche. Precisamente, basta aggiungere la variabile n nella funzione che definisce il vettore posizione di un punto variabile lungo la rosa. È ovvio che n definisce il numero di foglie:
La predetta variabile va inserita nel codice successivo per creare la lista dei vertici della spezzata:
Nel programma precedente c'era un errore. Per inciso, Stan Wagon nel suo libro Guida a Mathematica utilizza un approccio differente. Precisamente, per generare la lista dei vertici invoca l'istruzione Range, esprimendo poi gli angoli in gradi anziché in radianti. Noi abbiamo utilizzato l'istruzione Table:
Ricordiamo che ξ(φ) è il vettore posizione di un punto variabile lungo la curva γ che in questo caso è una rosa a 4 foglie. Abbiamo poi assegnato l'attributo Listable: il kernel di Mathematica in modo da poter utilizzare come variabile una lista, come abbiamo fatto nel predetto codice che, tuttavia, presenta un errore in quanto ci siamo dimenticati di inserire nel costrutto di Table il passo d. Ricordiamo che in tal caso, Mathematica utilizza il valore di default che è 1. Stan Wagon nel suo libro scrive che un valore interessante per il passo d è 71° che corrisponde a circa 1.24 radianti. Noi abbiamo denotato tale valore con dcrit. Ripetendo la simulazione si ottiene la figura 1. L'ultimo "frammento" di codice per generare la figura 2 è: