Output da Mathematica per grafici con pgfplots

Ciao,

se qualcuno che conosce meglio di me la sintassi di Mathematica avesse voglia di fare delle prove, ecco un esempio compilabile:
`\documentclass[a4paper,11pt,extrafontsizes,twoside,openright]{memoir}

\usepackage{etex}
\usepackage{etoolbox}
\usepackage[T1]{fontenc}
\usepackage[utf8]{inputenc}
\usepackage[italian]{babel}
\usepackage{microtype}

\usepackage{pgfplots}

\begin{document}

\begin{tikzpicture}
\begin{axis} [xmin=0,xmax=7.5,
ymin=0,ymax=50,
grid=major]

\addplot [thick,blue] file {grafico.txt};
\end{axis}
\end{tikzpicture}

\end{document}`
dove nel file grafico.txt si ha:

0 0
1 1
2 4
3 9
4 16
5 25
6 36
7 49

Grazie e ciao,
Marco.

Ciao Marco,

chiedo scusa; mi accorgo ora, leggendo la tua risposta, che con il secondo messaggio ho depistato. Dunque, quello che ho è il codice Mathematica che ho presentato nel primo messaggio, e quello che vorrei avere è quello che ho mostrato nel secondo (nella forma). In altri termini, nel secondo messaggio, quanto è scritto nel file grafico.txt l’ho scritto a mano. Vorrei che venisse fatta la stessa cosa da Mathematica.

Detto ancora diversamente: se esegui il codice del primo messaggio in Mathematica e usi il file prova.tex che viene generato nel secondo, al momento non viene accettato. Vorrei che invece lo fosse.

Spero di aver chiarito. 🙂

Grazie e ciao,
Marco.

Ciao Stefano,

grazie della risposta! 🙂 Hai ragione il file txt prodotto da Mathematica con il mio codice viene accettato da [tt]pgfplots.[/tt] Il problema ora è un altro, e non credo che centri LaTeX. Il grafico che ottengo con questo codice Mathematica:
`(*Numero di campioni*)
nCamp = 155;
(*Dominio*)
xmin = 0; xMax = 2 \[Pi];
(*Funzione*)
y[x_] := Sin[x];

xvec = xmin;
For[i = 1, i < nCamp, i++, xvec = Flatten[{xvec, xmin + i (xMax - xmin)/(nCamp - 1)}]]; yvec = y[N[xvec[[1]]]]; For[i = 1, i < nCamp, i++, yvec = N[Flatten[{yvec, y[i]}]]]; xvec; yvec; If[FileExistsQ["C:\\grafico.txt"] == True, DeleteFile["C:\\grafico.txt"]] Export["C:\\grafico.txt", Transpose[{N[xvec], yvec}], "Table"]` e il correlato di LaTeX: `\documentclass[a4paper,11pt,extrafontsizes,twoside,openright]{memoir} \usepackage{etex} \usepackage{etoolbox} \usepackage[T1]{fontenc} \usepackage[utf8]{inputenc} \usepackage[italian]{babel} \usepackage{microtype} \usepackage{pgfplots} \begin{document} \begin{tikzpicture} \begin{axis} [xmin=-.5,xmax=7, ymin=-1.1,ymax=1.1, grid=major] \addplot [thick,blue] file {grafico.txt}; \end{axis} \end{tikzpicture} \end{document}` non è certo quello della funzione seno che voglio rappresentare. :( Grazie e buona giornata, Marco.

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.