【文章內(nèi)容簡介】 getMed(a), mb = getMed(b)。 HIGH r, tmpHigh, cmp, someZero, theone。 initNum(amp。r)。 initNum(amp。theone)。 17 if([0] == [0]) 。 else [0] = 1。 [0] = 0。 [0] = 0。 for(i = ma mb + 1。 i 0。 i) { initNum(amp。tmpHigh)。 copyint(a, amp。tmpHigh, i, ma)。 initNum(amp。cmp)。 for(j = 0。 !_isbig(cmp, tmpHigh)。 j++) { cmp = inc(cmp, b)。 } [1] = j。 if(_isbig(mul(theone, b), tmpHigh)) j。 [i] = j。 initNum(amp。someZero)。 [i] = j。 someZero = mul(someZero, b)。 a = dec(a, someZero)。 } return r。 } 高精度取模的實(shí)現(xiàn) MOD 函數(shù)介紹： 函數(shù)功能： 在 FreeMat、 MATLAB 中，該函數(shù)用于進(jìn)行取模（取余）運(yùn)算。在 matlab 的命令窗口中輸入 help mod 或者 doc mod 可以獲得該函數(shù)的幫助信息。 HIGH mod(HIGH a, HIGH b) //高精度取模 { int i, j。 HIGH tmpans。 tmpans = div(a, b)。 return dec(a, mul(tmpans, b))。 進(jìn)制間的轉(zhuǎn)換（先得到十六進(jìn)制，再轉(zhuǎn)換成相應(yīng)進(jìn)制） { 18 if(a == 10) return A。 else if(a == 11) return B。 else if(a == 12) return C。 else if(a == 13) return D。 else if(a == 14) return E。 else if(a == 15) return F。 } int getHex(HIGH a) //十六進(jìn)制取余 { if([2] == 0) return [1]。 else return [2] * 10 + [1]。 } 轉(zhuǎn)化為十六進(jìn)制 HIGH hex(HIGH a) //轉(zhuǎn)化十六進(jìn)制 { int i = 0, j。 HIGH zero, r, sixteen。 initNum(amp。zero)。 initNum(amp。r)。 initNum(amp。sixteen)。 [1] = 6。 [2] = 1。 if([0] == 1) { initNum(amp。r)。 Application MessageBox(不能為負(fù)數(shù)！ , 錯誤 , MB_OKCANCEL)。 nowSym = 39。N39。 _lastKey = key_num。 lastSym = 39。N39。 nowShow = zero。 return r。 } while(_isbig(a, zero)) { 19 i++。 [i] = getHex(mod(a, sixteen))。 a = div(a, sixteen)。 if(getMed(r) MAXSHOW) { initNum(amp。r)。 Application MessageBox(數(shù)字太大！ , 錯誤 , MB_OKCANCEL)。 nowShow = zero。 nowSym = 39。N39。 _lastKey = key_num。 lastSym = 39。N39。 return r。 } } return r。 } 轉(zhuǎn)化為八進(jìn)制 HIGH bajinzhi(HIGH a) //轉(zhuǎn)化八進(jìn)制 { int i = 0, j。 HIGH zero, r, eight。 initNum(amp。zero)。 initNum(amp。r)。 initNum(amp。eight)。 [1] = 8。 if([0] == 1) { initNum(amp。r)。 Application MessageBox(不能為負(fù)數(shù)！ , 錯誤 , MB_OKCANCEL)。 nowSym = 39。N39。 _lastKey = key_num。 lastSym = 39。N39。 nowShow = zero。 return r。 } while(_isbig(a, zero)) { i++。 [i] = mod(a, eight).num[1]。 20 a = div(a, eight)。 if(getMed(r) MAXSHOW) { initNum(amp。r)。 Application MessageBox(數(shù)字太大！ , 錯誤 , MB_OKCANCEL)。 nowShow = zero。 nowSym = 39。N39。 _lastKey = key_num。 lastSym = 39。N39。 return r。 } } return r。 } 轉(zhuǎn)化為二進(jìn)制 HIGH bin(HIGH a) //轉(zhuǎn)化二進(jìn)制 { int i = 0, j。 HIGH zero, r, two。 initNum(amp。zero)。 initNum(amp。r)。 initNum(amp。two)。 [1] = 2。 if([0] == 1) { initNum(amp。r)。 Application MessageBox(不能為負(fù)數(shù)！ , 錯誤 , MB_OKCANCEL)。 nowShow = zero。 nowSym = 39。N39。 _lastKey = key_num。 lastSym = 39。N39。 return r。 } while(_isbig(a, zero)) { i++。 [i] = [1] % 2。 a = div(a, two)。 21 if(getMed(r) MAXSHOW) { initNum(amp。r)。 Application MessageBox(數(shù)字太大！ , 錯誤 , MB_OKCANCEL)。 nowShow = zero。 nowSym = 39。N39。 _lastKey = key_num。 lastSym = 39。N39。 return r。 } } return r。 } HIGH binToshi(HIGH a) { int i, med = getMed(a)。 HIGH r, tmp, the1, tmp2, two, thetwo。 initNum(amp。tmp)。 initNum(amp。tmp2)。 initNum(amp。the1)。 initNum(amp。thetwo)。 initNum(amp。two)。 [1] = 1。 [1] = 2。 [1] = 1。 initNum(amp。r)。 for(i = 1。 i = med。 i++, tmp = inc(tmp, the1)) { [1] = [i]。 r = inc(r, mul(tmp2, two))。 two = mul(two, thetwo)。 } return r。 } 與運(yùn)算的實(shí)現(xiàn) AND 函數(shù)介紹： 用于對兩個表達(dá)式進(jìn)行邏輯與運(yùn)算 [1]。 與運(yùn)算 ,二進(jìn)制運(yùn)算．可逆運(yùn)算． 1 and 1=1,1 and 0=0,0 and 0=0， 0 and 1=0. 22 a and b 的運(yùn)算方法：將 a和 b轉(zhuǎn)換成 2進(jìn)制后 ,一位一位地去比較 ,兩個數(shù)位上只相同 ,那么就是 1,否則為 . HIGH and(HIGH a, HIGH b) //與 { HIGH tmpa, tmpb, r。 int med, meda, medb, i。 initNum(amp。r)。 tmpa = bin(a)。 tmpb = bin(b)。 meda = getMed(tmpa)。 medb = getMed(tmpb)。 med = (meda medb) ? meda : medb。 for(i = 1。 i = med。 i++) [i] = [i] amp。 [i]。 r = binToshi(r)。 return r。 } 異或運(yùn)算的實(shí)現(xiàn) XOR 函數(shù)介紹： Visual Basic 中式一種邏輯運(yùn)算符，用來連接兩個或多個關(guān)系式，組成一個 布爾表達(dá)式 。其運(yùn)算方法是：如果兩個表達(dá)式同時為 True 或同時為 False，則結(jié)果為 False；否則為 True。 HIGH xor(HIGH a, HIGH b) //異或 { HIGH tmpa, tmpb, r。 int med, meda, medb, i。 initNum(amp。r)。 tmpa = bin(a)。 tmpb = bin(b)。 meda = getMed(tmpa)。 medb = getMed(tmpb)。 med = (meda medb) ? meda : medb。 23 for(i = 1。 i = med。 i++) [i] = [i] ^ [i]。 r = binToshi(r)。 return r。 } void doAns(HIGH *ans, HIGH actNum, char *nowSym, char newSym, char lastSym, bool lastKey) { HIGH the1, zero, tmp。 initNum(amp。the1)。 [1] = 1。 if(lastKey == key_sym) { if(newSym == 39。N39。) { //if(*nowSym != 39。N39。) doAns(ans, *ans, nowSym, 39。N39。, lastSym, ke