\csname PSTLOIBOMLoaded\endcsname \let\PSTLOIBOMLoaded\endinput % Requires PSTricks, pst-xkey and pst-node packages \ifx\PSTSOLIDESIIIDLoaded\endinput\else\input pst-solides3d.tex \input ifthen.tex \input multido.tex \fi \def\fileversion{1.0} \def\filedate{2009/03/20} \message{`PSTLOIBOM' v\fileversion, \filedate} \edef\PstAtCode{\the\catcode`\@} \catcode`\@=11\relax \pst@addfams{pst-loibom} %% Dat chieu dai bang bien thien \define@key[psset]{pst-loibom}{dai}{\def\pst@loibom@dai{#1}} \psset[pst-loibom]{dai=8} % Mac dinh chieu dai bang 8 %% Dat chieu cao bang bien thien \define@key[psset]{pst-loibom}{cao}{\def\pst@loibom@cao{#1}} \psset[pst-loibom]{cao=2} % Mac dinh chieu cao bang 3 %% \define@key[psset]{pst-loibom}{hY}{\def\pst@loibom@hY{#1}} \psset[pst-loibom]{hY=0.8} % Mac dinh 0.8 cho khoang cach 2 hang o y' \define@key[psset]{pst-loibom}{hX}{\def\pst@loibom@hX{#1}} \psset[pst-loibom]{hX=0.8} % Mac dinh 0.8 cho phan du o x %% Chn gc nhn thng (theo mt phng Oyz)----Xem gi pst-solides3d.sty \psset{viewpoint=100 0 0, Decran=100} \psset{coorType=2,Alpha=90} \psset{arrowsize=5pt} %% ten x, y', y \def\pst@loibom@tenbien@i#1,#2,#3,#4\@nil{% \def\pst@loibom@BBT@xname{#1} \def\pst@loibom@BBT@diffname{#2} \def\pst@loibom@BBT@funcname{#3}} \define@key[psset]{pst-loibom}{tenbien}{% \expandafter\pst@loibom@tenbien@i#1,,,\@nil}% \psset[pst-loibom]{tenbien={$x$,$y'$,$y$}} % Mac dinh x,y',y %% So khoang \define@key[psset]{pst-loibom}{sokhoang}{\def\pst@loibom@sokhoang{#1}} \psset[pst-loibom]{sokhoang=1} % Mac dinh so khoang =1 %% Chia khoang \def\pst@loibom@giatribien@i#1,#2,#3,#4,#5,#6,#7,#8,#9\@nil{ % \def\pst@loibom@giatribien@xI{#1} \def\pst@loibom@giatribien@xII{#2} \def\pst@loibom@giatribien@xIII{#3} \def\pst@loibom@giatribien@xIV{#4} \def\pst@loibom@giatribien@xV{#5} \def\pst@loibom@giatribien@xVI{#6} \def\pst@loibom@giatribien@xVII{#7} \def\pst@loibom@giatribien@xVIII{#8} \def\pst@loibom@giatribien@xIX{#9}} \define@key[psset]{pst-loibom}{giatribien}{\expandafter \pst@loibom@giatribien@i#1,,,,,,,,\@nil} % mac dinh khoang (-\vc;+\vc) \psset[pst-loibom]{giatribien={ , , , , , , , , }} %% Dau dao ham \def\pst@loibom@daudaoham@i#1,#2,#3,#4,#5,#6,#7,#8,#9\@nil{ % \def\pst@loibom@daudaoham@xI{#1} \def\pst@loibom@daudaoham@xII{#2} \def\pst@loibom@daudaoham@xIII{#3} \def\pst@loibom@daudaoham@xIV{#4} \def\pst@loibom@daudaoham@xV{#5} \def\pst@loibom@daudaoham@xVI{#6} \def\pst@loibom@daudaoham@xVII{#7} \def\pst@loibom@daudaoham@xVIII{#8}} \define@key[psset]{pst-loibom}{daudaoham}{\expandafter \pst@loibom@daudaoham@i#1,,,,,,,,\@nil} \psset[pst-loibom]{daudaoham={1,1,1,1,1,1,1,1}} %% Dat diem gian doan \define@boolkey[psset]{pst-loibom}[Pst@]{giandoan}[true]{} \psset[pst-loibom]{giandoan=false} % Mac dinh khong co diem gian doan \def\pst@loibom@diemgiandoan@i#1,#2,#3,#4,#5,#6,#7,#8,#9\@nil{ % \def\pst@loibom@diemgiandoan@sodiemgd{#1} \def\pst@loibom@diemgiandoan@I{#2} \def\pst@loibom@diemgiandoan@II{#3} \def\pst@loibom@diemgiandoan@III{#4} \def\pst@loibom@diemgiandoan@IV{#5} \def\pst@loibom@diemgiandoan@V{#6} \def\pst@loibom@diemgiandoan@VI{#7} \def\pst@loibom@diemgiandoan@VII{#8} \def\pst@loibom@diemgiandoan@VIII{#9}} \define@key[psset]{pst-loibom}{diemgiandoan}{\expandafter \pst@loibom@diemgiandoan@i#1,,,,,,,,\@nil} \psset[pst-loibom]{diemgiandoan={1,2}} %% Diem toi han \def\pst@loibom@diemtoihan@i#1,#2,#3,#4,#5,#6,#7,#8,#9\@nil{ % \def\pst@loibom@diemtoihan@I{#1} \def\pst@loibom@diemtoihan@II{#2} \def\pst@loibom@diemtoihan@III{#3} \def\pst@loibom@diemtoihan@IV{#4} \def\pst@loibom@diemtoihan@V{#5} \def\pst@loibom@diemtoihan@VI{#6} \def\pst@loibom@diemtoihan@VII{#7} \def\pst@loibom@diemtoihan@VIII{#8} \def\pst@loibom@diemtoihan@IX{#9}} \define@key[psset]{pst-loibom}{diemtoihan}{\expandafter \pst@loibom@diemtoihan@i#1,,,,,,,,\@nil} \psset[pst-loibom]{diemtoihan={0,0,0,0,0,0,0,0}} %% Dat gia tri ham \def\pst@loibom@giatriham@i#1,#2,#3,#4,#5,#6,#7,#8,#9\@nil{ % \def\pst@loibom@giatriham@I{#1} \def\pst@loibom@giatriham@II{#2} \def\pst@loibom@giatriham@III{#3} \def\pst@loibom@giatriham@IV{#4} \def\pst@loibom@giatriham@V{#5} \def\pst@loibom@giatriham@VI{#6} \def\pst@loibom@giatriham@VII{#7} \def\pst@loibom@giatriham@VIII{#8} \def\pst@loibom@giatriham@IX{#9}} \define@key[psset]{pst-loibom}{giatriham}{\expandafter \pst@loibom@giatriham@i#1,,,,,,,,\@nil} %%% Kiem tra tich 2 so cung dau trai dau \def\is@loibom@samesign#1#2{ \ifnum#1<0 \ifnum#2<0 1 \else 0\fi \else \ifnum#2<0 0 \else 1 \fi \fi} %% kiem tra tat ca cac so cung dau %%---------------------------------------------- \def\is@nonchangesign@iii#1#2#3{ \ifnum\is@loibom@samesign{#1}{#2}=1 \ifnum\is@loibom@samesign{#2}{#3}=1 0 \else 2 \fi \else 1 \fi} %%----------------------------------------------- \def\is@nonchangesign@iv#1#2#3#4{ \ifnum\is@loibom@samesign{#1}{#2}=0 1 \else\ifnum\is@loibom@samesign{#3}{#4}=0 3 \else\ifnum\is@loibom@samesign{#2}{#3}=0 2 \else 0 \fi \fi \fi} %%----------------------------------------------- \def\is@nonchangesign@v#1#2#3#4#5{ \ifnum\is@loibom@samesign{#1}{#2}=0 1 % doi dau 1-2 \else\ifnum\is@loibom@samesign{#4}{#5}=0 4 \else\ifnum\is@nonchangesign@iv{#2}{#3}{#4}{#5}=1 2 \else \ifnum\is@nonchangesign@iv{#2}{#3}{#4}{#5}=2 3 \else 0 \fi \fi \fi \fi} %%----------------------------------------------- \def\is@nonchangesign@vi#1#2#3#4#5#6{ \ifnum\is@loibom@samesign{#1}{#2}=0 1 % doi dau 1-2 \else\ifnum\is@loibom@samesign{#5}{#6}=0 5 \else\ifnum\is@nonchangesign@v{#2}{#3}{#4}{#5}{#6}=1 2 \else \ifnum\is@nonchangesign@v{#2}{#3}{#4}{#5}{#6}=2 3 \else \ifnum\is@nonchangesign@v{#2}{#3}{#4}{#5}{#6}=3 4 \else 0 \fi \fi \fi \fi \fi} %%----------------------------------------------- \def\is@nonchangesign@vii#1#2#3#4#5#6#7{ \ifnum\is@loibom@samesign{#1}{#2}=0 1 % doi dau 1-2 \else\ifnum\is@loibom@samesign{#6}{#7}=0 6 \else\ifnum\is@nonchangesign@vi{#2}{#3}{#4}{#5}{#6}{#7}=1 2 \else \ifnum\is@nonchangesign@vi{#2}{#3}{#4}{#5}{#6}{#7}=2 3 \else \ifnum\is@nonchangesign@vi{#2}{#3}{#4}{#5}{#6}{#7}=3 4 \else \ifnum\is@nonchangesign@vi{#2}{#3}{#4}{#5}{#6}{#7}=4 5 \else 0 \fi \fi \fi \fi \fi \fi} %% Vi tu tam I ti so k \def\loibom@vitu(#1,#2,#3)(#4,#5,#6)#7#8{ \psPoint(#4 #1 sub #7 mul #1 add,#5 #2 sub #7 mul #2 add,#6 #3 sub #7 mul #3 add){#8}} %%-----------Lenh ghep so--------------- \def\lb@ghepso#1#2#3#4#5#6#7#8#9{ \ifnum#1=1 #2 \else\ifnum#1=2 #2#3 \else\ifnum#1=3 #2#3#4 \else\ifnum#1=4 #2#3#4#5 \else\ifnum#1=5 #2#3#4#5#6 \else\ifnum#1=6 #2#3#4#5#6#7 \else\ifnum#1=7 #2#3#4#5#6#7#8 \else #2#3#4#5#6#7#8#9 \fi\fi\fi\fi\fi\fi\fi} \newcounter{donvilb} \newcounter{xoadonvilb} \newcounter{sodiemgiandoan} \def\muiten@I#1#2#3{ \pst@killglue % \begingroup \use@par \psPoint(0,#1 hXXX add,hYYY -1 mul){MTItop} \psPoint(0,#1 hXXX add,zB hYYY add){MTIbot} \psPoint(0,#2 hXXX sub,hYYY -1 mul){MTItop'} \psPoint(0,#2 hXXX sub,zB hYYY add){MTIbot'} \ifnum#3<0\psline{->}(MTItop)(MTIbot')\else\psline{->}(MTIbot)(MTItop')\fi \endgroup \ignorespaces% }% end \muiten@I %%%--------ve mui ten 2 khoang lien tuc --------------------------------- \def\muiten@lientuc@II#1#2#3#4{ \pst@killglue % \begingroup \use@par \pstVerb{/varII #2 #1 sub 2 div #1 add def /mau varII #1 sub hXXX sub 2 mul def /kI hXXX -2 mul varII add #1 sub mau div def /kII varII #1 sub mau div def} \psPoint(0,#1 hXXX add,hYYY -1 mul){MTII1top} \psPoint(0,#1 hXXX add,zB hYYY add){MTII1bot} \psPoint(0,varII hXXX sub,zB hYYY add){MTII1bot'} \psPoint(0,varII hXXX sub,hYYY -1 mul){MTII1top'} \psPoint(0,varII hXXX add,zB hYYY add){MTII2bot} \psPoint(0,varII hXXX add,hYYY -1 mul){MTII2top} \psPoint(0,#2 hXXX sub,hYYY -1 mul){MTII2top'} \psPoint(0,#2 hXXX sub,zB hYYY add){MTII2bot'} \ifnum\is@loibom@samesign{#3}{#4}=0 % if 1 dao ham doi dau \ifnum#3<0 % if 2 y': - + \psline{->}(MTII1top)(MTII1bot') \psline{->}(MTII2bot)(MTII2top') \else %y': + - \psline{->}(MTII1bot)(MTII1top') \psline{->}(MTII2top)(MTII2bot') \fi % end if 2 \else % dao ham cung dau \ifnum#3<0 % if 3 \loibom@vitu(0,#1 hXXX add,hYYY -1 mul)(0,#2 hXXX sub,zB hYYY add){kI}{MTII1mid'} \loibom@vitu(0,#1 hXXX add,hYYY -1 mul)(0,#2 hXXX sub,zB hYYY add){kII}{MTII2mid} \psline{->}(MTII1top)(MTII1mid')\psline{->}(MTII2mid)(MTII2bot') \else \loibom@vitu(0,#1 hXXX add,zB hYYY add)(0,#2 hXXX sub,hYYY -1 mul){kI}{MTII1mid'} \loibom@vitu(0,#1 hXXX add,zB hYYY add)(0,#2 hXXX sub,hYYY -1 mul){kII}{MTII2mid} \psline{->}(MTII1bot)(MTII1mid')\psline{->}(MTII2mid)(MTII2top') \fi % end if 3 \fi % end if 1 \endgroup% \ignorespaces% }% end \muiten@lientuc@II %%%--------ve mui ten 3 khoang lien tuc --------------------------------- \def\muiten@lientuc@III#1#2#3#4#5{ \pst@killglue % \begingroup \use@par \pstVerb{/lengthIII #2 #1 sub 3 div def /VarII lengthIII #1 add def /VarIII lengthIII 2 mul #1 add def} \psPoint(0,#1 hXXX add,hYYY -1 mul){MTIII1top} \psPoint(0,#1 hXXX add,zB hYYY add){MTIII1bot} \psPoint(0,VarII hXXX sub,zB hYYY add){MTIII1bot'} \psPoint(0,VarII hXXX sub,hYYY -1 mul){MTIII1top'} \psPoint(0,VarIII hXXX add,zB hYYY add){MTIII3bot} \psPoint(0,VarIII hXXX add,hYYY -1 mul){MTIII3top} \psPoint(0,#2 hXXX sub,hYYY -1 mul){MTIII3top'} \psPoint(0,#2 hXXX sub,zB hYYY add){MTIII3bot'} \ifnum\is@loibom@samesign{#3}{#4}=0 % if 1 y' doi dau lan 1 \ifnum\is@loibom@samesign{#4}{#5}=0 % if 2 y' doi dau lan 2 \muiten@lientuc@II{#1}{VarIII}{#3}{#4} \muiten@lientuc@II{VarII}{#2}{#4}{#5} \else % y' khong doi dau lan 2 \muiten@I{#1}{VarII}{#3} \muiten@lientuc@II{VarII}{#2}{#4}{#5} \fi % end if 2 \else % y' khong doi dau lan 1 \ifnum\is@loibom@samesign{#4}{#5}=0 % if 4 \muiten@lientuc@II{#1}{VarIII}{#3}{#4} \muiten@I{VarIII}{#2}{#5} \else % y ' khong doi dau lan nao \pstVerb{ /mau hXXX -2 mul #2 add #1 sub def /kI hXXX -2 mul VarII add #1 sub mau div def /kII VarII #1 sub mau div def /kIII hXXX -2 mul VarIII add #1 sub mau div def /kIV VarIII #1 sub mau div def } \ifnum#3<0 % if 6 y': - - - \loibom@vitu(0,#1 hXXX add,hYYY -1 mul)(0,#2 hXXX sub,zB hYYY add){kI}{MTIII1midbot'} \loibom@vitu(0,#1 hXXX add,hYYY -1 mul)(0,#2 hXXX sub,zB hYYY add){kII}{MTIII2midbot} \loibom@vitu(0,#1 hXXX add,hYYY -1 mul)(0,#2 hXXX sub,zB hYYY add){kIII}{MTIII2midbot'} \loibom@vitu(0,#1 hXXX add,hYYY -1 mul)(0,#2 hXXX sub,zB hYYY add){kIV}{MTIII3midbot} \psline{->}(MTIII1top)(MTIII1midbot') \psline{->}(MTIII2midbot)(MTIII2midbot') \psline{->}(MTIII3midbot)(MTIII3bot') \else % y': + + + \loibom@vitu(0,#1 hXXX add,zB hYYY add)(0,#2 hXXX sub,hYYY -1 mul){kI}{MTIII1midbot'} \loibom@vitu(0,#1 hXXX add,zB hYYY add)(0,#2 hXXX sub,hYYY -1 mul){kII}{MTIII2midbot} \loibom@vitu(0,#1 hXXX add,zB hYYY add)(0,#2 hXXX sub,hYYY -1 mul){kIII}{MTIII2midbot'} \loibom@vitu(0,#1 hXXX add,zB hYYY add)(0,#2 hXXX sub,hYYY -1 mul){kIV}{MTIII3midbot} \psline{->}(MTIII1bot)(MTIII1midbot') \psline{->}(MTIII2midbot)(MTIII2midbot') \psline{->}(MTIII3midbot)(MTIII3top') \fi % end if 6 \fi % end if 4 \fi % end if 1 \endgroup% \ignorespaces% }% end \muiten@lientuc@III %%%--------ve mui ten 4 khoang lien tuc --------------------------------- \def\muiten@lientuc@IV#1#2#3#4#5#6{ \pst@killglue % \begingroup \use@par \pstVerb{/lengthIV #2 #1 sub 4 div def /vArII lengthIV #1 add def /vArIII lengthIV 2 mul #1 add def /vArIV lengthIV 3 mul #1 add def} \psPoint(0,#1 hXXX add,hYYY -1 mul){MTIV1top} \psPoint(0,#1 hXXX add,zB hYYY add){MTIV1bot} \psPoint(0,vArII hXXX sub,zB hYYY add){MTIV1bot'} \psPoint(0,vArII hXXX sub,hYYY -1 mul){MTIV1top'} \psPoint(0,vArIV hXXX add,zB hYYY add){MTIV4bot} \psPoint(0,vArIV hXXX add,hYYY -1 mul){MTIV4top} \psPoint(0,#2 hXXX sub,hYYY -1 mul){MTIV4top'} \psPoint(0,#2 hXXX sub,zB hYYY add){MTIV4bot'} \ifnum\is@nonchangesign@iv{#3}{#4}{#5}{#6}=1 % if 1 \muiten@lientuc@III{vArII}{#2}{#4}{#5}{#6} \muiten@I{#1}{vArII}{#3} \else\ifnum\is@nonchangesign@iv{#3}{#4}{#5}{#6}=2 % if 3 \muiten@lientuc@II{#1}{vArIII}{#3}{#4} \muiten@lientuc@II{vArIII}{#2}{#5}{#6} \else\ifnum\is@nonchangesign@iv{#3}{#4}{#5}{#6}=3 % if 4 \muiten@lientuc@III{#1}{vArIV}{#3}{#4}{#5} \muiten@I{vArIV}{#2}{#6} \else \pstVerb{ /MauIV hXXX -2 mul #2 add #1 sub def /tisokI hXXX -2 mul lengthIV add MauIV div def /tisokII lengthIV MauIV div def /tisokIII lengthIV hXXX sub 2 mul MauIV div def /tisokIV lengthIV 2 mul MauIV div def /tisokV lengthIV hXXX sub 2 mul lengthIV add MauIV div def /tisokVI lengthIV 3 mul MauIV div def } \ifnum#3<0% if 7 \loibom@vitu(0,#1 hXXX add,hYYY -1 mul)(0,#2 hXXX sub,zB hYYY add){tisokI}{MTIV1midbot'} \loibom@vitu(0,#1 hXXX add,hYYY -1 mul)(0,#2 hXXX sub,zB hYYY add){tisokII}{MTIV2midbot} \loibom@vitu(0,#1 hXXX add,hYYY -1 mul)(0,#2 hXXX sub,zB hYYY add){tisokIII}{MTIV2midbot'} \loibom@vitu(0,#1 hXXX add,hYYY -1 mul)(0,#2 hXXX sub,zB hYYY add){tisokIV}{MTIV3midbot} \loibom@vitu(0,#1 hXXX add,hYYY -1 mul)(0,#2 hXXX sub,zB hYYY add){tisokV}{MTIV3midbot'} \loibom@vitu(0,#1 hXXX add,hYYY -1 mul)(0,#2 hXXX sub,zB hYYY add){tisokVI}{MTIV4midbot} \psline{->}(MTIV1top)(MTIV1midbot') \psline{->}(MTIV2midbot)(MTIV2midbot') \psline{->}(MTIV3midbot)(MTIV3midbot') \psline{->}(MTIV4midbot)(MTIV4bot') \else \loibom@vitu(0,#1 hXXX add,zB hYYY add)(0,#2 hXXX sub,hYYY -1 mul){tisokI}{MTIV1midbot'} \loibom@vitu(0,#1 hXXX add,zB hYYY add)(0,#2 hXXX sub,hYYY -1 mul){tisokII}{MTIV2midbot} \loibom@vitu(0,#1 hXXX add,zB hYYY add)(0,#2 hXXX sub,hYYY -1 mul){tisokIII}{MTIV2midbot'} \loibom@vitu(0,#1 hXXX add,zB hYYY add)(0,#2 hXXX sub,hYYY -1 mul){tisokIV}{MTIV3midbot} \loibom@vitu(0,#1 hXXX add,zB hYYY add)(0,#2 hXXX sub,hYYY -1 mul){tisokV}{MTIV3midbot'} \loibom@vitu(0,#1 hXXX add,zB hYYY add)(0,#2 hXXX sub,hYYY -1 mul){tisokVI}{MTIV4midbot} \psline{->}(MTIV1bot)(MTIV1midbot') \psline{->}(MTIV2midbot)(MTIV2midbot') \psline{->}(MTIV3midbot)(MTIV3midbot') \psline{->}(MTIV4midbot)(MTIV4top') \fi %end if 7 \fi %end if 4 \fi % end if 3 \fi % end if 1 \endgroup% \ignorespaces% }% end \muiten@lientuc@IV %%%--------ve mui ten 5 khoang lien tuc --------------------------------- \def\muiten@lientuc@V#1#2#3#4#5#6#7{ \pst@killglue % \begingroup \use@par \pstVerb{/lengthV #2 #1 sub 5 div def /VArII lengthV #1 add def /VArIII lengthV 2 mul #1 add def /VArIV lengthV 3 mul #1 add def /VArV lengthV 4 mul #1 add def} \psPoint(0,#1 hXXX add,hYYY -1 mul){MTV1top} \psPoint(0,#1 hXXX add,zB hYYY add){MTV1bot} \psPoint(0,VArII hXXX sub,zB hYYY add){MTV1bot'} \psPoint(0,VArII hXXX sub,hYYY -1 mul){MTV1top'} \psPoint(0,VArV hXXX add,zB hYYY add){MTV5bot} \psPoint(0,VArV hXXX add,hYYY -1 mul){MTV5top} \psPoint(0,#2 hXXX sub,hYYY -1 mul){MTV5top'} \psPoint(0,#2 hXXX sub,zB hYYY add){MTV5bot'} \ifnum\is@nonchangesign@v{#3}{#4}{#5}{#6}{#7}=1 % if 1: y' doi dau tu dau \muiten@lientuc@IV{VArII}{#2}{#4}{#5}{#6}{#7} \muiten@I{#1}{VArII}{#3} \else\ifnum\is@nonchangesign@v{#3}{#4}{#5}{#6}{#7}=2 % if 3 \muiten@lientuc@II{#1}{VArIII}{#3}{#4} \muiten@lientuc@III{VArIII}{#2}{#5}{#6}{#7} \else\ifnum\is@nonchangesign@v{#3}{#4}{#5}{#6}{#7}=3 % if 4 \muiten@lientuc@III{#1}{VArIV}{#3}{#4}{#5} \muiten@lientuc@II{VArIV}{#2}{#6}{#7} \else\ifnum\is@nonchangesign@v{#3}{#4}{#5}{#6}{#7}=4 % if 5 \muiten@lientuc@IV{#1}{VArV}{#3}{#4}{#5}{#6} \muiten@I{VArV}{#2}{#7} \else % dao ham khong doi dau \pstVerb{ /MauV hXXX -2 mul #2 add #1 sub def /tisoVki hXXX -2 mul lengthV add MauV div def /tisoVkii lengthV MauV div def /tisoVkiii lengthV hXXX sub 2 mul MauV div def /tisoVkiv lengthV 2 mul MauV div def /tisoVkv lengthV hXXX sub 2 mul lengthV add MauV div def /tisoVkvi lengthV 3 mul MauV div def /tisoVkvii hXXX -2 mul lengthV 4 mul add MauV div def /tisoVkviii lengthV 4 mul MauV div def } \ifnum#3<0% if 7 \loibom@vitu(0,#1 hXXX add,hYYY -1 mul)(0,#2 hXXX sub,zB hYYY add){tisoVki}{MTV1midbot'} \loibom@vitu(0,#1 hXXX add,hYYY -1 mul)(0,#2 hXXX sub,zB hYYY add){tisoVkii}{MTV2midbot} \loibom@vitu(0,#1 hXXX add,hYYY -1 mul)(0,#2 hXXX sub,zB hYYY add){tisoVkiii}{MTV2midbot'} \loibom@vitu(0,#1 hXXX add,hYYY -1 mul)(0,#2 hXXX sub,zB hYYY add){tisoVkiv}{MTV3midbot} \loibom@vitu(0,#1 hXXX add,hYYY -1 mul)(0,#2 hXXX sub,zB hYYY add){tisoVkv}{MTV3midbot'} \loibom@vitu(0,#1 hXXX add,hYYY -1 mul)(0,#2 hXXX sub,zB hYYY add){tisoVkvi}{MTV4midbot} \loibom@vitu(0,#1 hXXX add,hYYY -1 mul)(0,#2 hXXX sub,zB hYYY add){tisoVkvii}{MTV4midbot'} \loibom@vitu(0,#1 hXXX add,hYYY -1 mul)(0,#2 hXXX sub,zB hYYY add){tisoVkviii}{MTV5midbot} \psline{->}(MTV1top)(MTV1midbot') \psline{->}(MTV2midbot)(MTV2midbot') \psline{->}(MTV3midbot)(MTV3midbot') \psline{->}(MTV4midbot)(MTV4midbot') \psline{->}(MTV5midbot)(MTV5bot') \else \loibom@vitu(0,#1 hXXX add,zB hYYY add)(0,#2 hXXX sub,hYYY -1 mul){tisoVki}{MTV1midbot'} \loibom@vitu(0,#1 hXXX add,zB hYYY add)(0,#2 hXXX sub,hYYY -1 mul){tisoVkii}{MTV2midbot} \loibom@vitu(0,#1 hXXX add,zB hYYY add)(0,#2 hXXX sub,hYYY -1 mul){tisoVkiii}{MTV2midbot'} \loibom@vitu(0,#1 hXXX add,zB hYYY add)(0,#2 hXXX sub,hYYY -1 mul){tisoVkiv}{MTV3midbot} \loibom@vitu(0,#1 hXXX add,zB hYYY add)(0,#2 hXXX sub,hYYY -1 mul){tisoVkv}{MTV3midbot'} \loibom@vitu(0,#1 hXXX add,zB hYYY add)(0,#2 hXXX sub,hYYY -1 mul){tisoVkvi}{MTV4midbot} \loibom@vitu(0,#1 hXXX add,zB hYYY add)(0,#2 hXXX sub,hYYY -1 mul){tisoVkvii}{MTV4midbot'} \loibom@vitu(0,#1 hXXX add,zB hYYY add)(0,#2 hXXX sub,hYYY -1 mul){tisoVkviii}{MTV5midbot} \psline{->}(MTV1bot)(MTV1midbot') \psline{->}(MTV2midbot)(MTV2midbot') \psline{->}(MTV3midbot)(MTV3midbot') \psline{->}(MTV4midbot)(MTV4midbot') \psline{->}(MTV5midbot)(MTV5top') \fi %end if 7 \fi % end if 5 \fi % end if 4 \fi % end if 3 \fi \endgroup% \ignorespaces% }%% end \muiten@lientuc@V %%%--------ve mui ten 6 khoang lien tuc --------------------------------- \def\muiten@lientuc@VI#1#2#3#4#5#6#7#8{ \pst@killglue % \begingroup \use@par \pstVerb{/lengthVI #2 #1 sub 6 div def /VARII lengthVI #1 add def /VARIII lengthVI 2 mul #1 add def /VARIV lengthVI 3 mul #1 add def /VARV lengthVI 4 mul #1 add def /VARVI lengthVI 5 mul #1 add def} \psPoint(0,#1 hXXX add,hYYY -1 mul){MTVI1top} \psPoint(0,#1 hXXX add,zB hYYY add){MTVI1bot} \psPoint(0,VARII hXXX sub,zB hYYY add){MTVI1bot'} \psPoint(0,VARII hXXX sub,hYYY -1 mul){MTVI1top'} \psPoint(0,VARVI hXXX add,zB hYYY add){MTVI6bot} \psPoint(0,VARVI hXXX add,hYYY -1 mul){MTVI6top} \psPoint(0,#2 hXXX sub,hYYY -1 mul){MTVI6top'} \psPoint(0,#2 hXXX sub,zB hYYY add){MTVI6bot'} \ifnum\is@nonchangesign@vi{#3}{#4}{#5}{#6}{#7}{#8}=1 % if 1: y' doi dau tu dau \muiten@lientuc@V{VARII}{#2}{#4}{#5}{#6}{#7}{#8} \muiten@I{#1}{VARII}{#3} \else\ifnum\is@nonchangesign@vi{#3}{#4}{#5}{#6}{#7}{#8}=2 % if 3 \muiten@lientuc@II{#1}{VARIII}{#3}{#4} \muiten@lientuc@IV{VARIII}{#2}{#5}{#6}{#7}{#8} \else\ifnum\is@nonchangesign@vi{#3}{#4}{#5}{#6}{#7}{#8}=3 % if 4 \muiten@lientuc@III{#1}{VARIV}{#3}{#4}{#5} \muiten@lientuc@III{VARIV}{#2}{#6}{#7}{#8} \else\ifnum\is@nonchangesign@vi{#3}{#4}{#5}{#6}{#7}{#8}=4 % if 5 \muiten@lientuc@IV{#1}{VARV}{#3}{#4}{#5}{#6} \muiten@lientuc@II{VARV}{#2}{#7}{#8} \else\ifnum\is@nonchangesign@vi{#3}{#4}{#5}{#6}{#7}{#8}=5 % if 6 \muiten@lientuc@V{#1}{VARVI}{#3}{#4}{#5}{#6}{#7} \muiten@I{VARVI}{#2}{#8} \else % \is@nonchangesign@vi{#3}{#4}{#5}{#6}{#7}{#8}=5 =0 \pstVerb{ /MauVI hXXX -2 mul #2 add #1 sub def /tisoVIki hXXX -2 mul lengthVI add MauVI div def /tisoVIkii lengthVI MauVI div def /tisoVIkiii lengthVI hXXX sub 2 mul MauVI div def /tisoVIkiv lengthVI 2 mul MauVI div def /tisoVIkv lengthVI hXXX sub 2 mul lengthVI add MauVI div def /tisoVIkvi lengthVI 3 mul MauVI div def /tisoVIkvii hXXX -2 mul lengthVI 4 mul add MauVI div def /tisoVIkviii lengthVI 4 mul MauVI div def /tisoVIkix hXXX -2 mul lengthVI 5 mul add MauVI div def /tisoVIkx lengthVI 5 mul MauVI div def } \ifnum#3<0% if 8 \loibom@vitu(0,#1 hXXX add,hYYY -1 mul)(0,#2 hXXX sub,zB hYYY add){tisoVIki}{MTVI1midbot'} \loibom@vitu(0,#1 hXXX add,hYYY -1 mul)(0,#2 hXXX sub,zB hYYY add){tisoVIkii}{MTVI2midbot} \loibom@vitu(0,#1 hXXX add,hYYY -1 mul)(0,#2 hXXX sub,zB hYYY add){tisoVIkiii}{MTVI2midbot'} \loibom@vitu(0,#1 hXXX add,hYYY -1 mul)(0,#2 hXXX sub,zB hYYY add){tisoVIkiv}{MTVI3midbot} \loibom@vitu(0,#1 hXXX add,hYYY -1 mul)(0,#2 hXXX sub,zB hYYY add){tisoVIkv}{MTVI3midbot'} \loibom@vitu(0,#1 hXXX add,hYYY -1 mul)(0,#2 hXXX sub,zB hYYY add){tisoVIkvi}{MTVI4midbot} \loibom@vitu(0,#1 hXXX add,hYYY -1 mul)(0,#2 hXXX sub,zB hYYY add){tisoVIkvii}{MTVI4midbot'} \loibom@vitu(0,#1 hXXX add,hYYY -1 mul)(0,#2 hXXX sub,zB hYYY add){tisoVIkviii}{MTVI5midbot} \loibom@vitu(0,#1 hXXX add,hYYY -1 mul)(0,#2 hXXX sub,zB hYYY add){tisoVIkix}{MTVI5midbot'} \loibom@vitu(0,#1 hXXX add,hYYY -1 mul)(0,#2 hXXX sub,zB hYYY add){tisoVIkx}{MTVI6midbot} \psline{->}(MTVI1top)(MTVI1midbot') \psline{->}(MTVI2midbot)(MTVI2midbot') \psline{->}(MTVI3midbot)(MTVI3midbot') \psline{->}(MTVI4midbot)(MTVI4midbot') \psline{->}(MTVI5midbot)(MTVI5midbot') \psline{->}(MTVI6midbot)(MTVI6bot') \else \loibom@vitu(0,#1 hXXX add,zB hYYY add)(0,#2 hXXX sub,hYYY -1 mul){tisoVIki}{MTVI1midbot'} \loibom@vitu(0,#1 hXXX add,zB hYYY add)(0,#2 hXXX sub,hYYY -1 mul){tisoVIkii}{MTVI2midbot} \loibom@vitu(0,#1 hXXX add,zB hYYY add)(0,#2 hXXX sub,hYYY -1 mul){tisoVIkiii}{MTVI2midbot'} \loibom@vitu(0,#1 hXXX add,zB hYYY add)(0,#2 hXXX sub,hYYY -1 mul){tisoVIkiv}{MTVI3midbot} \loibom@vitu(0,#1 hXXX add,zB hYYY add)(0,#2 hXXX sub,hYYY -1 mul){tisoVIkv}{MTVI3midbot'} \loibom@vitu(0,#1 hXXX add,zB hYYY add)(0,#2 hXXX sub,hYYY -1 mul){tisoVIkvi}{MTVI4midbot} \loibom@vitu(0,#1 hXXX add,zB hYYY add)(0,#2 hXXX sub,hYYY -1 mul){tisoVIkvii}{MTVI4midbot'} \loibom@vitu(0,#1 hXXX add,zB hYYY add)(0,#2 hXXX sub,hYYY -1 mul){tisoVIkviii}{MTVI5midbot} \loibom@vitu(0,#1 hXXX add,zB hYYY add)(0,#2 hXXX sub,hYYY -1 mul){tisoVIkix}{MTVI5midbot'} \loibom@vitu(0,#1 hXXX add,zB hYYY add)(0,#2 hXXX sub,hYYY -1 mul){tisoVIkx}{MTVI6midbot} \psline{->}(MTVI1bot)(MTVI1midbot') \psline{->}(MTVI2midbot)(MTVI2midbot') \psline{->}(MTVI3midbot)(MTVI3midbot') \psline{->}(MTVI4midbot)(MTVI4midbot') \psline{->}(MTVI5midbot)(MTVI5midbot') \psline{->}(MTVI6midbot)(MTVI6top') \fi %end if 8 \fi % end if 6 \fi % end if 5 \fi % end if 4 \fi % end if 3 \fi % end if 1 \endgroup% \ignorespaces% }%% end \muiten@lientuc@VI %%%--------ve mui ten 7 khoang lien tuc --------------------------------- \def\muiten@lientuc@VII#1#2#3#4#5#6#7#8#9{ \pst@killglue % \begingroup \use@par \pstVerb{/lengthVII #2 #1 sub 7 div def /VARSII lengthVII #1 add def /VARSIII lengthVII 2 mul #1 add def /VARSIV lengthVII 3 mul #1 add def /VARSV lengthVII 4 mul #1 add def /VARSVI lengthVII 5 mul #1 add def /VARSVII lengthVII 6 mul #1 add def} \psPoint(0,#1 hXXX add,hYYY -1 mul){MTVII1top} \psPoint(0,#1 hXXX add,zB hYYY add){MTVII1bot} \psPoint(0,VARSII hXXX sub,zB hYYY add){MTVII1bot'} \psPoint(0,VARSII hXXX sub,hYYY -1 mul){MTVII1top'} \psPoint(0,VARSVII hXXX add,zB hYYY add){MTVII7bot} \psPoint(0,VARSVII hXXX add,hYYY -1 mul){MTVII7top} \psPoint(0,#2 hXXX sub,hYYY -1 mul){MTVII7top'} \psPoint(0,#2 hXXX sub,zB hYYY add){MTVII7bot'} \ifnum\is@nonchangesign@vii{#3}{#4}{#5}{#6}{#7}{#8}{#9}=1 % if 1: y' doi dau tu dau \muiten@lientuc@VI{VARSII}{#2}{#4}{#5}{#6}{#7}{#8}{#9} \muiten@I{#1}{VARSII}{#3} \else\ifnum\is@nonchangesign@vii{#3}{#4}{#5}{#6}{#7}{#8}{#9}=2 % if 3 \muiten@lientuc@II{#1}{VARSIII}{#3}{#4} \muiten@lientuc@V{VARSIII}{#2}{#5}{#6}{#7}{#8}{#9} \else\ifnum\is@nonchangesign@vii{#3}{#4}{#5}{#6}{#7}{#8}{#9}=3 % if 4 \muiten@lientuc@III{#1}{VARSIV}{#3}{#4}{#5} \muiten@lientuc@IV{VARSIV}{#2}{#6}{#7}{#8}{#9} \else\ifnum\is@nonchangesign@vii{#3}{#4}{#5}{#6}{#7}{#8}{#9}=4 % if 5 \muiten@lientuc@IV{#1}{VARSV}{#3}{#4}{#5}{#6} \muiten@lientuc@III{VARSV}{#2}{#7}{#8}{#9} \else\ifnum\is@nonchangesign@vii{#3}{#4}{#5}{#6}{#7}{#8}{#9}=5 % if 6 \muiten@lientuc@V{#1}{VARSVI}{#3}{#4}{#5}{#6}{#7} \muiten@lientuc@II{VARSVI}{#2}{#8}{#9} \else\ifnum\is@nonchangesign@vii{#3}{#4}{#5}{#6}{#7}{#8}{#9}=6 % if 7 \muiten@lientuc@VI{#1}{VARSVII}{#3}{#4}{#5}{#6}{#7}{#8} \muiten@I{VARSVII}{#2}{#9} \else % \is@nonchangesign@vi{#3}{#4}{#5}{#6}{#7}{#8}=5 =0 \pstVerb{ /MauVII hXXX -2 mul #2 add #1 sub def /tisoVIIki hXXX -2 mul lengthVII add MauVII div def /tisoVIIkii lengthVII MauVII div def /tisoVIIkiii lengthVII hXXX sub 2 mul MauVII div def /tisoVIIkiv lengthVII 2 mul MauVII div def /tisoVIIkv lengthVII hXXX sub 2 mul lengthVII add MauVII div def /tisoVIIkvi lengthVII 3 mul MauVII div def /tisoVIIkvii hXXX -2 mul lengthVII 4 mul add MauVII div def /tisoVIIkviii lengthVII 4 mul MauVII div def /tisoVIIkix hXXX -2 mul lengthVII 5 mul add MauVII div def /tisoVIIkx lengthVII 5 mul MauVII div def /tisoVIIkxi hXXX -2 mul lengthVII 6 mul add MauVII div def /tisoVIIkxii lengthVII 6 mul MauVII div def } \ifnum#3<0% if 9 \loibom@vitu(0,#1 hXXX add,hYYY -1 mul)(0,#2 hXXX sub,zB hYYY add){tisoVIIki}{MTVII1midbot'} \loibom@vitu(0,#1 hXXX add,hYYY -1 mul)(0,#2 hXXX sub,zB hYYY add){tisoVIIkii}{MTVII2midbot} \loibom@vitu(0,#1 hXXX add,hYYY -1 mul)(0,#2 hXXX sub,zB hYYY add){tisoVIIkiii}{MTVII2midbot'} \loibom@vitu(0,#1 hXXX add,hYYY -1 mul)(0,#2 hXXX sub,zB hYYY add){tisoVIIkiv}{MTVII3midbot} \loibom@vitu(0,#1 hXXX add,hYYY -1 mul)(0,#2 hXXX sub,zB hYYY add){tisoVIIkv}{MTVII3midbot'} \loibom@vitu(0,#1 hXXX add,hYYY -1 mul)(0,#2 hXXX sub,zB hYYY add){tisoVIIkvi}{MTVII4midbot} \loibom@vitu(0,#1 hXXX add,hYYY -1 mul)(0,#2 hXXX sub,zB hYYY add){tisoVIIkvii}{MTVII4midbot'} \loibom@vitu(0,#1 hXXX add,hYYY -1 mul)(0,#2 hXXX sub,zB hYYY add){tisoVIIkviii}{MTVII5midbot} \loibom@vitu(0,#1 hXXX add,hYYY -1 mul)(0,#2 hXXX sub,zB hYYY add){tisoVIIkix}{MTVII5midbot'} \loibom@vitu(0,#1 hXXX add,hYYY -1 mul)(0,#2 hXXX sub,zB hYYY add){tisoVIIkx}{MTVII6midbot} \loibom@vitu(0,#1 hXXX add,hYYY -1 mul)(0,#2 hXXX sub,zB hYYY add){tisoVIIkxi}{MTVII6midbot'} \loibom@vitu(0,#1 hXXX add,hYYY -1 mul)(0,#2 hXXX sub,zB hYYY add){tisoVIIkxii}{MTVII7midbot} \psline{->}(MTVII1top)(MTVII1midbot') \psline{->}(MTVII2midbot)(MTVII2midbot') \psline{->}(MTVII3midbot)(MTVII3midbot') \psline{->}(MTVII4midbot)(MTVII4midbot') \psline{->}(MTVII5midbot)(MTVII5midbot') \psline{->}(MTVII6midbot)(MTVII6midbot') \psline{->}(MTVII7midbot)(MTVII7bot') \else \loibom@vitu(0,#1 hXXX add,zB hYYY add)(0,#2 hXXX sub,hYYY -1 mul){tisoVIIki}{MTVII1midbot'} \loibom@vitu(0,#1 hXXX add,zB hYYY add)(0,#2 hXXX sub,hYYY -1 mul){tisoVIIkii}{MTVII2midbot} \loibom@vitu(0,#1 hXXX add,zB hYYY add)(0,#2 hXXX sub,hYYY -1 mul){tisoVIIkiii}{MTVII2midbot'} \loibom@vitu(0,#1 hXXX add,zB hYYY add)(0,#2 hXXX sub,hYYY -1 mul){tisoVIIkiv}{MTVII3midbot} \loibom@vitu(0,#1 hXXX add,zB hYYY add)(0,#2 hXXX sub,hYYY -1 mul){tisoVIIkv}{MTVII3midbot'} \loibom@vitu(0,#1 hXXX add,zB hYYY add)(0,#2 hXXX sub,hYYY -1 mul){tisoVIIkvi}{MTVII4midbot} \loibom@vitu(0,#1 hXXX add,zB hYYY add)(0,#2 hXXX sub,hYYY -1 mul){tisoVIIkvii}{MTVII4midbot'} \loibom@vitu(0,#1 hXXX add,zB hYYY add)(0,#2 hXXX sub,hYYY -1 mul){tisoVIIkviii}{MTVII5midbot} \loibom@vitu(0,#1 hXXX add,zB hYYY add)(0,#2 hXXX sub,hYYY -1 mul){tisoVIIkix}{MTVII5midbot'} \loibom@vitu(0,#1 hXXX add,zB hYYY add)(0,#2 hXXX sub,hYYY -1 mul){tisoVIIkx}{MTVII6midbot} \loibom@vitu(0,#1 hXXX add,zB hYYY add)(0,#2 hXXX sub,hYYY -1 mul){tisoVIIkxi}{MTVII6midbot'} \loibom@vitu(0,#1 hXXX add,zB hYYY add)(0,#2 hXXX sub,hYYY -1 mul){tisoVIIkxii}{MTVII7midbot} \psline{->}(MTVII1bot)(MTVII1midbot') \psline{->}(MTVII2midbot)(MTVII2midbot') \psline{->}(MTVII3midbot)(MTVII3midbot') \psline{->}(MTVII4midbot)(MTVII4midbot') \psline{->}(MTVII5midbot)(MTVII5midbot') \psline{->}(MTVII6midbot)(MTVII6midbot') \psline{->}(MTVII7midbot)(MTVII7top') \fi %end if 9 \fi % end if 7 \fi % end if 6 \fi % end if 5 \fi % end if 4 \fi % end if 3 \fi % end if 1 \endgroup% \ignorespaces% }%% end \muiten@lientuc@VII %%------------ Ve mui ten gian doan 2 khoang ------------ \def\muiten@giandoan@II#1#2#3#4#5{ \pst@killglue % \begingroup \use@par \pstVerb{/gdvarII #2 #1 sub 2 div #1 add def} \setcounter{donvilb}{#5} \ifnum\thedonvilb=2 \muiten@I{#1}{gdvarII}{#3} \muiten@I{gdvarII}{#2}{#4} \else \muiten@lientuc@II{#1}{#2}{#3}{#4} \fi \endgroup% \ignorespaces% }% end \muiten@giandoan@II \def\muiten@giandoan@III#1#2#3#4#5#6{ \pst@killglue \begingroup \use@par \pstVerb{/LengthIII #2 #1 sub 3 div def /GdvarII LengthIII #1 add def /GdvarIII LengthIII 2 mul #1 add def} \setcounter{donvilb}{#6-10*(#6/10)} \setcounter{xoadonvilb}{#6/10} \ifnum\thedonvilb=2 \muiten@I{#1}{GdvarII}{#3} \muiten@lientuc@II{GdvarII}{#2}{#4}{#5} \else\ifnum\thedonvilb=3\muiten@giandoan@II{#1}{GdvarIII}{#3}{#4}{\thexoadonvilb} \muiten@I{GdvarIII}{#2}{#5} \else\muiten@lientuc@III{#1}{#2}{#3}{#4}{#5} \fi\fi \endgroup% \ignorespaces% } %%--------Ve mui ten gian doan 4 khoang----------------- \def\muiten@giandoan@IV#1#2#3#4#5#6#7{ \pst@killglue \begingroup \use@par \pstVerb{/LengthIV #2 #1 sub 4 div def /IVxgdII LengthIV #1 add def /IVxgdIII LengthIV 2 mul #1 add def /IVxgdIV LengthIV 3 mul #1 add def} \setcounter{donvilb}{#7-10*(#7/10)} \setcounter{xoadonvilb}{#7/10} \ifnum\thedonvilb=2 \muiten@I{#1}{IVxgdII}{#3} \muiten@lientuc@III{IVxgdII}{#2}{#4}{#5}{#6} \else\ifnum\thedonvilb=3 \muiten@giandoan@II{#1}{IVxgdIII}{#3}{#4}{\thexoadonvilb} \muiten@lientuc@II{IVxgdIII}{#2}{#5}{#6} \else\ifnum\thedonvilb=4 \muiten@giandoan@III{#1}{IVxgdIV}{#3}{#4}{#5}{\thexoadonvilb} \muiten@I{IVxgdIV}{#2}{#6} \else\muiten@lientuc@IV{#1}{#2}{#3}{#4}{#5}{#6} \fi \fi \fi \endgroup% \ignorespaces% }%end \muiten@giandoan@IV %%--------Ve mui ten gian doan 5 khoang----------------- \def\muiten@giandoan@V#1#2#3#4#5#6#7#8{ \pst@killglue \begingroup \use@par \pstVerb{/LengthV #2 #1 sub 5 div def /VxgdII LengthV #1 add def /VxgdIII LengthV 2 mul #1 add def /VxgdIV LengthV 3 mul #1 add def /VxgdV LengthV 4 mul #1 add def} \setcounter{donvilb}{#8-10*(#8/10)} \setcounter{xoadonvilb}{#8/10} \ifnum\thedonvilb=2 \muiten@I{#1}{VxgdII}{#3} \muiten@lientuc@IV{VxgdII}{#2}{#4}{#5}{#6}{#7} \else\ifnum\thedonvilb=3 \muiten@giandoan@II{#1}{VxgdIII}{#3}{#4}{\thexoadonvilb} \muiten@lientuc@III{VxgdIII}{#2}{#5}{#6}{#7} \else\ifnum\thedonvilb=4 \muiten@giandoan@III{#1}{VxgdIV}{#3}{#4}{#5}{\thexoadonvilb} \muiten@lientuc@II{VxgdIV}{#2}{#6}{#7} \else\ifnum\thedonvilb=5 \muiten@giandoan@IV{#1}{VxgdV}{#3}{#4}{#5}{#6}{\thexoadonvilb} \muiten@I{VxgdV}{#2}{#7} \else\muiten@lientuc@V{#1}{#2}{#3}{#4}{#5}{#6}{#7} \fi \fi \fi \fi \endgroup% \ignorespaces% }%end \muiten@giandoan@V \def\muiten@giandoan@VI#1#2#3#4#5#6#7#8#9{ \pst@killglue \begingroup \use@par \pstVerb{/LengthVI #2 #1 sub 6 div def /VIxgdII LengthVI #1 add def /VIxgdIII LengthVI 2 mul #1 add def /VIxgdIV LengthVI 3 mul #1 add def /VIxgdV LengthVI 4 mul #1 add def /VIxgdVI LengthVI 5 mul #1 add def} \setcounter{donvilb}{#9-10*(#9/10)} \setcounter{xoadonvilb}{#9/10} \ifnum\thedonvilb=2 \muiten@I{#1}{VIxgdII}{#3} \muiten@lientuc@V{VIxgdII}{#2}{#4}{#5}{#6}{#7}{#8} \else\ifnum\thedonvilb=3 \muiten@giandoan@II{#1}{VIxgdIII}{#3}{#4}{\thexoadonvilb} \muiten@lientuc@IV{VIxgdIII}{#2}{#5}{#6}{#7}{#8} \else\ifnum\thedonvilb=4 \muiten@giandoan@III{#1}{VIxgdIV}{#3}{#4}{#5}{\thexoadonvilb} \muiten@lientuc@III{VIxgdIV}{#2}{#6}{#7}{#8} \else\ifnum\thedonvilb=5 \muiten@giandoan@IV{#1}{VIxgdV}{#3}{#4}{#5}{#6}{\thexoadonvilb} \muiten@lientuc@II{VIxgdV}{#2}{#7}{#8} \else\ifnum\thedonvilb=6 \muiten@giandoan@V{#1}{VIxgdVI}{#3}{#4}{#5}{#6}{#7}{\thexoadonvilb} \muiten@I{VIxgdVI}{#2}{#8} \else\muiten@lientuc@VII{0}{#1}{#2}{#3}{#4}{#5}{#6}{#7}{#8} \fi \fi \fi \fi \fi \endgroup% \ignorespaces% }%end \muiten@giandoan@VI \def\muiten@giandoan@VII#1#2#3#4#5#6#7#8#9{ \pst@killglue \begingroup \use@par \pstVerb{/LengthVII #1 7 div def /VIIxgdII LengthVII def /VIIxgdIII LengthVII 2 mul def /VIIxgdIV LengthVII 3 mul def /VIIxgdV LengthVII 4 mul def /VIIxgdVI LengthVII 5 mul def /VIIxgdVII LengthVII 6 mul def} \setcounter{donvilb}{#9-10*(#9/10)} \setcounter{xoadonvilb}{#9/10} \ifnum\thedonvilb=2 \muiten@I{0}{VIIxgdII}{#2} \muiten@lientuc@VI{VIIxgdII}{#1}{#3}{#4}{#5}{#6}{#7}{#8} \else\ifnum\thedonvilb=3 \muiten@giandoan@II{0}{VIIxgdIII}{#2}{#3}{\thexoadonvilb} \muiten@lientuc@V{VIIxgdIII}{#1}{#4}{#5}{#6}{#7}{#8} \else\ifnum\thedonvilb=4 \muiten@giandoan@III{0}{VIIxgdIV}{#2}{#3}{#4}{\thexoadonvilb} \muiten@lientuc@IV{VIIxgdIV}{#1}{#5}{#6}{#7}{#8} \else\ifnum\thedonvilb=5 \muiten@giandoan@IV{0}{VIIxgdV}{#2}{#3}{#4}{#5}{\thexoadonvilb} \muiten@lientuc@III{VIIxgdV}{#2}{#6}{#7}{#8} \else\ifnum\thedonvilb=6 \muiten@giandoan@V{0}{VIIxgdVI}{#2}{#3}{#4}{#5}{#6}{\thexoadonvilb} \muiten@lientuc@II{VIIxgdVI}{#1}{#7}{#8} \else\ifnum\thedonvilb=7 \muiten@giandoan@VI{0}{VIIxgdVII}{#2}{#3}{#4}{#5}{#6}{#7}{\thexoadonvilb} \muiten@I{VIIxgdVII}{#1}{#8} \else\muiten@lientuc@VII{0}{#1}{#2}{#3}{#4}{#5}{#6}{#7}{#8} \fi \fi \fi \fi \fi \fi \endgroup% \ignorespaces% }%end \muiten@giandoan@VII %%% ve bang bien thien \def\BBT{\def\pst@par{}\pst@object{BBT}} \def\BBT@i{ \pst@killglue % \begingroup \use@par % \pstVerb{ /hYYY \pst@loibom@hY\space 5 mul 8 div def /hXXX \pst@loibom@hX\space 5 mul 8 div def /hXX \pst@loibom@hX\space 2 div def /zA \pst@loibom@hY\space 2 mul def /zB \pst@loibom@cao\space -1 mul def /yC \pst@loibom@hX\space -1 mul def /zC \pst@loibom@hY\space def /yE \pst@loibom@hX\space -1 mul def /yG \pst@loibom@dai\space def /yD \pst@loibom@dai\space def /zD \pst@loibom@hY\space def /zx \pst@loibom@hY\space def /ydiff \pst@loibom@hY\space 2 div def /yfunc \pst@loibom@cao\space -3 div def /yxII \pst@loibom@dai\space hXX sub \pst@loibom@sokhoang\space div def /yxI 0 def /yxIII yxII 2 mul def /yxIV yxII 3 mul def /yxV yxII 4 mul def /yxVI yxII 5 mul def /yxVII yxII 6 mul def /yxVIII yxII 7 mul def /yxIX yxII 8 mul def /ydifI yxII 2 div def /ydifII ydifI 3 mul def /ydifIII ydifI 5 mul def /ydifIV ydifI 7 mul def /ydifV ydifI 9 mul def /ydifVI ydifI 11 mul def /ydifVII ydifI 13 mul def /ydifVIII ydifI 15 mul def } \psPoint(0,0,0){O} \psPoint(0,0,zx){x} \psPoint(0,0,ydiff){y'} \psPoint(0,0,yfunc){y} \psPoint(0,0,zA){A} \psPoint(0,0,zB){B} \psPoint(0,yC,zC){C} \psPoint(0,yD,zD){D} \psPoint(0,yE,0){E} \psPoint(0,yG,0){G} \psPoint(0,yxI,zx){xI} \psPoint(0,yxII,zx){xII} \psPoint(0,yxIII,zx){xIII} \psPoint(0,yxIV,zx){xIV} \psPoint(0,yxV,zx){xV} \psPoint(0,yxVI,zx){xVI} \psPoint(0,yxVII,zx){xVII} \psPoint(0,yxVIII,zx){xVIII} \psPoint(0,yxIX,zx){xIX} \psPoint(0,yxI,zx){dif1top}\psPoint(0,yxI,0){dif1bot} \psPoint(0,yxII,zx){dif2top}\psPoint(0,yxII,0){dif2bot} \psPoint(0,yxIII,zx){dif3top}\psPoint(0,yxIII,0){dif3bot} \psPoint(0,yxIV,zx){dif4top}\psPoint(0,yxIV,0){dif4bot} \psPoint(0,yxV,zx){dif5top}\psPoint(0,yxV,0){dif5bot} \psPoint(0,yxVI,zx){dif6top}\psPoint(0,yxVI,0){dif6bot} \psPoint(0,yxVII,zx){dif7top}\psPoint(0,yxVII,0){dif7bot} \psPoint(0,yxVIII,zx){dif8top}\psPoint(0,yxVIII,0){dif8bot} \psPoint(0,ydifI,zx 2 div){sign1} \psPoint(0,ydifII,zx 2 div){sign2} \psPoint(0,yxII,zx 2 div){dth2} %%-----------dat cac diem cho gia tri ham ------------------- \psPoint(0,yxII,hYYY -1 mul){gt2top} \psPoint(0,yxII,hYYY zB add){gt2bot} \psPoint(0,yxIII,hYYY -1 mul){gt3top} \psPoint(0,yxIII,hYYY zB add){gt3bot} \psPoint(0,yxIV,hYYY -1 mul){gt4top} \psPoint(0,yxIV,hYYY zB add){gt4bot} \ifPst@giandoan \ifnum\pst@loibom@sokhoang=2 \muiten@giandoan@II{yxI}{yxIII}{\pst@loibom@daudaoham@xI}{\pst@loibom@daudaoham@xII}{\pst@loibom@diemgiandoan@I} \else\ifnum\pst@loibom@sokhoang=3 \setcounter{sodiemgiandoan}{\lb@ghepso{\pst@loibom@diemgiandoan@sodiemgd}{\pst@loibom@diemgiandoan@I}{\pst@loibom@diemgiandoan@II}{9}{9}{9}{9}{9}{9}} \muiten@giandoan@III{yxI}{yxIV}{\pst@loibom@daudaoham@xI}{\pst@loibom@daudaoham@xII}{\pst@loibom@daudaoham@xIII}{\thesodiemgiandoan} \else\ifnum\pst@loibom@sokhoang=4 \setcounter{sodiemgiandoan}{\lb@ghepso{\pst@loibom@diemgiandoan@sodiemgd}{\pst@loibom@diemgiandoan@I}{\pst@loibom@diemgiandoan@II}{\pst@loibom@diemgiandoan@III}{9}{9}{9}{9}{9}} \muiten@giandoan@IV{yxI}{yxV}{\pst@loibom@daudaoham@xI}{\pst@loibom@daudaoham@xII}{\pst@loibom@daudaoham@xIII}{\pst@loibom@daudaoham@xIV}{\thesodiemgiandoan} \else\ifnum\pst@loibom@sokhoang=5 \setcounter{sodiemgiandoan}{\lb@ghepso{\pst@loibom@diemgiandoan@sodiemgd}{\pst@loibom@diemgiandoan@I}{\pst@loibom@diemgiandoan@II}{\pst@loibom@diemgiandoan@III}{\pst@loibom@diemgiandoan@IV}{9}{9}{9}{9}} \muiten@giandoan@V{yxI}{yxVI}{\pst@loibom@daudaoham@xI}{\pst@loibom@daudaoham@xII}{\pst@loibom@daudaoham@xIII}{\pst@loibom@daudaoham@xIV}{\pst@loibom@daudaoham@xV}{\thesodiemgiandoan} \else\ifnum\pst@loibom@sokhoang=6 \setcounter{sodiemgiandoan}{\lb@ghepso{\pst@loibom@diemgiandoan@sodiemgd}{\pst@loibom@diemgiandoan@I}{\pst@loibom@diemgiandoan@II}{\pst@loibom@diemgiandoan@III}{\pst@loibom@diemgiandoan@IV}{\pst@loibom@diemgiandoan@V}{9}{9}{9}} \muiten@giandoan@VI{yxI}{yxVII}{\pst@loibom@daudaoham@xI}{\pst@loibom@daudaoham@xII}{\pst@loibom@daudaoham@xIII}{\pst@loibom@daudaoham@xIV}{\pst@loibom@daudaoham@xV}{\pst@loibom@daudaoham@xVI}{\thesodiemgiandoan} \else\ifnum\pst@loibom@sokhoang=7 \setcounter{sodiemgiandoan}{\lb@ghepso{\pst@loibom@diemgiandoan@sodiemgd}{\pst@loibom@diemgiandoan@I}{\pst@loibom@diemgiandoan@II}{\pst@loibom@diemgiandoan@III}{\pst@loibom@diemgiandoan@IV}{\pst@loibom@diemgiandoan@V}{\pst@loibom@diemgiandoan@VI}{9}{9}} \muiten@giandoan@VII{yxVIII}{\pst@loibom@daudaoham@xI}{\pst@loibom@daudaoham@xII}{\pst@loibom@daudaoham@xIII}{\pst@loibom@daudaoham@xIV}{\pst@loibom@daudaoham@xV}{\pst@loibom@daudaoham@xVI}{\pst@loibom@daudaoham@xVII}{\thesodiemgiandoan} \fi % end so khoang 7 \fi % end so khoang 6 \fi % end so khoang 5 \fi %end so khoang 4 \fi %% end do khoang 3 \fi%%------------------------------------------------- \else \ifnum\pst@loibom@sokhoang=1 \muiten@I{yxI}{yxII}{\pst@loibom@daudaoham@xI} \else\ifnum\pst@loibom@sokhoang=2 %-------------------------- \muiten@lientuc@II{yxI}{yxIII}{\pst@loibom@daudaoham@xI}{\pst@loibom@daudaoham@xII} \else\ifnum\pst@loibom@sokhoang=3 %------------------------- \muiten@lientuc@III{yxI}{yxIV}{\pst@loibom@daudaoham@xI}{\pst@loibom@daudaoham@xII}{\pst@loibom@daudaoham@xIII} \else\ifnum\pst@loibom@sokhoang=4 %-------------------------- \muiten@lientuc@IV{yxI}{yxV}{\pst@loibom@daudaoham@xI}{\pst@loibom@daudaoham@xII}{\pst@loibom@daudaoham@xIII}{\pst@loibom@daudaoham@xIV} \else\ifnum\pst@loibom@sokhoang=5 \muiten@lientuc@V{yxI}{yxVI}{\pst@loibom@daudaoham@xI}{\pst@loibom@daudaoham@xII}{\pst@loibom@daudaoham@xIII}{\pst@loibom@daudaoham@xIV}{\pst@loibom@daudaoham@xV} \else \ifnum\pst@loibom@sokhoang=6 \muiten@lientuc@VI{yxI}{yxVII}{\pst@loibom@daudaoham@xI}{\pst@loibom@daudaoham@xII}{\pst@loibom@daudaoham@xIII}{\pst@loibom@daudaoham@xIV}{\pst@loibom@daudaoham@xV}{\pst@loibom@daudaoham@xVI} \else \ifnum\pst@loibom@sokhoang=7 \muiten@lientuc@VII{yxI}{yxVIII}{\pst@loibom@daudaoham@xI}{\pst@loibom@daudaoham@xII}{\pst@loibom@daudaoham@xIII}{\pst@loibom@daudaoham@xIV}{\pst@loibom@daudaoham@xV}{\pst@loibom@daudaoham@xVI}{\pst@loibom@daudaoham@xVII} \fi \fi \fi \fi \fi \fi \fi % end if khong co diem gian doan \fi \psline(A)(B) \psline(C)(D) \psline(E)(G) \uput[ul](x){\pst@loibom@BBT@xname} \uput[l](y'){\pst@loibom@BBT@diffname} \uput[dl](y){\pst@loibom@BBT@funcname} \uput[ur](xI){\pst@loibom@giatribien@xI} \uput[u](xII){\pst@loibom@giatribien@xII} \uput[u](xIII){\pst@loibom@giatribien@xIII} \uput[u](xIV){\pst@loibom@giatribien@xIV} \uput[u](xV){\pst@loibom@giatribien@xV} \uput[u](xVI){\pst@loibom@giatribien@xVI} \uput[u](xVII){\pst@loibom@giatribien@xVII} \uput[u](xVIII){\pst@loibom@giatribien@xVIII} %% Dat dau dao ham \ifnum\pst@loibom@sokhoang=1 % if 1 \ifnum\pst@loibom@daudaoham@xI=-1 \pstThreeDPut(0,ydifI,zx 2 div){$-$} \else\pstThreeDPut(0,ydifI,zx 2 div){$+$}\fi \else\ifnum\pst@loibom@sokhoang=2 % if 2 \ifnum\pst@loibom@daudaoham@xI=-1 \Rput[c](sign1){$-$} \else \Rput[c](sign1){$+$}\fi \ifnum\pst@loibom@daudaoham@xII=-1\Rput[c](sign2){$-$} \else \Rput[c](sign2){$+$}\fi \ifnum\pst@loibom@diemtoihan@II=0\Rput[c](dth2){$0$} \else\psline[doubleline=true](dif2top)(dif2bot)\fi \else\ifnum\pst@loibom@sokhoang=3 % if 3 \ifnum\pst@loibom@daudaoham@xI=-1\pstThreeDPut(0,ydifI,zx 2 div){$-$}\else\pstThreeDPut(0,ydifI,zx 2 div){$+$}\fi \ifnum\pst@loibom@daudaoham@xII=-1\pstThreeDPut(0,ydifII,zx 2 div){$-$}\else\pstThreeDPut(0,ydifII,zx 2 div){$+$}\fi \ifnum\pst@loibom@daudaoham@xIII=-1\pstThreeDPut(0,ydifIII,zx 2 div){$-$}\else\pstThreeDPut(0,ydifIII,zx 2 div){$+$}\fi \ifnum\pst@loibom@diemtoihan@II=0\pstThreeDPut(0,yxII,zx 2 div){$0$}\else\psline[doubleline=true](dif2top)(dif2bot)\fi \ifnum\pst@loibom@diemtoihan@III=0\pstThreeDPut(0,yxIII,zx 2 div){$0$}\else\psline[doubleline=true](dif3top)(dif3bot)\fi \else\ifnum\pst@loibom@sokhoang=4 % if 4 \ifnum\pst@loibom@daudaoham@xI=-1\pstThreeDPut(0,ydifI,zx 2 div){$-$}\else\pstThreeDPut(0,ydifI,zx 2 div){$+$}\fi \ifnum\pst@loibom@daudaoham@xII=-1\pstThreeDPut(0,ydifII,zx 2 div){$-$}\else\pstThreeDPut(0,ydifII,zx 2 div){$+$}\fi \ifnum\pst@loibom@daudaoham@xIII=-1\pstThreeDPut(0,ydifIII,zx 2 div){$-$}\else\pstThreeDPut(0,ydifIII,zx 2 div){$+$}\fi \ifnum\pst@loibom@daudaoham@xIV=-1\pstThreeDPut(0,ydifIV,zx 2 div){$-$}\else\pstThreeDPut(0,ydifIV,zx 2 div){$+$}\fi \ifnum\pst@loibom@diemtoihan@II=0\pstThreeDPut(0,yxII,zx 2 div){$0$}\else\psline[doubleline=true](dif2top)(dif2bot)\fi \ifnum\pst@loibom@diemtoihan@III=0\pstThreeDPut(0,yxIII,zx 2 div){$0$}\else\psline[doubleline=true](dif3top)(dif3bot)\fi \ifnum\pst@loibom@diemtoihan@IV=0\pstThreeDPut(0,yxIV,zx 2 div){$0$}\else\psline[doubleline=true](dif4top)(dif4bot)\fi \else\ifnum\pst@loibom@sokhoang=5 % if 5 \ifnum\pst@loibom@daudaoham@xI=-1\pstThreeDPut(0,ydifI,zx 2 div){$-$}\else\pstThreeDPut(0,ydifI,zx 2 div){$+$}\fi \ifnum\pst@loibom@daudaoham@xII=-1\pstThreeDPut(0,ydifII,zx 2 div){$-$}\else\pstThreeDPut(0,ydifII,zx 2 div){$+$}\fi \ifnum\pst@loibom@daudaoham@xIII=-1\pstThreeDPut(0,ydifIII,zx 2 div){$-$}\else\pstThreeDPut(0,ydifIII,zx 2 div){$+$}\fi \ifnum\pst@loibom@daudaoham@xIV=-1\pstThreeDPut(0,ydifIV,zx 2 div){$-$}\else\pstThreeDPut(0,ydifIV,zx 2 div){$+$}\fi \ifnum\pst@loibom@daudaoham@xV=-1\pstThreeDPut(0,ydifV,zx 2 div){$-$}\else\pstThreeDPut(0,ydifV,zx 2 div){$+$}\fi \ifnum\pst@loibom@diemtoihan@II=0\pstThreeDPut(0,yxII,zx 2 div){$0$}\else\psline[doubleline=true](dif2top)(dif2bot)\fi \ifnum\pst@loibom@diemtoihan@III=0\pstThreeDPut(0,yxIII,zx 2 div){$0$}\else\psline[doubleline=true](dif3top)(dif3bot)\fi \ifnum\pst@loibom@diemtoihan@IV=0\pstThreeDPut(0,yxIV,zx 2 div){$0$}\else\psline[doubleline=true](dif4top)(dif4bot)\fi \ifnum\pst@loibom@diemtoihan@V=0\pstThreeDPut(0,yxV,zx 2 div){$0$}\else\psline[doubleline=true](dif5top)(dif5bot)\fi \else\ifnum\pst@loibom@sokhoang=6 % if 6 \ifnum\pst@loibom@daudaoham@xI=-1\pstThreeDPut(0,ydifI,zx 2 div){$-$}\else\pstThreeDPut(0,ydifI,zx 2 div){$+$}\fi \ifnum\pst@loibom@daudaoham@xII=-1\pstThreeDPut(0,ydifII,zx 2 div){$-$}\else\pstThreeDPut(0,ydifII,zx 2 div){$+$}\fi \ifnum\pst@loibom@daudaoham@xIII=-1\pstThreeDPut(0,ydifIII,zx 2 div){$-$}\else\pstThreeDPut(0,ydifIII,zx 2 div){$+$}\fi \ifnum\pst@loibom@daudaoham@xIV=-1\pstThreeDPut(0,ydifIV,zx 2 div){$-$}\else\pstThreeDPut(0,ydifIV,zx 2 div){$+$}\fi \ifnum\pst@loibom@daudaoham@xV=-1\pstThreeDPut(0,ydifV,zx 2 div){$-$}\else\pstThreeDPut(0,ydifV,zx 2 div){$+$}\fi \ifnum\pst@loibom@daudaoham@xVI=-1\pstThreeDPut(0,ydifVI,zx 2 div){$-$}\else\pstThreeDPut(0,ydifVI,zx 2 div){$+$}\fi \ifnum\pst@loibom@diemtoihan@II=0\pstThreeDPut(0,yxII,zx 2 div){$0$}\else\psline[doubleline=true](dif2top)(dif2bot)\fi \ifnum\pst@loibom@diemtoihan@III=0\pstThreeDPut(0,yxIII,zx 2 div){$0$}\else\psline[doubleline=true](dif3top)(dif3bot)\fi \ifnum\pst@loibom@diemtoihan@IV=0\pstThreeDPut(0,yxIV,zx 2 div){$0$}\else\psline[doubleline=true](dif4top)(dif4bot)\fi \ifnum\pst@loibom@diemtoihan@V=0\pstThreeDPut(0,yxV,zx 2 div){$0$}\else\psline[doubleline=true](dif5top)(dif5bot)\fi \ifnum\pst@loibom@diemtoihan@VI=0\pstThreeDPut(0,yxVI,zx 2 div){$0$}\else\psline[doubleline=true](dif6top)(dif6bot)\fi \else\ifnum\pst@loibom@sokhoang=7 % if 7 \ifnum\pst@loibom@daudaoham@xI=-1\pstThreeDPut(0,ydifI,zx 2 div){$-$}\else\pstThreeDPut(0,ydifI,zx 2 div){$+$}\fi \ifnum\pst@loibom@daudaoham@xII=-1\pstThreeDPut(0,ydifII,zx 2 div){$-$}\else\pstThreeDPut(0,ydifII,zx 2 div){$+$}\fi \ifnum\pst@loibom@daudaoham@xIII=-1\pstThreeDPut(0,ydifIII,zx 2 div){$-$}\else\pstThreeDPut(0,ydifIII,zx 2 div){$+$}\fi \ifnum\pst@loibom@daudaoham@xIV=-1\pstThreeDPut(0,ydifIV,zx 2 div){$-$}\else\pstThreeDPut(0,ydifIV,zx 2 div){$+$}\fi \ifnum\pst@loibom@daudaoham@xV=-1\pstThreeDPut(0,ydifV,zx 2 div){$-$}\else\pstThreeDPut(0,ydifV,zx 2 div){$+$}\fi \ifnum\pst@loibom@daudaoham@xVI=-1\pstThreeDPut(0,ydifVI,zx 2 div){$-$}\else\pstThreeDPut(0,ydifVI,zx 2 div){$+$}\fi \ifnum\pst@loibom@daudaoham@xVII=-1\pstThreeDPut(0,ydifVII,zx 2 div){$-$}\else\pstThreeDPut(0,ydifVII,zx 2 div){$+$}\fi \ifnum\pst@loibom@diemtoihan@II=0\pstThreeDPut(0,yxII,zx 2 div){$0$}\else\psline[doubleline=true](dif2top)(dif2bot)\fi \ifnum\pst@loibom@diemtoihan@III=0\pstThreeDPut(0,yxIII,zx 2 div){$0$}\else\psline[doubleline=true](dif3top)(dif3bot)\fi \ifnum\pst@loibom@diemtoihan@IV=0\pstThreeDPut(0,yxIV,zx 2 div){$0$}\else\psline[doubleline=true](dif4top)(dif4bot)\fi \ifnum\pst@loibom@diemtoihan@V=0\pstThreeDPut(0,yxV,zx 2 div){$0$}\else\psline[doubleline=true](dif5top)(dif5bot)\fi \ifnum\pst@loibom@diemtoihan@VI=0\pstThreeDPut(0,yxVI,zx 2 div){$0$}\else\psline[doubleline=true](dif6top)(dif6bot)\fi \ifnum\pst@loibom@diemtoihan@VII=0\pstThreeDPut(0,yxVII,zx 2 div){$0$}\else\psline[doubleline=true](dif7top)(dif7bot)\fi \else\ifnum\pst@loibom@sokhoang=8 % if 8 \ifnum\pst@loibom@daudaoham@xI=-1\pstThreeDPut(0,ydifI,zx 2 div){$-$}\else\pstThreeDPut(0,ydifI,zx 2 div){$+$}\fi \ifnum\pst@loibom@daudaoham@xII=-1\pstThreeDPut(0,ydifII,zx 2 div){$-$}\else\pstThreeDPut(0,ydifII,zx 2 div){$+$}\fi \ifnum\pst@loibom@daudaoham@xIII=-1\pstThreeDPut(0,ydifIII,zx 2 div){$-$}\else\pstThreeDPut(0,ydifIII,zx 2 div){$+$}\fi \ifnum\pst@loibom@daudaoham@xIV=-1\pstThreeDPut(0,ydifIV,zx 2 div){$-$}\else\pstThreeDPut(0,ydifIV,zx 2 div){$+$}\fi \ifnum\pst@loibom@daudaoham@xV=-1\pstThreeDPut(0,ydifV,zx 2 div){$-$}\else\pstThreeDPut(0,ydifV,zx 2 div){$+$}\fi \ifnum\pst@loibom@daudaoham@xVI=-1\pstThreeDPut(0,ydifVI,zx 2 div){$-$}\else\pstThreeDPut(0,ydifVI,zx 2 div){$+$}\fi \ifnum\pst@loibom@daudaoham@xVII=-1\pstThreeDPut(0,ydifVII,zx 2 div){$-$}\else\pstThreeDPut(0,ydifVII,zx 2 div){$+$}\fi \ifnum\pst@loibom@daudaoham@xVIII=-1\pstThreeDPut(0,ydifVIII,zx 2 div){$-$}\else\pstThreeDPut(0,ydifVIII,zx 2 div){$+$}\fi \ifnum\pst@loibom@diemtoihan@II=0\pstThreeDPut(0,yxII,zx 2 div){$0$}\else\psline[doubleline=true](dif2top)(dif2bot)\fi \ifnum\pst@loibom@diemtoihan@III=0\pstThreeDPut(0,yxIII,zx 2 div){$0$}\else\psline[doubleline=true](dif3top)(dif3bot)\fi \ifnum\pst@loibom@diemtoihan@IV=0\pstThreeDPut(0,yxIV,zx 2 div){$0$}\else\psline[doubleline=true](dif4top)(dif4bot)\fi \ifnum\pst@loibom@diemtoihan@V=0\pstThreeDPut(0,yxV,zx 2 div){$0$}\else\psline[doubleline=true](dif5top)(dif5bot)\fi \ifnum\pst@loibom@diemtoihan@VI=0\pstThreeDPut(0,yxVI,zx 2 div){$0$}\else\psline[doubleline=true](dif6top)(dif6bot)\fi \ifnum\pst@loibom@diemtoihan@VII=0\pstThreeDPut(0,yxVII,zx 2 div){$0$}\else\psline[doubleline=true](dif7top)(dif7bot)\fi \ifnum\pst@loibom@diemtoihan@VIII=0\pstThreeDPut(0,yxVIII,zx 2 div){$0$}\else\psline[doubleline=true](dif8top)(dif8bot)\fi \fi % end if 8 \fi % end if 7 \fi % end if 6 \fi % end if 5 \fi % end if 4 \fi % end if 3 \fi % end if 2 \fi % end if 1 %% Dat dau dao ham xong %% Dat cac diem gian doan \ifPst@giandoan % if 1 \ifnum\pst@loibom@diemgiandoan@sodiemgd=1% if 2 \pstVerb{/ygdi \pst@loibom@diemgiandoan@I\space yxII mul yxII sub def} \psPoint(0,ygdi,zx){gd1top} \psPoint(0,ygdi,zB){gd1bot} \psline[doubleline=true](gd1top)(gd1bot) \else\ifnum\pst@loibom@diemgiandoan@sodiemgd=2 % if 3 \pstVerb{ /ygdi \pst@loibom@diemgiandoan@I\space yxII mul yxII sub def /ygdii \pst@loibom@diemgiandoan@II\space yxII mul yxII sub def} \psPoint(0,ygdi,zx){gd1top} \psPoint(0,ygdi,zB){gd1bot} \psPoint(0,ygdii,zx){gd2top} \psPoint(0,ygdii,zB){gd2bot} \psline[doubleline=true](gd1top)(gd1bot) \psline[doubleline=true](gd2top)(gd2bot) \else\ifnum\pst@loibom@diemgiandoan@sodiemgd=3 % if 4 \pstVerb{ /ygdi \pst@loibom@diemgiandoan@I\space yxII mul yxII sub def /ygdii \pst@loibom@diemgiandoan@II\space yxII mul yxII sub def /ygdiii \pst@loibom@diemgiandoan@III\space yxII mul yxII sub def} \psPoint(0,ygdi,zx){gd1top} \psPoint(0,ygdi,zB){gd1bot} \psPoint(0,ygdii,zx){gd2top} \psPoint(0,ygdii,zB){gd2bot} \psPoint(0,ygdiii,zx){gd3top} \psPoint(0,ygdiii,zB){gd3bot} \psline[doubleline=true](gd1top)(gd1bot) \psline[doubleline=true](gd2top)(gd2bot) \psline[doubleline=true](gd3top)(gd3bot) \else\ifnum\pst@loibom@diemgiandoan@sodiemgd=4 % if 5 \pstVerb{ /ygdi \pst@loibom@diemgiandoan@I\space yxII mul yxII sub def /ygdii \pst@loibom@diemgiandoan@II\space yxII mul yxII sub def /ygdiii \pst@loibom@diemgiandoan@III\space yxII mul yxII sub def /ygdiv \pst@loibom@diemgiandoan@IV\space yxII mul yxII sub def} \psPoint(0,ygdi,zx){gd1top} \psPoint(0,ygdi,zB){gd1bot} \psPoint(0,ygdii,zx){gd2top} \psPoint(0,ygdii,zB){gd2bot} \psPoint(0,ygdiii,zx){gd3top} \psPoint(0,ygdiii,zB){gd3bot} \psPoint(0,ygdiv,zx){gd4top} \psPoint(0,ygdiv,zB){gd4bot} \psline[doubleline=true](gd1top)(gd1bot) \psline[doubleline=true](gd2top)(gd2bot) \psline[doubleline=true](gd3top)(gd3bot) \psline[doubleline=true](gd4top)(gd4bot) \else\ifnum\pst@loibom@diemgiandoan@sodiemgd=5 % if 6 \pstVerb{ /ygdi \pst@loibom@diemgiandoan@I\space yxII mul yxII sub def /ygdii \pst@loibom@diemgiandoan@II\space yxII mul yxII sub def /ygdiii \pst@loibom@diemgiandoan@III\space yxII mul yxII sub def /ygdiv \pst@loibom@diemgiandoan@IV\space yxII mul yxII sub def /ygdv \pst@loibom@diemgiandoan@V\space yxII mul yxII sub def} \psPoint(0,ygdi,zx){gd1top} \psPoint(0,ygdi,zB){gd1bot} \psPoint(0,ygdii,zx){gd2top} \psPoint(0,ygdii,zB){gd2bot} \psPoint(0,ygdiii,zx){gd3top} \psPoint(0,ygdiii,zB){gd3bot} \psPoint(0,ygdiv,zx){gd4top} \psPoint(0,ygdiv,zB){gd4bot} \psPoint(0,ygdv,zx){gd5top} \psPoint(0,ygdv,zB){gd5bot} \psline[doubleline=true](gd1top)(gd1bot) \psline[doubleline=true](gd2top)(gd2bot) \psline[doubleline=true](gd3top)(gd3bot) \psline[doubleline=true](gd4top)(gd4bot) \psline[doubleline=true](gd5top)(gd5bot) \else\ifnum\pst@loibom@diemgiandoan@sodiemgd=6 % if 7 \pstVerb{ /ygdi \pst@loibom@diemgiandoan@I\space yxII mul yxII sub def /ygdii \pst@loibom@diemgiandoan@II\space yxII mul yxII sub def /ygdiii \pst@loibom@diemgiandoan@III\space yxII mul yxII sub def /ygdiv \pst@loibom@diemgiandoan@IV\space yxII mul yxII sub def /ygdv \pst@loibom@diemgiandoan@V\space yxII mul yxII sub def /ygdvi \pst@loibom@diemgiandoan@VI\space yxII mul yxII sub def} \psPoint(0,ygdi,zx){gd1top} \psPoint(0,ygdi,zB){gd1bot} \psPoint(0,ygdii,zx){gd2top} \psPoint(0,ygdii,zB){gd2bot} \psPoint(0,ygdiii,zx){gd3top} \psPoint(0,ygdiii,zB){gd3bot} \psPoint(0,ygdiv,zx){gd4top} \psPoint(0,ygdiv,zB){gd4bot} \psPoint(0,ygdv,zx){gd5top} \psPoint(0,ygdv,zB){gd5bot} \psPoint(0,ygdvi,zx){gd6top} \psPoint(0,ygdvi,zB){gd6bot} \psline[doubleline=true](gd1top)(gd1bot) \psline[doubleline=true](gd2top)(gd2bot) \psline[doubleline=true](gd3top)(gd3bot) \psline[doubleline=true](gd4top)(gd4bot) \psline[doubleline=true](gd5top)(gd5bot) \psline[doubleline=true](gd6top)(gd6bot) \else\ifnum\pst@loibom@diemgiandoan@sodiemgd=7 % if 8 \pstVerb{ /ygdi \pst@loibom@diemgiandoan@I\space yxII mul yxII sub def /ygdii \pst@loibom@diemgiandoan@II\space yxII mul yxII sub def /ygdiii \pst@loibom@diemgiandoan@III\space yxII mul yxII sub def /ygdiv \pst@loibom@diemgiandoan@IV\space yxII mul yxII sub def /ygdv \pst@loibom@diemgiandoan@V\space yxII mul yxII sub def /ygdvi \pst@loibom@diemgiandoan@VI\space yxII mul yxII sub def /ygdvii \pst@loibom@diemgiandoan@VII\space yxII mul yxII sub def} \psPoint(0,ygdi,zx){gd1top} \psPoint(0,ygdi,zB){gd1bot} \psPoint(0,ygdii,zx){gd2top} \psPoint(0,ygdii,zB){gd2bot} \psPoint(0,ygdiii,zx){gd3top} \psPoint(0,ygdiii,zB){gd3bot} \psPoint(0,ygdiv,zx){gd4top} \psPoint(0,ygdiv,zB){gd4bot} \psPoint(0,ygdv,zx){gd5top} \psPoint(0,ygdv,zB){gd5bot} \psPoint(0,ygdvi,zx){gd6top} \psPoint(0,ygdvi,zB){gd6bot} \psPoint(0,ygdvii,zx){gd7top} \psPoint(0,ygdvii,zB){gd7bot} \psline[doubleline=true](gd1top)(gd1bot) \psline[doubleline=true](gd2top)(gd2bot) \psline[doubleline=true](gd3top)(gd3bot) \psline[doubleline=true](gd4top)(gd4bot) \psline[doubleline=true](gd5top)(gd5bot) \psline[doubleline=true](gd6top)(gd6bot) \psline[doubleline=true](gd7top)(gd7bot) \fi % end if 8 \fi % end if 7 \fi % end if 6 \fi % end if 5 \fi % end if 4 \fi % end if 3 \fi % end if 2 \else\relax % khong co diem gian doan \fi % end if 1 \endgroup% \ignorespaces% }%% \catcode`\@=\PstAtCode\relax \endinput