Buenas noches !!!

Olga Lucia Quintero Fonseca qfolgalu@hotmail.com
Sun, 23 Feb 2003 19:58:30 -0400


This is a multi-part message in MIME format.

------=_NextPart_000_0005_01C2DB75.F0106CA0
Content-Type: text/plain;
	charset="iso-8859-1"
Content-Transfer-Encoding: quoted-printable

Buenas noches, quisiera consultarles sobre lo siguiente, tengo estas dos =
funciones=20

-- Calcula Raiz Wn

wn n =3D cos c :+ (-1*sin c) where c=3D2*pi/n

=20





twiddlefactor r k =3D=20

     concat [(map (^i) [(wn rs)^i | i<-[0..s-1]])| i<-[0..r-1]]

       where

        rs =3D (r^k) ;

        s =3D (r^(k-1))

la dificultad que tengo es que twiddlefactor no me acepta enteros=20

compila pero no me acepta los parametros, sin embargo si la defino como=20

       =20

--Calcula vector de Twiddle Factor

twiddlefactor r s rs=3D concat [(map (^i) diag) | i<-[0..r-1]]

     where

       diag =3D [(wn rs)^i | i<-[0..s-1]]

no tengo problema, lo que sucede es que posteriormente esta definicion =
me es inconveniente pues el valor de rs es r^k y lo necesito en un =
programa recursivo, que me esta dando inconvenientes precisamente por =
que debo estar reenviando el valor r^k.  Agradezco la ayuda que puedan =
darme


------=_NextPart_000_0005_01C2DB75.F0106CA0
Content-Type: text/html;
	charset="iso-8859-1"
Content-Transfer-Encoding: quoted-printable

<!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 4.0 Transitional//EN">
<HTML><HEAD>
<META http-equiv=3DContent-Type content=3D"text/html; =
charset=3Diso-8859-1">
<META content=3D"MSHTML 6.00.2723.2500" name=3DGENERATOR>
<STYLE></STYLE>
</HEAD>
<BODY bgColor=3D#ffffff>
<DIV><FONT face=3DArial size=3D2>Buenas noches, quisiera consultarles =
sobre lo=20
siguiente, tengo estas dos funciones </FONT></DIV>
<DIV><FONT face=3DArial size=3D2>&nbsp;</DIV>
<P class=3DMsoPlainText style=3D"MARGIN: 0in 0in 0pt"><SPAN lang=3DES-CO =

style=3D"mso-ansi-language: ES-CO"><FONT face=3D"Courier New">-- Calcula =
Raiz=20
Wn<?xml:namespace prefix =3D o ns =3D =
"urn:schemas-microsoft-com:office:office"=20
/><o:p></o:p></FONT></SPAN></P>
<P class=3DMsoPlainText style=3D"MARGIN: 0in 0in 0pt"><SPAN lang=3DES-CO =

style=3D"mso-ansi-language: ES-CO"><FONT face=3D"Courier New">wn n =3D =
cos c :+=20
(-1*sin c) where c=3D2*pi/n<o:p></o:p></FONT></SPAN></P>
<P class=3DMsoPlainText style=3D"MARGIN: 0in 0in 0pt"><SPAN lang=3DES-CO =

style=3D"mso-ansi-language: ES-CO"><o:p><FONT=20
face=3D"Courier New">&nbsp;</FONT></o:p></SPAN></P>
<P class=3DMsoPlainText style=3D"MARGIN: 0in 0in 0pt"><SPAN lang=3DES-CO =

style=3D"mso-ansi-language: ES-CO"><o:p><FONT=20
face=3D"Courier New"></FONT></o:p></SPAN></P>
<P class=3DMsoPlainText style=3D"MARGIN: 0in 0in 0pt"><SPAN lang=3DES-CO =

style=3D"mso-ansi-language: ES-CO"><FONT=20
face=3D"Courier New"><o:p></o:p></FONT></SPAN></P>
<P class=3DMsoPlainText style=3D"MARGIN: 0in 0in 0pt"><SPAN lang=3DES-CO =

