Subversion Repositories wimsdev

Rev

Rev 7638 | Go to most recent revision | Details | Last modification | View Log | RSS feed

Rev Author Line No. Line
7612 bpr 1
!!input :user, class, sheet (optional), exo (optional)
2
!!output:
3
!! script_out: lines for each exo in sheet coming from exostat
4
!!  should put only the best things ??
5
!! script_best: best result (depending on the required points)
6
!! script_p3 (average of best result, only in the case sheet and exo are empty
7
!! should be the third word of the result of !getscorepercent
8
 
9
!distribute items $wims_read_parm into sc_user,sc_class,sc_sheet,sc_exo
10
!reset script_out script_best script_percent3
11
!if $sc_exo!=$empty
12
    !set script_out=!sh export exostat_dirbase exostat_types exostat_classes exostat_user exostat_sheet\
13
	exostat_dirbase=$wims_home/log/classes\
14
	exostat_types="score"\
15
	exostat_classes="$sc_class"\
16
	exostat_user="$sc_user"\
17
	exostat_sheet="$sc_sheet"\
18
	$wims_home/bin/exostat
19
    !set sc_best_=!getopt $(sc_sheet)_$(sc_exo) in $script_out
20
    !set sc_best_=!nonempty items $(sc_best_[2;])
21
    !set sc_best_=!sort reverse numeric items $sc_best_
22
    !if $sc_best_!=$empty
23
      !set sc_req=!getscorerequire sheet=$sc_sheet exo=$(sc_exo)
24
      !set sc_req=$[ceil(min(10,$sc_req/10))]
25
      !set sc_best=!replace internal , by + in $(sc_best_[1..$sc_req])
26
      !set script_best=$[$sc_best]
27
    !endif
28
  !goto end
29
!endif
30
 
31
!if $sc_sheet!=$empty
32
 
33
  !reset script_out
34
  !set sc_sheet=!words2items $sc_sheet
35
  !reset sc_best
36
  !set sc_sheet_cnt=!itemcnt $sc_sheet
37
  !for sc_s=1 to $sc_sheet_cnt
38
    sc_sh=$(sc_sheet[$sc_s])
39
    !set script_out=!sh export exostat_dirbase exostat_types exostat_classes exostat_user exostat_sheet\
40
	exostat_dirbase=$wims_home/log/classes\
41
	exostat_types="score"\
42
	exostat_classes="$sc_class"\
43
	exostat_user="$sc_user"\
44
	exostat_sheet="$sc_sh"\
45
	$wims_home/bin/exostat
46
 
47
    !if $script_out!=$empty
48
     !set script_p3=0
49
     !set sc_wg=0
50
     !set sc_require=!getscorerequire sheet=$sc_sh
51
     !set sc_weight=!getscoreweight sheet=$sc_sh
52
     !set sc_d=!recordcnt wimshome/log/classes/$wims_class/sheets/.sheet$sc_sh
53
     !reset script_best
54
     !for sc_ex=1 to $sc_d
55
      !set sc_best_=!getopt $(sc_sh)_$(sc_ex) in $script_out
56
      !set sc_best_=!nonempty items $(sc_best_[2;])
57
      !set sc_best_=!sort reverse numeric items $sc_best_
58
      !if $sc_best_!=$empty
59
       !set sc_req=!word $(sc_ex) of $sc_require
60
       !set sc_req=$[ceil(min(10,$sc_req/10))]
61
       !set sc_best_=!replace internal , by + in $(sc_best_[1..$sc_req])
62
       !set sc_best_=$[round(10*($sc_best_)/$sc_req)/10]
63
       !set sc_w=!word $(sc_ex) of $sc_weight
64
       !set sc_wg=$[$sc_wg + $sc_w]
65
       !set script_p3=$script_p3 + $sc_w*$sc_best_
66
      !endif
67
!!leave the empty items
68
       sc_best=$sc_best$sc_best_,
69
     !next exo
70
     !set script_best=$script_best\
71
$sc_best
72
     !set script_percent3=$script_percent3\
73
$[ceil(100*($script_p3)/$sc_wg)/1000]
74
    !set script_out=!append line $script_out_ to $script_out
75
  !next sheet
76
!endif
77
 
78
:end