search for: cosh

...n: 2.0.1 OS: Windows 2000 Submission from: (NULL) (65.246.187.164) When the imaginary part of the argument is very large, the complex tangent function returns 0+NaNi. For example, tan(1+1000i)=0+NaNi; it should be 0+1i Easy to fix in complex.c, as the original NaN came from division of sinh and cosh that had reached machine infinity. static void z_tan(Rcomplex *r, Rcomplex *z) { double x2, y2, den; x2 = 2.0 * z->r; y2 = 2.0 * z->i; den = cos(x2) + cosh(y2); r->r = sin(x2)/den; /* any limit above about log(DBL_EPSILON) will do */ if (fabs(r->i) < 40....

I want to integrate the function (sin^7*x)*(cos^8*x)dx. I do not have values to integrate between. I just want R to give me the integral of the function. For example R takes the derivative of the function by d1=D(expression(x^2*(cosh*(x^3))), "x"). Is there a similar function available in R to find the integral? Thanks, Kim

..."==" ">" ">=" [15] "Arg" "Conj" "Im" "Mod" "Re" "^" "abs" [22] "acos" "acosh" "all" "any" "as.character" "as.complex" "as.double" [29] "as.integer" "as.logical" "as.numeric" "as.raw" "as.real" "asin" "...

...switch(.Generic, abs = brob(x at x), log = { out <- x at x out[!x at positive] <- NaN out }, acos =, acosh =, asin =, asinh =, atan =, atanh =, ceiling=, cos =, cosh =, cumsum =, exp =, floor...

Hello, Is there a function in r to find the best fitting model for a set of data? I would like to know if my data are related exponentially,linearly or if there is a logarithmic correlation between my x and y values. To get a better imagination I've added the graphics at the end of this mail as an attachment. Thanks, Ben --

...# test function, the result is pi for y=1 f <- function(x, y) { res <- 1 / (sqrt(x)*(1+x)) c(res, res/2, 2*res) } ## Transformation rule from Numerical Recipes ## to deal with the [0, infty) range of x mixedrule <- function(x, y, f, ...) { t <- exp(pi*sinh(x)) dtdx <- t*(pi*cosh(x)) f(t, y, ...)*dtdx } vAverage(mixedrule, -4, 4, 0.0, 1, 20, f) - c(pi, pi/2, 2*pi) ## -3.535056e-06 -1.767528e-06 -7.070112e-06 So it seems to work. I wonder though if I may have missed an easier (and more reliable) way to perform such integration using base functions or an add-on package...

...expansion to lib calls for these node types for targets that don't support them... I'm sure someone who understands the LLVM internals a bit better than me can add that in no time ;) I also noticed that the DoesntAccessMemoryTable in BasicAliasAnalysis.cpp includes "sinh", "cosh" and friends -- as far as I know, these can actually set errno so they should not be in the table... Here is the patch, hope to see it applied soon! m. -------------- next part -------------- An embedded and charset-unspecified text was scrubbed... Name: fpinst.patch URL: <http://lists.l...

...can make the extension functions available on a per db connection basis like this: library("RSQLite.extfuns") db <- dbConnect(SQLite(), dbname = ":memory:") init_extensions(db) The extension functions provided by the package include: Math: acos, asin, atan, atn2, atan2, acosh, asinh, atanh, difference, degrees, radians, cos, sin, tan, cot, cosh, sinh, tanh, coth, exp, log, log10, power, sign, sqrt, square, ceil, floor, pi. String: replicate, charindex, leftstr, rightstr, ltrim, rtrim, trim, replace, reverse, proper, padl, padr, padc, strfilter. Aggregate: stdev, varia...

...can make the extension functions available on a per db connection basis like this: library("RSQLite.extfuns") db <- dbConnect(SQLite(), dbname = ":memory:") init_extensions(db) The extension functions provided by the package include: Math: acos, asin, atan, atn2, atan2, acosh, asinh, atanh, difference, degrees, radians, cos, sin, tan, cot, cosh, sinh, tanh, coth, exp, log, log10, power, sign, sqrt, square, ceil, floor, pi. String: replicate, charindex, leftstr, rightstr, ltrim, rtrim, trim, replace, reverse, proper, padl, padr, padc, strfilter. Aggregate: stdev, varia...

...4. Allow for gpuR object - base object interaction (e.g. vclMatrix * matrix) 5. Added ?inplace' function for ?inplace' operations. These operations include '+', '-', '*', '/', 'sin', 'asin', 'sinh', 'cos', 'acos', 'cosh', 'tan', 'atan', 'tanh'. 6. Added 'sqrt', 'sum', 'sign','pmin', and 'pmax' functions 7. Methods to pass two gpuR matrix objects to 'cov' 8. Added 'norm' method 9. Added gpuRmatrix/gpuRvector Arith '+',...

Full_Name: Joerg Polzehl Version: 2.3.1 OS: x86_64, linux-gnu Submission from: (NULL) (62.141.176.22) I observed an incorrect behavior of function deriv when evaluating arguments of dnorm deriv(~dnorm(z,0,s),"z") expression({ .value <- dnorm(z, 0, s) .grad <- array(0, c(length(.value), 1), list(NULL, c("z"))) .grad[, "z"] <- -(z * dnorm(z))

Hi, Am i doing something silly here in expecting Euler's formula to be handled by exp? exp( ix ) = cos x + i sin x. The first example below follows this, the others not. Thanks for the education! > exp( complex(real = 0, imag = 2*pi) ) [1] 1-0i > exp( complex(real = pi, imag = 2*pi) ) [1] 23.14069-0i > exp( complex(real = pi/2, imag = 0) ) [1] 4.810477+0i [[alternative HTML

...|' testing S3 generic '+' testing S3 generic '<' testing S3 generic '<=' testing S3 generic '==' testing S3 generic '>' testing S3 generic '>=' testing S3 generic 'abs' testing S3 generic 'acos' testing S3 generic 'acosh' testing S3 generic 'all' testing S3 generic 'any' testing S3 generic 'Arg' testing S3 generic 'as.character' testing S3 generic 'as.complex' testing S3 generic 'as.double' testing S3 generic 'as.environment' testing S3 generic 'as.int...

Hello, I am struggling for some time now to estimate AR(1) process for commodity price time series. I did it in STATA but cannot get a result in R. The equation I want to estimate is: p(t)=a+b*p(t-1)+error Using STATA I get 0.92 for a, and 0.73 for b. Code that I use in R is: p<-matrix(data$p) # price at time t lp<-cbind(1,data$lp) # price at time t-1

Hi, I'm trying to write a method such that my own classes can be used with the groups like "Summary" and "Math", but when I tried to look for examples or just wanted to get an idea of which functions are the members of a group, I found out that the function "getGroupMembers" is not present... I couldn't find an alternative function, if there is one. Does

...long double cos(long double)': ../projects/libcxx/include/math.h:820:90: error: '::cosl' has not been declared inline _LIBCPP_INLINE_VISIBILITY long double cos(long double __lcpp_x) _NOEXCEPT {return ::cosl(__lcpp_x);} ^~ ../projects/libcxx/include/math.h: In function 'long double cosh(long double)': ../projects/libcxx/include/math.h:832:91: error: '::coshl' has not been declared inline _LIBCPP_INLINE_VISIBILITY long double cosh(long double __lcpp_x) _NOEXCEPT {return ::coshl(__lcpp_x);} ^~ ../projects/libcxx/include/math.h: In function 'long double exp(long dou...

...e generator. For #3, just add the llvm intrinsics. For #4, implement it or find someone to do it :) Please lemme know if you have any questions, thanks for the patches! -Chris > I also noticed that the DoesntAccessMemoryTable in BasicAliasAnalysis.cpp > includes "sinh", "cosh" and friends -- as far as I know, these can actually > set errno so they should not be in the table... You're right, I should not believe man pages. Fixed, thanks! -Chris -- http://nondot.org/sabre/ http://llvm.cs.uiuc.edu/

...not been declared > inline _LIBCPP_INLINE_VISIBILITY long double cos(long double __lcpp_x) _NOEXCEPT {return ::cosl(__lcpp_x);} > ^~ > ../projects/libcxx/include/math.h: In function 'long double cosh(long double)': > ../projects/libcxx/include/math.h:832:91: error: '::coshl' has not been declared > inline _LIBCPP_INLINE_VISIBILITY long double cosh(long double __lcpp_x) _NOEXCEPT {return ::coshl(__lcpp_x);} >...

.../math.h:820:90: error: '::cosl' has not been > declared > > inline _LIBCPP_INLINE_VISIBILITY long double cos(long double __lcpp_x) > _NOEXCEPT {return ::cosl(__lcpp_x);} > > > ^~ > > ../projects/libcxx/include/math.h: In function 'long double cosh(long > double)': > > ../projects/libcxx/include/math.h:832:91: error: '::coshl' has not been > declared > > inline _LIBCPP_INLINE_VISIBILITY long double cosh(long double __lcpp_x) > _NOEXCEPT {return ::coshl(__lcpp_x);} > > > ^~ > >...

...long double cos(long double)': ../projects/libcxx/include/math.h:820:90: error: '::cosl' has not been declared inline _LIBCPP_INLINE_VISIBILITY long double cos(long double __lcpp_x) _NOEXCEPT {return ::cosl(__lcpp_x);} ^~ ../projects/libcxx/include/math.h: In function 'long double cosh(long double)': ../projects/libcxx/include/math.h:832:91: error: '::coshl' has not been declared inline _LIBCPP_INLINE_VISIBILITY long double cosh(long double __lcpp_x) _NOEXCEPT {return ::coshl(__lcpp_x);} ^~ ../projects/libcxx/include/math.h: In function 'long double exp(long dou...