40 #define SIMPLE_UOP(OPER) \
41 G4ErrorMatrixIter a=m.begin(); \
42 G4ErrorMatrixIter e=m.begin()+num_size(); \
43 for(;a<e; a++) (*a) OPER t;
45 #define SIMPLE_BOP(OPER) \
46 G4ErrorMatrixIter a=m.begin(); \
47 G4ErrorMatrixConstIter b=mat2.m.begin(); \
48 G4ErrorMatrixConstIter e=m.begin()+num_size(); \
49 for(;a<e; a++, b++) (*a) OPER (*b);
51 #define SIMPLE_TOP(OPER) \
52 G4ErrorMatrixConstIter a=mat1.m.begin(); \
53 G4ErrorMatrixConstIter b=mat2.m.begin(); \
54 G4ErrorMatrixIter t=mret.m.begin(); \
55 G4ErrorMatrixConstIter e=mat1.m.begin()+mat1.num_size(); \
56 for( ;a<e; a++, b++, t++) (*t) = (*a) OPER (*b);
58 #define CHK_DIM_2(r1,r2,c1,c2,fun) \
59 if (r1!=r2 || c1!=c2) { \
60 G4ErrorMatrix::error("Range error in Matrix function " #fun "(1)."); \
63 #define CHK_DIM_1(c1,r2,fun) \
65 G4ErrorMatrix::error("Range error in Matrix function " #fun "(2)."); \
71 :
m(p*(p+1)/2), nrow(p)
78 :
m(p*(p+1)/2), nrow(p)
112 :
m(mat1.size), nrow(mat1.nrow), size(mat1.size)
133 for(
G4int icol=1; icol<=irow; icol++)
137 b1 += irow+min_row-1;
152 for(
G4int icol=1; icol<=irow; icol++)
156 b1 += irow+min_row-1;
170 for(
G4int icol=1; icol<=irow; icol++)
202 for(;a<
e; a++, b++) { (*b) = -(*a); }
293 for(mit1=mat1.
m.begin();
305 { temp+=*(sp++)*(*(mit2++)); }
308 for(
int stept=
step+1;stept<=mat2.
num_row();stept++)
310 temp+=*sp*(*(mit2++));
311 if(stept<mat2.
num_row()) sp+=stept;
328 for(step=1,snp=mat1.
m.begin();step<=mat1.
num_row();snp+=step++)
330 for(mit1=mat2.
m.begin();mit1<mat2.
m.begin()+mat2.
num_col();mit1++)
337 temp+=*mit2*(*(sp++));
341 for(stept=step+1;stept<=mat1.
num_row();stept++)
357 G4int step1,stept1,step2,stept2;
361 for(step1=1,snp1=mat1.
m.begin();step1<=mat1.
num_row();snp1+=step1++)
363 for(step2=1,snp2=mat2.
m.begin();step2<=mat2.
num_row();)
371 while(sp1<snp1+step1)
372 { temp+=(*(sp1++))*(*(sp2++)); }
374 for(stept1=step1+1;stept1!=step2+1;sp1+=stept1++)
375 { temp+=(*sp1)*(*(sp2++)); }
377 for(stept2=++step2;stept2<=mat2.
num_row();sp1+=stept1++,sp2+=stept2++)
378 { temp+=(*sp1)*(*sp2); }
383 { temp+=(*(sp1++))*(*(sp2++)); }
385 for(stept2=++step2;stept2!=step1+1;sp2+=stept2++)
386 { temp+=(*(sp1++))*(*sp2); }
388 for(stept1=step1+1;stept1<=mat1.
num_row();sp1+=stept1++,sp2+=stept2++)
389 { temp+=(*sp1)*(*sp2); }
416 if(j!=
k) *mkj += *sjk;
448 if(j!=
k) *mkj -= *sjk;
498 if(j!=
k) *mkj = *sjk;
510 if (&mat1 ==
this) {
return *
this; }
531 if(os.flags() & std::ios::fixed)
533 width = os.precision()+3;
537 width = os.precision()+7;
544 os << q(irow,icol) <<
" ";
559 for(
G4int ic=1;ic<=ir;ic++)
561 *(b++) = (*
f)(*(a++), ir, ic);
599 for(
G4int r=1;
r<=mret.num_row();
r++)
609 tmp+=(*(tempri++))*(*(m1ci++));
626 for(
G4int r=1;
r<=mret.num_row();
r++)
638 tmp+=(*(tempri++))*(*(m1ci++));
642 tmp+=(*(tempri++))*(*(m1ci));
660 for(
G4int r=1;
r<=mret.num_row();
r++)
668 for(
G4int i=1;i<=mat1.num_row();i++)
670 tmp+=(*(tempir))*(*(m1ic));
693 c11 = (*(
m.begin()+2)) * (*(
m.begin()+5))
694 - (*(
m.begin()+4)) * (*(
m.begin()+4));
695 c12 = (*(
m.begin()+4)) * (*(
m.begin()+3))
696 - (*(
m.begin()+1)) * (*(
m.begin()+5));
697 c13 = (*(
m.begin()+1)) * (*(
m.begin()+4))
698 - (*(
m.begin()+2)) * (*(
m.begin()+3));
699 c22 = (*(
m.begin()+5)) * (*
m.begin())
700 - (*(
m.begin()+3)) * (*(
m.begin()+3));
701 c23 = (*(
m.begin()+3)) * (*(
m.begin()+1))
702 - (*(
m.begin()+4)) * (*
m.begin());
703 c33 = (*
m.begin()) * (*(
m.begin()+2))
704 - (*(
m.begin()+1)) * (*(
m.begin()+1));
705 t1 = std::fabs(*
m.begin());
706 t2 = std::fabs(*(
m.begin()+1));
707 t3 = std::fabs(*(
m.begin()+3));
712 temp = *(
m.begin()+3);
713 det = c23*c12-c22*c13;
718 det = c22*c33-c23*c23;
723 temp = *(
m.begin()+3);
724 det = c23*c12-c22*c13;
728 temp = *(
m.begin()+1);
729 det = c13*c23-c12*c33;
751 det = (*
m.begin())*(*(
m.begin()+2)) - (*(
m.begin()+1))*(*(
m.begin()+1));
758 *(
m.begin()+1) *= -ss;
759 temp = ss*(*(
m.begin()+2));
760 *(
m.begin()+2) = ss*(*
m.begin());
771 *
m.begin() = 1.0/(*
m.begin());
800 static const G4int max_array = 20;
804 static std::vector<G4int> ir_vec (max_array+1);
805 if (ir_vec.size() <=
static_cast<unsigned int>(
nrow))
807 ir_vec.resize(
nrow+1);
809 G4int * ir = &ir_vec[0];
814 if(i==0) {
return det; }
822 { t += *(
m.begin() + (i+3)*i/2); }
845 static const G4int max_array = 25;
847 if (!xvec) xvec =
new std::vector<G4double> (max_array) ;
849 if (!pivv) pivv =
new std::vector<G4int> (max_array) ;
850 typedef std::vector<G4int>::iterator pivIter;
851 if (xvec->size() <
static_cast<unsigned int>(
nrow)) xvec->resize(
nrow);
852 if (pivv->size() <
static_cast<unsigned int>(
nrow)) pivv->resize(
nrow);
859 pivIter piv = pivv->begin();
872 for (i = 0; i <
nrow; i++)
883 for (j=1; j <
nrow; j+=ss)
885 mjj =
m.begin() + j*(j-1)/2 + j-1;
888 ip =
m.begin() + (j+1)*j/2 + j-1;
889 for (i=j+1; i <=
nrow ; ip += i++)
891 if (std::fabs(*ip) >
lambda)
893 lambda = std::fabs(*ip);
909 if (std::fabs(*mjj) >= lambda*alpha)
917 ip =
m.begin() + pivrow*(pivrow-1)/2+j-1;
918 for (k=j; k < pivrow; k++)
920 if (std::fabs(*ip) > sigma)
921 sigma = std::fabs(*ip);
924 if (sigma * std::fabs(*mjj) >= alpha * lambda *
lambda)
929 else if (std::fabs(*(
m.begin()+pivrow*(pivrow-1)/2+pivrow-1))
943 temp2 = *mjj = 1./ *mjj;
946 for (i=j+1; i <=
nrow; i++)
948 temp1 = *(
m.begin() + i*(i-1)/2 + j-1) *
temp2;
949 ip =
m.begin()+i*(i-1)/2+j;
950 for (k=j+1; k<=i; k++)
952 *ip -= temp1 * *(
m.begin() + k*(k-1)/2 + j-1);
953 if (std::fabs(*ip) <= epsilon)
959 ip =
m.begin() + (j+1)*j/2 + j-1;
960 for (i=j+1; i <=
nrow; ip += i++)
971 ip =
m.begin() + pivrow*(pivrow-1)/2 + j;
972 for (i=j+1; i < pivrow; i++, ip++)
974 temp1 = *(
m.begin() + i*(i-1)/2 + j-1);
975 *(
m.begin() + i*(i-1)/2 + j-1)= *ip;
979 *mjj = *(
m.begin()+pivrow*(pivrow-1)/2+pivrow-1);
980 *(
m.begin()+pivrow*(pivrow-1)/2+pivrow-1) =
temp1;
981 ip =
m.begin() + (pivrow+1)*pivrow/2 + j-1;
983 for (i = pivrow+1; i <=
nrow; ip += i, iq += i++)
995 temp2 = *mjj = 1./ *mjj;
998 for (i = j+1; i <=
nrow; i++)
1000 temp1 = *(
m.begin() + i*(i-1)/2 + j-1) *
temp2;
1001 ip =
m.begin()+i*(i-1)/2+j;
1002 for (k=j+1; k<=i; k++)
1004 *ip -= temp1 * *(
m.begin() + k*(k-1)/2 + j-1);
1005 if (std::fabs(*ip) <= epsilon)
1011 ip =
m.begin() + (j+1)*j/2 + j-1;
1012 for (i=j+1; i<=
nrow; ip += i++)
1026 ip =
m.begin() + pivrow*(pivrow-1)/2 + j+1;
1027 for (i=j+2; i < pivrow; i++, ip++)
1029 temp1 = *(
m.begin() + i*(i-1)/2 + j);
1030 *(
m.begin() + i*(i-1)/2 + j) = *ip;
1033 temp1 = *(mjj + j + 1);
1035 *(
m.begin() + pivrow*(pivrow-1)/2 + pivrow-1);
1036 *(
m.begin() + pivrow*(pivrow-1)/2 + pivrow-1) =
temp1;
1038 *(mjj + j) = *(
m.begin() + pivrow*(pivrow-1)/2 + j-1);
1039 *(
m.begin() + pivrow*(pivrow-1)/2 + j-1) =
temp1;
1040 ip =
m.begin() + (pivrow+1)*pivrow/2 + j;
1041 iq = ip + pivrow-(j+1);
1042 for (i = pivrow+1; i <=
nrow; ip += i, iq += i++)
1050 temp2 = *mjj * *(mjj + j + 1) - *(mjj + j) * *(mjj + j);
1055 "Error in pivot choice!");
1063 *mjj = *(mjj + j + 1) * temp2;
1064 *(mjj + j + 1) = temp1 * temp2;
1065 *(mjj + j) = - *(mjj + j) *
temp2;
1070 for (i=j+2; i <=
nrow ; i++)
1072 ip =
m.begin() + i*(i-1)/2 + j-1;
1073 temp1 = *ip * *mjj + *(ip + 1) * *(mjj + j);
1074 if (std::fabs(temp1 ) <= epsilon)
1076 temp2 = *ip * *(mjj + j) + *(ip + 1) * *(mjj + j + 1);
1077 if (std::fabs(temp2 ) <=
epsilon)
1079 for (k = j+2; k <= i ; k++)
1081 ip =
m.begin() + i*(i-1)/2 + k-1;
1082 iq =
m.begin() + k*(k-1)/2 + j-1;
1083 *ip -= temp1 * *iq + temp2 * *(iq+1);
1084 if (std::fabs(*ip) <=
epsilon)
1089 for (i=j+2; i <=
nrow ; i++)
1091 ip =
m.begin() + i*(i-1)/2 + j-1;
1092 temp1 = *ip * *mjj + *(ip+1) * *(mjj + j);
1093 if (std::fabs(temp1) <= epsilon)
1095 *(ip+1) = *ip * *(mjj + j) + *(ip+1) * *(mjj + j + 1);
1096 if (std::fabs(*(ip+1)) <= epsilon)
1107 mjj =
m.begin() + j*(j-1)/2 + j-1;
1121 for (j = nrow ; j >= 1 ; j -= ss)
1123 mjj =
m.begin() + j*(j-1)/2 + j-1;
1129 ip =
m.begin() + (j+1)*j/2 + j-1;
1130 for (i=0; i < nrow-j; ip += 1+j+i++)
1134 for (i=j+1; i<=
nrow ; i++)
1137 ip =
m.begin() + i*(i-1)/2 + j;
1138 for (k=0; k <= i-j-1; k++)
1139 { temp2 += *ip++ * x[
k]; }
1140 for (ip += i-1; k < nrow-j; ip += 1+j+k++)
1141 { temp2 += *ip * x[
k]; }
1142 *(
m.begin()+ i*(i-1)/2 + j-1) = -
temp2;
1145 ip =
m.begin() + (j+1)*j/2 + j-1;
1146 for (k=0; k < nrow-j; ip += 1+j+k++)
1147 { temp2 += x[
k] * *ip; }
1156 message <<
"Error in pivot: " << piv[j-1];
1157 G4Exception(
"G4ErrorSymMatrix::invertBunchKaufman()",
1163 ip =
m.begin() + (j+1)*j/2 + j-1;
1164 for (i=0; i < nrow-j; ip += 1+j+i++)
1168 for (i=j+1; i<=
nrow ; i++)
1171 ip =
m.begin() + i*(i-1)/2 + j;
1172 for (k=0; k <= i-j-1; k++)
1173 { temp2 += *ip++ * x[
k]; }
1174 for (ip += i-1; k < nrow-j; ip += 1+j+k++)
1175 { temp2 += *ip * x[
k]; }
1176 *(
m.begin()+ i*(i-1)/2 + j-1) = -
temp2;
1179 ip =
m.begin() + (j+1)*j/2 + j-1;
1180 for (k=0; k < nrow-j; ip += 1+j+k++)
1181 { temp2 += x[
k] * *ip; }
1184 ip =
m.begin() + (j+1)*j/2 + j-2;
1185 for (i=j+1; i <=
nrow; ip += i++)
1186 { temp2 += *ip * *(ip+1); }
1188 ip =
m.begin() + (j+1)*j/2 + j-2;
1189 for (i=0; i < nrow-j; ip += 1+j+i++)
1193 for (i=j+1; i <=
nrow ; i++)
1196 ip =
m.begin() + i*(i-1)/2 + j;
1197 for (k=0; k <= i-j-1; k++)
1198 { temp2 += *ip++ * x[
k]; }
1199 for (ip += i-1; k < nrow-j; ip += 1+j+k++)
1200 { temp2 += *ip * x[
k]; }
1201 *(
m.begin()+ i*(i-1)/2 + j-2)= -
temp2;
1204 ip =
m.begin() + (j+1)*j/2 + j-2;
1205 for (k=0; k < nrow-j; ip += 1+j+k++)
1206 { temp2 += x[
k] * *ip; }
1214 pivrow = (piv[j-1]==0)? -piv[j-2] : piv[j-1];
1215 ip =
m.begin() + pivrow*(pivrow-1)/2 + j;
1216 for (i=j+1;i < pivrow; i++, ip++)
1218 temp1 = *(
m.begin() + i*(i-1)/2 + j-1);
1219 *(
m.begin() + i*(i-1)/2 + j-1) = *ip;
1223 *mjj = *(
m.begin() + pivrow*(pivrow-1)/2 + pivrow-1);
1224 *(
m.begin() + pivrow*(pivrow-1)/2 + pivrow-1) =
temp1;
1228 *(mjj-1) = *(
m.begin() + pivrow*(pivrow-1)/2 + j-2);
1229 *(
m.begin() + pivrow*(pivrow-1)/2 + j-2) =
temp1;
1232 ip =
m.begin() + (pivrow+1)*pivrow/2 + j-1;
1234 for (i = pivrow+1; i <=
nrow; ip += i, iq += i++)
1399 + m[
A12]*Det2_23_01;
1401 + m[
A13]*Det2_23_01;
1403 + m[
A13]*Det2_23_02;
1405 + m[
A13]*Det2_23_12;
1407 + m[
A12]*Det2_24_01;
1409 + m[
A13]*Det2_24_01;
1411 + m[
A14]*Det2_24_01;
1413 + m[
A13]*Det2_24_02;
1415 + m[
A14]*Det2_24_02;
1417 + m[
A13]*Det2_24_12;
1419 + m[
A14]*Det2_24_12;
1421 + m[
A12]*Det2_34_01;
1423 + m[
A13]*Det2_34_01;
1425 + m[
A14]*Det2_34_01;
1427 + m[
A13]*Det2_34_02;
1429 + m[
A14]*Det2_34_02;
1431 + m[
A14]*Det2_34_03;
1433 + m[
A13]*Det2_34_12;
1435 + m[
A14]*Det2_34_12;
1437 + m[
A14]*Det2_34_13;
1439 + m[
A22]*Det2_34_01;
1441 + m[
A23]*Det2_34_01;
1443 + m[
A24]*Det2_34_01;
1445 + m[
A23]*Det2_34_02;
1447 + m[
A24]*Det2_34_02;
1449 + m[
A24]*Det2_34_03;
1451 + m[
A23]*Det2_34_12;
1453 + m[
A24]*Det2_34_12;
1455 + m[
A24]*Det2_34_13;
1457 + m[
A24]*Det2_34_23;
1461 G4double Det4_0123_0123 = m[
A00]*Det3_123_123 - m[
A01]*Det3_123_023
1462 + m[
A02]*Det3_123_013 - m[
A03]*Det3_123_012;
1463 G4double Det4_0124_0123 = m[
A00]*Det3_124_123 - m[
A01]*Det3_124_023
1464 + m[
A02]*Det3_124_013 - m[
A03]*Det3_124_012;
1465 G4double Det4_0124_0124 = m[
A00]*Det3_124_124 - m[
A01]*Det3_124_024
1466 + m[
A02]*Det3_124_014 - m[
A04]*Det3_124_012;
1467 G4double Det4_0134_0123 = m[
A00]*Det3_134_123 - m[
A01]*Det3_134_023
1468 + m[
A02]*Det3_134_013 - m[
A03]*Det3_134_012;
1469 G4double Det4_0134_0124 = m[
A00]*Det3_134_124 - m[
A01]*Det3_134_024
1470 + m[
A02]*Det3_134_014 - m[
A04]*Det3_134_012;
1471 G4double Det4_0134_0134 = m[
A00]*Det3_134_134 - m[
A01]*Det3_134_034
1472 + m[
A03]*Det3_134_014 - m[
A04]*Det3_134_013;
1473 G4double Det4_0234_0123 = m[
A00]*Det3_234_123 - m[
A01]*Det3_234_023
1474 + m[
A02]*Det3_234_013 - m[
A03]*Det3_234_012;
1475 G4double Det4_0234_0124 = m[
A00]*Det3_234_124 - m[
A01]*Det3_234_024
1476 + m[
A02]*Det3_234_014 - m[
A04]*Det3_234_012;
1477 G4double Det4_0234_0134 = m[
A00]*Det3_234_134 - m[
A01]*Det3_234_034
1478 + m[
A03]*Det3_234_014 - m[
A04]*Det3_234_013;
1479 G4double Det4_0234_0234 = m[
A00]*Det3_234_234 - m[
A02]*Det3_234_034
1480 + m[
A03]*Det3_234_024 - m[
A04]*Det3_234_023;
1481 G4double Det4_1234_0123 = m[
A10]*Det3_234_123 - m[
A11]*Det3_234_023
1482 + m[
A12]*Det3_234_013 - m[
A13]*Det3_234_012;
1483 G4double Det4_1234_0124 = m[
A10]*Det3_234_124 - m[
A11]*Det3_234_024
1484 + m[
A12]*Det3_234_014 - m[
A14]*Det3_234_012;
1485 G4double Det4_1234_0134 = m[
A10]*Det3_234_134 - m[
A11]*Det3_234_034
1486 + m[
A13]*Det3_234_014 - m[
A14]*Det3_234_013;
1487 G4double Det4_1234_0234 = m[
A10]*Det3_234_234 - m[
A12]*Det3_234_034
1488 + m[
A13]*Det3_234_024 - m[
A14]*Det3_234_023;
1489 G4double Det4_1234_1234 = m[
A11]*Det3_234_234 - m[
A12]*Det3_234_134
1490 + m[
A13]*Det3_234_124 - m[
A14]*Det3_234_123;
1495 - m[
A01]*Det4_1234_0234
1496 + m[
A02]*Det4_1234_0134
1497 - m[
A03]*Det4_1234_0124
1498 + m[
A04]*Det4_1234_0123;
1507 G4double mn1OverDet = - oneOverDet;
1509 m[
A00] = Det4_1234_1234 * oneOverDet;
1510 m[
A01] = Det4_1234_0234 * mn1OverDet;
1511 m[
A02] = Det4_1234_0134 * oneOverDet;
1512 m[
A03] = Det4_1234_0124 * mn1OverDet;
1513 m[
A04] = Det4_1234_0123 * oneOverDet;
1515 m[
A11] = Det4_0234_0234 * oneOverDet;
1516 m[
A12] = Det4_0234_0134 * mn1OverDet;
1517 m[
A13] = Det4_0234_0124 * oneOverDet;
1518 m[
A14] = Det4_0234_0123 * mn1OverDet;
1520 m[
A22] = Det4_0134_0134 * oneOverDet;
1521 m[
A23] = Det4_0134_0124 * mn1OverDet;
1522 m[
A24] = Det4_0134_0123 * oneOverDet;
1524 m[
A33] = Det4_0124_0124 * oneOverDet;
1525 m[
A34] = Det4_0124_0123 * mn1OverDet;
1527 m[
A44] = Det4_0123_0123 * oneOverDet;
1581 + m[
A22]*Det2_34_01;
1583 + m[
A23]*Det2_34_01;
1585 + m[
A24]*Det2_34_01;
1587 + m[
A23]*Det2_34_02;
1589 + m[
A24]*Det2_34_02;
1591 + m[
A24]*Det2_34_03;
1593 + m[
A23]*Det2_34_12;
1595 + m[
A24]*Det2_34_12;
1597 + m[
A24]*Det2_34_13;
1599 + m[
A24]*Det2_34_23;
1601 + m[
A22]*Det2_35_01;
1603 + m[
A23]*Det2_35_01;
1605 + m[
A24]*Det2_35_01;
1607 + m[
A25]*Det2_35_01;
1609 + m[
A23]*Det2_35_02;
1611 + m[
A24]*Det2_35_02;
1613 + m[
A25]*Det2_35_02;
1615 + m[
A24]*Det2_35_03;
1617 + m[
A25]*Det2_35_03;
1619 + m[
A23]*Det2_35_12;
1621 + m[
A24]*Det2_35_12;
1623 + m[
A25]*Det2_35_12;
1625 + m[
A24]*Det2_35_13;
1627 + m[
A25]*Det2_35_13;
1629 + m[
A24]*Det2_35_23;
1631 + m[
A25]*Det2_35_23;
1633 + m[
A22]*Det2_45_01;
1635 + m[
A23]*Det2_45_01;
1637 + m[
A24]*Det2_45_01;
1639 + m[
A25]*Det2_45_01;
1641 + m[
A23]*Det2_45_02;
1643 + m[
A24]*Det2_45_02;
1645 + m[
A25]*Det2_45_02;
1647 + m[
A24]*Det2_45_03;
1649 + m[
A25]*Det2_45_03;
1651 + m[
A25]*Det2_45_04;
1653 + m[
A23]*Det2_45_12;
1655 + m[
A24]*Det2_45_12;
1657 + m[
A25]*Det2_45_12;
1659 + m[
A24]*Det2_45_13;
1661 + m[
A25]*Det2_45_13;
1663 + m[
A25]*Det2_45_14;
1665 + m[
A24]*Det2_45_23;
1667 + m[
A25]*Det2_45_23;
1669 + m[
A25]*Det2_45_24;
1671 + m[
A32]*Det2_45_01;
1673 + m[
A33]*Det2_45_01;
1675 + m[
A34]*Det2_45_01;
1677 + m[
A35]*Det2_45_01;
1679 + m[
A33]*Det2_45_02;
1681 + m[
A34]*Det2_45_02;
1683 + m[
A35]*Det2_45_02;
1685 + m[
A34]*Det2_45_03;
1687 + m[
A35]*Det2_45_03;
1689 + m[
A35]*Det2_45_04;
1691 + m[
A33]*Det2_45_12;
1693 + m[
A34]*Det2_45_12;
1695 + m[
A35]*Det2_45_12;
1697 + m[
A34]*Det2_45_13;
1699 + m[
A35]*Det2_45_13;
1701 + m[
A35]*Det2_45_14;
1703 + m[
A34]*Det2_45_23;
1705 + m[
A35]*Det2_45_23;
1707 + m[
A35]*Det2_45_24;
1709 + m[
A35]*Det2_45_34;
1713 G4double Det4_1234_0123 = m[
A10]*Det3_234_123 - m[
A11]*Det3_234_023
1714 + m[
A12]*Det3_234_013 - m[
A13]*Det3_234_012;
1715 G4double Det4_1234_0124 = m[
A10]*Det3_234_124 - m[
A11]*Det3_234_024
1716 + m[
A12]*Det3_234_014 - m[
A14]*Det3_234_012;
1717 G4double Det4_1234_0134 = m[
A10]*Det3_234_134 - m[
A11]*Det3_234_034
1718 + m[
A13]*Det3_234_014 - m[
A14]*Det3_234_013;
1719 G4double Det4_1234_0234 = m[
A10]*Det3_234_234 - m[
A12]*Det3_234_034
1720 + m[
A13]*Det3_234_024 - m[
A14]*Det3_234_023;
1721 G4double Det4_1234_1234 = m[
A11]*Det3_234_234 - m[
A12]*Det3_234_134
1722 + m[
A13]*Det3_234_124 - m[
A14]*Det3_234_123;
1723 G4double Det4_1235_0123 = m[
A10]*Det3_235_123 - m[
A11]*Det3_235_023
1724 + m[
A12]*Det3_235_013 - m[
A13]*Det3_235_012;
1725 G4double Det4_1235_0124 = m[
A10]*Det3_235_124 - m[
A11]*Det3_235_024
1726 + m[
A12]*Det3_235_014 - m[
A14]*Det3_235_012;
1727 G4double Det4_1235_0125 = m[
A10]*Det3_235_125 - m[
A11]*Det3_235_025
1728 + m[
A12]*Det3_235_015 - m[
A15]*Det3_235_012;
1729 G4double Det4_1235_0134 = m[
A10]*Det3_235_134 - m[
A11]*Det3_235_034
1730 + m[
A13]*Det3_235_014 - m[
A14]*Det3_235_013;
1731 G4double Det4_1235_0135 = m[
A10]*Det3_235_135 - m[
A11]*Det3_235_035
1732 + m[
A13]*Det3_235_015 - m[
A15]*Det3_235_013;
1733 G4double Det4_1235_0234 = m[
A10]*Det3_235_234 - m[
A12]*Det3_235_034
1734 + m[
A13]*Det3_235_024 - m[
A14]*Det3_235_023;
1735 G4double Det4_1235_0235 = m[
A10]*Det3_235_235 - m[
A12]*Det3_235_035
1736 + m[
A13]*Det3_235_025 - m[
A15]*Det3_235_023;
1737 G4double Det4_1235_1234 = m[
A11]*Det3_235_234 - m[
A12]*Det3_235_134
1738 + m[
A13]*Det3_235_124 - m[
A14]*Det3_235_123;
1739 G4double Det4_1235_1235 = m[
A11]*Det3_235_235 - m[
A12]*Det3_235_135
1740 + m[
A13]*Det3_235_125 - m[
A15]*Det3_235_123;
1741 G4double Det4_1245_0123 = m[
A10]*Det3_245_123 - m[
A11]*Det3_245_023
1742 + m[
A12]*Det3_245_013 - m[
A13]*Det3_245_012;
1743 G4double Det4_1245_0124 = m[
A10]*Det3_245_124 - m[
A11]*Det3_245_024
1744 + m[
A12]*Det3_245_014 - m[
A14]*Det3_245_012;
1745 G4double Det4_1245_0125 = m[
A10]*Det3_245_125 - m[
A11]*Det3_245_025
1746 + m[
A12]*Det3_245_015 - m[
A15]*Det3_245_012;
1747 G4double Det4_1245_0134 = m[
A10]*Det3_245_134 - m[
A11]*Det3_245_034
1748 + m[
A13]*Det3_245_014 - m[
A14]*Det3_245_013;
1749 G4double Det4_1245_0135 = m[
A10]*Det3_245_135 - m[
A11]*Det3_245_035
1750 + m[
A13]*Det3_245_015 - m[
A15]*Det3_245_013;
1751 G4double Det4_1245_0145 = m[
A10]*Det3_245_145 - m[
A11]*Det3_245_045
1752 + m[
A14]*Det3_245_015 - m[
A15]*Det3_245_014;
1753 G4double Det4_1245_0234 = m[
A10]*Det3_245_234 - m[
A12]*Det3_245_034
1754 + m[
A13]*Det3_245_024 - m[
A14]*Det3_245_023;
1755 G4double Det4_1245_0235 = m[
A10]*Det3_245_235 - m[
A12]*Det3_245_035
1756 + m[
A13]*Det3_245_025 - m[
A15]*Det3_245_023;
1757 G4double Det4_1245_0245 = m[
A10]*Det3_245_245 - m[
A12]*Det3_245_045
1758 + m[
A14]*Det3_245_025 - m[
A15]*Det3_245_024;
1759 G4double Det4_1245_1234 = m[
A11]*Det3_245_234 - m[
A12]*Det3_245_134
1760 + m[
A13]*Det3_245_124 - m[
A14]*Det3_245_123;
1761 G4double Det4_1245_1235 = m[
A11]*Det3_245_235 - m[
A12]*Det3_245_135
1762 + m[
A13]*Det3_245_125 - m[
A15]*Det3_245_123;
1763 G4double Det4_1245_1245 = m[
A11]*Det3_245_245 - m[
A12]*Det3_245_145
1764 + m[
A14]*Det3_245_125 - m[
A15]*Det3_245_124;
1765 G4double Det4_1345_0123 = m[
A10]*Det3_345_123 - m[
A11]*Det3_345_023
1766 + m[
A12]*Det3_345_013 - m[
A13]*Det3_345_012;
1767 G4double Det4_1345_0124 = m[
A10]*Det3_345_124 - m[
A11]*Det3_345_024
1768 + m[
A12]*Det3_345_014 - m[
A14]*Det3_345_012;
1769 G4double Det4_1345_0125 = m[
A10]*Det3_345_125 - m[
A11]*Det3_345_025
1770 + m[
A12]*Det3_345_015 - m[
A15]*Det3_345_012;
1771 G4double Det4_1345_0134 = m[
A10]*Det3_345_134 - m[
A11]*Det3_345_034
1772 + m[
A13]*Det3_345_014 - m[
A14]*Det3_345_013;
1773 G4double Det4_1345_0135 = m[
A10]*Det3_345_135 - m[
A11]*Det3_345_035
1774 + m[
A13]*Det3_345_015 - m[
A15]*Det3_345_013;
1775 G4double Det4_1345_0145 = m[
A10]*Det3_345_145 - m[
A11]*Det3_345_045
1776 + m[
A14]*Det3_345_015 - m[
A15]*Det3_345_014;
1777 G4double Det4_1345_0234 = m[
A10]*Det3_345_234 - m[
A12]*Det3_345_034
1778 + m[
A13]*Det3_345_024 - m[
A14]*Det3_345_023;
1779 G4double Det4_1345_0235 = m[
A10]*Det3_345_235 - m[
A12]*Det3_345_035
1780 + m[
A13]*Det3_345_025 - m[
A15]*Det3_345_023;
1781 G4double Det4_1345_0245 = m[
A10]*Det3_345_245 - m[
A12]*Det3_345_045
1782 + m[
A14]*Det3_345_025 - m[
A15]*Det3_345_024;
1783 G4double Det4_1345_0345 = m[
A10]*Det3_345_345 - m[
A13]*Det3_345_045
1784 + m[
A14]*Det3_345_035 - m[
A15]*Det3_345_034;
1785 G4double Det4_1345_1234 = m[
A11]*Det3_345_234 - m[
A12]*Det3_345_134
1786 + m[
A13]*Det3_345_124 - m[
A14]*Det3_345_123;
1787 G4double Det4_1345_1235 = m[
A11]*Det3_345_235 - m[
A12]*Det3_345_135
1788 + m[
A13]*Det3_345_125 - m[
A15]*Det3_345_123;
1789 G4double Det4_1345_1245 = m[
A11]*Det3_345_245 - m[
A12]*Det3_345_145
1790 + m[
A14]*Det3_345_125 - m[
A15]*Det3_345_124;
1791 G4double Det4_1345_1345 = m[
A11]*Det3_345_345 - m[
A13]*Det3_345_145
1792 + m[
A14]*Det3_345_135 - m[
A15]*Det3_345_134;
1793 G4double Det4_2345_0123 = m[
A20]*Det3_345_123 - m[
A21]*Det3_345_023
1794 + m[
A22]*Det3_345_013 - m[
A23]*Det3_345_012;
1795 G4double Det4_2345_0124 = m[
A20]*Det3_345_124 - m[
A21]*Det3_345_024
1796 + m[
A22]*Det3_345_014 - m[
A24]*Det3_345_012;
1797 G4double Det4_2345_0125 = m[
A20]*Det3_345_125 - m[
A21]*Det3_345_025
1798 + m[
A22]*Det3_345_015 - m[
A25]*Det3_345_012;
1799 G4double Det4_2345_0134 = m[
A20]*Det3_345_134 - m[
A21]*Det3_345_034
1800 + m[
A23]*Det3_345_014 - m[
A24]*Det3_345_013;
1801 G4double Det4_2345_0135 = m[
A20]*Det3_345_135 - m[
A21]*Det3_345_035
1802 + m[
A23]*Det3_345_015 - m[
A25]*Det3_345_013;
1803 G4double Det4_2345_0145 = m[
A20]*Det3_345_145 - m[
A21]*Det3_345_045
1804 + m[
A24]*Det3_345_015 - m[
A25]*Det3_345_014;
1805 G4double Det4_2345_0234 = m[
A20]*Det3_345_234 - m[
A22]*Det3_345_034
1806 + m[
A23]*Det3_345_024 - m[
A24]*Det3_345_023;
1807 G4double Det4_2345_0235 = m[
A20]*Det3_345_235 - m[
A22]*Det3_345_035
1808 + m[
A23]*Det3_345_025 - m[
A25]*Det3_345_023;
1809 G4double Det4_2345_0245 = m[
A20]*Det3_345_245 - m[
A22]*Det3_345_045
1810 + m[
A24]*Det3_345_025 - m[
A25]*Det3_345_024;
1811 G4double Det4_2345_0345 = m[
A20]*Det3_345_345 - m[
A23]*Det3_345_045
1812 + m[
A24]*Det3_345_035 - m[
A25]*Det3_345_034;
1813 G4double Det4_2345_1234 = m[
A21]*Det3_345_234 - m[
A22]*Det3_345_134
1814 + m[
A23]*Det3_345_124 - m[
A24]*Det3_345_123;
1815 G4double Det4_2345_1235 = m[
A21]*Det3_345_235 - m[
A22]*Det3_345_135
1816 + m[
A23]*Det3_345_125 - m[
A25]*Det3_345_123;
1817 G4double Det4_2345_1245 = m[
A21]*Det3_345_245 - m[
A22]*Det3_345_145
1818 + m[
A24]*Det3_345_125 - m[
A25]*Det3_345_124;
1819 G4double Det4_2345_1345 = m[
A21]*Det3_345_345 - m[
A23]*Det3_345_145
1820 + m[
A24]*Det3_345_135 - m[
A25]*Det3_345_134;
1821 G4double Det4_2345_2345 = m[
A22]*Det3_345_345 - m[
A23]*Det3_345_245
1822 + m[
A24]*Det3_345_235 - m[
A25]*Det3_345_234;
1826 G4double Det5_01234_01234 = m[
A00]*Det4_1234_1234 - m[
A01]*Det4_1234_0234
1827 + m[
A02]*Det4_1234_0134 - m[
A03]*Det4_1234_0124 + m[
A04]*Det4_1234_0123;
1828 G4double Det5_01235_01234 = m[
A00]*Det4_1235_1234 - m[
A01]*Det4_1235_0234
1829 + m[
A02]*Det4_1235_0134 - m[
A03]*Det4_1235_0124 + m[
A04]*Det4_1235_0123;
1830 G4double Det5_01235_01235 = m[
A00]*Det4_1235_1235 - m[
A01]*Det4_1235_0235
1831 + m[
A02]*Det4_1235_0135 - m[
A03]*Det4_1235_0125 + m[
A05]*Det4_1235_0123;
1832 G4double Det5_01245_01234 = m[
A00]*Det4_1245_1234 - m[
A01]*Det4_1245_0234
1833 + m[
A02]*Det4_1245_0134 - m[
A03]*Det4_1245_0124 + m[
A04]*Det4_1245_0123;
1834 G4double Det5_01245_01235 = m[
A00]*Det4_1245_1235 - m[
A01]*Det4_1245_0235
1835 + m[
A02]*Det4_1245_0135 - m[
A03]*Det4_1245_0125 + m[
A05]*Det4_1245_0123;
1836 G4double Det5_01245_01245 = m[
A00]*Det4_1245_1245 - m[
A01]*Det4_1245_0245
1837 + m[
A02]*Det4_1245_0145 - m[
A04]*Det4_1245_0125 + m[
A05]*Det4_1245_0124;
1838 G4double Det5_01345_01234 = m[
A00]*Det4_1345_1234 - m[
A01]*Det4_1345_0234
1839 + m[
A02]*Det4_1345_0134 - m[
A03]*Det4_1345_0124 + m[
A04]*Det4_1345_0123;
1840 G4double Det5_01345_01235 = m[
A00]*Det4_1345_1235 - m[
A01]*Det4_1345_0235
1841 + m[
A02]*Det4_1345_0135 - m[
A03]*Det4_1345_0125 + m[
A05]*Det4_1345_0123;
1842 G4double Det5_01345_01245 = m[
A00]*Det4_1345_1245 - m[
A01]*Det4_1345_0245
1843 + m[
A02]*Det4_1345_0145 - m[
A04]*Det4_1345_0125 + m[
A05]*Det4_1345_0124;
1844 G4double Det5_01345_01345 = m[
A00]*Det4_1345_1345 - m[
A01]*Det4_1345_0345
1845 + m[
A03]*Det4_1345_0145 - m[
A04]*Det4_1345_0135 + m[
A05]*Det4_1345_0134;
1846 G4double Det5_02345_01234 = m[
A00]*Det4_2345_1234 - m[
A01]*Det4_2345_0234
1847 + m[
A02]*Det4_2345_0134 - m[
A03]*Det4_2345_0124 + m[
A04]*Det4_2345_0123;
1848 G4double Det5_02345_01235 = m[
A00]*Det4_2345_1235 - m[
A01]*Det4_2345_0235
1849 + m[
A02]*Det4_2345_0135 - m[
A03]*Det4_2345_0125 + m[
A05]*Det4_2345_0123;
1850 G4double Det5_02345_01245 = m[
A00]*Det4_2345_1245 - m[
A01]*Det4_2345_0245
1851 + m[
A02]*Det4_2345_0145 - m[
A04]*Det4_2345_0125 + m[
A05]*Det4_2345_0124;
1852 G4double Det5_02345_01345 = m[
A00]*Det4_2345_1345 - m[
A01]*Det4_2345_0345
1853 + m[
A03]*Det4_2345_0145 - m[
A04]*Det4_2345_0135 + m[
A05]*Det4_2345_0134;
1854 G4double Det5_02345_02345 = m[
A00]*Det4_2345_2345 - m[
A02]*Det4_2345_0345
1855 + m[
A03]*Det4_2345_0245 - m[
A04]*Det4_2345_0235 + m[
A05]*Det4_2345_0234;
1856 G4double Det5_12345_01234 = m[
A10]*Det4_2345_1234 - m[
A11]*Det4_2345_0234
1857 + m[
A12]*Det4_2345_0134 - m[
A13]*Det4_2345_0124 + m[
A14]*Det4_2345_0123;
1858 G4double Det5_12345_01235 = m[
A10]*Det4_2345_1235 - m[
A11]*Det4_2345_0235
1859 + m[
A12]*Det4_2345_0135 - m[
A13]*Det4_2345_0125 + m[
A15]*Det4_2345_0123;
1860 G4double Det5_12345_01245 = m[
A10]*Det4_2345_1245 - m[
A11]*Det4_2345_0245
1861 + m[
A12]*Det4_2345_0145 - m[
A14]*Det4_2345_0125 + m[
A15]*Det4_2345_0124;
1862 G4double Det5_12345_01345 = m[
A10]*Det4_2345_1345 - m[
A11]*Det4_2345_0345
1863 + m[
A13]*Det4_2345_0145 - m[
A14]*Det4_2345_0135 + m[
A15]*Det4_2345_0134;
1864 G4double Det5_12345_02345 = m[
A10]*Det4_2345_2345 - m[
A12]*Det4_2345_0345
1865 + m[
A13]*Det4_2345_0245 - m[
A14]*Det4_2345_0235 + m[
A15]*Det4_2345_0234;
1866 G4double Det5_12345_12345 = m[
A11]*Det4_2345_2345 - m[
A12]*Det4_2345_1345
1867 + m[
A13]*Det4_2345_1245 - m[
A14]*Det4_2345_1235 + m[
A15]*Det4_2345_1234;
1872 - m[
A01]*Det5_12345_02345
1873 + m[
A02]*Det5_12345_01345
1874 - m[
A03]*Det5_12345_01245
1875 + m[
A04]*Det5_12345_01235
1876 - m[
A05]*Det5_12345_01234;
1885 G4double mn1OverDet = - oneOverDet;
1887 m[
A00] = Det5_12345_12345*oneOverDet;
1888 m[
A01] = Det5_12345_02345*mn1OverDet;
1889 m[
A02] = Det5_12345_01345*oneOverDet;
1890 m[
A03] = Det5_12345_01245*mn1OverDet;
1891 m[
A04] = Det5_12345_01235*oneOverDet;
1892 m[
A05] = Det5_12345_01234*mn1OverDet;
1894 m[
A11] = Det5_02345_02345*oneOverDet;
1895 m[
A12] = Det5_02345_01345*mn1OverDet;
1896 m[
A13] = Det5_02345_01245*oneOverDet;
1897 m[
A14] = Det5_02345_01235*mn1OverDet;
1898 m[
A15] = Det5_02345_01234*oneOverDet;
1900 m[
A22] = Det5_01345_01345*oneOverDet;
1901 m[
A23] = Det5_01345_01245*mn1OverDet;
1902 m[
A24] = Det5_01345_01235*oneOverDet;
1903 m[
A25] = Det5_01345_01234*mn1OverDet;
1905 m[
A33] = Det5_01245_01245*oneOverDet;
1906 m[
A34] = Det5_01245_01235*mn1OverDet;
1907 m[
A35] = Det5_01245_01234*oneOverDet;
1909 m[
A44] = Det5_01235_01235*oneOverDet;
1910 m[
A45] = Det5_01235_01234*mn1OverDet;
1912 m[
A55] = Det5_01234_01234*oneOverDet;
1951 if (h00 <= 0) {
return; }
1952 h00 = 1.0 / std::sqrt(h00);
1961 h11 =
m[
A11] - (g10 * g10);
1962 if (h11 <= 0) {
return; }
1963 h11 = 1.0 / std::sqrt(h11);
1968 g21 = (
m[
A21] - (g10 * g20)) *
h11;
1969 g31 = (
m[
A31] - (g10 * g30)) *
h11;
1970 g41 = (
m[
A41] - (g10 * g40)) *
h11;
1974 h22 =
m[
A22] - (g20 * g20) - (g21 * g21);
1975 if (h22 <= 0) {
return; }
1976 h22 = 1.0 / std::sqrt(h22);
1981 g32 = (
m[
A32] - (g20 * g30) - (g21 * g31)) * h22;
1982 g42 = (
m[
A42] - (g20 * g40) - (g21 * g41)) * h22;
1986 h33 =
m[
A33] - (g30 * g30) - (g31 * g31) - (g32 * g32);
1987 if (h33 <= 0) {
return; }
1988 h33 = 1.0 / std::sqrt(h33);
1992 g43 = (
m[
A43] - (g30 * g40) - (g31 * g41) - (g32 * g42)) * h33;
1996 h44 =
m[
A44] - (g40 * g40) - (g41 * g41) - (g42 * g42) - (g43 * g43);
1997 if (h44 <= 0) {
return; }
1998 h44 = 1.0 / std::sqrt(h44);
2005 h43 = -h33 * g43 * h44;
2006 h32 = -h22 * g32 * h33;
2007 h42 = -h22 * (g32 * h43 + g42 * h44);
2008 h21 = -h11 * g21 * h22;
2009 h31 = -h11 * (g21 * h32 + g31 * h33);
2010 h41 = -h11 * (g21 * h42 + g31 * h43 + g41 * h44);
2011 h10 = -h00 * g10 *
h11;
2012 h20 = -h00 * (g10 * h21 + g20 * h22);
2013 h30 = -h00 * (g10 * h31 + g20 * h32 + g30 * h33);
2014 h40 = -h00 * (g10 * h41 + g20 * h42 + g30 * h43 + g40 * h44);
2019 m[
A00] = h00 * h00 + h10 * h10 + h20 * h20 + h30 * h30 + h40 * h40;
2020 m[
A01] = h10 * h11 + h20 * h21 + h30 * h31 + h40 * h41;
2021 m[
A11] = h11 * h11 + h21 * h21 + h31 * h31 + h41 * h41;
2022 m[
A02] = h20 * h22 + h30 * h32 + h40 * h42;
2023 m[
A12] = h21 * h22 + h31 * h32 + h41 * h42;
2024 m[
A22] = h22 * h22 + h32 * h32 + h42 * h42;
2025 m[
A03] = h30 * h33 + h40 * h43;
2026 m[
A13] = h31 * h33 + h41 * h43;
2027 m[
A23] = h32 * h33 + h42 * h43;
2028 m[
A33] = h33 * h33 + h43 * h43;
2074 if (h00 <= 0) {
return; }
2075 h00 = 1.0 / std::sqrt(h00);
2085 h11 =
m[
A11] - (g10 * g10);
2086 if (h11 <= 0) {
return; }
2087 h11 = 1.0 / std::sqrt(h11);
2092 g21 = (
m[
A21] - (g10 * g20)) *
h11;
2093 g31 = (
m[
A31] - (g10 * g30)) *
h11;
2094 g41 = (
m[
A41] - (g10 * g40)) *
h11;
2095 g51 = (
m[
A51] - (g10 * g50)) *
h11;
2099 h22 =
m[
A22] - (g20 * g20) - (g21 * g21);
2100 if (h22 <= 0) {
return; }
2101 h22 = 1.0 / std::sqrt(h22);
2106 g32 = (
m[
A32] - (g20 * g30) - (g21 * g31)) * h22;
2107 g42 = (
m[
A42] - (g20 * g40) - (g21 * g41)) * h22;
2108 g52 = (
m[
A52] - (g20 * g50) - (g21 * g51)) * h22;
2112 h33 =
m[
A33] - (g30 * g30) - (g31 * g31) - (g32 * g32);
2113 if (h33 <= 0) {
return; }
2114 h33 = 1.0 / std::sqrt(h33);
2119 g43 = (
m[
A43] - (g30 * g40) - (g31 * g41) - (g32 * g42)) * h33;
2120 g53 = (
m[
A53] - (g30 * g50) - (g31 * g51) - (g32 * g52)) * h33;
2124 h44 =
m[
A44] - (g40 * g40) - (g41 * g41) - (g42 * g42) - (g43 * g43);
2125 if (h44 <= 0) {
return; }
2126 h44 = 1.0 / std::sqrt(h44);
2130 g54 = (
m[
A54] - (g40 * g50) - (g41 * g51) - (g42 * g52) - (g43 * g53)) * h44;
2134 h55 =
m[
A55] - (g50*g50) - (g51*g51) - (g52*g52) - (g53*g53) - (g54*g54);
2135 if (h55 <= 0) {
return; }
2136 h55 = 1.0 / std::sqrt(h55);
2143 h54 = -h44 * g54 * h55;
2144 h43 = -h33 * g43 * h44;
2145 h53 = -h33 * (g43 * h54 + g53 * h55);
2146 h32 = -h22 * g32 * h33;
2147 h42 = -h22 * (g32 * h43 + g42 * h44);
2148 h52 = -h22 * (g32 * h53 + g42 * h54 + g52 * h55);
2149 h21 = -h11 * g21 * h22;
2150 h31 = -h11 * (g21 * h32 + g31 * h33);
2151 h41 = -h11 * (g21 * h42 + g31 * h43 + g41 * h44);
2152 h51 = -h11 * (g21 * h52 + g31 * h53 + g41 * h54 + g51 * h55);
2153 h10 = -h00 * g10 *
h11;
2154 h20 = -h00 * (g10 * h21 + g20 * h22);
2155 h30 = -h00 * (g10 * h31 + g20 * h32 + g30 * h33);
2156 h40 = -h00 * (g10 * h41 + g20 * h42 + g30 * h43 + g40 * h44);
2157 h50 = -h00 * (g10 * h51 + g20 * h52 + g30 * h53 + g40 * h54 + g50 * h55);
2162 m[
A00] = h00 * h00 + h10 * h10 + h20 * h20 + h30 * h30 + h40 * h40 + h50*h50;
2163 m[
A01] = h10 * h11 + h20 * h21 + h30 * h31 + h40 * h41 + h50 * h51;
2164 m[
A11] = h11 * h11 + h21 * h21 + h31 * h31 + h41 * h41 + h51 * h51;
2165 m[
A02] = h20 * h22 + h30 * h32 + h40 * h42 + h50 * h52;
2166 m[
A12] = h21 * h22 + h31 * h32 + h41 * h42 + h51 * h52;
2167 m[
A22] = h22 * h22 + h32 * h32 + h42 * h42 + h52 * h52;
2168 m[
A03] = h30 * h33 + h40 * h43 + h50 * h53;
2169 m[
A13] = h31 * h33 + h41 * h43 + h51 * h53;
2170 m[
A23] = h32 * h33 + h42 * h43 + h52 * h53;
2171 m[
A33] = h33 * h33 + h43 * h43 + h53 * h53;
2172 m[
A04] = h40 * h44 + h50 * h54;
2173 m[
A14] = h41 * h44 + h51 * h54;
2174 m[
A24] = h42 * h44 + h52 * h54;
2175 m[
A34] = h43 * h44 + h53 * h54;
2176 m[
A44] = h44 * h44 + h54 * h54;
2212 + m[
A02]*Det2_12_01;
2214 + m[
A02]*Det2_13_01;
2216 + m[
A03]*Det2_13_01;
2218 + m[
A02]*Det2_23_01;
2220 + m[
A03]*Det2_23_01;
2222 + m[
A03]*Det2_23_02;
2224 + m[
A12]*Det2_23_01;
2226 + m[
A13]*Det2_23_01;
2228 + m[
A13]*Det2_23_02;
2230 + m[
A13]*Det2_23_12;
2235 - m[
A01]*Det3_123_023
2236 + m[
A02]*Det3_123_013
2237 - m[
A03]*Det3_123_012;
2246 G4double mn1OverDet = - oneOverDet;
2248 m[
A00] = Det3_123_123 * oneOverDet;
2249 m[
A01] = Det3_123_023 * mn1OverDet;
2250 m[
A02] = Det3_123_013 * oneOverDet;
2251 m[
A03] = Det3_123_012 * mn1OverDet;
2254 m[
A11] = Det3_023_023 * oneOverDet;
2255 m[
A12] = Det3_023_013 * mn1OverDet;
2256 m[
A13] = Det3_023_012 * oneOverDet;
2258 m[
A22] = Det3_013_013 * oneOverDet;
2259 m[
A23] = Det3_013_012 * mn1OverDet;
2261 m[
A33] = Det3_012_012 * oneOverDet;