Team Blog의 글을 이곳 게시판의 "정보글"로 모았습니다. Team blog는 기고자가 올린 글에 질문을 받는 부담을 줄이기 위하여 댓글을 허용하지 않았습니다. 그러나 이곳 게시판으로 모으면서 댓글을 달 수 있습니다. 게시물을 작성하실 때 댓글을 원하지 않으시면 댓글을 허용하시지 않으시기를 바랍니다. 또한 불필요한 소모성 댓글을 달지 않도록 주의하여 주시기를 바랍니다.
TeX과 관련된 질문이나 답변은 QnA 마당을 이용하십시오. TeX과 관련된 질문은 지웁니다
많습니다. ksforloop도 있고... 근데 그러면 for를 정의하거나 하는 게 ExplSyntax 안에 들어가야 하고... 이래저래 약간 길어지는 게 싫어서 그냥 multido로 했는데... multido 제외하고 expl3만으로 다음과 같이 해보았습니다.
\documentclass{standalone} \usepackage{expl3} \ExplSyntaxOn \cs_new:Npn \get_sin:n #1 { \fp_eval:n { sin ( #1 * 0.02 ) * 100 } } \cs_new:Npn \draw_func:n #1 { \int_zero:N \l_tmpa_int \int_do_while:nn { \l_tmpa_int <= #1 } { \int_incr:N \l_tmpa_int \put (\l_tmpa_int, \get_sin:n {\l_tmpa_int}) { \circle*{1} } } } \cs_set_eq:NN \drawfunc \draw_func:n \ExplSyntaxOff \begin{document} \setlength{\unitlength}{1pt} \begin{picture}(600,350)(-50,-175) \put(0,0){\vector(1,0){500}} \put(0,-120){\vector(0,1){240}} \put(0,0){\circle*{1}} \drawfunc{500} \put(-10,0){$O$} \put(155,-10){$\pi$} \put(314,-10){$2\pi$} \end{picture} \end{document}