Question: Calling Program inside another program

Happy New Year Maple Comminity,

Attached is a file I'm working on. I have created two sub-programs called BEven and BOdd, and my goal is to call this two program inside another program called Ym. I do not no if I have do this correctly, I have also pasted the equtaions I was tring to solve.

Would anybody please help me, to see if I have coded the equations correctly. If not please help.

Regards,

Moses

 Download 11162_Test_pile.pdf
View file details

> restart;
> t := 6;
print(??); # input placeholder
> m := t+1;
print(??); # input placeholder

For all even constants B6 through B2t inclusive:
> BEven := proc (m) local i, L1, f; global t, A, B, L; f := []; for i from -2 to m do L1 := 1/(6+A[i]-B[2*i-4]-B[2*i-1]*(4-B[2*i-3])); f := [op(f), L1] end do end proc;
print(??); # input placeholder

For all odd constants B7 through B2t +1 inclusive:
> BOdd := proc (m) local i, L1, f; global t, A, B, L; f := []; for i from -2 to m do L1 := B[2*i]*(4-B[2*i-1]); f := [op(f), L1] end do end proc;
print(??); # input placeholder

> `#msub(mi("Y"),mi("m"))` := proc (m) local i, L1, f, Y; global t, BEven, BOdd, L; f := []; for i from -2 to t+2 do if BEven(i) = B[2*i] then BEven(i) elif BOdd(i) = B[2*i+1] then BOdd(2*i+1); L1 := (-Y[i+2]+Y[i+1]*(4-BEven(2*i-2)*(4-BOdd(2*i-3))))/(6+A[i]-BEven(2*i-4)-BOdd(2*i-1)*(4-BOdd(2*i-3))) end if; f := [op(f), L1] end do end proc;
print(??); # input placeholder