WorkingPrecision-problem

*To*: mathgroup at yoda.physics.unc.edu*Subject*: WorkingPrecision-problem*From*: bfypk at phoenix.oulu.fi (Petteri Kettunen)*Date*: Wed, 22 Sep 1993 14:51:25 -0100 (GMT-2:00)

Dear group, I define a function and parameters of given values as follows; b=4.472135955/100; w=2 Pi 7*10^7; t=0.00000001428571; rho=0; p[v_,theta_]:=N[ NIntegrate[(b*Cos[w*x+rho]- (b*10^(v/20))*Cos[w*x + theta])^2,{x,0,t}]/t] and then I try to evaluate a simple matrix of function p, and problems occur; Table[p[v,t], {v, 0.01, 0.1,0.01}, {t, 0.00175, 0.0175,0.00175}] NIntegrate::slwcon: Numerical integration converging too slowly; suspect one of the following: singularity, oscillatory integrand, or insufficient WorkingPrecision. NIntegrate::slwcon: Numerical integration converging too slowly; suspect one of the following: singularity, oscillatory integrand, or insufficient WorkingPrecision. How should I redefine the WorkingPrecision option, that I could try if it helps. Or does anyone notice if something else is fatally wrong in my definitions. Thanks, Petteri ----------------------------- Petteri Kettunen Univ. Of Oulu Dept. of Biophysics e-mail: bfypk at phoenix.oulu.fi -----------------------------