1    |\^/|     Maple V Release 5.1 (University of Utah)
2._|\|   |/|_. Copyright (c) 1981-1998 by Waterloo Maple Inc. All rights
3 \  MAPLE  /  reserved. Maple and Maple V are registered trademarks of
4 <____ ____>  Waterloo Maple Inc.
5      |       Type ? for help.
6## /u/sy/beebe/jim-ball/toms/quadpack/main2.maple, Wed Jan 26 08:01:37 2000
7## Edit by Nelson H. F. Beebe <beebe@math.utah.edu>
8>
9## Suppress "bytes used ..." and other status messages
10> interface(quiet = true);
11### Numerical integration with Maple V5.1
12###
13### int(sin(x) * x^alpha * exp(-x) * ln(x), x = 0..infinity))
14### Digits := 50:
15### for alpha from 0 by 0.5 to 100
16### do
17###     printf("%d\t%.1f\t%d\t%60.50e\n",
18### 	1,
19### 	alpha,
20### 	0,
21### 	evalf(int(sin(x) * x^alpha * exp(-x) * ln(x), x = 0..infinity)));
22### od;
231	0.0	0	   -6.91955458920286028497336524958074970153085266381400e-02
241	.5	0	    7.41895901555803484134147479350945924075180117839000e-03
251	1.0	0	    3.81053724092472423424359245942546424600452984399700e-02
261	1.5	0	    1.61420869583317427891530717624170848868014933501800e-02
271	2.0	0	   -1.04593709289476912465394498315683218064600876481920e-01
281	2.5	0	   -4.30865150235775768384788967653055154891253883965480e-01
291	3.0	0	   -1.17809724509617246442349126872981358157393852476570e+00
301	3.5	0	   -2.74966469716760128648259320760412593677663674038960e+00
311	4.0	0	   -5.83482672464782838290159808502515501790814884017110e+00
32