robitex

Mi correggo…
Ho trovato in modo semplice anche di eseguire codice finale ma fuori dall’ambiente luacode, subito dopo inserendo una nuona \directlua{codice finale}.
Ciao.

OldClaudio” post=75303Non è vero che \dimexpr divida solo per numeri interi, anzi esegue l’operazione a*b/c nell’ordine conservando il risultato parziale della moltiplicazione in un registro a 64 bit, per cui non ci sono pericoli di overflow, almeno nella moltiplicazione.

Ma se devi calcolare il rapporto di due lunghezze a e c, metti usi per b la lungezza \p@ (che è una lunghezza di 1pt, e assegni il risultato di \dimexr a una dimensione. Credo di avere gia provato a metter \dimexpr come argomento di \the e mi pare di ricordare di non avere avuto bisogno di disturbare un registro temporaneo; mi pare di ricordare di aver eseguito cose del tipo [tt]\strip@pt\dimexpr a*b/c\relax[/tt] senza nessun problema. Il vantoggio è che tutte le operazioni eseguite da \dimexpr sono eseguite nei registri della cpu e non richiedono conversioni da e per cs di LaTeX.

Ricorda solo che \dimexpr arrotonda il risultato all’intero più vicino, mentre \divide semplicemente tronca, ma non è necessario ricorrere a \divide. Io lo facevo anni fa, quando le estensioni di eTeX non erano ancora incorporate dentro pdftex e xetex. luatex non ne ha bisogno perché sa fare i calcoli con lua. Avevo implementato con i comandi tradizionali di TeX la “long division” estraendo una cifra alla volta del quoziente, calcolando il resto, moltiplicando per 10 e ricominciando. Funzionava benissimo, ma ovviamente richiedeva di lavorare con gli scaled points e gestire il separatore decimale a parte. Tikz e pgfplots, con la loro libreria matematica non esistevano ancora…:wink:

Ciao Claudio,
ho provato a dividere due dimensioni ma con strani risultati, per esempio:
`\documentclass{article}

\newdimen\numer
\newdimen\denom

\numer=150pt
\denom=150pt

\divide\numer by \denom

\begin{document}
\the\numer% -> 0.00002pt invece di 1pt
\end{document}`

Con \dimexpr ho fatto questo tentativo:
`\documentclass{article}

\newdimen\numer
\newdimen\denom

\numer=150pt
\denom=150pt

\begin{document}
\the\dimexpr\numer/\denom\relax% -> 0.00002pt invece di 1pt
\end{document}`

Evidentemente mi serve leggere la documentazione…
Ecco l’ho fatto (quella di e-TeX) 🙂
occorre moltiplicare per 65536 giusto?
\the\dimexpr\numer/\denom*65536\relax
tuttavia la soluzione con \pgfmath mi soddisfa.
Grazie.
Un saluto.
R.

Ciao,
ad un certo punto della procedura occorre fare un rapporto tra due lunghezze.
Poiché sia \divide che \dimexpr dividono solo per numeri interi, alla fine sono passato alla libreria \pgfmath, visto che l’avevo tra l’altro già disponibile perché caricata dal pacchetto pgfplots, superando il problema.

Il codice completo è il seguente (la parte di codice che interessa la discussione è nel preambolo, e caso mai date un occhiata alla correttezza della costruzione della \vbox):
`
% make with 'Spectrum' Lua library
% !TEX encoding = UTF-8
% !TEX program = pdflatex

\documentclass{standalone}
\usepackage[T1]{fontenc}
\usepackage[utf8]{inputenc}
\usepackage[italian]{babel}

\usepackage{lmodern}
\usepackage{pgfplots}
\usepackage[output-decimal-marker={,},
arc-separator=\,]{siunitx}

\pgfplotsset{compat=1.5}

\newbox\panel
\setbox\panel=\hbox{\rule{2pt}{0pt}\scriptsize
\vbox{%
\hbox{Sito: Carrara (MS)}
\hbox{Latidudine ED50 $\varphi=\ang{44;05;4.04}$}
\hbox{Longitudine ED50 $\lambda=\ang{10;06;16.27}$}
\hbox{Categoria di suolo: A}
\hbox{Categoria topografica T3 ($S_\mathrm{T}=\num{1.10}$)}}}

\newdimen\hg
\hg=72mm

\def\ymax{0.60}

\newdimen\yp
\yp=0pt
\advance\yp by \ht\panel
\advance\yp by \dp\panel
\advance\yp by 5pt% margine sup.

\pgfmathparse{\ymax*(1-\yp/\hg)}
\let\ylegend\pgfmathresult

\advance\yp by 5.6mm% spazio per legenda
\pgfmathparse{\ymax*(1-\yp/\hg)}
\let\ybox\pgfmathresult

\begin{document}
\begin{tikzpicture}
\begin{axis}[scale only axis,
legend columns=4,
tick label style={font=\scriptsize},
xmin=0,
ylabel={$S_\mathrm{e}/g$},
ymin=0,
grid=major,
ymax=\ymax,
xmax=3.0,
xlabel={$T$ (s)},
width=115mm,
height=\hg,
variable=\T,
xtick={0.0,0.5,1.0,1.5,2.0,2.5,3.0},
legend style={draw=none, at={(axis cs:3.000, \ylegend)}}]

\addplot coordinates {
(0.000, 0.214)
(0.099, 0.510)
(0.298, 0.510)
};
\addplot {0.15177/T};

\addplot {0.36105/T^2};

\addplot coordinates {
(0.000, 0.167)
(0.096, 0.401)
(0.289, 0.401)
};
\addplot {0.11591/T};

\addplot {0.25584/T^2};

\addplot coordinates {
(0.000, 0.067)
(0.084, 0.167)
(0.251, 0.167)
};
\addplot {0.04188/T};

\addplot {0.07725/T^2};

\addplot coordinates {
(0.000, 0.054)
(0.080, 0.132)
(0.239, 0.132)
};
\addplot {0.03151/T};

\addplot {0.05656/T^2};

% legenda spettri:
\legend{\textsc{slc},,,
\textsc{slv},,,
\textsc{sld},,,
\textsc{slo},,,
}
% add text info
\draw[black,fill=white]
(axis cs:3.000,\ybox) rectangle (axis cs:1.500,0.600)
node[anchor=north west]
{\box\panel};

\end{axis}
\end{tikzpicture}
\end{document}`

Grazie.

Discussione in fondo interessante.
Dovrei riuscire a pulire il codice per pubblicarne l’applicazione.
Grazie a tutti.
R.