<SCRipT language=javascript> <!-- var endNumber=true var mem=0 var carry=10 var hexnum="0123456789abcdef" var angle="d" var stack="" var level="0" var layer=0
function changeSign() { if (document.calc.display.value!="0") if(document.calc.display.value.substr(0,1) == "-") document.calc.display.value = document.calc.display.value.substr(1) else document.calc.display.value = "-" + document.calc.display.value }
//函数键
function inputfunction(fun,shiftfun) { endNumber=true if (document.calc.shiftf.checked) document.calc.display.value=decto(funcalc(shiftfun,(todec(document.calc.display.value,carry))),carry) else document.calc.display.value=decto(funcalc(fun,(todec(document.calc.display.value,carry))),carry) document.calc.shiftf.checked=false document.calc.hypf.checked=false inputshift() }
function inputtrig(trig,arctrig,hyp,archyp) { if (document.calc.hypf.checked) inputfunction(hyp,archyp) else inputfunction(trig,arctrig) }
//运算符
function Operation(join,newlevel) { endNumber=true var temp=stack.substr(stack.lastIndexOf("(")+1)+document.calc.display.value while (newlevel!=0 && (newlevel<=(level.charAt(level.length-1)))) { temp=parse(temp) level=level.slice(0,-1) } if (temp.match(/^(.*d[+-*//%^&x])?([+-]?[0-9a-f.]+)$/)) document.calc.display.value=RegEXP.$2 stack=stack.substr(0,stack.lastIndexOf("(")+1)+temp+join document.calc.operator.value=" "+join+" " level=level+newlevel
}
//括号
function addbracket() { endNumber=true document.calc.display.value=0 stack=stack+"(" document.calc.operator.value=" " level=level+0
layer+=1 document.calc.bracket.value="(="+layer }
function disbracket() { endNumber=true var temp=stack.substr(stack.lastIndexOf("(")+1)+document.calc.display.value while ((level.charAt(level.length-1))>0) { temp=parse(temp) level=level.slice(0,-1) }
layer-=1 if (layer>0) document.calc.bracket.value="(="+layer else document.calc.bracket.value="" }
//等号
function result() { endNumber=true while (layer>0) disbracket() var temp=stack+document.calc.display.value while ((level.charAt(level.length-1))>0) { temp=parse(temp) level=level.slice(0,-1) }
function clearmemory() { mem=0 document.calc.memory.value=" " }
function getmemory() { endNumber=true document.calc.display.value=decto(mem,carry) }
function putmemory() { endNumber=true if (document.calc.display.value!=0) { mem=todec(document.calc.display.value,carry) document.calc.memory.value=" M " } else document.calc.memory.value=" " }
function addmemory() { endNumber=true mem=parseFloat(mem)+parseFloat(todec(document.calc.display.value,carry)) if (mem==0) document.calc.memory.value=" " else document.calc.memory.value=" M " }
function multimemory() { endNumber=true mem=parseFloat(mem)*parseFloat(todec(document.calc.display.value,carry)) if (mem==0) document.calc.memory.value=" " else document.calc.memory.value=" M " }
//十进制转换
function todec(num,oldcarry) { if (oldcarry==10 num==0) return(num) var neg=(num.charAt(0)=="-") if (neg) num=num.substr(1) var newnum=0 for (var index=1;index<=num.length;index++) newnum=newnum*oldcarry+hexnum.indexOf(num.charAt(index-1)) if (neg) newnum=-newnum return(newnum) }
function decto(num,newcarry) { var neg=(num<0) if (newcarry==10 num==0) return(num) num=""+Math.abs(num) var newnum="" while (num!=0) { newnum=hexnum.charAt(num%newcarry)+newnum num=Math.floor(num/newcarry) } if (neg) newnum="-"+newnum return(newnum) }
//表达式解析
function parse(string) { if (string.match(/^(.*d[+-*//%^&x<])?([+-]?[0-9a-f.]+)([+-*//%^&x<])([+-]?[0-9a-f.]+)$/)) return(RegExp.$1+cypher(RegExp.$2,RegExp.$3,RegExp.$4)) else return(string) }
//数学运算和位运算
function cypher(left,join,right) { left=todec(left,carry) right=todec(right,carry) if (join=="+") return(decto(parseFloat(left)+parseFloat(right),carry)) if (join=="-") return(decto(left-right,carry)) if (join=="*") return(decto(left*right,carry)) if (join=="/" && right!=0) return(decto(left/right,carry)) if (join=="%") return(decto(left%right,carry)) if (join=="&") return(decto(left&right,carry)) if (join=="") return(decto(leftright,carry)) if (join=="^") return(decto(Math.pow(left,right),carry)) if (join=="x") return(decto(left^right,carry)) if (join=="<") return(decto(left<<right,carry)) alert("除数不能为零") return(left) }
//函数计算
function funcalc(fun,num) { with(Math) { if (fun=="pi") return(PI) if (fun=="e") return(E)
if (fun=="abs") return(abs(num)) if (fun=="ceil") return(ceil(num)) if (fun=="round") return(round(num))
if (fun=="floor") return(floor(num)) if (fun=="deci") return(num-floor(num))
if (fun=="ln" && num>0) return(log(num)) if (fun=="exp") return(exp(num)) if (fun=="log" && num>0) return(log(num)*LOG10E) if (fun=="expdec") return(pow(10,num))
if (fun=="cube") return(num*num*num) if (fun=="cubt") return(pow(num,1/3)) if (fun=="sqr") return(num*num) if (fun=="sqrt" && num>=0) return(sqrt(num))
if (fun=="!") return(factorial(num))
if (fun=="recip" && num!=0) return(1/num)
if (fun=="dms") return(dms(num)) if (fun=="deg") return(deg(num))
if (fun=="~") return(~num)
if (angle=="d") { if (fun=="sin") return(sin(degressToRadians(num))) if (fun=="cos") return(cos(degressToRadians(num))) if (fun=="tan") return(tan(degressToRadians(num)))
if (fun=="arcsin" && abs(num)<=1) return(radiansToDegress(asin(num))) if (fun=="arccos" && abs(num)<=1) return(radiansToDegress(acos(num))) if (fun=="arctan") return(radiansToDegress(atan(num))) } else { if (fun=="sin") return(sin(num)) if (fun=="cos") return(cos(num)) if (fun=="tan") return(tan(num))
if (fun=="arcsin" && abs(num)<=1) return(asin(num)) if (fun=="arccos" && abs(num)<=1) return(acos(num)) if (fun=="arctan") return(atan(num)) }
if (fun=="hypsin") return((exp(num)-exp(0-num))*0.5) if (fun=="hypcos") return((exp(num)+exp(-num))*0.5) if (fun=="hyptan") return((exp(num)-exp(-num))/(exp(num)+exp(-num)))
if (fun=="ahypsin" fun=="hypcos" fun=="hyptan") { alert("对不起,公式还没有查到!") return(num) }
alert("超出函数定义范围") return(num) } }
function factorial(n) { n=Math.abs(parseInt(n)) var fac=1 for (;n>0;n-=1) fac*=n return(fac) }
function dms(n) { var neg=(n<0) with(Math) { n=abs(n) var d=floor(n) var m=floor(60*(n-d)) var s=(n-d)*60-m } var dms=d+m/100+s*0.006 if (neg) dms=-dms return(dms) }
function deg(n) { var neg=(n<0) with(Math) { n=abs(n) var d=floor(n) var m=floor((n-d)*100) var s=(n-d)*100-m } var deg=d+m/60+s/36 if (neg) deg=-deg return(deg) }
function degressToRadians(degress) { return(degress*Math.PI/180) }
function radiansToDegress(radians) { return(radians*180/Math.PI) }
