#bewerking=nivo/bewerking3.proc
bewerking=common/ineq.proc
!set n=$teller
!if $graad =0
    R=$teller
!else
    R=$graad
!endif        

nivo_title=!record 57 of lang/remarks.$taal
log=0
breuk=0
#varlist=1
varlist=x
wims_texsize=+2
keuze=!randitem 0,1
kans=!randitem 0,1
!if $R>0
    wims_rawmath_variables=x
    g=!randitem 2,3,4,5,6,7,8,9
    a=!randitem 1,2,3,4,5
    b=!randint 1,20
    tot=!exec pari A=$b/(1+$g^$a)\
    printtex(A)
    t1=!line 1 of $tot
    t2=!line 2 of $tot
    !if $keuze=1
	!if $kans=1
	    teken= &lt;
	    GOED$n=!nospace 0 < x && x < $t1
	    goed$n=0 \\<\\ x \\<\\ $t2
	!else
	    teken= &le;
	    GOED$n=!nospace 0 < x && x <= $t1
	    goed$n=0 \\<\\ x \le $t2    
	!endif    
    !else
	!if $kans=1
	    teken= &gt;
	    GOED$n=!nospace $t1 < x && x < $b
	    goed$n=  $t2 \\<\\ x \\<\\ $b
	!else
	    teken= &ge;
	    GOED$n=!nospace $t1 <= x && x < $b
	    goed$n=$t2 \le x \\<\\ $b
	!endif    
    !endif	
    somtekst$n=f(x) $teken g(x)
    ff=^{$g}\log \left( x \right) + $a
    gg=^{$g}\log \left( $b - x \right)
    opgave$n= \left\{ \begin{array}{cc} f\left( x \right) = & $ff  \\ \\  g\left( x \right) = & $gg \end{array}\right.
    F=$a + log10(x)/(log10($g))
    G=log10($b -x)/(log10($g))
    insplot_set=border ; autoscale ; zeroaxis linetype 3 ; tmargin 1 ; rmargin 1 ; grid ; xlabel "x-axis" ; ylabel "y-axis"
    plotsettings$n=$insplot_set
    plaatje$n= $F notitle , $G  notitle
 !exit
!endif
