p19 oxtut2g.ox

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

#include <oxstd.h>

test1(x)    // no const, because x will be changed
{
    x = 1;
    println("in test1: x=", x);
}
test2(const ax)
{
    // Note: indexing starts at 0 in Ox
    ax[0] = 2;
    println("in test2: x=", ax[0]);
}
main()
{
    decl x = 10;

    println("x = ", x);
    test1(x);          // pass x
    println("x = ", x);
    test2(&x);         // pass reference to x
    println("x = ", x);
}