- Mark as New
- Bookmark
- Subscribe
- Mute
- Subscribe to RSS Feed
- Permalink
- Email to a Friend
- Report Inappropriate Content

Link Copied

3 Replies

- Mark as New
- Bookmark
- Subscribe
- Mute
- Subscribe to RSS Feed
- Permalink
- Email to a Friend
- Report Inappropriate Content

There are scores of special functions that are not provided as standard intrinsic functions in Fortran or other programming languages. It is up to you to find a library such as IMSL, or source code from places such as the Netlib collection (the function you want is probably DGAMI).

- Mark as New
- Bookmark
- Subscribe
- Mute
- Subscribe to RSS Feed
- Permalink
- Email to a Friend
- Report Inappropriate Content

[bash]public double IncGammaLow(double x,double a){ double sum = 0; double result = 0; if(x < 0.0f){ throw new IllegalArgumentException("arg x must be greater than 0 t" + x); }else if( a < 0.0f || a == 0.0f || a < 1.0f){ throw new IllegalArgumentException("arg a must be not less than 1.0 t" + a); }else{ double exp,gamma_arg,gamma,nom,denom,power,gamma2; long k; int i,j; double[]array = new double[32]; double run_value; k = -1; run_value = 0; for(i = 0;i

- Mark as New
- Bookmark
- Subscribe
- Mute
- Subscribe to RSS Feed
- Permalink
- Email to a Friend
- Report Inappropriate Content

http://www.cmis.csiro.au/Alan_Miller/index.html

Just look up for the cincgam.f90 code.

Topic Options

- Subscribe to RSS Feed
- Mark Topic as New
- Mark Topic as Read
- Float this Topic for Current User
- Bookmark
- Subscribe
- Printer Friendly Page