{VERSION 6 0 "IBM INTEL NT" "6.0" } {USTYLETAB {CSTYLE "Maple Input" -1 0 "Courier" 0 1 255 0 0 1 0 1 0 0 1 0 0 0 0 1 }{CSTYLE "2D Math" -1 2 "Times" 0 1 0 0 0 0 0 0 2 0 0 0 0 0 0 1 }{CSTYLE "2D Output" 2 20 "" 0 1 0 0 255 1 0 0 0 0 0 0 0 0 0 1 } {PSTYLE "Normal" -1 0 1 {CSTYLE "" -1 -1 "Times" 1 12 0 0 0 1 2 2 2 2 2 2 1 1 1 1 }1 1 0 0 0 0 1 0 1 0 2 2 0 1 }{PSTYLE "Warning" -1 7 1 {CSTYLE "" -1 -1 "Courier" 1 10 0 0 255 1 2 2 2 2 2 1 1 1 3 1 }1 1 0 0 0 0 1 0 1 0 2 2 0 1 }{PSTYLE "Maple Output" -1 11 1 {CSTYLE "" -1 -1 "Times" 1 12 0 0 0 1 2 2 2 2 2 2 1 1 1 1 }3 3 0 0 0 0 1 0 1 0 2 2 0 1 }{PSTYLE "" 11 12 1 {CSTYLE "" -1 -1 "" 0 1 0 0 0 0 0 0 0 0 0 0 0 0 0 0 }1 0 0 -1 -1 -1 0 0 0 0 0 0 -1 0 }{PSTYLE "Maple Plot" -1 13 1 {CSTYLE "" -1 -1 "Times" 1 12 0 0 0 1 2 2 2 2 2 2 1 1 1 1 }3 1 0 0 0 0 1 0 1 0 2 2 0 1 }} {SECT 0 {EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 737 "# Must include func tion library: open and compile library.mws first.\n# ARCH Model Select ion Test Suite\n#\n# Seed: seed used for the initial trial (calling ra nd successively will produce the same data) \n# N: number of trials\n# T: number of data per trial\n# p: true model order (used to generate \+ data)\n# alpha: p parameter values are chosen randomly to guarantee st ationarity from a uniform distribution as follows: \n# 0 <= alp ha[0] <= 1\n# 0 <= alpha[1] <= 1\n# 0 <= alpha[2] <= 1-a lpha[1]\n# 0 <= alpha[3] <= 1-alpha[1]-alpha[2] \n# \+ ...\n# 0 <= alpha[p] <= 1-alpha[1]-alpha[2]- ... alpha[p-1] \+ \n#\n# pmax: candidate model range from p=1 .. pmax\n#\n# Stats: crite rion,
p,avg -LogLikelihood\n#" }}}{EXCHG {PARA 0 "> " 0 ""
{MPLTEXT 1 0 26 "currentdir(\"C:\\\\ARCH\\\\\"):\n" }}}{EXCHG {PARA 0
"> " 0 "" {MPLTEXT 1 0 20 "Seed := randomize();" }}{PARA 11 "" 1 ""
{XPPMATH 20 "6#>%%SeedG\"+G0'Q;\"" }}}{EXCHG {PARA 0 "> " 0 ""
{MPLTEXT 1 0 0 "" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 16 "randomi
ze(Seed):" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 7 "p := 2:" }}}
{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 17 "Nfilename := 200:" }}}
{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 8 "N := 10:" }}}{EXCHG {PARA 0 "
> " 0 "" {MPLTEXT 1 0 8 "T := 20:" }}}{EXCHG {PARA 0 "> " 0 ""
{MPLTEXT 1 0 8 "T0 := T:" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 10
"pmax := 8:" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 1637 "T := 70:\n
p := 2:\ncurrentdir(cat(\"C:\\\\ARCH\\\\arch\",p,\"-\",T,\"-\",Nfilena
me,\"\\\\\")):\nSelectModels(N,T0,T,p,pmax);\n\np := 3:\ncurrentdir(ca
t(\"C:\\\\ARCH\\\\arch\",p,\"-\",T,\"-\",Nfilename,\"\\\\\")):\nSelect
Models(N,T0,T,p,pmax);\n\np := 4:\ncurrentdir(cat(\"C:\\\\ARCH\\\\arch
\",p,\"-\",T,\"-\",Nfilename,\"\\\\\")):\nSelectModels(N,T0,T,p,pmax);
\n\np := 5:\ncurrentdir(cat(\"C:\\\\ARCH\\\\arch\",p,\"-\",T,\"-\",Nfi
lename,\"\\\\\")):\nSelectModels(N,T0,T,p,pmax);\n\nT := 200:\np := 2:
\ncurrentdir(cat(\"C:\\\\ARCH\\\\arch\",p,\"-\",T,\"-\",Nfilename,\"\\
\\\")):\nSelectModels(N,T0,T,p,pmax);\n\np := 3:\ncurrentdir(cat(\"C:
\\\\ARCH\\\\arch\",p,\"-\",T,\"-\",Nfilename,\"\\\\\")):\nSelectModels
(N,T0,T,p,pmax);\n\np := 4:\ncurrentdir(cat(\"C:\\\\ARCH\\\\arch\",p,
\"-\",T,\"-\",Nfilename,\"\\\\\")):\nSelectModels(N,T0,T,p,pmax);\n\np
:= 5:\ncurrentdir(cat(\"C:\\\\ARCH\\\\arch\",p,\"-\",T,\"-\",Nfilenam
e,\"\\\\\")):\nSelectModels(N,T0,T,p,pmax);\n\nT := 70:\np := 2:\ncurr
entdir(cat(\"C:\\\\ARCH\\\\arch\",p,\"-\",T,\"-\",Nfilename,\"\\\\\"))
:\nSelectModels(N,T0,T,p,pmax);\n\np := 3:\ncurrentdir(cat(\"C:\\\\ARC
H\\\\arch\",p,\"-\",T,\"-\",Nfilename,\"\\\\\")):\nSelectModels(N,T0,T
,p,pmax);\n\np := 4:\ncurrentdir(cat(\"C:\\\\ARCH\\\\arch\",p,\"-\",T,
\"-\",Nfilename,\"\\\\\")):\nSelectModels(N,T0,T,p,pmax);\n\np := 5:\n
currentdir(cat(\"C:\\\\ARCH\\\\arch\",p,\"-\",T,\"-\",Nfilename,\"\\\\
\")):\nSelectModels(N,T0,T,p,pmax);\n\nT := 200:\np := 2:\ncurrentdir(
cat(\"C:\\\\ARCH\\\\arch\",p,\"-\",T,\"-\",Nfilename,\"\\\\\")):\nSele
ctModels(N,T0,T,p,pmax);\n\np := 3:\ncurrentdir(cat(\"C:\\\\ARCH\\\\ar
ch\",p,\"-\",T,\"-\",Nfilename,\"\\\\\")):\nSelectModels(N,T0,T,p,pmax
);\n\np := 4:\ncurrentdir(cat(\"C:\\\\ARCH\\\\arch\",p,\"-\",T,\"-\",N
filename,\"\\\\\")):\nSelectModels(N,T0,T,p,pmax);\n\np := 5:\ncurrent
dir(cat(\"C:\\\\ARCH\\\\arch\",p,\"-\",T,\"-\",Nfilename,\"\\\\\")):\n
SelectModels(N,T0,T,p,pmax);\n" }}{PARA 11 "" 1 "" {XPPMATH 20 "6#Q)ar
ch2-706\"" }}{PARA 11 "" 1 "" {XPPMATH 20 "6#Q-Running~MMLD6\"" }}
{PARA 11 "" 1 "" {XPPMATH 20 "6#Q2Estimating~Points6\"" }}{PARA 11 ""
1 "" {XPPMATH 20 "6#\"\"#" }}{PARA 11 "" 1 "" {XPPMATH 20 "6#Q-Running
~MMLD6\"" }}{PARA 11 "" 1 "" {XPPMATH 20 "6#Q2Estimating~Points6\"" }}
{PARA 11 "" 1 "" {XPPMATH 20 "6#\"#9" }}{PARA 11 "" 1 "" {XPPMATH 20 "
6#Q-Running~MMLD6\"" }}{PARA 11 "" 1 "" {XPPMATH 20 "6#Q2Estimating~Po
ints6\"" }}{PARA 11 "" 1 "" {XPPMATH 20 "6#\"#q" }}{PARA 11 "" 1 ""
{XPPMATH 20 "6#Q-Running~MMLD6\"" }}{PARA 11 "" 1 "" {XPPMATH 20 "6#Q2
Estimating~Points6\"" }}{PARA 11 "" 1 "" {XPPMATH 20 "6#\"$]\"" }}
{PARA 11 "" 1 "" {XPPMATH 20 "6#Q-Running~MMLD6\"" }}{PARA 11 "" 1 ""
{XPPMATH 20 "6#Q2Estimating~Points6\"" }}{PARA 11 "" 1 "" {XPPMATH 20
"6#\"#B" }}{PARA 11 "" 1 "" {XPPMATH 20 "6#Q-Running~MMLD6\"" }}{PARA
11 "" 1 "" {XPPMATH 20 "6#Q2Estimating~Points6\"" }}{PARA 11 "" 1 ""
{XPPMATH 20 "6#\"#)*" }}{PARA 11 "" 1 "" {XPPMATH 20 "6#Q-Running~MMLD
6\"" }}{PARA 11 "" 1 "" {XPPMATH 20 "6#Q2Estimating~Points6\"" }}
{PARA 11 "" 1 "" {XPPMATH 20 "6#\"#7" }}{PARA 11 "" 1 "" {XPPMATH 20 "
6#Q-Running~MMLD6\"" }}{PARA 11 "" 1 "" {XPPMATH 20 "6#Q2Estimating~Po
ints6\"" }}{PARA 11 "" 1 "" {XPPMATH 20 "6#\"#7" }}{PARA 11 "" 1 ""
{XPPMATH 20 "6#7&$\"3?#4!4OJHTY!#=$\"3S-=6N2Lp7!#<$\"3+!\\OH