style=3D"mso-ansi-language: ES-CO"><FONT=20
face=3D"Courier New"><o:p></o:p></FONT></SPAN></P>
<P class=3DMsoPlainText style=3D"MARGIN: 0in 0in 0pt"><SPAN lang=3DES-CO =

style=3D"mso-ansi-language: ES-CO"><o:p><FONT=20
face=3D"Courier New"></FONT></o:p></SPAN></P>
<P class=3DMsoPlainText style=3D"MARGIN: 0in 0in 0pt"><FONT=20
face=3D"Courier New">twiddlefactor r k =3D </FONT></P>
<P class=3DMsoPlainText style=3D"MARGIN: 0in 0in 0pt"><FONT =
face=3D"Courier New"><SPAN=20
style=3D"mso-spacerun: yes">&nbsp;&nbsp;&nbsp;&nbsp; </SPAN>concat [(map =
(^i) [(wn=20
rs)^i | i&lt;-[0..s-1]])| i&lt;-[0..r-1]]<o:p></o:p></FONT></P>
<P class=3DMsoPlainText style=3D"MARGIN: 0in 0in 0pt"><FONT =
face=3D"Courier New"><SPAN=20
style=3D"mso-spacerun: yes">&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;=20
</SPAN>where</FONT></P>
<P class=3DMsoPlainText style=3D"MARGIN: 0in 0in 0pt"><FONT =
face=3D"Courier New"><SPAN=20
style=3D"mso-spacerun: yes">&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; =
</SPAN>rs =3D=20
(r^k) ;</FONT></P>
<P class=3DMsoPlainText style=3D"MARGIN: 0in 0in 0pt"><FONT =
face=3D"Courier New"><SPAN=20
style=3D"mso-tab-count: 1">&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; </SPAN><SPAN=20
style=3D"mso-spacerun: yes">&nbsp; </SPAN>s =3D (r^(k-1))</FONT></P>
<P class=3DMsoPlainText style=3D"MARGIN: 0in 0in 0pt"><FONT =
face=3D"Courier New">la=20
dificultad que tengo es que twiddlefactor no me acepta enteros =
</FONT></P>
<P class=3DMsoPlainText style=3D"MARGIN: 0in 0in 0pt"><FONT=20
face=3D"Courier New">compila pero no me acepta los parametros, sin =
embargo si la=20
defino como </FONT></P>
<P class=3DMsoPlainText style=3D"MARGIN: 0in 0in 0pt"><SPAN=20
style=3D"mso-spacerun: yes"><FONT=20
face=3D"Courier New">&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; </P>
<P class=3DMsoPlainText style=3D"MARGIN: 0in 0in 0pt"><SPAN lang=3DES-CO =

style=3D"mso-ansi-language: ES-CO">--Calcula vector de Twiddle=20
Factor<o:p></o:p></SPAN></P>
<P class=3DMsoPlainText style=3D"MARGIN: 0in 0in 0pt">twiddlefactor r s =
rs=3D concat=20
[(map (^i) diag) | i&lt;-[0..r-1]]<o:p></o:p></P>
<P class=3DMsoPlainText style=3D"MARGIN: 0in 0in 0pt"><SPAN=20
style=3D"mso-spacerun: yes">&nbsp;&nbsp;&nbsp;&nbsp; =
</SPAN>where<o:p></o:p></P>
<P class=3DMsoPlainText style=3D"MARGIN: 0in 0in 0pt"><SPAN=20
style=3D"mso-spacerun: yes">&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; =
</SPAN>diag =3D=20
[(wn rs)^i | i&lt;-[0..s-1]]<o:p></o:p></P>
<P class=3DMsoPlainText style=3D"MARGIN: 0in 0in =
0pt"></FONT></SPAN><o:p>no tengo=20
problema, lo que sucede es que posteriormente esta definicion me es=20
inconveniente pues el valor de rs es r^k y lo necesito en un programa =
recursivo,=20
que me esta dando inconvenientes precisamente por que debo estar =
reenviando el=20
valor r^k.&nbsp; Agradezco la ayuda que puedan=20
darme</o:p></P></FONT></BODY></HTML>

------=_NextPart_000_0005_01C2DB75.F0106CA0--