# exponentiele functies
image=0
n=$counter
F=f(x)\,\,=\,\,
Fa=f'(x)\,\,=\,\,
mytexsize=+2
R=$level
!if $level=0
    R=$counter
!endif    
    
pm=!randitem +,-
mp=!randitem +,-
s=!randitem 1,-1
keuze=!randitem 1,2
checkfile=exos/checkfile2.proc
ss=!record 7 of lang/remarks.$taal
question$n=$ss
exotext=!record 25 of lang/remarks.$taal
sometext=!record 26 of lang/remarks.$taal
exotext=<p><a onmouseover="return escape('$sometext')">$exotext
helptext=$empty
!if $R=1
    pm=!randitem +,-
    g=!randitem 2,3,4,5,6,7,8,9,10
    b=!randitem 2,3,4,5,6,7,8,9
    c=!randitem 2,3,4
    keuze=!randitem 1,2,3,4
    !if $keuze=1
	functie=$g^x
	formula$n= $F $g^{x}
    !else
	!if $keuze=2
	    functie=$g^x $pm $b
	    formula$n= $F $g^{x} $pm $b
	!else
	    !if $keuze=3
		functie=$g^x $pm $b*x
		formula$n= $F $g^{x} $pm $b \cdot x
	    !else
		functie=e^x $pm $b*x^$c
		formula$n= $F e^{x} $pm $b \cdot x^{$c}
	    !endif
	!endif
    !endif
    !goto READY
!endif

!if $R=2
    pm=!randitem +,-
    mp=!randitem +,-
    g=!randitem 2,3,4,5,6
    b=!randitem 2,3,4,5,6,7,8,9
    c=!randitem 2,3,4,5,6
    keuze=!randitem 1,2,3,4
    !if $keuze=1
	functie=$g^(x $mp $c)
	formula$n= $F $g^{x $mp $c}
    !else
	!if $keuze=2
	    functie=$g^(x $mp $c) $pm $b
	    formula$n= $F $g^{x $mp $c} $pm $b
	!else
	    !if $keuze=3
		functie=$g^(x $mp $c) $pm $b*x
		formula$n= $F $g^{x $mp $c} $pm $b \cdot x
	    !else
		functie=e^(x $mp $c) $pm $b
		formula$n= $F e^{x $mp $c} $pm $b
	    !endif
	!endif
    !endif
    !goto READY
!endif

!if $R>2
    pm=!randitem +,-
    mp=!randitem 1,-1
    g=!randitem 2,3,4,5,6
    b=!randitem 2,3,4,5,6,7,8,9
    c=!randitem 2,3,4,5,6
    keuze=!randitem 1,2,3,4,5
    !if $keuze=1
	functie=$g^($c*x)
	formula$n= $F $g^{$c \cdot x}
    !else
	!if $keuze=2
	    functie=$g^($c*x) $pm $b
	    formula$n= $F $g^{$c \cdot x} $pm $b
	!else
	    !if $keuze=3
		functie=$g^($c*x) $pm $b*x
		formula$n= $F $g^{$c \cdot x} $pm $b \cdot x
	    !else
		!if $keuze=4
		    functie=e^($c*x) $pm $b
		    formula$n= $F e^{$c \cdot x} $pm $b
		!else
		    b=$[$mp*$b]
		    functie=$b*$g^($c*x)
		    formula$n= $F $b \cdot $g^{$c \cdot x}
		!endif
	    !endif
	!endif
    !endif
!endif

:READY
sommen=!exec maxima factor(diff($functie ,x)); 
answer$n=!line 1 of $sommen	
answer$n=!replace internal log by ln in $(answer$n)
texanswer$n=!texmath $(answer$n)
texanswer$n=!replace internal log by ln in $(texanswer$n)
texanswer$n=$Fa $(texanswer$n)


!exit
