• KTUG
• 대문
• 찾기
• 목록
• 바뀐글

beginfig(0);
    draw begingraph(12cm,8cm);
        gdraw "clitig.txt" ;
    endgraph;
endfig;

beginfig(1);
    draw begingraph(12cm,8cm);
        gdraw "clitig.txt" ;
        gdotlabel.lft(btex IMF $\rightarrow$ etex, 45);
    endgraph;
endfig;

beginfig(2);
    draw begingraph(12cm,8cm);
        gdraw "clitig.txt"  withpen pencircle scaled 1.5pt;
        glabel.ulft(btex 민사소송 etex, 43);
        glabel.bot(btex 연도 etex, OUT);
        glabel.lft(btex 사건수 etex rotated 90 ,OUT);
    endgraph;
endfig;

beginfig(3);
    draw begingraph(12cm,8cm);
        gdraw "clitig.txt" withpen pencircle scaled 1.5pt;
        glabel.ulft(btex 민사소송 etex, 43);
        gdraw "rgdp.txt" ;
        glabel.lrt(btex GDP etex, 45);
        glabel.bot(btex 연도 etex, OUT);
        glabel.lft(btex 사건수/십억원 etex rotated 90 ,OUT);
    endgraph;
endfig;

beginfig(4);
    draw begingraph(12cm,8cm);
        gdraw "clitig.txt" withpen pencircle scaled 1.5pt;
        glabel.lrt(btex 민사소송 etex, 43);
        autogrid(,otick.lft);
        setcoords(linear,linear);
        gdraw "rgdp.txt" ;
        glabel.ulft(btex GDP etex, 40);
        autogrid(otick.bot,otick.rt);
        glabel.bot(btex 연도 etex, OUT);
        glabel.lft(btex 민사소송(건수) etex rotated 90 ,OUT);
        glabel.rt(btex 실질GDP(십억원) etex rotated -90 ,OUT);
    endgraph;
endfig;

input sarith;

beginfig(5);
    draw begingraph(12cm,8cm);
        path p[];
        gdata("clitig.txt",$,
            if scantokens $1 >=1980: augment.p0($1,$2 Sdiv 1000); fi);
        gdata("rgdp.txt",$,
            if scantokens $1 >=1980: augment.p1($1,$2 Sdiv 1000); fi);
        gdraw p0 withpen pencircle scaled 1.5pt;
        glabel.lrt(btex 민사소송 etex, 13);
        autogrid(,otick.lft);
        setcoords(linear,linear);
        gdraw p1 ;
        glabel.ulft(btex GDP etex, 15);
        autogrid(,otick.rt);
        for u=auto.x: otick.bot(format("%f",u),u); endfor;
        glabel.bot(btex 연도 etex, OUT);
        glabel.lft(btex 민사소송(천건) etex rotated 90 ,OUT);
        glabel.rt(btex 실질GDP(조원) etex rotated -90 ,OUT);
    endgraph;
endfig;

beginfig(6);
    draw begingraph(12cm,8cm);
        path p[];
        gdata("clitig.txt",$,
            if scantokens $1 >=1980: augment.p0($1,$2 Sdiv 1000); fi);
        gdata("rgdp.txt",$,
            if scantokens $1 >=1980: augment.p1($1,$2 Sdiv 1000); fi);
        gdraw p0 withpen pencircle scaled 1.5pt;
        glabel.lrt(btex 민사소송 etex, 13);
        for u=auto.y: otick.lft(format("%g",u Smul 1000),u); endfor;
        setcoords(linear,linear);
        gdraw p1 ;
        glabel.ulft(btex GDP etex, 15);
        for u=auto.y: otick.rt(format("%g",u Smul 1000),u); endfor;
        for u=auto.x: otick.bot(format("%f",u),u); endfor;
        glabel.bot(btex 연도 etex, OUT);
        glabel.lft(btex 민사소송(건수) etex rotated 90 ,OUT);
        glabel.rt(btex 실질GDP(십억원) etex rotated -90 ,OUT);
    endgraph;
endfig;