LINUX.ORG.RU

[latex][tikz]нарисовать параболу

 ,


0

1

Как нарисовать параболу типа y^2=x, в примерах только y=x^2?

$(y+1)^2=2\cdot\frac{1}{4}(x+6)$
\begin{tikzpicture}
% оси и сетка
\draw[->][ very thick] (-8,0)--(8,0) node[anchor=north] {$X$}; 
\draw[->][ very thick] (0,-8)--(0,8) node[anchor=east] {$Y$}; 
\draw node[anchor=north east] {$0$};                            
\draw[help lines , very thin] (-8,-8) grid (8,8);                
% парабола
\draw (-6, -1) parabola ????;

\end{tikzpicture}

★★★★★

\draw [rotate=-90](-1.65, 8) parabola bend (1, -6) (3.65, 8);

Тема закрыта.

fluorite ★★★★★
() автор топика

graph.Rnw:

\begin{tikzpicture}
	\begin{scope}[thick]
		\draw [->](0,\Sexpr{Ysbord}cm) -- (0,\Sexpr{Ynbord}cm) node [left] {$y$};
		\draw [->](\Sexpr{Xwbord}cm,0) -- (\Sexpr{Xebord}cm,0) node [below] {$x$};
	\end{scope}
	\draw [help lines] (\Sexpr{Xwbord}cm,\Sexpr{Ysbord}cm) 
		grid [xstep=1cm,ystep=1cm] 
		(\Sexpr{Xebord}cm,\Sexpr{Ynbord}cm); % сетка и оси координат

	
	\draw (0,0) node [above left] {$0$};

	\draw plot [smooth]  coordinates{
<<results=tex,echo=F>>=
cat(curvCoords)
@
	};
\end{tikzpicture}

В Makefile:

graph.tex: gengraph.R graph.Rnw results.Rd
	R --no-save < $<

В gengraph.R:

load("results.Rd")

curvCoords <- paste(sprintf("(%fcm,%fcm)",x,y),collapse='\n')

x <- c(0,x);y <- c(0,y);
Xwbord=ceiling(min(x)-1);Xebord=floor(max(x)+1);
Ynbord=floor(max(y)+1);Ysbord=ceiling(min(y)-1);

Sweave("graph.Rnw")

В resulds.Rd должны валяться вектора x и y как описание рисуемой tikz кривой.

ados ★★★★★
()
Вы не можете добавлять комментарии в эту тему. Тема перемещена в архив.