6-3-3.tex

需要通过验证才能下载！希望大家多多合作！否则不能下载！请谅解！

% 6-3-3.tex
\documentclass{article}
\begin{document}
\setlength{\unitlength}{1mm}
\newcommand{\wrt}[1]{\makebox(0,0)[c]{#1}}
\newcommand{\lline}[1]{\line(-1,0){#1}}
\newcommand{\rline}[1]{\line(1,0){#1}}
\newcommand{\uline}[1]{\line(0,1){#1}}
\newcommand{\dline}[1]{\line(0,-1){#1}}
\newcommand{\lvec}[1]{\vector(-1,0){#1}}
\newcommand{\rvec}[1]{\vector(1,0){#1}}
\newcommand{\uvec}[1]{\vector(0,1){#1}}
\newcommand{\dvec}[1]{\vector(0,-1){#1}}
\newsavebox{\condition}
\newsavebox{\process}
\newsavebox{\inputoutput}
\savebox{\process}(0,0){\thicklines
  \put(-18,-3){\framebox(36,6){}}
}
\savebox{\condition}(0,0){\thicklines
  \put(-10,0){\line(2,1){10}}
  \put(-10,0){\line(2,-1){10}}
  \put(10,0){\line(-2,1){10}}
  \put(10,0){\line(-2,-1){10}}
  \put(-10,0){\lline{10}}
  \put(-15,1){\makebox(0,0)[b]{no}}
  \put(10,0){\rline{10}}
  \put(15,1){\makebox(0,0)[b]{yes}}  
}
\savebox{\inputoutput}(0,0){\thicklines
  \put(-19.5,-3){\rline{36}}
  \put(-19.5,-3){\line(1,2){3}}
  \put(19.5,3){\lline{36}}
  \put(19.5,3){\line(-1,-2){3}}
}
\begin{center}
\begin{picture}(80,63)(0,-63)\thicklines
\put(40,0){\dvec{5}} 
\put(40,-10){\usebox{\condition}}
\put(40,-10){\wrt{$\Delta\ne0$?}}
\put(20,-10){\dvec{7}}
\put(20,-20){\usebox{\process}}
\put(20,-20){\wrt{$x_{1,2}=-b/2$}}
\put(60,-10){\dvec{7}}
\put(60,-20){\usebox{\process}}
\put(60,-20){\wrt{$p=-b/2,\,q=\sqrt{\Delta}$}}
\put(60,-23){\dvec{7}}
\put(60,-33){\usebox{\process}}
\put(60,-33){\wrt{$x_1=p+q,\,x_2=p-q$}}
\put(20,-23){\dline{20}}
\put(60,-36){\dline{7}}
\put(20,-43){\rline{40}}
\put(40,-43){\dvec{7}}
\put(40,-53){\usebox{\inputoutput}}
\put(40,-53){\wrt{ouput $x_1,\,x_2$}}
\put(40,-56){\dvec{7}}
\end{picture}
\end{center}

\end{document}