Annotation of capa/capa51/pProj/checkunits.c, revision 1.1.1.1
1.1 albertel 1:
2: /*
3: Units is checked against real or integer answers,
4: for string and choice answers, units is not checked
5:
6: UNIT_NOTNEEDED ==> user entered some units and answer did not need one
7: NO_UNIT ==>
8: UNIT_FAIL
9:
10: ans_type must be either ANSWER_IS_INTEGER or ANSWER_IS_FLOAT
11: or else, skip or return UNIT_NOTNEEDED
12: if unit_p is NULL, then UNIT_NOTNEEDED
13:
14: answer must contains at least one digit
15:
16:
17: */
18:
19: /*
20:
21:
22: #define EXACT_ANS 1
23: #define APPROX_ANS 2
24: #define SIG_FAIL 3
25: #define UNIT_FAIL 4
26: #define NO_UNIT 5
27: #define UNIT_OK 6
28: #define INCORRECT 7
29: #define UNIT_NOTNEEDED 8
30: #define ANS_CNT_NOT_MATCH 9
31: /* called from capaCommon.c */
32: /* */
33: /* UNIT_FAIL */
34: /* NO_UNIT */
35: /* result: UNIT_OK correct */
36: /* */
37: */
38:
39: /* capa_check_units() only works under ANSWER_IS_INTEGER or ANSWER_IS_FLOAT */
40: int
41: capa_check_units( ans, u_p ) char *ans;Unit_t *u_p;
42: {
43: input_len = strlen(ans);
44: all_alphabet = 1;
45: for(idx=0;idx<input_len;idx++) {
46: if( isdigit(ans[idx]) ) {
47: all_alphabet = 0;
48: }
49: }
50:
51: if( !all_alphabet ) { /* contains at least a digit char */
52: outcome = split_num_unit(ans,&n_part,num_str,unit_str);
53: /* num_str is used in calc_sig() for sig fig */
54: /* n_part is used together with scale from check_correct_answer() */
55: /* unit_str is used later as input to check_correct_unit() */
56: if( outcome > 1 ) { /* with both num and unit parts or only unit part */
57:
58: if( u_p != NULL ) {
59: result = check_correct_unit(unit_str,u_p,&scale);
60: /* result could be UNIT_OK, UNIT_FAIL */
61:
62:
63: } else { /* no unit is specified but student entered an units? */
64:
65: result = UNIT_NOTNEEDED;
66:
67: }
68:
69: } else { /* outcome = 0 empty string, 1 a number without units */
70: if( u_p != NULL ) {
71:
72: result = NO_UNIT; /* units required */
73:
74: } else {
75: result = INCORRECT, /* proceed to check numerical value */
76: }
77: }
78: /* at this point, result could be one of UNIT_OK, UNIT_FAIL, UNIT_NOTNEEDED, and NO_UNIT */
79:
80: sig = calc_sig( num_str );
81:
82: } else { /* contains all non-digit char */
83: result = INCORRECT; /* the students may enter an units but not containing any number */
84:
85: }
86: return (result);
87: }
88:
89:
90:
91:
92:
93:
94:
95:
96:
97:
98:
99:
100:
101:
102: int
103: capa_check_allunits(p,answers,cnt) Problem_t *p; char **answers; int cnt;
104: {
105: int type;
106: char *correct;
107: char input[ANSWER_STRING_LENG], unit_str[UNIT_STRING_LENG];
108: int tol_type, calc_type;
109: double tol, n_part;
110: int sig_l;
111: int sig_u;
112: char *fmt;
113: int choice[SIXTY_FOUR], ii, idx, corr_len, input_len;
114: int result = INCORRECT, sig, outcome, all_alphabet;
115: char fmted[FORMAT_STRING_LENG];
116: double given, target, ratio, fmted_target, target_u, target_l, scale=1.0;
117: double delta;
118:
119: type = p->ans_type;
120: correct = p->answer;
121: tol_type = p->tol_type;
122: tol = p->tolerance;
123: sig_l = p->sig_lbound;
124: sig_u = p->sig_ubound;
125: fmt = p->ans_fmt;
126: calc_type = p->calc;
127: unit_str[0]= 0;
128:
129: if( (cnt != p->ans_cnt) ) { return (ANS_CNT_NOT_MATCH); }
130: switch(type) {
131: case ANSWER_IS_INTEGER:
132: case ANSWER_IS_FLOAT:
133: {
134: input_len = strlen(ans);
135: all_alphabet = 1;
136: for(idx=0;idx<input_len;idx++) {
137: if( isdigit(ans[idx]) ) {
138: all_alphabet = 0;
139: }
140: }
141: if( !all_alphabet ) { /* answer string is not all alphabets */
142: outcome = split_num_unit(ans,&n_part,num_str,unit_str);
143: if( outcome > 1 ) { /* with both num and unit parts or only unit part */
144: if( u_p != NULL ) {
145: result = check_correct_unit(unit_str,u_p,&scale);
146: } else { /* what to do when no unit is specified but student entered a
147: unit? */
148: result = UNIT_NOTNEEDED;
149: }
150: } else {
151: if( u_p != NULL ) {
152: result = NO_UNIT;
153: }
154: }
155:
156: idx = 1; ai = p->ans_list;
157: while( (idx<cnt) && ( (result == EXACT_ANS) || (result == APPROX_ANS) ) ) {
158: result = capa_check_ans(ai,answers[idx]);
159: ai = ai->ans_next; idx++;
160: }
161: if(num_answer==2) printf("Answer:->%s [%s,%s] %s, ",p->answer,lower,upper,
162: p->unit_str);
163: else printf("Answer:->%s, ",lower);
164: switch(p->ans_type) {
165: case ANSWER_IS_INTEGER: printf(" INTEGER,");
166: break;
167: case ANSWER_IS_FLOAT:
168: printf(" FLOAT format=%s, SIG=[%d,%d],",
169: p->ans_fmt,p->sig_lbound,p->sig_ubound );
170: break;
171: case ANSWER_IS_STRING_CI: printf(" STRING C.I.,"); break;
172: case ANSWER_IS_STRING_CS: printf(" STRING C.S.,"); break;
173: case ANSWER_IS_CHOICE: printf(" CHOICE,"); break;
174: }
175: printf(" WEIGHT=%d, TRIES=%d\n", p->weight,p->tries); fflush(stdout);
176: if(p->ans_unit != NULL) {
177: print_unit_t(p->ans_unit); fflush(stdout);
178: }
FreeBSD-CVSweb <freebsd-cvsweb@FreeBSD.org>
![[BACK]](/icons/back.gif){kind=icon}
Return to checkunits.c CVS log ![[TXT]](/icons/text.gif){kind=icon}
![[DIR]](/icons/dir.gif){kind=icon}
Up to [LON-CAPA] / capa / capa51 / pProj