\documentclass{article}

\usepackage{amsmath}

\usepackage[nodirectory,navibar,designiii,pdftex]{web}
%\usepackage[margin=10pt]{geometry}

\usepackage{color}
\usepackage[pdftex]{eforms}
\usepackage[pdftex]{exerquiz}
\usepackage[ImplMulti]{dljslib}

\usepackage{eso-pic}
\definecolor{mycolor}{rgb}{0.4,0.4,1}
\AddToShipoutPicture{\hbox to \paperwidth{\hss\color{mycolor}\vrule width 1.5em height\paperheight}}%

\navibarTextColor{black}
\navibarBgColor{mycolor}

\makeatletter
\@newNaviIconMenu{\web@FirstPage}{34pt}{8pt}
    {$\scriptstyle\blacktriangleleft\blacktriangleleft$}{FirstPage}
\@newNaviIconMenu{\web@LastPage}{34pt}{8pt}
    {$\scriptstyle\blacktriangleright\blacktriangleright$}{LastPage}
\@newNaviIconMenu{\web@PrevPage}{34pt}{8pt}
    {$\scriptstyle\blacktriangleleft$}{PrevPage}
\@newNaviIconMenu{\web@NextPage}{34pt}{8pt}
    {$\scriptstyle\blacktriangleright$}{NextPage}

\renewcommand\web@navigationbar{%
\hfill\bfseries\footnotesize
\web@FirstPage\
\web@LastPage\
\web@PrevPage\
\web@NextPage\
}

\def\answers@@q[#1]#2%
{%
    \gdef\numCols{#2}%
    \edef\eqtmp{\aPointType}\xdef\aPointType{\eqtmp,[\eqPTs,"mc"]}%
        \ifx\q@hwdest\@empty
            \xdef\@qzsolndest{#1}%
        \else
            \gdef\@qzsolndest{\q@hwdest}%
        \fi
        \answers@q@tabular{#2}%
}

\makeatother

\let\rmdefault\sfdefault

\DeclareMathOperator{\sgn}{sgn}
\DeclareMathOperator{\tg}{tan}
\DeclareMathOperator{\asin}{asin}
\DeclareMathOperator{\cotg}{cotg}
\DeclareMathOperator{\arctg}{atan}
\DeclareMathOperator{\atan}{atan}
\DeclareMathOperator{\arccotg}{arccotg}


\hypersetup{pdfmenubar=true, pdftoolbar=true}

\useBeginQuizButton
\useEndQuizButton
\def\AnswerFieldDefaults
{%
   \BC{}\S{N}\Ff{\FfReadOnly}
 }

\everymath{\displaystyle}


\makeatletter

\renewcommand\web@navigationbar{%
Answer: \AnswerField[\rectW{7cm}\textSize{0}]\currQuiz
\hfill\bfseries\footnotesize
\insertwebtoc
\web@FirstPage\
\web@LastPage\
\web@PrevPage\
\web@NextPage\
}

\makeatother


\def\problem#1{\bigskip\item $y={}$#1; \qquad $y'={}$}
\def\interval#1{\saveinterval#1}
\def\saveinterval[#1,#2]{\def\a{#1} \def\b{#1}}
\def\correctanswer#1{\RespBoxMath{#1}{5}{.0001}{[\a,\b]}\CorrAnsButton{#1}}


\begin{document}


\def\CorrAnsButtonDefaults
{%
  \CA{?}\W{1}\S{B}
  \BC{0 0 0}\BG{.7529 .7529 .7529}\H{P}
  \TU{Click to see the correct answer.}
}

\author{Robert Ma\v r\i\i k}
\title{\hbox{Demo 2 -- Derivatives}}
\def\optionalpagematter{
  \begin{itemize}
  \item Find the derivatives of  elementary functions.
  \item Click "Begin quizz", fill your answers and click "End quizz". The number of correct answers appears in the field.
  \item Click "Correct" and you get the fields with question marks to
    find the correct answers.
  \item Test starts on the next page.
  \end{itemize}
}
\maketitle

\quiztype{f}

\begin{quiz}{derivace}
Differentiate
\begin{questions}
\problem{${2\sqrt x -x}$}
\interval{[1,2]}\correctanswer{1/sqrt(x)-1}

\problem{${(x^2+1)^3} $}
\interval{[1,2]}\correctanswer{6*x*(x^2+1)^2}

\problem{$\frac{x^2}{ 1-x}$}
\interval{[2,3]}\correctanswer{x(2-x)/ (1-x)^2}

\problem{$\frac{\ln x}{\sqrt x}$}
\interval{[1,2]}\correctanswer{(2-ln (x)) / (2*x^(3/2))}

\problem{$x\ln^2 x$ }
\interval{[1,2]}\correctanswer{(ln(x))^2+2*ln(x)}

\problem{${\sqrt{x+1}-\ln(1+\sqrt{x+1})} $}
\interval{[1,2]}\correctanswer{1/ [ 2* (1+ (x+1)^(1/2)) ]}

\problem{${\frac x{(x+1)^2}}$}
\interval{[1,2]}\correctanswer{(1-x)/(x+1)^3}

\problem{${e^x(x^2-2x+2)}$}
\interval{[1,2]}\correctanswer{x^2 * e^x}

\end{questions}
\end{quiz}
\ScoreField\currQuiz\eqButton\currQuiz

\end{document}