Subversion Repositories wimsdev

# Variable calculations should be done in this file.

# It is read and interpreted by wims for all valid calls to the module.

F=F

Z=Z

r=<i>r</i>

!if $cmd=reply and $status=waiting

 reply_cnt=$[$reply_cnt+1]

!endif

try_cnt=$[$reply_cnt+1]

# Computation of the locations of pieces

!if $q=4 or $q=8 or $q=9

 field=notprime

 !read data/qpuzzle/table.F$q

 !for x = 0 to $q-1

  !if $x<=1

   el$x=$x

  !else

   el$x=$r<sup>$[$x-1]</sup>

  !endif

  !for y = 0 to $q-1

   s=!item $a11+1 of $(mul$x)

   t=!item $a12+1 of $(mul$y)

   x1=!item $s+1 of $(add$t)

   x1=!item $x1+1 of $(add$xt)

   s=!item $a21+1 of $(mul$x)

   t=!item $a22+1 of $(mul$y)

   y1=!item $s+1 of $(add$t)

   y1=!item $y1+1 of $(add$yt)

   s=!item $r11+1 of $(mul$x1)

   t=!item $r12+1 of $(mul$y1)

   xx=!item $s+1 of $(add$t)

   xx=!item $xx+1 of $(add$xr)

   s=!item $r21+1 of $(mul$x1)

   t=!item $r22+1 of $(mul$y1)

   yy=!item $s+1 of $(add$t)

   yy=!item $yy+1 of $(add$yr)

   n$(xx)_$yy=$x.$y

  !next y

 !next x

 s=!item $r11+1 of $(mul$r22)

 t=!item $r21+1 of $(mul$r12)

 !for i = 1 to $q

  j=!item $i of $(add$t)

  !if $j = $s

    det=!eval $i-1

    break

  !endif

 !next i

!else q=p

 field=prime

 !for x = 0 to $q-1

 el$x=$x

  !for y = 0 to $q-1

   x1=($a11*$x+$a12*$y+$xt)%$q

   y1=($a21*$x+$a22*$y+$yt)%$q

   xx=!eval ($r11*$x1+$r12*$y1+$xr)%$q

   yy=!eval ($r21*$x1+$r22*$y1+$yr)%$q

   n$(xx)_$yy=$x.$y

  !next y

 !next x

 det=!eval ($r11*$r22-$r21*$r12)%$q

!endif q or p

!if $det = 0

 !for x = 0 to $q-1

  !for y = 0 to $q-1

   !if $(n$(x)_$y) = $empty

    n$(x)_$y = bad

   !endif

  !next y

 !next x

!endif

!if $n0_0=0.0 and $n1_0=1.0 and $n0_1=0.1 and $status=waiting and $reply_cnt>0

 found=yes

 wims_module_log=success after $reply_cnt tries from $httpd_REMOTE_HOST

 wims_print_precision=4

 module_score=$[10*($q-1)/$reply_cnt]

 !if $module_score>10

  module_score=10

 !endif

 status=found

!endif

!if $cmd=help

  hdcolor=style="background-color:#D0D060"

  opcolor=style="background-color:#A0A0A0"

!endif