Category : C Source Code
Archive   : RECIPEX.ZIP
Filename : XQUAD3D.C

 
Output of file : XQUAD3D.C contained in archive : RECIPEX.ZIP
/* Driver for routine QUAD3D */

#include
#include
#include "nr.h"

#define PI 3.1415927
#define NVAL 10

static float xmax;

float func(x,y,z)
float x,y,z;
{
return x*x+y*y+z*z;
}

float z1(x,y)
float x,y;
{
return (float) -sqrt(xmax*xmax-x*x-y*y);
}

float z2(x,y)
float x,y;
{
return (float) sqrt(xmax*xmax-x*x-y*y);
}

float yy1(x)
float x;
{
return (float) -sqrt(xmax*xmax-x*x);
}

float yy2(x)
float x;
{
return (float) sqrt(xmax*xmax-x*x);
}

main()
{
int i;
float xmin,s;

printf("Integral of r^2 over a spherical volume\n\n");
printf("%13s %10s %11s\n","radius","QUAD3D","Actual");
for (i=1;i<=NVAL;i++) {
xmax=0.1*i;
xmin = -xmax;
s=quad3d(func,xmin,xmax);
printf("%12.2f %12.6f %11.6f\n",
xmax,s,4.0*PI*pow(xmax,5.0)/5.0);
}
}


  3 Responses to “Category : C Source Code
Archive   : RECIPEX.ZIP
Filename : XQUAD3D.C
”

  1. Daniel says:
    January 27, 2013 at 3:59 pm

    Very nice! Thank you for this wonderful archive. I wonder why I found it only now. Long live the BBS file archives!

  2. Joshie says:
    March 18, 2014 at 4:57 pm

    This is so awesome! 😀 I’d be cool if you could download an entire archive of this at once, though.

  3. DiskingRound says:
    January 14, 2015 at 10:57 pm

    But one thing that puzzles me is the “mtswslnkmcjklsdlsbdmMICROSOFT” string. There is an article about it here. It is definitely worth a read: http://www.os2museum.com/wp/mtswslnk/