!if $mode=level1
U=!randitem labelA,labelB,labelC
!endif

!if $mode=level2
U=labelD
!endif

!if $mode=level3
U=labelE
!endif

!if $mode iswordof level4 
U=!randitem labelH,labelJ,labelI, labelO, labelP
!endif

!if $mode iswordof level41
U=!randitem labelsin
!endif

!if $mode iswordof level5
U=!randitem labelO labelP
!endif

!if $mode iswordof level6
U=!randitem labelL,labelM,labelK, labelP
!endif

!if $mode iswordof level7
U=!randitem labelsin
!endif

!goto $U


:labelA
listeg= !shuffle (x+2)*(x-1), (x-1)^3-2,(x+1)^2-4,(x-1)^3+2,(x+1)^2+1, (x-1)^2*(x+1),5*exp(-x), 5*exp(-x^2)
sizer= !randint 1,3
!distribute items $listeg into f1,f2,f3
rep=!randint 1,3
F=!mathsubst x=(x^2+y^2)^(1/2) in $(f$rep)
!exit

:labelB
c1=!randint 1,3
sizer= !randint 2
listeg=!shuffle (x+1-$c1),(x- $c1), (x^2- $c1), (-x+$c1), (-x^2+$c1), (-(x+1)^3/10+$c1*(x+1))
sizer= 3
!distribute items $listeg into f1,f2,f3
rep=!randint 1,3
F=!mathsubst x=((x^2+y^2)^(1/2)) in $(f$rep)
!exit


:labelC
listeg= !shuffle (x)*exp(-(x)^2), (x-1)*exp(-(x-1)^2) +0.5,(x+1)*exp(-(x)^2)/2,(x-1)*exp(-(x-1)^2)
sizer= 2
!distribute items $listeg into f1,f2,f3
rep=!randint 1,3
F=!mathsubst x=((x^2+y^2)^(1/2)) in $(f$rep)
!exit

:labelD
m=!randint 5
g1=!randitem sin($m*x), cos($m*x)
g=!mathsubst x=(atan(y/x)) in $g1
g=!exec maxima $g, TRIGEXPAND=TRUE,EXPAND;

m1=$[$m-2*floor($m/2)]
!if $m1=1
g=sign(x)*($g)
!endif
c1=!randint 1,3
sizer= 3
liste=(x+1-$c1),(x- $c1), (x^2- $c1), (-x+$c1), (-x^2+$c1), (-(x+1)^3/10+$c1*(x+1))
liste=!append line (x+2)*(x-1), (x-1)^3-2,(x+1)^2-4,(x-1)^3+2,(x+1)^2+1, (x-1)^2*(x+1),5*exp(-x), 5*exp(-x^2) to $liste

liste= !append line (x)*exp(-(x)^2), (x-1)*exp(-(x-1)^2) +0.5,(x+1)*exp(-(x)^2)/2,(x-1)*exp(-(x-1)^2) to $liste

listef=!randline $liste
listef=!shuffle $listef
!distribute items $listef into f1,f2,f3
rep=!randint 1,3
F=!mathsubst x=((x^2+y^2)^(1/2)) in $(f$rep)
F=($F)*($g)
!exit

:labelE 
m=!randint 5
a=!randint 1,3
b=!randint 1,3
!if $a=0 and $b=0
a=!randint 1..3
!endif
m1=$[$m-1]
m2=$[$m+1]
listeg=!shuffle (($a)* sin($m*x)+($b)* cos($m*x))/(($a)^2+($b)^2)^(1/2),(-($a)* sin($m*x)+($b)* cos($m*x))/(($a)^2+($b)^2)^(1/2),(($a)* sin($m*x)-($b)* cos($m*x))/(($a)^2+($b)^2)^(1/2),(($a)* sin($m1*x)+($b)* cos($m1*x))/(($a)^2+($b)^2)^(1/2),(($a)* sin($m2*x)+($b)* cos($m2*x))/(($a)^2+($b)^2)^(1/2),(($a)* sin($m*x)+($b)* cos($m1*x))/(($a)^2+($b)^2)^(1/2),(($a)* sin($m2*x)+($b)* cos($m*x))/(($a)^2+($b)^2)^(1/2)
!distribute items $listeg into f1,f2,f3

