Changeset 761
 Timestamp:
 Oct 27, 2010 9:56:09 AM (12 years ago)
 Location:
 sans/XOP_Dev/SANSAnalysis/lib
 Files:

 3 edited
Legend:
 Unmodified
 Added
 Removed

sans/XOP_Dev/SANSAnalysis/lib/2Y_OneYukawa.c
r760 r761 286 286 287 287 // loop over all remaining roots 288 min = INFINITY;288 min = 1e99; 289 289 selected_root=0; 290 290 
sans/XOP_Dev/SANSAnalysis/lib/2Y_PairCorrelation.c
r760 r761 114 114 int n,error,k; 115 115 double alpha,real,imag; 116 double Pi = 3.14159265358979323846264338327950288; /* pi */ 117 116 118 117 119 for ( n = 0; n < N; n++ ) { … … 131 133 if ( error == 1 ) 132 134 { 133 alpha = N * pow( dq, 3 ) / ( 24 * M_PI * M_PI* phi );135 alpha = N * pow( dq, 3 ) / ( 24 * Pi * Pi * phi ); 134 136 135 *dr = 2 * M_PI/ ( N * dq );137 *dr = 2 * Pi / ( N * dq ); 136 138 for ( k = 0; k < N; k++ ) 137 139 { 
sans/XOP_Dev/SANSAnalysis/lib/2Y_TwoYukawa.c
r760 r761 926 926 double dr,qmax,q,dq,min,sum; 927 927 double *sq,*gr; 928 double Pi = 3.14159265358979323846264338327950288; /* pi */ 928 929 929 930 … … 1031 1032 // the maximum q value should be large enough 1032 1033 // to enable a reasoble approximation of g(r) 1033 qmax = 16 * 10 * 2 * M_PI;1034 qmax = 16 * 10 * 2 * Pi; 1034 1035 dq = qmax / ( n  1 ); 1035 1036 … … 1042 1043 1043 1044 // loop over all remaining roots 1044 min = INFINITY;1045 min = 1e99; 1045 1046 selected_root = 10; 1046 1047 sum = 0;
Note: See TracChangeset
for help on using the changeset viewer.