1
function [stk,txt,top]=%h2sci()
4
s2=stk(top);s1=stk(top-1);
9
if te2=='2'|te2=='3' then e2='('+e2+')',end
10
if te1=='2'|te1=='3' then e1='('+e1+')',end
12
if s1(3)=='1'&s1(4)=='1' then
13
stk=list(e1+'&'+e2,'2',s2(3),s2(4),s1(5))
14
elseif s2(3)=='1'&s2(4)=='1' then
15
stk=list(e1+'&'+e2,'2',s1(3),s1(4),s1(5))
17
stk=list(e1+'&'+e2,'2',s1(3),s1(4),s1(5))