Questo programma disegna il grafico delle funzioni in un intervallo, assegnando ad ogni punto una dimensione ed un colore determinati in maniera casuale da una funzione chiamata w.
Occorre prima definire la funzione di cui si deve tracciare il grafico, e quindi la funzione w, poi provvedere a chiamare a lavorare myplot che avrà come argomenti, la f, gli estremi di definizione di f, e la w.
BeginPackage["myfrau`myplot`"];
myplot::usage="myplot[f,estsin,estdest,w]
rende un grafico a colori della funzione
f precedentemente definita in un intervallo
della variabile x colorandolo con colori
randomizzati e attribuendo ai punti una
estensione randomizzata definita da w.";
Begin["`Private`"];
myplot[f_,estsin_,estdes_,w_]:=
Module[{s=estsin,d=estdes},
Show[
Graphics[{
Table[{
RGBColor[Random[],
Random[],
Random[]],
PointSize[Random[]*Abs[w[x]-Ceiling[w[x]]]],
Point[{x,f[x]}]},
{x,N[s],N[d],0.01}]}],
Axes->None,
PlotRange->All]];
End[];
EndPackage[]
f[x_]:=Sin[x]+3 Cos[x/2]
w[x_]:=Log[Abs[x]]
myplot[f,-3 Pi,3 Pi,w];