0010-bc.sh (849B)
1 #!/bin/sh 2 3 tmp=$$.tmp 4 5 trap 'rm -f $tmp' EXIT 6 trap 'exit $?' HUP INT TERM 7 8 cat <<EOF >$tmp 9 a(0)=0 10 a(1)=.78539816339744830961 11 a(2)=1.10714871779409050301 12 a(0.9)=.73281510178650659163 13 a(-0.9)=-.73281510178650659163 14 s(0)=0 15 s(a(1))=.70710678118654752439 16 s(4*a(1))=.00000000000000000002 17 s(0.2)=.19866933079506121545 18 c(0.2 + 4*a(1))=-.98006657784124163112 19 l(2.7182818)=.99999998953050228773 20 l(e(2))=1.99999999999999999999 21 j(2,3)=.48609126058589107690 22 EOF 23 24 $EXEC ../bc -p ../dc ../bc.library <<'EOF' 2>&1 | diff -u $tmp - 25 print "a(0)=",a(0) 26 print "a(1)=",a(1) 27 print "a(2)=",a(2) 28 print "a(0.9)=",a(0.9) 29 print "a(-0.9)=",a(-0.9) 30 print "s(0)=",s(0) 31 print "s(a(1))=",s(a(1)) 32 print "s(4*a(1))=",s(4*a(1)) 33 print "s(0.2)=",s(0.2) 34 print "c(0.2 + 4*a(1))=",c(0.2 + 4*a(1)) 35 print "l(2.7182818)=",l(2.7182818) 36 print "l(e(2))=",l(e(2)) 37 print "j(2,3)=",j(2,3) 38 quit 39 EOF