/usr/local/tikz/Common.tikz not found! /usr/local/tikz/Moulton/Calc.Moulton.tikz not found! /usr/local/tikz/Moulton/Styles.tikz not found! /usr/local/tikz/Moulton/Draw.Line.tikz not found! \TiKZPath/Moulton/Draw.ABC.tikz not found! \TiKZPath/Moulton/Calc.Left.tikz not found! \TiKZPath/Moulton/Calc.Right.tikz not found! SmtC: Show me the Code!
SmtC: Show me the Code
Ole Peter Smith
Instituto de Matemática e Estatística
Universidade Federal de Goiás
http://www.olesmith.com.br

Moulton
Somos todos Condenados à Liberdade
Jean Paul Sartre
< Taxist | Incidence | Parallellism >

Incidence in Moulton

TiKZ Listing: Fig.tikz.tex. PDF   PNG   SVG   ZIP*   
%Point A
\tikzmath{\xa=-1;};
\tikzmath{\ya=-1;};

%Point B
\tikzmath{\xb= 1;};
\tikzmath{\yb= 1;};

%Left and right limit for x
\tikzmath{\xleft=-2;};
\tikzmath{\xright= 2;};

\tikzmath{\ybottom=-3;};
\tikzmath{\ytop= 3;};


\input{/usr/local/tikz/Common.tikz}
\input{/usr/local/tikz/Moulton/Calc.Moulton.tikz}
\input{/usr/local/tikz/Moulton/Styles.tikz}
\input{/usr/local/tikz/Moulton/Draw.Line.tikz}
\input{/usr/local/tikz/Moulton/Draw.ABC.tikz}

\draw [-Latex] (1.5*\xleft,0)    -- (1.5*\xright,0) node [right] {$x$};
\draw [-Latex] (0,\ybottom)  -- (0,\ytop)   node [above] {$y$};
Showing: /usr/local/tikz/Moulton/Calc.Moulton.tikz:
TiKZ Listing: /usr/local/tikz/Moulton/Calc.Moulton.tikz.tex. PDF   PNG   SVG   ZIP*   
%Position of line titles
\tikzmath{\titlepos=-0.1;};
\tikzmath{\contpos=-0.2;};
\tikzmath{\contposleft=-0.5;};
\tikzmath{\contposright=-0.2;};
\tikzmath{\normalsize=1.5;};

\tikzmath{\tangentialfact=2.5;};


%Moulton parameters, y=\m*x+\k
\tikzmath{\m=(\yb-\ya)/(0.5*\xb-\xa);};
\tikzmath{\k=\ya-\m*\xa;};

%Nodes A, B and C
\coordinate (A) at ($(\xa,\ya)$);
\coordinate (B) at ($(\xb,\yb)$);
\coordinate (C) at ($(0,\k)$);
\coordinate (CX) at ($(-\k/\m,0)$);

%Points on left and right lines
\coordinate (CL) at ($(\xleft,\xleft*\m+\k)$);
\coordinate (CR) at ($(\xright,0.5*\xright*\m+\k)$);

\tikzmath{\x=\tangentialfact*\xleft;};
\coordinate (FCL) at ($(\x,\x*\m+\k)$);

\tikzmath{\x=\tangentialfact*\xright;};
\coordinate (FCR) at ($(\x,0.5*\x*\m+\k)$);

\coordinate (DL) at ($(\xleft,0.5*\xleft*\m+\k)$);
\coordinate (DR) at ($(\xright,\xright*\m+\k)$);



%Length to go along normals
\tikzmath{\LR=2;};
\tikzmath{\LL=2;};

%Length to go along normals for fills
\tikzmath{\FR=7;};
\tikzmath{\FL=7;};

%Unit normals
%Left normal is parallel to (-\m,1)
\tikzmath{\L=1/sqrt(1+\m*\m);};
\coordinate (NL) at ($\L*(-\m,1)$);

%Left normal is parallel to (-\m,2)
\tikzmath{\L=1/sqrt(4+\m*\m);};
\coordinate (NR) at ($\L*(-\m,2)$);


\input{/usr/local/tikz/Moulton/Calc.Left.tikz}
\input{/usr/local/tikz/Moulton/Calc.Right.tikz}
< Taxist | Incidence | Parallellism >
Messages:
0 secs.