pderosa888/Angular_Distribution
1
0
Fork 0
Code Issues Pull Requests Projects Releases Wiki Activity
Angular_Distribution/Test_Scripts/Racah.cxx
Peter DeRosa d0091637c0 somewhat working
2022-07-12 14:49:48 -04:00

482 lines
7.7 KiB
C++
Raw Blame History

#include "global.h"
//To compile : g++ AD.cxx -o {Input Executable Name} -lX11
//#include "Coeff.h"
using namespace std;
double RACAH(double A[6]){
double Racah = 0.;
double ii[6],ix[6],kk[8];
double nn[4], nx[12],ny[8];
double K1,K2,K3,K4,K5,K6,K7,K8 = 0.;
double NZMIN, NZMAX = .0;
for(int i = 0;i<6;i++){
ii[i] = 2.0*A[i];
}
double IA = ii[0];
double IB = ii[1];
double IC = ii[2];
double ID = ii[3];
double IE = ii[4];
double IF = ii[5];
K1 = IA + IB -IE;
K3 = IC + ID -IE;
K5 = IA + IC -IF;
K7 = IB + ID -IF;
K2 = IE - abs(IA-IB);
K4 = IE - abs(IC-ID);
K6 = IF - abs(IA-IC);
K8 = IF - abs(IB-ID);
double karr[8] = {K1,K2,K3,K4,K5,K6,K7,K8};
double kmn=karr[0];
double kmx=karr[0];
for(int i=0;i<8;i++)
{
if(kmn>karr[i])
{
kmn=karr[i];
}
else if(kmx<karr[i])
{
kmx = karr[i];
}
}
double K0 = kmn;
if(K0 < 0) return 0;
/*
printf("K1 = %lf\n",K1);
printf("K2 = %lf\n",K2);
printf("K3 = %lf\n",K3);
printf("K4 = %lf\n",K4);
printf("K5 = %lf\n",K5);
printf("K6 = %lf\n",K6);
printf("K7 = %lf\n",K7);
printf("K8 = %lf\n",K8);
printf("K0 = %lf\n",K0);
*/
double nkk, n2kk,nkk2 = 0.;
kk[0] = K1;
kk[1] = K2;
kk[2] = K3;
kk[3] = K4;
kk[4] = K5;
kk[5] = K6;
kk[6] = K7;
kk[7] = K8;
for(int i = 0; i < 7; i = i + 2){
nkk = kk[i];
n2kk = kk[i]/2;
nkk2 = n2kk*2.;
if(nkk != nkk2){return 0;}
}
ix[0] = IA;
ix[1] = ID;
ix[2] = IB;
ix[3] = IC;
ix[4] = IF;
ix[5] = IE;
double Lmin = ix[0];
int Kmin = 1;
for( int i = 1; i < 6; i++){
if(ix[i] - Lmin < 0){
Lmin=ix[i];
}
if(ix[i] - Lmin == 0){
Kmin=i;
}
if(ix[i] - Lmin > 0){
break;
}
}
double sgn1 = 1.;
double KQ,IP,IQ,IT = 0.;
if(Kmin == 1){
KQ = 7 - Kmin;
IA = ix[(int)KQ-1];
ID = ix[Kmin+4-1];
IE = ix[Kmin-1];
IF = ix[(int)KQ-4-1];
if(((int)(IA+ID-IE-IF)/2 %2) != 0) {sgn1 = -1.;}
}else if(Kmin == 2){
KQ = 7 - Kmin;
IA = ix[(int)KQ-1];
ID = ix[Kmin+4-1];
IE = ix[Kmin-1];
IF = ix[(int)KQ-4-1];
if(((int)(IA+ID-IE-IF)/2 %2) != 0) {sgn1 = -1.;}
}else if(Kmin == 3){
KQ = 9 - Kmin;
IB = ix[(int)KQ-1];
IC = ix[Kmin+2-1];
IE = ix[Kmin-1];
IF = ix[(int)KQ -2-1];
if(((int)(IB+IC-IE-IF)/2)%2 !=0) {sgn1 = -1.;}
}else if(Kmin == 4){
KQ = 9 - Kmin;
IB = ix[(int)KQ-1];
IC = ix[Kmin+2-1];
IE = ix[Kmin-1];
IF = ix[(int)KQ -2-1];
if(((int)(IB+IC-IE-IF)/2)%2 !=0) {sgn1 = -1.;}
}else if(Kmin == 5){
IE = ix[4];
IF = ix[5];
IB = ix[3];
IC = ix[2];
}else if(Kmin == 6){
}
IP = IA-IB;
IQ = IC-ID;
if(abs(IP) >= abs(IQ)){
if(IP >= 0){
IQ = IC-ID;
double sgn2 = 1.0;
if(((int)(IB+ID-IF)/2 % 2) != 0) { sgn2 = -1.;}
if( IE > 0 ) {
printf("Here 177\n");
printf("ia = %lf\n", IA);
printf("ib = %lf\n", IB);
printf("ic = %lf\n", IC);
printf("id = %lf\n", ID);
printf("ie = %lf\n", IE);
printf("if = %lf\n", IF);
printf("it = %lf\n", IT);
printf("ip = %lf\n", IP);
printf("iq = %lf\n", IQ);
// printf("bi = %lf\n", BI);
nn[0] = (IA+IB+IE)/2 +1;
nn[1] = (IC+ID+IE)/2 +1;
nn[2] = (IA+IC+IF)/2 +1;
nn[3] = (IB+ID+IF)/2 +1;
nx[0] = nn[0] -IE;
nx[1] = nn[0] -IB;
nx[2] = nn[0] -IA;
nx[3] = nn[1] -IE;
nx[4] = nn[1] -ID;
nx[5] = nn[1] -IC;
nx[6] = nn[2] -IF;
nx[7] = nn[2] -IC;
nx[8] = nn[2] -IA;
nx[9] = nn[3] -IF;
nx[10] = nn[3] -ID;
nx[11] = nn[3] -IB;
IP = (IA+IB+IC+ID+4)/2;
IQ = (IE+IF-IA-ID)/2;
IT = (IE+IF-IB-IC)/2;
double a = 1;
double b = -IQ+1;
if(a > b) {
NZMIN = a;
}else{
NZMIN = b;
}
double kzar[3] = {nx[1],nx[4],nx[10]};
double kzmn=kzar[0];
double kzmx=kzar[0];
for(int i=0;i<3;i++)
{
if(kzmn>kzar[i])
{
kzmn=kzar[i];
}
else if(kzmx<kzar[i])
{
kzmx = kzar[i];
}
}
NZMAX = kzmn;
printf("Here 237\n");
printf("IA = %lf\n", IA);
printf("IB = %lf\n", IB);
printf("IC = %lf\n", IC);
printf("ID = %lf\n", ID);
printf("IE = %lf\n", IE);
printf("IF = %lf\n", IF);
printf("IT = %lf\n", IT);
printf("IP = %lf\n", IP);
printf("IQ = %lf\n", IQ);
// printf("BI = %lf\n", BI);
if(NZMAX < NZMIN){return 0;}
double sqlog = 0;
double I1 = 0.;
for(int i = 0; i <4; i++){
I1 = nn[i]+1;
sqlog = sqlog -lgamma(I1);
}
for(int i = 0; i <12; i++){
I1 = nx[i];
sqlog = sqlog - lgamma(I1);
}
sqlog = 0.5*sqlog;
double sss = 0.;
double NZM1 = 0.;
double sslog = 0.;
for(int nz = NZMIN; nz <= NZMAX; nz++){
NZM1 = nz - 1;
ny[0] = IP - NZM1;
ny[1] = nx[0] -NZM1;
ny[2] = nx[3] -NZM1;
ny[3] = nx[6] -NZM1;
ny[4] = nx[9]-NZM1;
ny[5] = nz;
ny[6] = IQ+nz;
ny[7] = IT+nz;
I1 = ny[0];
sslog = sqlog + lgamma(I1);
for(int i = 1; i<8; i++){
I1 = ny[i];
}sslog = sslog - lgamma(I1);
sss = sss + (pow(-1.,NZM1)*exp(sslog));
}
Racah = sgn1*sss;
}else{
double BI = IB;
double DI = ID;
Racah = sgn1*sgn2/sqrt((BI+1.)*(DI+1.));
}
}else{
IT = IB;
IB = IA;
IA = IT;
IT = ID;
ID = IC;
IC = IT;
IP = -IP;
}
}else{
IT = IC;
IC = IA;
IA = IT;
IT = ID;
ID = IB;
IB = IT;
IP = IQ;
if(IP >= 0){
IQ = IC - ID;
}else{
IT = IB;
IB = IA;
IA = IT;
IT = ID;
ID = IC;
IC = IT;
IP = -IP;
}
}
double sgn2 = 1.;
if((int)(IB+ID-IF)/2 %2 != 0) sgn2 = -1.;
if(IE >= 0){
double BI = IB;
double DI = ID;
Racah = sgn1 * sgn2 / sqrt((BI+1.)*(DI+1.));
}else{
printf("Here 340\n");
printf("IA = %lf\n", IA);
printf("IB = %lf\n", IB);
printf("IC = %lf\n", IC);
printf("ID = %lf\n", ID);
printf("IE = %lf\n", IE);
printf("IF = %lf\n", IF);
printf("IT = %lf\n", IT);
printf("IP = %lf\n", IP);
printf("IQ = %lf\n", IQ);
// printf("BI = %lf\n", BI);
nn[0] = (IA+IB+IE)/2 +1;
nn[1] = (IC+ID+IE)/2 +1;
nn[2] = (IA+IC+IF)/2 +1;
nn[3] = (IB+ID+IF)/2 +1;
nx[0] = nn[0] -IE;
nx[1] = nn[0] -IB;
nx[2] = nn[0] -IA;
nx[3] = nn[1] -IE;
nx[4] = nn[1] -ID;
nx[5] = nn[1] -IC;
nx[6] = nn[2] -IF;
nx[7] = nn[2] -IC;
nx[8] = nn[2] -IA;
nx[9] = nn[3] -IF;
nx[10] = nn[3] -ID;
nx[11] = nn[3] -IB;
IP = (IA+IB+IC+ID+4)/2;
IQ = (IE+IF-IA-ID)/2;
IT = (IE+IF-IB-IC)/2;
double a = 1;
double b = -IQ+1;
if(a > b) {
NZMIN = a;
}else{
NZMIN = b;
}
double kzar[3] = {nx[1],nx[4],nx[10]};
double kzmn=kzar[0];
double kzmx=kzar[0];
for(int i=0;i<3;i++)
{
if(kzmn>kzar[i])
{
kzmn=kzar[i];
}
else if(kzmx<kzar[i])
{
kzmx = kzar[i];
}
}
NZMAX = kzmn;
printf("Here 401\n");
printf("IA = %lf\n", IA);
printf("IB = %lf\n", IB);
printf("IC = %lf\n", IC);
printf("ID = %lf\n", ID);
printf("IE = %lf\n", IE);
printf("IF = %lf\n", IF);
printf("IT = %lf\n", IT);
printf("IP = %lf\n", IP);
printf("IQ = %lf\n", IQ);
// printf("BI = %lf\n", BI);
if(NZMAX < NZMIN){return 0;}
double sqlog = 0;
double I1 = 0.;
for(int i = 0; i <4; i++){
I1 = nn[i]+1;
sqlog = sqlog -lgamma(I1);
}
for(int i = 0; i <12; i++){
I1 = nx[i];
sqlog = sqlog - lgamma(I1);
}
sqlog = 0.5*sqlog;
double sss = 0.;
double NZM1 = 0.;
double sslog = 0.;
for(int nz = NZMIN; nz <= NZMAX; nz++){
NZM1 = nz - 1;
ny[0] = IP - NZM1;
ny[1] = nx[0] -NZM1;
ny[2] = nx[3] -NZM1;
ny[3] = nx[6] -NZM1;
ny[4] = nx[9]-NZM1;
ny[5] = nz;
ny[6] = IQ+nz;
ny[7] = IT+nz;
I1 = ny[0];
sslog = sqlog + lgamma(I1);
for(int i = 1; i<8; i++){
I1 = ny[i];
}sslog = sslog - lgamma(I1);
sss = sss + (pow(-1.,NZM1)*exp(sslog));
}
Racah = sgn1*sss;
}
return Racah;
}
int main(int argc, char** argv){
double j1 = 1.;
double j2 = 2.;
double l0abs = abs(j1-j2);
double al0;
if(l0abs > 0) { al0 = l0abs;}
if(l0abs <= 0){ al0 = 1.;}
double al1 = al0 + 1;
double A[6] = {j1,j1,al0,al0,2,j2};
double B[6] = {j1,j1,al0,al0,4,j2};
double RCHA = RACAH(A);
double RCHB = RACAH(B);
printf("Racah A = %lf\n",RCHA);
printf("Racah B = %lf\n",RCHB);
return 0;
}
Reference in New Issue View Git Blame Copy Permalink