![[BACK]](/cvsweb/icons/back.gif){kind=icon}
Return to gradesys CVS log ![[TXT]](/cvsweb/icons/text.gif){kind=icon}
![[DIR]](/cvsweb/icons/dir.gif){kind=icon}
Up to [CSRG BSD Unix] / 43BSD / contrib / apl / lib|
Return to gradesys CVS log | Up to [CSRG BSD Unix] / 43BSD / contrib / apl / lib |
1.1 root 1: n� �*.KB�& H & number && & name id n { id nam
2: nam { 8Ynam,' '
3: n {(^/name= (Rname)Rnam)I1
4: }(n$1YRname)/ok
5: L{'name: ',nam,' not found'
6: } n { 0
7: ok: n { number[n]
8: & score & dstat dstat x;r;max;min;mean;var;sd;md;med;mode;v;m;n
9: n{Rx
10: r{(max{x[n])-min{(x{x[|Hx])[1]
11: sd{(var{(+/(|x-nRmean{(+/x)%n)*2)%n-1)*0.5
12: md{(+/|x-nRmean)%n
13: med{0.5X+/x[(Sn%2),1+Dn%2]
14: 'sample size ';n
15: 'maximum ';max
16: 'minimum ';min
17: 'range ';r
18: 'mean ';mean
19: 'variance ';var
20: 'standard deviation ';sd
21: 'mean deviation ';md
22: 'median ';med
23:
24: hist r { n hist d;v;t
25: t { Dd%n
26: v { +/(I1+S/t)J.=t+I1
27: r { O- (IS/v)J.$v
28: & numc & & & list & number summary summary; i
29: L{' '
30: L{' score summary'
31: L{' '
32: L{ head list
33: L { name,Bnumc,score
34: lcr r { lcr fn ;t;n
35: t { Lcr fn
36: n { 1YRt
37: r { ((n,1)R'['),0 1U(B(n,1)R((In)-I1)),((n,3)R'] '),t
38: head r { head list
39: r { (((1URlist), 8)R' '),((3X1YRlist)R 0 1 0)\O\ list
40: drop drop ;idx;sid
41: ask: L{'student class id?'
42: } (0=sid {L)/0
43: idx { numberIsid
44: head list
45: name[idx;],B numc[idx;],score[idx;]
46: L{'ok ?'
47: }('y'#'L)/ask
48: mask { (Rnumber)R1
49: mask[idx]{0
50: name {mask/[1]name
51: numc {mask/[1]numc
52: number{mask/number
53: score { mask/[1]score
54: L{'dropped'
55: } ask
56: stat z{stat x;r;max;min;mean;var;sd;md;med;mode;v;m;n
57: n{Rx
58: r{(max{x[n])-min{(x{x[|Hx])[1]
59: sd{(var{(+/(|x-nRmean{(+/x)Pn)*2)Pn-1)*0.5
60: md{(+/|x-nRmean)Pn
61: med{0.5M+/x[(SnP2),1+DnP2]
62: z{n,r,max,min,mean,sd,med
63: & scoremax && & statname P 8 number range maximum minimum mean std.dev.median newstat newstat data ;i
64: statscore { (7,1URdata)R0
65: i {1
66: next: statscore[;i]{stat data[;i]
67: } ((1URstatscore) & i{i+1)/next
68: statscore[1;]{+/[1]0#data
69: statsummary statsummary ;statscore
70: newstat score
71: L{' '
72: L{' statistics summary'
73: L{' '
74: L{head list
75: L{ statname,(7 3R' '),B D statscore
76: & type , ass quiz test final&
77: scoretype && newscore newscore ;pos;i;mask;listn;p;it;tp
78: L{'current types are:'
79: L{ type
80: L'{'type ? '
81: p { type find it { L'
82: }(V/p)/oktype
83: L { 'type not found'
84: }0
85: oktype: tp { p/IRp
86: pos { (tp<scoretype)I1
87: mask {1,(Rscoretype)R1
88: mask[pos]{0
89: score { mask\score
90: scoremax { mask\scoremax
91: list { (1,mask)\[1]list
92: scoretype { mask\scoretype
93: scoretype [pos] { tp
94: L{'scoremax?'
95: scoremax[pos]{ L
96: listn { (B+/,scoretype=scoretype[pos]),' '
97: list[pos+1;] { (1URlist)Rit,listn
98: CJ now input new scores
99: i{1
100: next: pos update number[i]
101: }((Rnumber)&i{i+1)/next
102: L{' new score complete'
103:
104: update col update idn;idx;ip
105: idx {numberIidn
106: L{name[idx;],(Bidn),' : ',list[1+col;],'old score ',Bscore[idx;col]
107: }(0> ip{L)/nc
108: score[idx;col]{ip
109: }0
110: nc: L{'no change'
111: newname newname ;nname
112: L{ 'names?'
113: next: } (0 = R nname{L')/done
114: name{ name,[1] 1 8 R nname,' '
115: number{ number,1+ `1 Y number
116: }next
117: done: numc { ((Rnumber),1)Rnumber
118: score{ score,[1] (((Rnumber)-1YRscore),1URscore)R0
119: 'exit'
120: alpha alpha
121: name{ name[(H| 26 B O\ 0,name);]
122: analysis analysis; i; mk; av1; rank
123: tlist{ type,[1](1URtype)R'total '
124: means{ ((Rnumber),1+1YRtype)R0
125: i{1
126: next1: mk{ scoretype=i
127: }done XI 0=V/,mk
128: means[;i]{ 100X(+/mk/score) % +/mk/scoremax
129: done: }((1YRtype) >= i{ i+1 )/next1
130: means[;i]{ (+/(means[;Ii-1]X((Rnumber),Rweight)Rweight)) %+/weight
131: means{ (D 0.5+10Xmeans)%10
132: rank{ |V means[;i]
133: L{ 'ranking'
134: tlist{ ((1,1URtlist)R'rank '),[1]tlist
135: head tlist
136: L{ name[rank;],B(IRrank),means[rank;]
137: ''
138: ''
139: ''
140: av1{ |H [1]|V [1]means
141: tlist{ 1 0Utlist
142: head tlist
143: L{ name,Bav1
144: & weight 4 && �B B C �B
145: histgm title histgm data ; i;h;m50
146: m50 { 51 > S/data
147: data { S data%2-m50
148: h {51R0
149: i{0
150: loop: h[i+1] { +/data =i
151: }loop XI 50 & i {i+1
152: ''
153: ' Histogram of ',title
154: ''
155: i { S/h
156: loop2: ' *'[1+ h&i]
157: }loop2 XI 0< i{i-1
158: '|----|----|----|----|----|----|----|----|----|----|'
159: }m50/low
160: '0 10 20 30 40 50 60 70 80 90 100'
161: }0
162: low:'0 5 10 15 20 25 30 35 40 45 50'
163:
164: find p { list find item
165: p { ^/list=(Rlist)R(1URlist)Y item,' '
166:
167: printstat printstat colnam;data
168: }(0=Rdata{ getcol colnam)/0
169: dstat data
170: printstat0 printstat0 colnam;data
171: }(0=Rdata{ getcol colnam)/0
172: data { (0#data)/data
173: dstat data
174: getcol data { getcol colnam;p
175: p { 1U list find colnam
176: }(~V/p)/snf
177: data { ,p/score
178: }0
179: snf:p { tlist find colnam
180: }(~V/p)/nnf
181: data {,p/means
182: }0
183: nnf:'column name ',colnam,' not found'
184: data { 0R0
185:
186: printhist printhist colnam;data
187: }(0=Rdata{ getcol colnam)/0
188: colnam histgm data
189: printhist0 printhist0 colnam;data
190: }(0=Rdata{ getcol colnam)/0
191: data { (0#data)/data
192: colnam histgm data
193:
194: readnames readnames file ;nn;fd
195: fd { 260 Lopen file
196: name { 0 8 R' '
197: next: nn { Lrd fd
198: } exit XI0 = R nn
199: name { name,[1]8Ynn,' '
200: } next
201: exit: fd {Lclose fd
202: name { name[(H| 26 B O\ 0,name);]
203: numc { ((1YRname),1)R number { I1YRname
204: score {((Rnumber),0)R0
205: scoretype { 0R0
206: scoremax { 0R0
207: list { 1 8R'number '
208: setup setup ;i
209: L{ 'enter the types one per line'
210: type { 0 8 R' '
211: gettype: }next XI 0=Rtt { 'L
212: type { type,[1]8Ytt,' '
213: }gettype
214: next: L{ 'enter the weights for each type'
215: i { 1
216: weight { 0R0
217: nextweight: 'L { type[i;],' = '
218: weight { weight,L
219: }nextweight XI (1YRtype)&i { i+1
220:
221: change nam change stype;idx;ip;idn;ic
222: idn { id nam
223: }(0=idn)/0
224: ic { list find stype
225: }(0#V/ic)/ok
226: L{'type not found'
227: }0
228: ok:col { `1 + ic I 1
229: idx {numberIidn
230: L{name[idx;],(Bidn),' : ',list[1+col;],'old score ',Bscore[idx;col]
231: }(0> ip{L)/nc
232: score[idx;col]{ip
233: }0
234: nc: L{'no change'
235:
236: analstats analstats ;statscore ;tlist
237: newstat means
238: L {''
239: L {' analysis statistics'
240: L { ''
241: tlist { type,[1](1URtype)R'total '
242: head tlist
243: statname,B D statscore
244:
This archive runs on limited infrastructure. Preserving old code on modern bandwidth. Automated agents are requested to crawl responsibly.