Displaying 2 results from an estimated 2 matches for "surfacewithdiff".
2008 Sep 16
0
FW: odesolve dynload example
...R Gurus,
> This is my first foray into using c-code with R, so ...
> I had a look at the archives and did not find anything on this, so
> hopefully I am not doubling up.
>
I have previously used the following approach where I needed some very
small numbers/large (using Brobdingnag):
surfacewithdiff <- function(t, y, p)
{
const=p["const"]
kay =p["kay"]
psii=p["psii"]
m1=p["m1"]
m2=p["m2"]
M=p["M"]
N=p["N"]
T=p["T"]
bexp<-as.brob((const*(psii-m1*y[1]-m2*M/N))/T)
yd1&l...
2008 Sep 16
0
lsoda( linking to GMP for big numbers from C code)
Hi R used with C-code experts,
I had a look at the archives and did not find anything on this, so
hopefully I am not doubling up.
I have previously used the following approach where I needed some very
small/large numbers (using Brobdingnag):
surfacewithdiff <- function(t, y, p)
{
const=p["const"]
kay =p["kay"]
psii=p["psii"]
m1=p["m1"]
m2=p["m2"]
M=p["M"]
N=p["N"]
T=p["T"]
bexp<-as.brob((const*(psii-m1*y[1]-m2*M/N))/T)
yd1&l...