
!set percents=!getscorepercent user=$uu
!set percnt=!linecnt $percents
!distribute item 0,0 into per,av
!set this=$thisformula

!for i in $activesh
 !set perc=!line $i of $percents
 !distribute word $perc into p1,p2
 !set p1=$[$p1/100]
 !set this=!mathsubst x$i=$p1 in $this
 !set this=!mathsubst y$i=$p2 in $this
!next i

!set this=$[$this]

