File:
[LON-CAPA] /
capa /
capa51 /
pProj /
checkunits.c
Revision
1.4:
download - view:
text,
annotated -
select for diffs
Mon Aug 7 20:47:29 2000 UTC (24 years, 1 month ago) by
albertel
Branches:
MAIN
CVS tags:
version_2_9_X,
version_2_9_99_0,
version_2_9_1,
version_2_9_0,
version_2_8_X,
version_2_8_99_1,
version_2_8_99_0,
version_2_8_2,
version_2_8_1,
version_2_8_0,
version_2_7_X,
version_2_7_99_1,
version_2_7_99_0,
version_2_7_1,
version_2_7_0,
version_2_6_X,
version_2_6_99_1,
version_2_6_99_0,
version_2_6_3,
version_2_6_2,
version_2_6_1,
version_2_6_0,
version_2_5_X,
version_2_5_99_1,
version_2_5_99_0,
version_2_5_2,
version_2_5_1,
version_2_5_0,
version_2_4_X,
version_2_4_99_0,
version_2_4_2,
version_2_4_1,
version_2_4_0,
version_2_3_X,
version_2_3_99_0,
version_2_3_2,
version_2_3_1,
version_2_3_0,
version_2_2_X,
version_2_2_99_1,
version_2_2_99_0,
version_2_2_2,
version_2_2_1,
version_2_2_0,
version_2_1_X,
version_2_1_99_3,
version_2_1_99_2,
version_2_1_99_1,
version_2_1_99_0,
version_2_1_3,
version_2_1_2,
version_2_1_1,
version_2_1_0,
version_2_12_X,
version_2_11_X,
version_2_11_5_msu,
version_2_11_5,
version_2_11_4_uiuc,
version_2_11_4_msu,
version_2_11_4,
version_2_11_3_uiuc,
version_2_11_3_msu,
version_2_11_3,
version_2_11_2_uiuc,
version_2_11_2_msu,
version_2_11_2_educog,
version_2_11_2,
version_2_11_1,
version_2_11_0_RC3,
version_2_11_0_RC2,
version_2_11_0_RC1,
version_2_11_0,
version_2_10_X,
version_2_10_1,
version_2_10_0_RC2,
version_2_10_0_RC1,
version_2_10_0,
version_2_0_X,
version_2_0_99_1,
version_2_0_2,
version_2_0_1,
version_2_0_0,
version_1_99_3,
version_1_99_2,
version_1_99_1_tmcc,
version_1_99_1,
version_1_99_0_tmcc,
version_1_99_0,
version_1_3_X,
version_1_3_3,
version_1_3_2,
version_1_3_1,
version_1_3_0,
version_1_2_X,
version_1_2_99_1,
version_1_2_99_0,
version_1_2_1,
version_1_2_0,
version_1_1_X,
version_1_1_99_5,
version_1_1_99_4,
version_1_1_99_3,
version_1_1_99_2,
version_1_1_99_1,
version_1_1_99_0,
version_1_1_3,
version_1_1_2,
version_1_1_1,
version_1_1_0,
version_1_0_99_3,
version_1_0_99_2,
version_1_0_99_1,
version_1_0_99,
version_1_0_3,
version_1_0_2,
version_1_0_1,
version_1_0_0,
version_0_99_5,
version_0_99_4,
version_0_99_3,
version_0_99_2,
version_0_99_1,
version_0_99_0,
version_0_6_2,
version_0_6,
version_0_5_1,
version_0_5,
version_0_4,
stable_2002_spring,
stable_2002_july,
stable_2002_april,
stable_2001_fall,
release_5-1-3,
loncapaMITrelate_1,
language_hyphenation_merge,
language_hyphenation,
conference_2003,
bz6209-base,
bz6209,
STABLE,
HEAD,
GCI_3,
GCI_2,
GCI_1,
CAPA_5-1-6,
CAPA_5-1-5,
CAPA_5-1-4_RC1,
BZ4492-merge,
BZ4492-feature_horizontal_radioresponse,
BZ4492-feature_Support_horizontal_radioresponse,
BZ4492-Support_horizontal_radioresponse
- fixed license notices the reference the GNU GPL rather than the GNU LGPL
1: /* harness to test the unit engine out
2: Copyright (C) 1992-2000 Michigan State University
3:
4: The CAPA system is free software; you can redistribute it and/or
5: modify it under the terms of the GNU General Public License as
6: published by the Free Software Foundation; either version 2 of the
7: License, or (at your option) any later version.
8:
9: The CAPA system is distributed in the hope that it will be useful,
10: but WITHOUT ANY WARRANTY; without even the implied warranty of
11: MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the GNU
12: General Public License for more details.
13:
14: You should have received a copy of the GNU General Public
15: License along with the CAPA system; see the file COPYING. If not,
16: write to the Free Software Foundation, Inc., 59 Temple Place - Suite 330,
17: Boston, MA 02111-1307, USA.
18:
19: As a special exception, you have permission to link this program
20: with the TtH/TtM library and distribute executables, as long as you
21: follow the requirements of the GNU GPL in regard to all of the
22: software in the executable aside from TtH/TtM.
23: */
24:
25: /*
26: Units is checked against real or integer answers,
27: for string and choice answers, units is not checked
28:
29: UNIT_NOTNEEDED ==> user entered some units and answer did not need one
30: NO_UNIT ==>
31: UNIT_FAIL
32:
33: ans_type must be either ANSWER_IS_INTEGER or ANSWER_IS_FLOAT
34: or else, skip or return UNIT_NOTNEEDED
35: if unit_p is NULL, then UNIT_NOTNEEDED
36:
37: answer must contains at least one digit
38:
39:
40: */
41:
42: /*
43:
44:
45: #define EXACT_ANS 1
46: #define APPROX_ANS 2
47: #define SIG_FAIL 3
48: #define UNIT_FAIL 4
49: #define NO_UNIT 5
50: #define UNIT_OK 6
51: #define INCORRECT 7
52: #define UNIT_NOTNEEDED 8
53: #define ANS_CNT_NOT_MATCH 9
54: /* called from capaCommon.c */
55: /* */
56: /* UNIT_FAIL */
57: /* NO_UNIT */
58: /* result: UNIT_OK correct */
59: /* */
60: */
61:
62: /* capa_check_units() only works under ANSWER_IS_INTEGER or ANSWER_IS_FLOAT */
63: int
64: capa_check_units( ans, u_p ) char *ans;Unit_t *u_p;
65: {
66: input_len = strlen(ans);
67: all_alphabet = 1;
68: for(idx=0;idx<input_len;idx++) {
69: if( isdigit(ans[idx]) ) {
70: all_alphabet = 0;
71: }
72: }
73:
74: if( !all_alphabet ) { /* contains at least a digit char */
75: outcome = split_num_unit(ans,&n_part,num_str,unit_str);
76: /* num_str is used in calc_sig() for sig fig */
77: /* n_part is used together with scale from check_correct_answer() */
78: /* unit_str is used later as input to check_correct_unit() */
79: if( outcome > 1 ) { /* with both num and unit parts or only unit part */
80:
81: if( u_p != NULL ) {
82: result = check_correct_unit(unit_str,u_p,&scale);
83: /* result could be UNIT_OK, UNIT_FAIL */
84:
85:
86: } else { /* no unit is specified but student entered an units? */
87:
88: result = UNIT_NOTNEEDED;
89:
90: }
91:
92: } else { /* outcome = 0 empty string, 1 a number without units */
93: if( u_p != NULL ) {
94:
95: result = NO_UNIT; /* units required */
96:
97: } else {
98: result = INCORRECT, /* proceed to check numerical value */
99: }
100: }
101: /* at this point, result could be one of UNIT_OK, UNIT_FAIL, UNIT_NOTNEEDED, and NO_UNIT */
102:
103: sig = calc_sig( num_str );
104:
105: } else { /* contains all non-digit char */
106: result = INCORRECT; /* the students may enter an units but not containing any number */
107:
108: }
109: return (result);
110: }
111:
112:
113:
114:
115:
116:
117:
118:
119:
120:
121:
122:
123:
124:
125: int
126: capa_check_allunits(p,answers,cnt) Problem_t *p; char **answers; int cnt;
127: {
128: int type;
129: char *correct;
130: char input[ANSWER_STRING_LENG], unit_str[UNIT_STRING_LENG];
131: int tol_type, calc_type;
132: double tol, n_part;
133: int sig_l;
134: int sig_u;
135: char *fmt;
136: int choice[SIXTY_FOUR], ii, idx, corr_len, input_len;
137: int result = INCORRECT, sig, outcome, all_alphabet;
138: char fmted[FORMAT_STRING_LENG];
139: double given, target, ratio, fmted_target, target_u, target_l, scale=1.0;
140: double delta;
141:
142: type = p->ans_type;
143: correct = p->answer;
144: tol_type = p->tol_type;
145: tol = p->tolerance;
146: sig_l = p->sig_lbound;
147: sig_u = p->sig_ubound;
148: fmt = p->ans_fmt;
149: calc_type = p->calc;
150: unit_str[0]= 0;
151:
152: if( (cnt != p->ans_cnt) ) { return (ANS_CNT_NOT_MATCH); }
153: switch(type) {
154: case ANSWER_IS_INTEGER:
155: case ANSWER_IS_FLOAT:
156: {
157: input_len = strlen(ans);
158: all_alphabet = 1;
159: for(idx=0;idx<input_len;idx++) {
160: if( isdigit(ans[idx]) ) {
161: all_alphabet = 0;
162: }
163: }
164: if( !all_alphabet ) { /* answer string is not all alphabets */
165: outcome = split_num_unit(ans,&n_part,num_str,unit_str);
166: if( outcome > 1 ) { /* with both num and unit parts or only unit part */
167: if( u_p != NULL ) {
168: result = check_correct_unit(unit_str,u_p,&scale);
169: } else { /* what to do when no unit is specified but student entered a
170: unit? */
171: result = UNIT_NOTNEEDED;
172: }
173: } else {
174: if( u_p != NULL ) {
175: result = NO_UNIT;
176: }
177: }
178:
179: idx = 1; ai = p->ans_list;
180: while( (idx<cnt) && ( (result == EXACT_ANS) || (result == APPROX_ANS) ) ) {
181: result = capa_check_ans(ai,answers[idx]);
182: ai = ai->ans_next; idx++;
183: }
184: if(num_answer==2) printf("Answer:->%s [%s,%s] %s, ",p->answer,lower,upper,
185: p->unit_str);
186: else printf("Answer:->%s, ",lower);
187: switch(p->ans_type) {
188: case ANSWER_IS_INTEGER: printf(" INTEGER,");
189: break;
190: case ANSWER_IS_FLOAT:
191: printf(" FLOAT format=%s, SIG=[%d,%d],",
192: p->ans_fmt,p->sig_lbound,p->sig_ubound );
193: break;
194: case ANSWER_IS_STRING_CI: printf(" STRING C.I.,"); break;
195: case ANSWER_IS_STRING_CS: printf(" STRING C.S.,"); break;
196: case ANSWER_IS_CHOICE: printf(" CHOICE,"); break;
197: }
198: printf(" WEIGHT=%d, TRIES=%d\n", p->weight,p->tries); fflush(stdout);
199: if(p->ans_unit != NULL) {
200: print_unit_t(p->ans_unit); fflush(stdout);
201: }
FreeBSD-CVSweb <freebsd-cvsweb@FreeBSD.org>