Re: Output da Mathematica per grafici con pgfplots

Ciao,

credo proprio di aver risolto il problema. Con questo codice Mathematica:
`(*Numero di campioni*)
nCamp = 55;
(*Dominio*)
xmin = 0; xMax = 2 \[Pi];
(*Funzione*)
y[x_] := Sin[x];

(*Tabelle*)
xTable = Table[xmin, {n, 1, nCamp}];
yTable = Table[y[xmin], {n, 1, nCamp}];

Do[
xTable[[n + 1]] = xTable[[n]] + (xMax – xmin)/(nCamp – 1.);
yTable[[n + 1]] = y[xTable[[n + 1]]],
{n, 1, nCamp – 1}]

If[FileExistsQ[“C:\\grafico.txt”] ==
True, DeleteFile[“C:\\grafico.txt”]]
Export[“C:\\grafico.txt”,
Transpose[{N[xTable], N[yTable]}], “Table”]`
le cose funzionano. 😀

Ciao e buona giornata,
Marco.