# Variable initialisation file.
# This file is read by wims for new sessions.

wims_print_precision=5

!default Degree = 3
!default range  = 8
!default zoom_factor = 0
!default size_factor = 0

:restart
tot=0
!for i = 0 to 5
  !ifval $i <= $Degree
    oc$i = !randint -$range, $range
    tot=$[$tot+abs($(oc$i))]
  !else
    oc$i = 0
  !endif
  c$i = 0
!next i  
!if $tot<=0
 !goto restart
!endif

!for i=1 to 3
  reste$i=!randint -$range, $range
!next i
reste3=!eval $reste3/3
reste_fr=!random -10, 10
reste_fn=x^$Degree*($reste1*x+($reste2)*sin($reste_fr*x)+($reste3)*x*x)/(2.5*$Degree)

reply_cnt=0
done=
