obj4.ox

时间序列分析中著名的OxMetrics软件包

#include <oxstd.h>
#include <oxprob.h>
#import <AnnualSample>

class AnnualDb : AnnualSample        // derived class
{
    AnnualDb();                      // constructor
    ~AnnualDb();                     // destructor
    Create(const mX, const asX, const iYear1, const iYear2);
    virtual Report();
    decl m_mX;
    decl m_asX;
};
AnnualDb::AnnualDb()
{
    AnnualSample(0, 0);
    m_mX = <>;
    m_asX = {};
}
AnnualDb::~AnnualDb()
{
    println("Destructor call: deleting object.");
}
AnnualDb::Create(const mX, const asX,const iYear1,const iYear2)
{
    m_mX = mX;
    m_asX = asX;
    AnnualSample(iYear1, iYear2);
	decl m_cX = columns(m_mX);
	decl r_asX = rows (m_asX);
	if (m_cX != r_asX)
	{ eprint("The Number of Strings must be equal to the number of columns");
		return FALSE;
	}
	decl m_rX = rows (m_mX);
	if (m_rX != iYear2 - iYear1 + 1)
	{ eprint("The Number of Observations is not Correct\n");
	println("Expected\n", m_rX);
		return FALSE;
	}
    Report();
}
AnnualDb::Report()
{
    println("The sample size is: ", m_iYear2 - m_iYear1 + 1);
	println("The sample data is: ", m_mX);
}
main()
{
    decl db = new AnnualDb();
    db.Create(rann(20,2), {"Var1", "Var2"}, 1981, 2000);
	decl db2 = new AnnualDb();
    db2.Create(rant(101, 3, 5), {"X1", "x2", "X3"}, 1900, 2000);
//	Println("these are the data",db.Create(rann(20,2), {"Var1", "Var2"}, 1981, 2000)); 
    delete db;
	delete db2;
}