將整數相除並得到浮點數(對於 pstricks 座標)

將整數相除並得到浮點數(對於 pstricks 座標)

我正在用 pstricks 製作一張圖片,並想繪製座標為分數 a/c、b/c 的點,其中 a、b 和 c 在一定範圍內運行。我嘗試使用 \numexpr 但它向下舍入。我不會使用 \dimexpr,因為我認為尺寸(以 pt 或類似的結尾)不受歡迎作為 pstricks 座標。我嘗試使用 pgf 但無法使用語法:

\documentclass{article}
\usepackage{amsmath}
\usepackage{pstricks,pst-node,multido}
\RequirePackage{pgf}%
\begin{document}

\psset{xunit=5cm,yunit=5cm}
\begin{pspicture}(0,0)(1,1)
\multido{\iC=1+1}{5}{%
  \multido{\iA=0+1}{\iC}{%
    \multido{\iB=0+1}{\iC}{%
      \pscircle*(\pgfmathparse{\iA/\iC},\pgfmathparse{\iB/\iC}){0.02}
    }
  }
}
\end{pspicture}
\end{document}

所需的輸出(使用 TikZ 生成,它適用於這個 5x5 範例,但在我想要使用的更大比例上耗盡了 TeX 的記憶體)。 所需輸出

答案1

\documentclass{article}
\usepackage{pstricks,multido}
\begin{document}

\psset{xunit=5cm,yunit=5cm}
\begin{pspicture}(0,0)(1,1)
\multido{\iC=1+1}{5}{%
    \multido{\iA=0+1}{\iC}{%
        \multido{\iB=0+1}{\iC}{%
            \psdot(!\iA\space \iC\space div \iB\space \iC\space div)
        }%
    }%
}%
\end{pspicture}
\end{document}

或者

\documentclass{article}
\usepackage{pstricks,multido,pst-calculate}
\begin{document}

\psset{unit=8}
\begin{pspicture}(2,2)
\multido{\iC=1+1}{20}{%
    \multido{\iA=0+1}{\numexpr\iC+1}{%
        \multido{\iB=0+1}{\numexpr\iC+1}{%
            \psdot[dotscale=0.5](\pscalculate{\iA/\iC},\pscalculate{\iB/\iC})
        }%
    }%
}%
\end{pspicture}
\end{document}

在此輸入影像描述

答案2

您忘記調用\pgfmathresult.

\documentclass{article}
\usepackage{amsmath}
\usepackage{pstricks,pst-node,multido}
\RequirePackage{pgf}%
\begin{document}

\psset{xunit=5cm,yunit=5cm}
\begin{pspicture}(0,0)(1,1)
\multido{\iC=1+1}{5}{%
  \multido{\iA=0+1}{\iC}{%
    \multido{\iB=0+1}{\iC}{%
    \pgfmathparse{\iA/\iC}\xdef\myx{\pgfmathresult}
    \pgfmathparse{\iB/\iC}\xdef\myy{\pgfmathresult}
    \pscircle*(\myx,\myy){0.02}
    }
  }
}
\end{pspicture}
\end{document}

只是出於好奇,您能否也添加您的 TikZ的例子?我對你得到的錯誤感到有點驚訝。

更新:我在使用 Ti 時沒有遇到任何問題kZ,程式碼更短,不需要包,編譯更方便(儘管我很喜歡PSTricks)。

\documentclass{article}
\usepackage{tikz}
\begin{document}
\begin{tikzpicture}[scale=10]
\foreach \iC in {1,...,15}{%
  \foreach \iA in {0,...,\iC}{%
   \foreach \iB in {0, ...,\iC}{%
      \draw[fill=black] ({\iA/\iC},{\iB/\iC}) circle (0.002);
    }
  }
}
\end{tikzpicture}
\end{document}

15x15 範例

答案3

也可用於梅塔普斯特,這裡包含了luamplib所以編譯lualatex或弄清楚如何適應它良好生產規範,或普通 MP。

在此輸入影像描述

我也添加了一點顏色。

\documentclass[border=5mm]{standalone}
\usepackage{luatex85, luamplib}
\begin{document}
\mplibtextextlabel{enable}
\begin{mplibcode}
beginfig(1);
    n = 25;
    for i = 1 upto n:
        for j = 0 upto i:
            for k = 0 upto i:
                fill fullcircle 
                     scaled 3 
                     shifted ((j/i, k/i) scaled (n*cm)) 
                     withcolor 3/4(j/i, k/i, i/n);
            endfor
        endfor
    endfor
endfig;
\end{mplibcode}
\end{document}

相關內容