Problem with implementing the following functions
- To: mathgroup at smc.vnet.net
- Subject: [mg23874] Problem with implementing the following functions
- From: "Matt Herman" <Henayni at hotmail.com>
- Date: Thu, 15 Jun 2000 00:51:11 -0400 (EDT)
- Sender: owner-wri-mathgroup at wolfram.com
Hello,
here are the functions
q[(Sqrt[x_] + (z_))/(y_), 1] := (x - (Floor[(z + Sqrt[x])/y]*y -
z)^2)/y
q[(Sqrt[x_] + (z_))/(y_), n_] :=
q[(z + Sqrt[x])/y, n - 2] +
a[(z + Sqrt[x])/y, n - 1]*(
m[(z + Sqrt[x])/y, n - 1] - m[(z + Sqrt[x])/y, n])
a[(Sqrt[x_] + (z_))/(y_), 0] := Floor[(z + Sqrt[x])/y]
a[(Sqrt[x_] + (z_))/(y_), n_] :=
Floor[(m[(z + Sqrt[x])/y, n] + Sqrt[x])/q[(z + Sqrt[x])/y, n]]
m[(Sqrt[x_] + (z_))/(y_), 1] := Floor[(z + Sqrt[x])/y]*y - z
m[(Sqrt[x_] + (z_))/(y_), n_] :=
a[(z + Sqrt[x])/y, n - 1]*q[(z + Sqrt[x])/y, n - 1] -
m[(z + Sqrt[x])/y, n - 1]
For some reason mathematica gives me blank inputs when I do
a[(9+Sqrt[18])/9,5] (or any n for that matter.
Any ideas?
Thanks,
Matt