/*
* Description not yet available.
* \param
*/
void dvdv_dot(void)
{
verify_identifier_string("aaaa");
double dftmp=restore_prevariable_derivative();
dvar_vector_position v2pos=restore_dvar_vector_position();
dvector cv2=restore_dvar_vector_value(v2pos);
dvar_vector_position v1pos=restore_dvar_vector_position();
dvector cv1=restore_dvar_vector_value(v1pos);
verify_identifier_string("bbbb");
dvector dfv1(cv1.indexmin(),cv1.indexmax());
dvector dfv2(cv2.indexmin(),cv2.indexmax());
#ifdef OPT_LIB
double * pdf1=&dfv1(cv1.indexmin());
double * pdf1m=&dfv1(cv1.indexmax());
double * pdf2=&dfv2(cv1.indexmin());
double * pc1=&cv1(cv1.indexmin());
double * pc2=&cv2(cv1.indexmin());
do
{
*pdf1++ = dftmp * *pc2++;
*pdf2++ = dftmp * *pc1++;
}
while (pdf1<=pdf1m);
#else
for (int i=cv1.indexmin(); i<=cv1.indexmax(); i++)
{
//tmp+=cv1(i)*cv2(i);
dfv1(i)=dftmp*cv2.elem(i);
dfv2(i)=dftmp*cv1.elem(i);
}
#endif
dfv1.save_dvector_derivatives(v1pos);
dfv2.save_dvector_derivatives(v2pos);
}
double _AngleBetween(VECTOR3D v1, VECTOR3D v2) //retrun 0 to 180 degree
{
CVector3D cv1(v1), cv2(v2);
cv1.Normalize();
cv2.Normalize();
return acos(max(-1.0, min(1.0, cv1 | cv2)));
}
float _AngleBetween(VECTOR3D v1,VECTOR3D v2)
{
if(_IsParallel(v1,v2)) return 0;
CVector3D cv1(v1),cv2(v2);
CVector3D flag = cv2*cv1;
//TRACE( "\nflag %f", flag.dz );
if( flag.dz >0 )
return acos((cv1|cv2.GetNormal())/cv1.GetLength());
else
return -acos((cv1|cv2.GetNormal())/cv1.GetLength());
}
int main()
{
try
{
convert cv;
ifstream in("cv.mod");
cv.read(in);
cout << cv;
convert cv1(cv);
}
catch (gError &t)
{
cout << t.message << endl;
}
}
double _AngleBetween(VECTOR3D v1, VECTOR3D v2, VECTOR3D normal) //if 0, return 360
{
CVector3D cv1(v1), cv2(v2), norm(normal);
// if ( _IsParallel(cv1,cv2) )
// {
// if ((cv1|cv2) <= 0)
// {
// return 0;
// }
// }
cv1.Normalize();
cv2.Normalize();
if ( ( ( norm*cv1 ) | cv2 ) > 0 )
return acos(max(-1.0, min(1.0, cv1 | cv2)));
else
return 2 * PI - acos(max(-1.0, min(1.0, cv1 | cv2)));
}
BOOL _IsOrthogonal(VECTOR3D v1, VECTOR3D v2)
{
CVector3D cv1(v1), cv2(v2);
return IS_ZERO(cv1 | cv2);
}
BOOL _IsParallel(VECTOR3D v1, VECTOR3D v2)
{
CVector3D cv1(v1), cv2(v2);
return IS_ZERO(( cv1*cv2 ) | ( cv1*cv2 ));
}
void fail()
{
boost::condition_variable_any cv0;
boost::condition_variable_any cv1(cv0);
}
void drive_operation()
{
// Uint64 tests
CQLValue a1(Uint64(10));
CQLValue a2(Uint64(15));
CQLValue a3(Uint64(25));
CQLValue a4(Uint64(30));
CQLValue a5(Uint64(150));
PEGASUS_TEST_ASSERT(a1 != a2);
PEGASUS_TEST_ASSERT(a5 == a5);
PEGASUS_TEST_ASSERT(a1 < a2);
PEGASUS_TEST_ASSERT(a2 >= a1);
PEGASUS_TEST_ASSERT(a1 <= a2);
PEGASUS_TEST_ASSERT(a2 > a1);
// Sint64 tests
CQLValue b1(Sint64(10));
CQLValue b2(Sint64(15));
CQLValue b3(Sint64(25));
CQLValue b4(Sint64(30));
CQLValue b5(Sint64(150));
PEGASUS_TEST_ASSERT(b1 != b2);
PEGASUS_TEST_ASSERT(b5 == b5);
PEGASUS_TEST_ASSERT(b1 < b2);
PEGASUS_TEST_ASSERT(b2 >= b1);
PEGASUS_TEST_ASSERT(b1 <= b2);
PEGASUS_TEST_ASSERT(b2 > b1);
// Real64 tests
CQLValue c1(Real64(10.00));
CQLValue c2(Real64(15.00));
CQLValue c3(Real64(25.00));
CQLValue c4(Real64(30.00));
CQLValue c5(Real64(150.00));
PEGASUS_TEST_ASSERT(c1 != c2);
PEGASUS_TEST_ASSERT(c5 == c5);
PEGASUS_TEST_ASSERT(c1 < c2);
PEGASUS_TEST_ASSERT(c2 >= c1);
PEGASUS_TEST_ASSERT(c1 <= c2);
PEGASUS_TEST_ASSERT(c2 > c1);
// Misc
PEGASUS_TEST_ASSERT(a1 == b1);
PEGASUS_TEST_ASSERT(a1 == c1);
PEGASUS_TEST_ASSERT(b1 == a1);
PEGASUS_TEST_ASSERT(b1 == c1);
PEGASUS_TEST_ASSERT(c1 == a1);
PEGASUS_TEST_ASSERT(c1 == b1);
PEGASUS_TEST_ASSERT(a2 != b1);
PEGASUS_TEST_ASSERT(a2 != c1);
PEGASUS_TEST_ASSERT(b2 != a1);
PEGASUS_TEST_ASSERT(b2 != c1);
PEGASUS_TEST_ASSERT(c2 != a1);
PEGASUS_TEST_ASSERT(c2 != b1);
PEGASUS_TEST_ASSERT(a2 >= b1);
PEGASUS_TEST_ASSERT(a2 >= c1);
PEGASUS_TEST_ASSERT(b2 >= a1);
PEGASUS_TEST_ASSERT(b2 >= c1);
PEGASUS_TEST_ASSERT(c2 >= a1);
PEGASUS_TEST_ASSERT(c2 >= b1);
PEGASUS_TEST_ASSERT(a2 <= b3);
PEGASUS_TEST_ASSERT(a2 <= c3);
PEGASUS_TEST_ASSERT(b2 <= a3);
PEGASUS_TEST_ASSERT(b2 <= c3);
PEGASUS_TEST_ASSERT(c2 <= a3);
PEGASUS_TEST_ASSERT(c2 <= b3);
PEGASUS_TEST_ASSERT(a2 > b1);
PEGASUS_TEST_ASSERT(a2 > c1);
PEGASUS_TEST_ASSERT(b2 > a1);
PEGASUS_TEST_ASSERT(b2 > c1);
PEGASUS_TEST_ASSERT(c2 > a1);
PEGASUS_TEST_ASSERT(c2 > b1);
PEGASUS_TEST_ASSERT(a2 < b3);
PEGASUS_TEST_ASSERT(a2 < c3);
PEGASUS_TEST_ASSERT(b2 < a3);
PEGASUS_TEST_ASSERT(b2 < c3);
PEGASUS_TEST_ASSERT(c2 < a3);
PEGASUS_TEST_ASSERT(c2 < b3);
//Overflow testing
CQLValue real1(Real64(0.00000001));
CQLValue sint1(Sint64(-1));
CQLValue uint1(Sint64(1));
CQLValue uint2(Uint64(0));
PEGASUS_TEST_ASSERT(uint1 > sint1);
PEGASUS_TEST_ASSERT(real1 > sint1);
PEGASUS_TEST_ASSERT(uint2 > sint1);
PEGASUS_TEST_ASSERT(real1 > uint2);
CQLValue real2(Real64(25.00000000000001));
CQLValue real3(Real64(24.99999999999999));
CQLValue sint2(Sint64(25));
CQLValue uint3(Uint64(25));
PEGASUS_TEST_ASSERT(real2 > real3);
PEGASUS_TEST_ASSERT(real2 > sint2);
PEGASUS_TEST_ASSERT(real2 > uint3);
PEGASUS_TEST_ASSERT(real3 < sint2);
PEGASUS_TEST_ASSERT(real3 < uint3);
// String tests
CQLValue d1(String("HELLO"));
CQLValue d2(String("HEL"));
CQLValue d3(String("LO"));
CQLValue d4(String("AHELLO"));
CQLValue d5(String("ZHELLO"));
PEGASUS_TEST_ASSERT(d1 == d2 + d3);
PEGASUS_TEST_ASSERT(d1 != d2 + d4);
PEGASUS_TEST_ASSERT(d1 <= d5);
PEGASUS_TEST_ASSERT(d1 < d5);
PEGASUS_TEST_ASSERT(d1 >= d4);
PEGASUS_TEST_ASSERT(d1 > d4);
String str1("0x10");
String str2("10");
String str3("10B");
String str4("10.10");
CQLValue e1( str1, CQLValue::Hex);
CQLValue e2( str2, CQLValue::Decimal);
CQLValue e3( str3, CQLValue::Binary);
CQLValue e4( str4, CQLValue::Real);
CQLValue e5(Uint64(16));
CQLValue e6(Uint64(10));
CQLValue e7(Uint64(2));
CQLValue e8(Real64(10.10));
PEGASUS_TEST_ASSERT(e1 == e5);
PEGASUS_TEST_ASSERT(e2 == e6);
PEGASUS_TEST_ASSERT(e3 == e7);
PEGASUS_TEST_ASSERT(e4 == e8);
Array<Uint64> array1;
array1.append(1);
array1.append(2);
array1.append(3);
array1.append(4);
array1.append(5);
array1.append(6);
array1.append(7);
array1.append(8);
array1.append(9);
array1.append(10);
Array<Sint64> array2;
array2.append(1);
array2.append(2);
array2.append(3);
array2.append(4);
array2.append(5);
array2.append(6);
array2.append(7);
array2.append(8);
array2.append(9);
array2.append(10);
array2.append(3);
Array<Real64> array3;
array3.append(1.00);
array3.append(2.00);
array3.append(3.00);
array3.append(9.00);
array3.append(10.00);
array3.append(3.00);
array3.append(4.00);
array3.append(5.00);
array3.append(6.00);
array3.append(7.00);
array3.append(8.00);
Array<Uint64> array4;
array4.append(1);
array4.append(23);
array4.append(3);
array4.append(4);
array4.append(5);
array4.append(6);
array4.append(7);
array4.append(88);
array4.append(9);
array4.append(10);
Array<Sint64> array5;
array5.append(-1);
array5.append(2);
array5.append(3);
array5.append(4);
array5.append(5);
array5.append(-6);
array5.append(7);
array5.append(8);
array5.append(9);
array5.append(10);
array5.append(-3);
Array<Real64> array6;
array6.append(1.23);
array6.append(2.00);
array6.append(3.00);
array6.append(9.00);
array6.append(10.00);
array6.append(3.00);
array6.append(4.14);
array6.append(5.00);
array6.append(6.00);
array6.append(7.00);
array6.append(8.00);
CIMValue cv1(array1);
CIMValue cv2(array2);
CIMValue cv3(array3);
CIMValue cv4(array4);
CIMValue cv5(array5);
CIMValue cv6(array6);
CQLValue vr1(cv1);
CQLValue vr2(cv1);
CQLValue vr3(cv2);
CQLValue vr4(cv3);
CQLValue vr5(cv4);
CQLValue vr6(cv5);
CQLValue vr7(cv6);
PEGASUS_TEST_ASSERT(vr1 == vr2);
PEGASUS_TEST_ASSERT(vr1 == vr3);
PEGASUS_TEST_ASSERT(vr1 == vr4);
PEGASUS_TEST_ASSERT(vr4 == vr3);
PEGASUS_TEST_ASSERT(vr1 != vr5);
PEGASUS_TEST_ASSERT(vr3 != vr6);
PEGASUS_TEST_ASSERT(vr4 != vr7);
const CIMName _cimName(String("CIM_OperatingSystem"));
CIMInstance _i1(_cimName);
CIMProperty _p1(CIMName("Description"),CIMValue(String("Dave Rules")));
CIMProperty _p2(CIMName("EnabledState"),CIMValue(Uint16(2)));
CIMProperty _p3(CIMName("CurrentTimeZone"),CIMValue(Sint16(-600)));
CIMProperty _p4(CIMName("TimeOfLastStateChange"),
CIMValue(CIMDateTime(String("20040811105625.000000-360"))));
_i1.addProperty(_p1);
_i1.addProperty(_p2);
_i1.addProperty(_p3);
_i1.addProperty(_p4);
CIMInstance _i2(_cimName);
CIMProperty _p5(CIMName("Description"),
CIMValue(String("Dave Rules Everything")));
CIMProperty _p6(CIMName("EnabledState"),CIMValue(Uint16(2)));
CIMProperty _p7(CIMName("CurrentTimeZone"),CIMValue(Sint16(-600)));
CIMProperty _p8(CIMName("TimeOfLastStateChange"),
CIMValue(CIMDateTime(String("20040811105625.000000-360"))));
_i2.addProperty(_p5);
_i2.addProperty(_p6);
_i2.addProperty(_p7);
_i2.addProperty(_p8);
CQLValue cql1(_i1);
CQLValue cql2(_i1);
CQLValue cql3(_i2);
CQLValue cql4(_i2);
//PEGASUS_TEST_ASSERT(cql1 == cql1);
return;
}
BOOL _IsOrthogonal(VECTOR3D v0,VECTOR3D v1)
{
CVector3D cv0(v0),cv1(v1);
return IS_ZERO(cv0|cv1);
}
BOOL _IsParallel(VECTOR3D v0,VECTOR3D v1)
{
CVector3D cv0(v0),cv1(v1);
return IS_ZERO((cv0*cv1).GetLength());
}
BOOL _IsParallel(VECTOR2D v0,VECTOR2D v1)
{
CVector2D cv0(v0),cv1(v1);
return IS_ZERO((cv0*cv1).dz);
}
void TestBandDiv(tmv::DivType dt)
{
const int N = 10;
std::vector<tmv::BandMatrixView<T> > b;
std::vector<tmv::BandMatrixView<std::complex<T> > > cb;
MakeBandList(b,cb);
tmv::Matrix<T> a1(N,N);
for (int i=0; i<N; ++i) for (int j=0; j<N; ++j) a1(i,j) = T(3+i-2*j);
a1.diag().addToAll(T(10)*N);
a1 /= T(10);
tmv::Matrix<std::complex<T> > ca1 = a1 * std::complex<T>(3,-4);
tmv::Vector<T> v1(N);
tmv::Vector<T> v2(N-1);
for (int i=0; i<N; ++i) v1(i) = T(16-3*i);
for (int i=0; i<N-1; ++i) v2(i) = T(-6+i);
tmv::Vector<std::complex<T> > cv1(N);
tmv::Vector<std::complex<T> > cv2(N-1);
for (int i=0; i<N; ++i) cv1(i) = std::complex<T>(16-3*i,i+4);
for (int i=0; i<N-1; ++i) cv2(i) = std::complex<T>(2*i-3,-6+i);
tmv::Matrix<T> a3 = a1.colRange(0,N/2);
tmv::Matrix<std::complex<T> > ca3 = ca1.colRange(0,N/2);
tmv::Matrix<T> a4 = a1.rowRange(0,N/2);
tmv::Matrix<std::complex<T> > ca4 = ca1.rowRange(0,N/2);
tmv::Matrix<T> a5 = a1.colRange(0,0);
tmv::Matrix<std::complex<T> > ca5 = ca1.colRange(0,0);
tmv::Matrix<T> a6 = a1.rowRange(0,0);
tmv::Matrix<std::complex<T> > ca6 = ca1.rowRange(0,0);
tmv::Matrix<T> a7 = a1;
tmv::Matrix<std::complex<T> > ca7 = ca1;
a7.diag().addToAll(T(10)*N);
ca7.diag().addToAll(T(10)*N);
for(size_t i=START;i<b.size();i++) {
if (showstartdone)
std::cout<<"Start loop: i = "<<i<<"\nbi = "<<tmv::TMV_Text(b[i])<<
" "<<b[i]<<std::endl;
tmv::BandMatrixView<T> bi = b[i];
tmv::BandMatrixView<std::complex<T> > cbi = cb[i];
if (dt == tmv::LU && !bi.isSquare()) continue;
bi.saveDiv();
cbi.saveDiv();
tmv::Matrix<T> m(bi);
m.saveDiv();
bi.divideUsing(dt);
bi.setDiv();
m.divideUsing(dt);
m.setDiv();
std::ostream* divout = showdiv ? &std::cout : 0;
Assert(bi.checkDecomp(divout),"CheckDecomp");
T eps = m.rowsize()*EPS*Norm(m)*Norm(m.inverse());
if (bi.colsize() == N) {
tmv::Vector<T> x1 = v1/bi;
tmv::Vector<T> x2 = v1/m;
if (showacc) {
std::cout<<"v/b: Norm(x1-x2) = "<<Norm(x1-x2)<<
" "<<eps*Norm(x1)<<std::endl;
}
Assert(Norm(x1-x2) < eps*Norm(x1),"Band v/b");
}
if (bi.rowsize() == N) {
tmv::Vector<T> x1 = v1%bi;
tmv::Vector<T> x2 = v1%m;
if (showacc) {
std::cout<<"v%b: Norm(x1-x2) = "<<Norm(x1-x2)<<
" "<<eps*Norm(x1)<<std::endl;
}
Assert(Norm(x1-x2) < eps*Norm(x1),"Band v%b");
}
tmv::Matrix<T,tmv::ColMajor> binv = bi.inverse();
tmv::Matrix<T,tmv::ColMajor> minv = m.inverse();
if (showacc) {
std::cout<<"minv = "<<minv<<std::endl;
std::cout<<"binv = "<<binv<<std::endl;
std::cout<<"Norm(minv-binv) = "<<Norm(minv-binv)<<
" "<<eps*Norm(binv)<<std::endl;
}
Assert(Norm(binv-minv) < eps*Norm(binv),"Band Inverse");
if (m.isSquare()) {
if (showacc) {
std::cout<<"Det(b) = "<<Det(bi)<<
", Det(m) = "<<Det(m)<<std::endl;
std::cout<<"abs(bdet-mdet) = "<<std::abs(Det(bi)-Det(m));
std::cout<<" EPS*abs(mdet) = "<<
eps*std::abs(Det(m))<<std::endl;
std::cout<<"abs(abs(bdet)-abs(mdet)) = "<<
std::abs(std::abs(Det(bi))-std::abs(Det(m)));
std::cout<<" EPS*abs(mdet) = "<<
eps*std::abs(Det(m))<<std::endl;
}
Assert(std::abs(Det(m)-Det(bi)) < eps*std::abs(Det(m)+Norm(m)),
"Band Det");
T msign, bsign;
Assert(std::abs(m.logDet(&msign)-bi.logDet(&bsign)) < N*eps,
"Band LogDet");
Assert(std::abs(msign-bsign) < N*eps,"Band LogDet - sign");
}
cbi.divideUsing(dt);
cbi.setDiv();
Assert(cbi.checkDecomp(divout),"CheckDecomp");
tmv::Matrix<std::complex<T> > cm(cbi);
cm.saveDiv();
cm.divideUsing(dt);
cm.setDiv();
T ceps = EPS*Norm(cm)*Norm(cm.inverse());
if (cm.isSquare()) {
if (showacc) {
std::cout<<"Det(cbi) = "<<Det(cbi)<<", Det(cm) = "<<
Det(cm)<<std::endl;
std::cout<<"abs(cbidet-cmdet) = "<<std::abs(Det(cbi)-Det(cm));
std::cout<<" cbidet/cmdet = "<<Det(cbi)/Det(cm);
std::cout<<" EPS*abs(cmdet) = "<<
ceps*std::abs(Det(cm))<<std::endl;
std::cout<<"abs(abs(bdet)-abs(mdet)) = "<<
std::abs(std::abs(Det(bi))-std::abs(Det(m)));
std::cout<<" EPS*abs(mdet) = "<<
ceps*std::abs(Det(m))<<std::endl;
}
Assert(std::abs(Det(cbi)-Det(cm)) <
ceps*std::abs(Det(cm)+Norm(cm)),
"Band CDet");
std::complex<T> cmsign, cbsign;
Assert(std::abs(cm.logDet(&cmsign)-cbi.logDet(&cbsign)) < N*eps,
"Band CLogDet");
Assert(std::abs(cmsign-cbsign) < N*eps,"Band CLogDet - sign");
}
tmv::Vector<std::complex<T> > cv(v1 * std::complex<T>(1,1));
cv(1) += std::complex<T>(-1,5);
cv(2) -= std::complex<T>(-1,5);
if (m.colsize() == N) {
// test real / complex
tmv::Vector<std::complex<T> > y1 = v1/cbi;
tmv::Vector<std::complex<T> > y2 = v1/cm;
if (showacc) {
std::cout<<"v/cb: Norm(y1-y2) = "<<Norm(y1-y2)<<
" "<<ceps*Norm(y1)<<std::endl;
}
Assert(Norm(y1-y2) < ceps*Norm(y1),"Band v/cb");
// test complex / real
y1 = cv/bi;
y2 = cv/m;
if (showacc) {
std::cout<<"cv/b: Norm(y1-y2) = "<<Norm(y1-y2)<<
" "<<eps*Norm(y1)<<std::endl;
}
Assert(Norm(y1-y2) < eps*Norm(y1),"Band cv/b");
// test complex / complex
y1 = cv/cbi;
y2 = cv/cm;
if (showacc) {
std::cout<<"cv/cb: Norm(y1-y2) = "<<Norm(y1-y2)<<
" "<<ceps*Norm(y1)<<std::endl;
}
Assert(Norm(y1-y2) < ceps*Norm(y1),"Band cv/cb");
}
if (bi.rowsize() == N) {
tmv::Vector<std::complex<T> > y1 = v1%cbi;
tmv::Vector<std::complex<T> > y2 = v1%cm;
if (showacc) {
std::cout<<"v%cb: Norm(y1-y2) = "<<Norm(y1-y2)<<
" "<<ceps*Norm(y1)<<std::endl;
}
Assert(Norm(y1-y2) < ceps*Norm(y1),"Band v%cb");
y1 = cv%bi;
y2 = cv%m;
if (showacc) {
std::cout<<"cv%b: Norm(y1-y2) = "<<Norm(y1-y2)<<
" "<<eps*Norm(y1)<<std::endl;
}
Assert(Norm(y1-y2) < eps*Norm(y1),"Band cv%b");
y1 = cv%cbi;
y2 = cv%cm;
if (showacc) {
std::cout<<"cv%cb: Norm(y1-y2) = "<<Norm(y1-y2)<<
" "<<ceps*Norm(y1)<<std::endl;
}
Assert(Norm(y1-y2) < ceps*Norm(y1),"Band cv%cb");
}
}
TestBandDiv_A<T>(dt);
TestBandDiv_B1<T>(dt);
TestBandDiv_B2<T>(dt);
TestBandDiv_C1<T>(dt);
if (dt == tmv::LU) TestBandDiv_C2<T>(dt);
TestBandDiv_D1<T>(dt);
if (dt == tmv::LU) TestBandDiv_D2<T>(dt);
std::cout<<"BandMatrix<"<<tmv::TMV_Text(T())<<"> Division using ";
std::cout<<tmv::TMV_Text(dt)<<" passed all tests\n";
}