rep=!randint 1,3
g=!mathsubst x=(atan(y/x)) in $(f$rep)
g=!exec maxima $g, TRIGEXPAND=TRUE,EXPAND;
sizer=pi/2
F=$g
!exit

:labelH
R1=((x^2+y^2)-0.5)*exp(-(x^2+y^2))/(x^2+y^2)^(1/2)
R2=($R1)*((x^2+y^2)-1)
listeF=($R1)*y^3,($R1)*x^3,-($R1)*y^3,-($R1)*x^3,($R1)*y^2*x,-($R1)*y^2*x\
($R2)*y^3,($R2)*x^3,-($R2)*y^3,-($R2)*x^3,($R2)*y*x^2,-($R2)*y*x^2\
($R1)*y^2,($R1)*x^2,-($R1)*y^2,-($R1)*x^2,($R1)*(y^2+x),-($R1)*(y^2+2*x^2)\
($R2)*y^2,($R2)*x^2,-($R2)*y^2,-($R2)*x^2,($R2)*(y^2+x),-($R2)*(y^2+2*x^2)\
($R1)*y^2,($R1)*x^2,($R2)*y^2,($R2)*x^2,($R1)*(y^2+x),($R2)*(y^2+x)

F=!randline $listeF
F=!shuffle $F
!distribute item $F into F1,F2,F3
rep=!randint 1,3
F=$(F$rep)

sizer= 2
n_level=15

!exit

:labelI
R1=((x^2+y^2)-0.5)/(sqrt(x^2+y^2)*(1+(x^2+y^2)^2))
R2=($R1)*((x^2+y^2)-1)
listeF=($R1)*y^3,($R1)*x^3,-($R1)*y^3,-($R1)*x^3,($R1)*y^2*x,-($R1)*y^2*x\
($R2)*y^3,($R2)*x^3,-($R2)*y^3,-($R2)*x^3,($R2)*y*x^2,-($R2)*y*x^2\
($R1)*y^2,($R1)*x^2,-($R1)*y^2,-($R1)*x^2,($R1)*(y^2-x),-($R1)*(y^2+2*x^2)\
($R2)*y^2,($R2)*x^2,-($R2)*y^2,-($R2)*x^2,($R2)*(y^2-x),-($R2)*(y^2+2*x^2)\
($R1)*y^2,($R1)*x^2,($R2)*y^2,($R2)*x^2,($R1)*(y^2-x),($R2)*(y^2+x)

F=!randline $listeF
F=!shuffle $F
!distribute item $F into F1,F2,F3
rep=!randint 1,3
F=$(F$rep)

sizer= 2
n_level=15

!exit

:labelJ
R1=1/((x^2+y^2)^(1/2)*(1+(x^2+y^2)^2))
R2=1/((x^2+2*y^2)^(1/2)*(1+(x^2+y^2)^2))
listeF=($R1)*y^3,($R1)*x^3,-($R1)*y^3,-($R1)*x^3,($R1)*y^2*x,-($R1)*y^2*x\
($R2)*y^3,($R2)*x^3,-($R2)*y^3,-($R2)*x^3,($R2)*y*x^2,-($R2)*y*x^2\
($R1)*y^2,($R1)*x^2,-($R1)*y^2,-($R1)*x^2,($R1)*(y^2-x),-($R1)*(y^2+2*x^2)\
($R2)*y^2,($R2)*x^2,-($R2)*y^2,-($R2)*x^2,($R2)*(y^2-x),-($R2)*(y^2+2*x^2)\
($R1)*y^2,($R1)*x^2,($R2)*y^2,($R2)*x^2,($R1)*(y^2-x),($R2)*(y^2+x)

F=!randline $listeF
F=!shuffle $F
!distribute item $F into F1,F2,F3
rep=!randint 1,3
F=$(F$rep)
sizer= 2
n_level=15

!exit
:labelK
R1=1/(sqrt(x^2+y^2)*(1+(x^2+y^2)^2))
listeF=($R1)*y^3,($R1)*x^3,-($R1)*y^3,-($R1)*x^3,($R1)*y^2*x,-($R1)*y^2*x\
($R1)*y^2,($R1)*x^2,-($R1)*y^2,-($R1)*x^2,($R1)*(y^2-x),-($R1)*(y^2+2*x^2)

