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