%\NeedsTeXFormat{LaTeX2e}
%\typeout{Option Style�eqbgraph�f2005 July 29 by T. Moonlight}
%\typeout{......................main style +qbgraph++++++++++}
\typeout{                       sub style         +qbgraphf+  function exp,log,etc...graphics}
%
\newcommand{\qbfsing}[7]{%y=#1 sin(#2x+#3\pi)+#4 #5\pi<x<#6\pi step \pi/#7
   \Div{1}{#7}{\tmpdx}
   \Mul{#5}{1}{\tmpX}
   \Mul{#3}{180}{\tmpPT}
      \ifdim \tmpX pt<#6 pt
      \Mul{\tmpX}{180}{\tmpT} \Mul{#2}{\tmpT}{\tmpT} \Add{\tmpT}{\tmpPT}{\tmpT}%
      \qbsin{\tmpT}{\tmpY} \Mul{\tmpY}{#1}{\tmpY} \Add{\tmpY}{#4}{\tmpY}%
      \Mul{\tmpX}{\Pie}{\tmpXP}
      \qbdefptmp{\tmpXP}{\tmpY}
   \loop
      \ifdim \tmpX pt<#6 pt
      \Add{\tmpX}{\tmpdx}{\tmpX}%
      \Mul{\tmpX}{180}{\tmpT} \Mul{#2}{\tmpT}{\tmpT} \Add{\tmpT}{\tmpPT}{\tmpT}%
      \qbsin{\tmpT}{\tmpY} \Mul{\tmpY}{#1}{\tmpY} \Add{\tmpY}{#4}{\tmpY}%
      \Mul{\tmpX}{\Pie}{\tmpXP}
      \qbtmpline{\tmpXP}{\tmpY}% \typeout{\Pie---\tmpdx-\the\tmpcnf---\tmpX--\tmpY}
   \repeat
}
\newcommand{\qbfsingp}[7]{%y=#1 sin(#2x+#3)+#4 #5\pi<x<#6\pi step \pi/#7
   \Div{1}{#7}{\tmpdx}
   \Mul{#5}{1}{\tmpX}
   \loop
      \ifdim \tmpX pt<#6 pt
      \Mul{\tmpX}{180}{\tmpT} \Mul{#2}{\tmpT}{\tmpT} \Add{\tmpT}{#3}{\tmpT}%
      \qbsin{\tmpT}{\tmpY} \Mul{\tmpY}{#1}{\tmpY} \Add{\tmpY}{#4}{\tmpY}%
      \Mul{\tmpX}{\Pie}{\tmpXP}
      \qbpointg{\tmpXP}{\tmpY}% \typeout{\Pie---\tmpdx-\the\tmpcnf---\tmpX--\tmpY}
      \Add{\tmpX}{\tmpdx}{\tmpX}%
   \repeat
      \Mul{\tmpX}{180}{\tmpXX} \Div{\tmpXX}{\Pie}{\tmpXX} \Mul{#2}{\tmpXX}{\tmpXX} \Add{\tmpXX}{#3}{\tmpXX}%
      \qbsin{\tmpXX}{\tmpY} \Mul{\tmpY}{#1}{\tmpY} \Add{\tmpY}{#4}{\tmpY}%
      \qbpointg{\tmpX}{\tmpY}% \typeout{\Pie---\tmpdx-\the\tmpcnf---\tmpX--\tmpY}
}
% �񎟊֐�
\newcommand{\qbfparag}[6]{%y=#1x^2+#2x+#3 #4<=x<=#5 step #6
      \Mul{#4}{1}{\tmpX}
      \Mul{\tmpX}{\tmpX}{\tmpXX} \Mul{\tmpXX}{#1}{\tmpY}
      \Mul{#2}{\tmpX}{\tmpXX} \Add{\tmpXX}{\tmpY}{\tmpY}
      \Add{\tmpY}{#3}{\tmpY}%
      \qbdefptmp{\tmpX}{\tmpY}
%       \qbtmppointo
   \loop %\typeout{\tmpX}
      \ifdim \tmpX pt<#5 pt%\tmpDD
      \Add{\tmpX}{#6}{\tmpX}%
      \Mul{\tmpX}{\tmpX}{\tmpXX} \Mul{\tmpXX}{#1}{\tmpY}
      \Mul{#2}{\tmpX}{\tmpXX} \Add{\tmpXX}{\tmpY}{\tmpY}
      \Add{\tmpY}{#3}{\tmpY} %\typeout{(\tmpx___\tmpy)--(\tmpX___\tmpY)}
%      \qbline{\tmpx}{\tmpy}{\tmpX}{\tmpY} %\typeout{_____(\tmpx___\tmpy)--(\tmpX___\tmpY)}
%       \qbtmppointo
       \typeout{_____(\tmpx___\tmpy)--(\tmpX___\tmpY)}
      \qbtmpline{\tmpX}{\tmpY}
%       \qbtmppointx
   \repeat
}%
\newcommand{\qbfparagp}[6]{%y=#1x^2+#2x+#3 #4<=x<=#5 step #6
   \Mul{#4}{1}{\tmpX}
   \loop
      \ifdim \tmpX pt<#5 pt%\tmpDD
      \Mul{\tmpX}{\tmpX}{\tmpXX} \Mul{\tmpXX}{#1}{\tmpY}
      \Mul{#2}{\tmpX}{\tmpXX} \Add{\tmpXX}{\tmpY}{\tmpY}
      \Add{\tmpY}{#3}{\tmpY}%
      \qbpointg{\tmpX}{\tmpY} %\typeout{\tmpdx-\the\tmpcnf---\tmpX--\tmpY}
      \Add{\tmpX}{#6}{\tmpX}%
   \repeat
      \Mul{\tmpX}{\tmpX}{\tmpXX} \Mul{\tmpXX}{#1}{\tmpY}
      \Mul{#2}{\tmpX}{\tmpXX} \Add{\tmpXX}{\tmpY}{\tmpY}
      \Add{\tmpY}{#3}{\tmpY}%
      \qbpointg{\tmpX}{\tmpY} %\typeout{\tmpdx-\the\tmpcnf---\tmpX--\tmpY}
}%
%
\newcommand{\qbdectri}[6]{% (#1,#2)��������,#3�x�̕����ɒ�ӂ�u��,#4-#5-#6�̒�����3�ӂ����O�p�`
   \qbdefp{#1}{#2}{\triBx}{\triBy}
   \Add{\triBx}{#4}{\triCx}
   \qbdef{\triBy}{\triCy}
   \Mul{#4}{#4}{\tmpc} \Mul{#6}{#6}{\tmpcc} \Add{\tmpcc}{\tmpc}{\tmpc}
   \Mul{#5}{#5}{\tmpcc} \Sub{\tmpc}{\tmpcc}{\tmpc}
   \Mul{2}{#4}{\tmpd} \Mul{\tmpd}{#6}{\tmpd} \Div{\tmpc}{\tmpd}{\tmpc}
   \Mul{\tmpc}{\tmpc}{\tmps} \Sub{1}{\tmps}{\tmps} \Sqroot{\tmps}{\tmps}
   \Mul{#6}{\tmpc}{\triAx} \Add{\triAx}{\triBx}{\triAx}
   \Mul{#6}{\tmps}{\triAy} \Add{\triAy}{\triBy}{\triAy}
   \qbrotpoint{\triBx}{\triBy}{\triCx}{\triCy}{#3}
   \qbtmpdefp{\triCx}{\triCy}
   \qbrotpoint{\triBx}{\triBy}{\triAx}{\triAy}{#3}
   \qbtmpdefp{\triAx}{\triAy}
   \qbtri{\triAx}{\triAy}{\triBx}{\triBy}{\triCx}{\triCy}
}
%
\newcommand{\qbgt}[2]{
   \Mul{#2}{2}{\tmpX}
   \ifdim #1 pt>\tmpX pt �͂� \else ������ \fi
}
%
\def\qbExp#1#2{%
\Mul{#1}{1}{\qbExpx}
\qbdef{1}{\qbExpv}
\qbdef{1}{\qbExpva}
\qbdef{0}{\qbExpc}
%
\Add{\qbExpc}{1}{\qbExpc}\Mul{\qbExpva}{\qbExpx}{\qbExpva}\Div{\qbExpva}{\qbExpc}{\qbExpva}\Add{\qbExpv}{\qbExpva}{\qbExpv}
\Add{\qbExpc}{1}{\qbExpc}\Mul{\qbExpva}{\qbExpx}{\qbExpva}\Div{\qbExpva}{\qbExpc}{\qbExpva}\Add{\qbExpv}{\qbExpva}{\qbExpv}
\Add{\qbExpc}{1}{\qbExpc}\Mul{\qbExpva}{\qbExpx}{\qbExpva}\Div{\qbExpva}{\qbExpc}{\qbExpva}\Add{\qbExpv}{\qbExpva}{\qbExpv}
\Add{\qbExpc}{1}{\qbExpc}\Mul{\qbExpva}{\qbExpx}{\qbExpva}\Div{\qbExpva}{\qbExpc}{\qbExpva}\Add{\qbExpv}{\qbExpva}{\qbExpv}
\Add{\qbExpc}{1}{\qbExpc}\Mul{\qbExpva}{\qbExpx}{\qbExpva}\Div{\qbExpva}{\qbExpc}{\qbExpva}\Add{\qbExpv}{\qbExpva}{\qbExpv}
\Add{\qbExpc}{1}{\qbExpc}\Mul{\qbExpva}{\qbExpx}{\qbExpva}\Div{\qbExpva}{\qbExpc}{\qbExpva}\Add{\qbExpv}{\qbExpva}{\qbExpv}
\Add{\qbExpc}{1}{\qbExpc}\Mul{\qbExpva}{\qbExpx}{\qbExpva}\Div{\qbExpva}{\qbExpc}{\qbExpva}\Add{\qbExpv}{\qbExpva}{\qbExpv}
\Add{\qbExpc}{1}{\qbExpc}\Mul{\qbExpva}{\qbExpx}{\qbExpva}\Div{\qbExpva}{\qbExpc}{\qbExpva}\Add{\qbExpv}{\qbExpva}{\qbExpv}
\Add{\qbExpc}{1}{\qbExpc}\Mul{\qbExpva}{\qbExpx}{\qbExpva}\Div{\qbExpva}{\qbExpc}{\qbExpva}\Add{\qbExpv}{\qbExpva}{\qbExpv}
\Add{\qbExpc}{1}{\qbExpc}\Mul{\qbExpva}{\qbExpx}{\qbExpva}\Div{\qbExpva}{\qbExpc}{\qbExpva}\Add{\qbExpv}{\qbExpva}{\qbExpv}
\Add{\qbExpc}{1}{\qbExpc}\Mul{\qbExpva}{\qbExpx}{\qbExpva}\Div{\qbExpva}{\qbExpc}{\qbExpva}\Add{\qbExpv}{\qbExpva}{\qbExpv}
\Add{\qbExpc}{1}{\qbExpc}\Mul{\qbExpva}{\qbExpx}{\qbExpva}\Div{\qbExpva}{\qbExpc}{\qbExpva}\Add{\qbExpv}{\qbExpva}{\qbExpv}
\Add{\qbExpc}{1}{\qbExpc}\Mul{\qbExpva}{\qbExpx}{\qbExpva}\Div{\qbExpva}{\qbExpc}{\qbExpva}\Add{\qbExpv}{\qbExpva}{\qbExpv}
\Add{\qbExpc}{1}{\qbExpc}\Mul{\qbExpva}{\qbExpx}{\qbExpva}\Div{\qbExpva}{\qbExpc}{\qbExpva}\Add{\qbExpv}{\qbExpva}{\qbExpv}
\Add{\qbExpc}{1}{\qbExpc}\Mul{\qbExpva}{\qbExpx}{\qbExpva}\Div{\qbExpva}{\qbExpc}{\qbExpva}\Add{\qbExpv}{\qbExpva}{\qbExpv}
%
\Mul{\qbExpv}{1}{#2}
}%
%
\def\qbLog#1#2{%
\Sub{#1}{1}{\qbLogx}\Add{#1}{1}{\qbLogt}\Div{\qbLogx}{\qbLogt}{\qbLogt}
\Mul{\qbLogt}{1}{\qbLogtt}
\Mul{\qbLogt}{\qbLogt}{\qbLogtx}
\qbdef{0}{\qbLogv}
\qbdef{1}{\qbLogm}
%
\Div{\qbLogtt}{\qbLogm}{\qbLogva}\Mul{\qbLogtt}{\qbLogtx}{\qbLogtt}\Add{\qbLogm}{2}{\qbLogm}\Add{\qbLogv}{\qbLogva}{\qbLogv}
\Div{\qbLogtt}{\qbLogm}{\qbLogva}\Mul{\qbLogtt}{\qbLogtx}{\qbLogtt}\Add{\qbLogm}{2}{\qbLogm}\Add{\qbLogv}{\qbLogva}{\qbLogv}
\Div{\qbLogtt}{\qbLogm}{\qbLogva}\Mul{\qbLogtt}{\qbLogtx}{\qbLogtt}\Add{\qbLogm}{2}{\qbLogm}\Add{\qbLogv}{\qbLogva}{\qbLogv}
\Div{\qbLogtt}{\qbLogm}{\qbLogva}\Mul{\qbLogtt}{\qbLogtx}{\qbLogtt}\Add{\qbLogm}{2}{\qbLogm}\Add{\qbLogv}{\qbLogva}{\qbLogv}
\Div{\qbLogtt}{\qbLogm}{\qbLogva}\Mul{\qbLogtt}{\qbLogtx}{\qbLogtt}\Add{\qbLogm}{2}{\qbLogm}\Add{\qbLogv}{\qbLogva}{\qbLogv}
\Div{\qbLogtt}{\qbLogm}{\qbLogva}\Mul{\qbLogtt}{\qbLogtx}{\qbLogtt}\Add{\qbLogm}{2}{\qbLogm}\Add{\qbLogv}{\qbLogva}{\qbLogv}
\Div{\qbLogtt}{\qbLogm}{\qbLogva}\Mul{\qbLogtt}{\qbLogtx}{\qbLogtt}\Add{\qbLogm}{2}{\qbLogm}\Add{\qbLogv}{\qbLogva}{\qbLogv}
\Div{\qbLogtt}{\qbLogm}{\qbLogva}\Mul{\qbLogtt}{\qbLogtx}{\qbLogtt}\Add{\qbLogm}{2}{\qbLogm}\Add{\qbLogv}{\qbLogva}{\qbLogv}
%
\Mul{\qbLogv}{2}{#2}
}%

%
\endinput
% �����܂ł��}�N���B�ȉ��ᕶ�B