F=!randline $listeF
F=!shuffle $F
!distribute item $F into F1,F2,F3
rep=!randint 1,3
F=$(F$rep)

sizer= 2
n_level=15

!exit

:labelL
R1=exp(-(x^2+y^2))/(x^2+y^2)^(1/2)
R2=($R1)*((x^2+y^2)-1)
listeF=($R1)*y^3,($R1)*x^3,-($R1)*y^3,-($R1)*x^3,($R1)*y^2*x,-($R1)*y^2*x\
($R2)*y^3,($R2)*x^3,-($R2)*y^3,-($R2)*x^3,($R2)*y*x^2,-($R2)*y*x^2\
($R1)*y^2,($R1)*x^2,-($R1)*y^2,-($R1)*x^2,($R1)*(y^2+x),-($R1)*(y^2+2*x^2)\
($R2)*y^2,($R2)*x^2,-($R2)*y^2,-($R2)*x^2,($R2)*(y^2+x),-($R2)*(y^2+2*x^2)\
($R1)*y^2,($R1)*x^2,($R2)*y^2,($R2)*x^2,($R1)*(y^2+x),($R2)*(y^2+x)

F=!randline $listeF
F=!shuffle $F
!distribute item $F into F1,F2,F3
rep=!randint 1,3
F=$(F$rep)

sizer= 2
n_level=15

!exit

:labelM
R1=1/(sqrt(x^2+y^2)*(1+(x^2+y^2)^2))
R2=($R1)*((x^2+y^2)-1)
listeF=($R1)*y^3,($R1)*x^3,-($R1)*y^3,-($R1)*x^3,($R1)*y^2*x,-($R1)*y^2*x\
($R2)*y^3,($R2)*x^3,-($R2)*y^3,-($R2)*x^3,($R2)*y*x^2,-($R2)*y*x^2\
($R1)*y^2,($R1)*x^2,-($R1)*y^2,-($R1)*x^2,($R1)*(y^2-x),-($R1)*(y^2+2*x^2)\
($R2)*y^2,($R2)*x^2,-($R2)*y^2,-($R2)*x^2,($R2)*(y^2-x),-($R2)*(y^2+2*x^2)\
($R1)*y^2,($R1)*x^2,($R2)*y^2,($R2)*x^2,($R1)*(y^2-x),($R2)*(y^2+x)

F=!randline $listeF
F=!shuffle $F
!distribute item $F into F1,F2,F3
rep=!randint 1,3
F=$(F$rep)

sizer= 2
n_level=15

!exit

:labelO
listeF=x*y,x^2+y^2,y^2-x,x^2-y^2, -x*y, -(x^2+y^2),-y^2+x,y^2-x^2,sqrt (x^2+y^2),-sqrt (x^2+y^2), x^2-y,-x^2+y\
x*y^2, -x*y^2, -x^2*y, x^2*y, x^3-y,y^3-x,x^3-y^3

F=!randline $listeF
F=!shuffle $F
!distribute item $F into F1,F2,F3
rep=!randint 1,3
F=$(F$rep)

sizer= 2
n_level=15

!exit

:labelP
listeF=sin(x^2+y^2), cos(x^2+y^2), sin(x^2-y^2), cos(x^2-y^2), -sin(x^2+y^2), cos(x*y), sin(x*y), cos(x)*y

F=!randline $listeF
F=!shuffle $F
!distribute item $F into F1,F2,F3
rep=!randint 1,3
F=$(F$rep)

sizer= 2
n_level=15

!exit

:labelsin
s=!shuffle 3

nx=!item 1 of $s
ny=!item 2 of $s
m=$[min($nx,$ny)]
liste=2*sin($nx*pi*x)*sin($nx*pi*y),2*sin($ny*pi*x)*sin($ny*pi*y),2*sin($nx*pi*x)*sin($ny*pi*y),4*sin($nx*pi*x)^2*sin($ny*pi*y)^2,2*sin($nx*pi*y)*sin($ny*pi*x),4*sin($nx*pi*y)^2*sin($ny*pi*x)^2
F=!shuffle $liste
!distribute item $F into F1,F2,F3
rep=!randint 1,3
F=$(F$rep)
sizer=$[1/$m]
n_level=15

!exit
