0010-bc.sh - sbase - suckless unix tools
  HTML git clone git://git.suckless.org/sbase
   DIR Log
   DIR Files
   DIR Refs
   DIR README
   DIR LICENSE
       ---
       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