KTUG마당은 KTUG를 방문하는 모든 이용자가 대화를 나누고 소식을 전하는 곳입니다.
- 로그인 없이 자유롭게 글을 읽고 쓸 수 있는 철학은 처음과 같이 계속됩니다.
- Team Blog의 글을 이곳 게시판의 "정보글"로 모았습니다. Team blog는 기고자가 올린 글에 질문을 받는 부담을 줄이기 위하여 댓글을 허용하지 않았습니다. 그러나 이곳 게시판으로 모으면서 댓글을 달 수 있습니다. 게시물을 작성하실 때 댓글을 원하지 않으시면 댓글을 허용하시지 않으시기를 바랍니다. 또한 불필요한 소모성 댓글을 달지 않도록 주의하여 주시기를 바랍니다.
- TeX과 관련된 질문이나 답변은 QnA 마당을 이용하십시오. TeX과 관련된 질문은 지웁니다
- MathJax를 이용한 수식조판을 사용하실 수 있습니다. 여기를 참조하세요.
- 스팸 글을 막기 위하여 짧은 시간 내에 다시 글이 등록되는 IP를 막거나, 광고 글을 막기 위하여 금지어로 .com, .net 등을 설정하고 있습니다. 다소간의 불편함이 있으시더라도 양해 바랍니다.
- 금지어에서 stackexchange, stackoverflow, ctan, overleaf, , github, google.com, gmail.com, .org, .io, sil.org, wiki.com, tistory.com등은 해제하였습니다.
- 사용하는 편집기는 CKeditor입니다. 편집기에서 [enter]를 누르면 <p> 태그가 들어가고, 문단으로 생각하고 한줄을 비웁니다. 글줄만 바꾸려면 shift-enter 를 누르시면 <BR>가 들어가므로 용도에 맞게 나누어 쓸 수 있습니다.
자유글 [expl3] 연분수 조판 revisited
2018.09.25 20:24
이 게시판에서 오래 전에 연분수 조판에 관한 이야기가 나왔습니다.
1. 연분수 조판 소개
2. 연분수 조판 2탄
지금 다시 읽어보아도 흥미롭네요.
이 글타래들에 대한 늦은 기여(?)랄까 간단한 읽을거리를 만들었습니다.
재미삼아 읽어보셔요. 오류의 수정이나 개선은 당연히 환영합니다.
PDF: fraction-nsj.pdf
TEX: fraction-nsj-src.tex
댓글 7
-
Progress
2018.09.27 08:38
-
yihoze
2018.09.27 10:05
plain tex과 expl3를 극명하게 대조하는, 더할 나위없는, 그렇지만 겁나게 난해한 예! 연분수, 너무 어려워요.
-
작나
2018.09.27 11:38
이엑스피엘쓰리 스타디가 목적이라면, 이 예는 너무 어려워요. 적합하지 않은 것 같습니다. :-)
1쪽 밑에서 7번째 줄
유핟 -> 유한
-
yihoze
2018.09.27 14:17
연분수는 좀 쉽지만 이엑스피엘쓰리는 아니라는 말씀? ^^
-
커꿈
2018.09.28 04:47
보통의 연분수가 +로 이어지는 것과는 달리 -로 이어지는 연분수가 있습니다. 2-1/(3-1/(4-1/5))처럼요. Hirzebruch-Jung continued fraction이라 하여 수학의 여러 분야에서 중요하게 자주 쓰이는 연분수입니다. 이 연분수를 TeX에서 자동으로 계산하는 등의 방법에 KTUG에 질문드린 적 있고, 그에 대한 답이 있었습니다. 누군가 필요하실 분을 위해 아래에도 함께 첨부합니다.
% Hirzebruch-Jung continued fraction
% see http://www.ktug.org/xe/201178
% Example: \frac{19}{7}=\hjcfrac{19}{7}=\lhjcfrac[3,4,2]=\hjfraction[3,4,2]\ExplSyntaxOn
\int_new:N \tmp_cnt
\int_new:N \tmp_dest\seq_new:N \g_hjcf_seq
\cs_new:Npn \hjcf_div_truncate:nn #1 #2
{
\int_eval:n { 1 + \int_div_truncate:nn { #1 } { #2 } }
}\cs_new:Npn \hjcf_mod:nn #1 #2
{
\int_eval:n { - #1 + #2 * \hjcf_div_truncate:nn { #1 } { #2 } }
}\cs_new:Npn \make_seq:nn #1 #2
{
\seq_gput_right:Nn \g_hjcf_seq
{ \hjcf_div_truncate:nn { #1 } { #2 } }
\int_compare:nTF { \hjcf_mod:nn { #1 } { #2 } = 1 }
{
\seq_gput_right:Nn \g_hjcf_seq { #2 }
}
{
\make_seq:nn { #2 } { \hjcf_mod:nn { #1 } { #2 } }
}
}\cs_new:Nn \print_seq:
{
\ensuremath {
\int_incr:N \tmp_cnt
\seq_pop_left:NN \g_hjcf_seq \l_tmpa_tl
\tl_set_eq:NN \ldots \ddots
\tl_use:N \l_tmpa_tl
\int_compare:nT { \tmp_cnt < \tmp_dest }
{
- \dfrac { \strut 1 } { \print_seq: }
}
}
}\NewDocumentCommand \hjcfrac { o m m }
{
\seq_gclear:N \g_hjcf_seq\make_seq:nn { #2 } { #3 }
\IfValueTF { #1 }
{
\str_case:nnF { #1 }
{
{ b } { [ \seq_use:Nn \g_hjcf_seq { , } ] }
{ s } { \b_slash: \seq_use:Nn \g_hjcf_seq { , } \b_slash: }
}
{
\int_zero:N \tmp_cnt
\int_set:Nn \tmp_dest { \seq_count:N \g_hjcf_seq }
\print_seq:
}
}
{
\int_zero:N \tmp_cnt
\int_set:Nn \tmp_dest { \seq_count:N \g_hjcf_seq }
\print_seq:
}
}\cs_new:Npn \print_lhjcfrac:n #1
{
\seq_gclear:N \g_hjcf_seq
\seq_gset_split:Nnn \g_hjcf_seq { , } { #1 }\int_zero:N \tmp_cnt
\int_set:Nn \tmp_dest { \seq_count:N \g_hjcf_seq }
\print_seq:
}\cs_new_protected_nopar:Nn \b_slash: { / \mkern-4.5mu / }
\cs_new:Npn \print_lhj_stype:n #1
{
\seq_gclear:N \g_hjcf_seq
\seq_gset_split:Nnn \g_hjcf_seq { , } { #1 }
\ensuremath {
\b_slash: \seq_use:Nn \g_hjcf_seq { , } \b_slash:
}
}\cs_new:Npn \print_lhj_btype:n #1
{
\seq_gclear:N \g_hjcf_seq
\seq_gset_split:Nnn \g_hjcf_seq { , } { #1 }
\ensuremath {
[ \seq_use:Nn \g_hjcf_seq { , } ]
}
}\NewDocumentCommand \lhjcfrac { o o }
{
\IfNoValueTF { #2 }
{
\print_lhjcfrac:n { #1 }
}
{
\str_case:nnF { #1 }
{
{ s } { \print_lhj_stype:n { #2 } }
{ b } { \print_lhj_btype:n { #2 } }
}
{
\print_lhjcfrac:n { #2 }
}
}
}\int_new:N \r_int
\int_new:N \m_int
\int_new:N \n_int
\int_new:N \q_int\cs_new:Npn \simp_calc:n #1
{
\int_gset:Nn \q_int { #1 }
\int_gset:Nn \m_int { \n_int * \q_int - \r_int}
\int_gset_eq:NN \r_int \n_int
\int_gset_eq:NN \n_int \m_int
}\NewDocumentCommand \hjfraction { o }
{
\seq_gclear:N \g_hjcf_seq
\seq_gset_split:Nnn \g_hjcf_seq { , } { #1 }
\seq_greverse:N \g_hjcf_seq\int_set_eq:NN \n_int \c_one
\int_set_eq:NN \r_int \c_zero
\seq_map_function:NN \g_hjcf_seq \simp_calc:n\ensuremath {
% \dfrac { \int_use:N \m_int } { \int_use:N \r_int }
\frac { \int_use:N \m_int } { \int_use:N \r_int }
}
}\ExplSyntaxOff
-
작나
2018.09.28 09:22
Hirzubruch-Jung 에서 Jung 이름만 보고 우리나라 수학자인줄 알았어요.
-
noname
2018.09.28 15:45
제시하신 문제를 다시 풀어봤습니다.
PDF: hj_cfrac.pdf
TEX: hj_cfrac.tex
번호 | 제목 | 글쓴이 | 날짜 | 조회 수 |
---|---|---|---|---|
688 | 공연하고 쓸데없는... [6] | nanim | 2015.05.13 | 3412 |
687 | PDF, HTML 그리고 ePub [4] | yihoze | 2020.05.13 | 3426 |
686 | Happy New Year! 2015 [3] | 처음처럼 | 2014.12.31 | 3428 |
685 | 어제 잘 다녀왔습니다~ [8] | 불량양파 | 2015.02.01 | 3431 |
684 | KTUG mystery [3] | 세벌 | 2015.06.12 | 3444 |
683 | 시를 복붙하는 문제 [2] | noname | 2020.04.09 | 3452 |
682 | 양력 음력 변환 [9] | noname | 2020.11.23 | 3473 |
681 | Mediawiki의 mediawiki2latex [1] | 한힘찬 | 2020.03.09 | 3513 |
680 | 제가 좀 까칠하기는 하죠? [3] | 세벌 | 2015.06.08 | 3536 |
679 | 김 군 [9] | yihoze | 2015.06.12 | 3544 |
678 | 대화형 인용문에 대하여 [4] | noname | 2020.10.28 | 3545 |
677 | 한글 TeX 사용자 분들께 감사드립니다. [1] | 예노바르가 | 2015.06.15 | 3580 |
676 | 왜 우리는 tikz 따위에 더 이상 열광하지 않는가? [5] | yihoze | 2015.06.15 | 3582 |
675 | 파이 데이 기념? [6] | nanim | 2015.03.06 | 3584 |
674 | 명령 스무 개만 알면 [9] | nanim | 2015.06.14 | 3612 |
673 | LaTeX로 멋진 출판을 할 수 있는 편집자를 모십니다. | kyungmoon | 2021.03.23 | 3613 |
672 | 에헤헤헤 재가입 했습니다. [2] | 불량양파 | 2015.01.10 | 3623 |
671 | 메뉴얼을 올리고 싶은데..용량 초과인데.. [6] | 처음처럼 | 2015.01.17 | 3628 |
670 | 추억의 문서: 반곡으로 돌아가는 이원을 보내며 [2] | Progress | 2020.05.04 | 3631 |
669 | lshort가 새 버전이 나왔군요 [1] | Dennis | 2015.01.04 | 3635 |
그뤠잇입니다!